mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-17 00:30:37 -08:00
Code Issues Projects Releases Wiki Activity

(displayed-month, displayed-year): Define for compiler.

Browse source 
(cal-menu-update): Adapt for new behaviour of `calendar-month-name' function.
This commit is contained in:
Glenn Morris 2003-08-03 14:00:03 +00:00
parent 2c8811d49b
commit 5bb7a2d574
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/calendar/cal-menu.el
View file

@ -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 @@ not available."
(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)