Mercurial > emacs

comparison lisp/calendar/calendar.el @ 38756:aa185d4220dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-mode-line-format): Use make-mode-line-mouse-map instead of make-mode-line-mouse2-map.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 09 Aug 2001 14:21:12 +0000
parents 911d5f6da3f7
children 183567a011b1
comparison
equal deleted inserted replaced
38755:2fa1afcedab9 38756:aa185d4220dd
2038 (defvar calendar-mode-line-format 2038 (defvar calendar-mode-line-format
2039 (list 2039 (list
2040 (propertize (substitute-command-keys 2040 (propertize (substitute-command-keys
2041 "\\<calendar-mode-map>\\[scroll-calendar-left]") 2041 "\\<calendar-mode-map>\\[scroll-calendar-left]")
2042 'help-echo "mouse-2: scroll left" 2042 'help-echo "mouse-2: scroll left"
2043 'keymap (make-mode-line-mouse2-map #'scroll-calendar-left)) 2043 'keymap (make-mode-line-mouse-map 'mouse-2
2044 #'scroll-calendar-left))
2044 "Calendar" 2045 "Calendar"
2045 (concat 2046 (concat
2046 (propertize 2047 (propertize
2047 (substitute-command-keys 2048 (substitute-command-keys
2048 "\\<calendar-mode-map>\\[calendar-goto-info-node] info") 2049 "\\<calendar-mode-map>\\[calendar-goto-info-node] info")
2049 'help-echo "mouse-2: read Info on Calendar" 2050 'help-echo "mouse-2: read Info on Calendar"
2050 'keymap (make-mode-line-mouse2-map #'calendar-goto-info-node)) 2051 'keymap (make-mode-line-mouse-map 'mouse-2 #'calendar-goto-info-node))
2051 "/" 2052 "/"
2052 (propertize 2053 (propertize
2053 (substitute-command-keys 2054 (substitute-command-keys
2054 "\\<calendar-mode-map>\\[calendar-other-month] other") 2055 "\\<calendar-mode-map>\\[calendar-other-month] other")
2055 'help-echo "mouse-2: choose another month" 2056 'help-echo "mouse-2: choose another month"
2056 'keymap (make-mode-line-mouse2-map (lambda () 2057 'keymap (make-mode-line-mouse-map
2057 (interactive) 2058 'mouse-2
2058 (call-interactively 2059 (lambda ()
2059 'calendar-other-month)))) 2060 (interactive)
2061 (call-interactively
2062 'calendar-other-month))))
2060 "/" 2063 "/"
2061 (propertize 2064 (propertize
2062 (substitute-command-keys 2065 (substitute-command-keys
2063 "\\<calendar-mode-map>\\[calendar-goto-today] today") 2066 "\\<calendar-mode-map>\\[calendar-goto-today] today")
2064 'help-echo "mouse-2: go to today's date" 2067 'help-echo "mouse-2: go to today's date"
2065 'keymap (make-mode-line-mouse2-map #'calendar-goto-today))) 2068 'keymap (make-mode-line-mouse-map 'mouse-2 #'calendar-goto-today)))
2066 '(calendar-date-string (calendar-current-date) t) 2069 '(calendar-date-string (calendar-current-date) t)
2067 (propertize (substitute-command-keys 2070 (propertize (substitute-command-keys
2068 "\\<calendar-mode-map>\\[scroll-calendar-right]") 2071 "\\<calendar-mode-map>\\[scroll-calendar-right]")
2069 'help-echo "mouse-2: scroll right" 2072 'help-echo "mouse-2: scroll right"
2070 'keymap (make-mode-line-mouse2-map #'scroll-calendar-right))) 2073 'keymap (make-mode-line-mouse-map
2074 'mouse-2 #'scroll-calendar-right)))
2071 "The mode line of the calendar buffer.") 2075 "The mode line of the calendar buffer.")
2072 2076
2073 (defun calendar-goto-info-node () 2077 (defun calendar-goto-info-node ()
2074 "Go to the info node for the calendar." 2078 "Go to the info node for the calendar."
2075 (interactive) 2079 (interactive)