diff --git a/lib/modules/Locale.pmod/Language.pmod/abstract.pike b/lib/modules/Locale.pmod/Language.pmod/abstract.pike
index f8d5bba0a1e52fef128e35559cf5e8af16b0253d..cdc79bbd0b30e805bed9f0aab15563b32a974699 100644
--- a/lib/modules/Locale.pmod/Language.pmod/abstract.pike
+++ b/lib/modules/Locale.pmod/Language.pmod/abstract.pike
@@ -2,7 +2,7 @@
 
 //! Abstract language locale class, inherited by all the language locale classes.
 
-// $Id: abstract.pike,v 1.2 2002/03/20 16:39:54 nilsson Exp $
+// $Id: abstract.pike,v 1.3 2004/05/16 10:06:36 nilsson Exp $
 
 //! Array(string) with the months of the year, beginning with January.
 constant months = ({ "", "", "", "", "", "", "", "", "", "", "", "" });
@@ -40,12 +40,25 @@ string month(int(1..12) num)
   return months[ num - 1 ];
 }
 
+//! Returns an abbreviated month name from the month number @[num].
+string short_month(int(1..12) num)
+{
+  return months[ num - 1][..2];
+}
+
 //! Returns the name of weekday number @[num].
 string day(int(1..7) num)
 {
   return days[ num - 1 ];
 }
 
+//! Returns an abbreviated weekday name from the weekday number
+//! @[num].
+string short_day(int(1..7) num)
+{
+  return days[ num - 1][..1];
+}
+
 //! Returns the number @[i] as a string.
 string number(int i)
 {
diff --git a/lib/modules/Locale.pmod/Language.pmod/jpn.pmod b/lib/modules/Locale.pmod/Language.pmod/jpn.pmod
index 2280c01e175decb18bf5f81d9a9caf0c4f769c1f..76472197b98f3daccd7016664e3126b9b4943155 100644
--- a/lib/modules/Locale.pmod/Language.pmod/jpn.pmod
+++ b/lib/modules/Locale.pmod/Language.pmod/jpn.pmod
@@ -4,7 +4,7 @@
 
 //! Japanese language locale.
 
-// $Id: jpn.pmod,v 1.1 2002/10/01 10:57:57 nilsson Exp $
+// $Id: jpn.pmod,v 1.2 2004/05/16 10:06:36 nilsson Exp $
 
 inherit "abstract";
 
@@ -122,8 +122,18 @@ string month(int num)
   return mknumber(num)+"月";
 }
 
+string short_month(int num)
+{
+  return month(num);
+}
+
 string day(int num)
 {
   return ({ "日", "月", "火", "水", "木", "金", "土" })[ num - 1 ]+
 	    "曜日";
 }
+
+string short_day(int num)
+{
+  return ({ "日", "月", "火", "水", "木", "金", "土" })[ num - 1 ];
+}