2009-11-10 Glenn Morris <rgm@gnu.org>
+ * dired.el, hi-lock.el, calendar/cal-menu.el, calendar/calendar.el:
+ * calendar/holidays.el, progmodes/cperl-mode.el:
+ Update x-popup-menu declarations.
+
* emacs-lisp/shadow.el (find-emacs-lisp-shadows)
(list-load-path-shadows): Use dolist.
(list-load-path-shadows): Use with-current-buffer.
["Backward 1 Year" calendar-backward-year])
"Key map for \"Scroll\" menu in the calendar.")
-(declare-function x-popup-menu "xmenu.c" (position menu))
+(declare-function x-popup-menu "menu.c" (position menu))
(defmacro cal-menu-x-popup-menu (event title &rest body)
"Call `x-popup-menu' at position EVENT, with TITLE and contents BODY.
;;; Code:
-(load "cal-loaddefs" nil 'nomessage)
+(load "cal-loaddefs" nil t)
;; Avoid recursive load of calendar when loading cal-menu. Yuck.
(provide 'calendar)
(format "Mayan date: %s"
(calendar-mayan-date-string date))))))
-(declare-function x-popup-menu "xmenu.c" (position menu))
+(declare-function x-popup-menu "menu.c" (position menu))
(defun calendar-print-other-dates (&optional event)
"Show dates on other calendars for date under the cursor.
;;; Code:
(require 'calendar)
-(load "hol-loaddefs" nil 'nomessage)
+(load "hol-loaddefs" nil t)
(defgroup holidays nil
"Holidays support in calendar."
(define-obsolete-function-alias
'check-calendar-holidays 'calendar-check-holidays "23.1")
-(declare-function x-popup-menu "xmenu.c" (position menu))
+(declare-function x-popup-menu "menu.c" (position menu))
;;;###cal-autoload
(defun calendar-cursor-holidays (&optional date event)
(message-box
"Dired recursive copies are currently disabled.\nSee the variable `dired-recursive-copies'."))
-(declare-function x-popup-menu "xmenu.c" (position menu))
+(declare-function x-popup-menu "menu.c" (position menu))
(defun dired-dnd-do-ask-action (uri)
;; No need to get actions and descriptions from the source,
(unless hi-lock-mode (hi-lock-mode 1))
(hi-lock-set-pattern regexp face))
-(declare-function x-popup-menu "xmenu.c" (position menu))
+(declare-function x-popup-menu "menu.c" (position menu))
;;;###autoload
(defalias 'unhighlight-regexp 'hi-lock-unface-buffer)
(cons cons1 (car cperl-hierarchy)))))))
(end-of-line))))
-(declare-function x-popup-menu "xmenu.c" (position menu))
+(declare-function x-popup-menu "menu.c" (position menu))
(defun cperl-tags-hier-init (&optional update)
"Show hierarchical menu of classes and methods.