CVS update by jmiller packages/xemacs-packages/calendar, calendar.el ...

[xemacs-cvs at xemacs.org]

  User: jmiller 
  Date: 06/11/19 01:31:24

  Modified:    packages/xemacs-packages/calendar ChangeLog cal-compat.el
                        calendar.el
Log:
rename make-mode-line-mouse-map in cal-compat

Revision  Changes    Path
1.43      +8 -0      XEmacs/packages/xemacs-packages/calendar/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/calendar/ChangeLog,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -p -r1.42 -r1.43
--- ChangeLog	2006/11/14 10:31:50	1.42
+++ ChangeLog	2006/11/19 00:31:22	1.43
@@ -1,3 +1,11 @@
+2006-11-18  Jeff Miller  <jeff.miller at 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 at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.28 released.



1.2       +1 -1      XEmacs/packages/xemacs-packages/calendar/cal-compat.el

Index: cal-compat.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/calendar/cal-compat.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- cal-compat.el	2006/10/23 01:25:27	1.1
+++ cal-compat.el	2006/11/19 00:31:23	1.2
@@ -229,7 +229,7 @@ boundaries and extents added to the subs
 
 ;; 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."



1.13      +5 -5      XEmacs/packages/xemacs-packages/calendar/calendar.el

Index: calendar.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/calendar/calendar.el,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -p -r1.12 -r1.13
--- calendar.el	2006/11/13 04:22:12	1.12
+++ calendar.el	2006/11/19 00:31:23	1.13
@@ -2359,7 +2359,7 @@ movement commands will not work correctl
 		"\\<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
@@ -2368,14 +2368,14 @@ movement commands will not work correctl
       "\\<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
@@ -2383,13 +2383,13 @@ movement commands will not work correctl
      "\\<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.