Commits

Anonymous committed acbbecf

rename make-mode-line-mouse-map in cal-compat

  • Participants
  • Parent commits f3d3c2c

Comments (0)

Files changed (3)

+2006-11-18  Jeff Miller  <jeff.miller@xemacs.org>
+
+	* cal-compat.el (make-mode-line-mouse-map): Removed.
+	* cal-compat.el (cal-make-mode-line-mouse-map): Renamed.  Using
+	the original name caused Gnus to think it was runnng under Emacs
+	and it attempted to use a face XEmacs does not define.
+	* calendar.el (calendar-mode-line-format): use the renamed function
+
 2006-11-14  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.28 released.

File cal-compat.el

 
 ;; Available in Emacs 22 
 ;;;###autoload
-(defun make-mode-line-mouse-map (mouse function) "\
+(defun cal-make-mode-line-mouse-map (mouse function) "\
 Return a keymap with single entry for mouse key MOUSE on the mode line.
 MOUSE is defined to run function FUNCTION with no args in the buffer
 corresponding to the mode line clicked."
 		"\\<calendar-mode-map>\\[scroll-calendar-left]")
 	       'help-echo "mouse-2: scroll left"
                'mouse-face 'modeline-mousable
-	       'keymap (make-mode-line-mouse-map 'button2
+	       'keymap (cal-make-mode-line-mouse-map 'button2
 						 'mouse-scroll-calendar-left))
    "Calendar"
    (concat
       "\\<calendar-mode-map>\\[calendar-goto-info-node] info")
      'help-echo "mouse-2: read Info on Calendar"
      'mouse-face 'modeline-mousable
-     'keymap (make-mode-line-mouse-map 'button2 'calendar-goto-info-node))
+     'keymap (cal-make-mode-line-mouse-map 'button2 'calendar-goto-info-node))
     "/"
     (propertize
      (substitute-command-keys
      "\\<calendar-mode-map>\\[calendar-other-month] other")
      'help-echo "mouse-2: choose another month"
      'mouse-face 'modeline-mousable
-     'keymap (make-mode-line-mouse-map
+     'keymap (cal-make-mode-line-mouse-map
 	      'button2 'mouse-calendar-other-month))
     "/"
     (propertize
      "\\<calendar-mode-map>\\[calendar-goto-today] today")
      'help-echo "mouse-2: go to today's date"
      'mouse-face 'modeline-mousable
-     'keymap (make-mode-line-mouse-map 'button2 #'calendar-goto-today)))
+     'keymap (cal-make-mode-line-mouse-map 'button2 #'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"
                'mouse-face 'modeline-mousable
-               'keymap (make-mode-line-mouse-map
+               'keymap (cal-make-mode-line-mouse-map
                         'button2 'mouse-scroll-calendar-right)))
   "The mode line of the calendar buffer.