From f059e1229b2bdfc48212fd37d0f7807d50a343af Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Thu, 11 Oct 2001 21:12:47 +0000 Subject: [PATCH] (calendar-mode-line-format): do not use #' on undefined functions --- lisp/calendar/calendar.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index dda6cf95e67..054eca79839 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -1,6 +1,6 @@ ;;; calendar.el --- calendar functions -;; Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, +;; Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, ;; 2000, 2001 Free Software Foundation, Inc. ;; Author: Edward M. Reingold @@ -93,7 +93,7 @@ ;;; Code: -(eval-when-compile +(eval-when-compile (defvar displayed-month) (defvar displayed-year) (defvar calendar-month-name-array) @@ -2040,7 +2040,7 @@ the inserted text. Value is always t." (propertize (substitute-command-keys "\\\\[scroll-calendar-left]") 'help-echo "mouse-2: scroll left" - 'keymap (make-mode-line-mouse-map 'mouse-2 + 'keymap (make-mode-line-mouse-map 'mouse-2 #'scroll-calendar-left)) "Calendar" (concat @@ -2048,14 +2048,14 @@ the inserted text. Value is always t." (substitute-command-keys "\\\\[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)) + 'keymap (make-mode-line-mouse-map 'mouse-2 'calendar-goto-info-node)) "/" (propertize (substitute-command-keys "\\\\[calendar-other-month] other") 'help-echo "mouse-2: choose another month" - 'keymap (make-mode-line-mouse-map - 'mouse-2 + 'keymap (make-mode-line-mouse-map + 'mouse-2 (lambda () (interactive) (call-interactively @@ -2070,7 +2070,7 @@ the inserted text. Value is always t." (propertize (substitute-command-keys "\\\\[scroll-calendar-right]") 'help-echo "mouse-2: scroll right" - 'keymap (make-mode-line-mouse-map + 'keymap (make-mode-line-mouse-map 'mouse-2 #'scroll-calendar-right))) "The mode line of the calendar buffer.") -- 2.39.2