# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1059919203 0
# Node ID 3132ffb5a7abcf59ba6800453dafb77b7ff38cf7
# Parent  60ffdeba6e0ef123ae6a15d8881ec718a4d1ebfa
(displayed-month, displayed-year): Define for compiler.
(cal-menu-update): Adapt for new behaviour of `calendar-month-name' function.

diff -r 60ffdeba6e0e -r 3132ffb5a7ab lisp/calendar/cal-menu.el
--- a/lisp/calendar/cal-menu.el	Sun Aug 03 13:59:13 2003 +0000
+++ b/lisp/calendar/cal-menu.el	Sun Aug 03 14:00:03 2003 +0000
@@ -1,6 +1,6 @@
 ;;; cal-menu.el --- calendar functions for menu bar and popup menu support
 
-;; Copyright (C) 1994, 1995, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1994, 1995, 2001, 2003 Free Software Foundation, Inc.
 
 ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
 ;;	Lara Rios <lrios@coewl.cen.uiuc.edu>
@@ -37,6 +37,9 @@
 
 ;;; Code:
 
+(defvar displayed-month)
+(defvar displayed-year)
+
 (eval-when-compile (require 'calendar))
 (require 'easymenu)
 
@@ -219,13 +222,13 @@
                      (increment-calendar-month m2 y2 1)
                      (if (= y1 y2)
                          (format "%s-%s, %d"
-                                 (calendar-month-name m1 3)
-                                 (calendar-month-name m2 3)
+                                 (calendar-month-name m1 'abbrev)
+                                 (calendar-month-name m2 'abbrev)
                                  y2)
                        (format "%s, %d-%s, %d"
-                               (calendar-month-name m1 3)
+                               (calendar-month-name m1 'abbrev)
                                y1
-                               (calendar-month-name m2 3)
+                               (calendar-month-name m2 'abbrev)
                                y2)))))
               (define-key  calendar-mode-map [menu-bar Holidays 3-month]
                 `(,(format "For Window (%s)" title)