comparison lisp/calendar/calendar.el @ 39785:5c56451d877f

(calendar-mode-line-format): do not use #' on undefined functions

39784:d74cde9e5e55

;;; calendar.el --- calendar functions

;; Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 
;;	2000, 2001 Free Software Foundation, Inc.

;; Author: Edward M. Reingold <[e-mail]>
;; Keywords: calendar
;; Human-Keywords: calendar, Gregorian calendar, diary, holidays

;;  [e-mail]             1304 West Springfield Avenue
;;                                   Urbana, Illinois 61801

;;; Code:

(eval-when-compile 
  (defvar displayed-month)
  (defvar displayed-year)
  (defvar calendar-month-name-array)
  (defvar calendar-starred-day))

(defvar calendar-mode-line-format
  (list
   (propertize (substitute-command-keys
		"\\<calendar-mode-map>\\[scroll-calendar-left]")
	       'help-echo "mouse-2: scroll left"
	       'keymap (make-mode-line-mouse-map 'mouse-2 
						 #'scroll-calendar-left))
   "Calendar"
   (concat
    (propertize
     (substitute-command-keys
      "\\<calendar-mode-map>\\[calendar-goto-info-node] info")
     'help-echo "mouse-2: read Info on Calendar"
     'keymap (make-mode-line-mouse-map 'mouse-2 #'calendar-goto-info-node))
    "/"
    (propertize
     (substitute-command-keys
     "\\<calendar-mode-map>\\[calendar-other-month] other")
     'help-echo "mouse-2: choose another month"
     'keymap (make-mode-line-mouse-map 
	      'mouse-2 
	      (lambda ()
		(interactive)
		(call-interactively
		 'calendar-other-month))))
    "/"

     'keymap (make-mode-line-mouse-map 'mouse-2 #'calendar-goto-today)))
   '(calendar-date-string (calendar-current-date) t)
   (propertize (substitute-command-keys
		"\\<calendar-mode-map>\\[scroll-calendar-right]")
	       'help-echo "mouse-2: scroll right"
	       'keymap (make-mode-line-mouse-map 
			'mouse-2 #'scroll-calendar-right)))
  "The mode line of the calendar buffer.")

(defun calendar-goto-info-node ()
  "Go to the info node for the calendar."

39785:5c56451d877f

;;; calendar.el --- calendar functions

;; Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997,
;;	2000, 2001 Free Software Foundation, Inc.

;; Author: Edward M. Reingold <[e-mail]>
;; Keywords: calendar
;; Human-Keywords: calendar, Gregorian calendar, diary, holidays

;;  [e-mail]             1304 West Springfield Avenue
;;                                   Urbana, Illinois 61801

;;; Code:

(eval-when-compile
  (defvar displayed-month)
  (defvar displayed-year)
  (defvar calendar-month-name-array)
  (defvar calendar-starred-day))

(defvar calendar-mode-line-format
  (list
   (propertize (substitute-command-keys
		"\\<calendar-mode-map>\\[scroll-calendar-left]")
	       'help-echo "mouse-2: scroll left"
	       'keymap (make-mode-line-mouse-map 'mouse-2
						 #'scroll-calendar-left))
   "Calendar"
   (concat
    (propertize
     (substitute-command-keys
      "\\<calendar-mode-map>\\[calendar-goto-info-node] info")
     'help-echo "mouse-2: read Info on Calendar"
     'keymap (make-mode-line-mouse-map 'mouse-2 'calendar-goto-info-node))
    "/"
    (propertize
     (substitute-command-keys
     "\\<calendar-mode-map>\\[calendar-other-month] other")
     'help-echo "mouse-2: choose another month"
     'keymap (make-mode-line-mouse-map
	      'mouse-2
	      (lambda ()
		(interactive)
		(call-interactively
		 'calendar-other-month))))
    "/"

     'keymap (make-mode-line-mouse-map 'mouse-2 #'calendar-goto-today)))
   '(calendar-date-string (calendar-current-date) t)
   (propertize (substitute-command-keys
		"\\<calendar-mode-map>\\[scroll-calendar-right]")
	       'help-echo "mouse-2: scroll right"
	       'keymap (make-mode-line-mouse-map
			'mouse-2 #'scroll-calendar-right)))
  "The mode line of the calendar buffer.")

(defun calendar-goto-info-node ()
  "Go to the info node for the calendar."