andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update x-popup-menu declaration.

Browse source
This commit is contained in:
Glenn Morris 2009-11-10 08:11:47 +00:00
parent b16ff465dc
commit e8a11b2298
7 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
2009-11-10 Glenn Morris <rgm@gnu.org> 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) * emacs-lisp/shadow.el (find-emacs-lisp-shadows)
(list-load-path-shadows): Use dolist. (list-load-path-shadows): Use dolist.
(list-load-path-shadows): Use with-current-buffer. (list-load-path-shadows): Use with-current-buffer.

2
lisp/calendar/cal-menu.el
View file

@ -164,7 +164,7 @@
["Backward 1 Year" calendar-backward-year]) ["Backward 1 Year" calendar-backward-year])
"Key map for \"Scroll\" menu in the calendar.") "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) (defmacro cal-menu-x-popup-menu (event title &rest body)
"Call `x-popup-menu' at position EVENT, with TITLE and contents BODY. "Call `x-popup-menu' at position EVENT, with TITLE and contents BODY.

4
lisp/calendar/calendar.el
View file

@ -114,7 +114,7 @@
;;; Code: ;;; Code:
(load "cal-loaddefs" nil 'nomessage) (load "cal-loaddefs" nil t)
;; Avoid recursive load of calendar when loading cal-menu. Yuck. ;; Avoid recursive load of calendar when loading cal-menu. Yuck.
(provide 'calendar) (provide 'calendar)
@ -2510,7 +2510,7 @@ DATE is (month day year). Calendars that do not apply are omitted."
(format "Mayan date: %s" (format "Mayan date: %s"
(calendar-mayan-date-string date)))))) (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) (defun calendar-print-other-dates (&optional event)
"Show dates on other calendars for date under the cursor. "Show dates on other calendars for date under the cursor.

4
lisp/calendar/holidays.el
View file

@ -29,7 +29,7 @@
;;; Code: ;;; Code:
(require 'calendar) (require 'calendar)
(load "hol-loaddefs" nil 'nomessage) (load "hol-loaddefs" nil t)
(defgroup holidays nil (defgroup holidays nil
"Holidays support in calendar." "Holidays support in calendar."
@ -643,7 +643,7 @@ The holidays are those in the list `calendar-holidays'."
(define-obsolete-function-alias (define-obsolete-function-alias
'check-calendar-holidays 'calendar-check-holidays "23.1") '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 ;;;###cal-autoload
(defun calendar-cursor-holidays (&optional date event) (defun calendar-cursor-holidays (&optional date event)

2
lisp/dired.el
View file

@ -3311,7 +3311,7 @@ Anything else means ask for each directory."
(message-box (message-box
"Dired recursive copies are currently disabled.\nSee the variable `dired-recursive-copies'.")) "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) (defun dired-dnd-do-ask-action (uri)
;; No need to get actions and descriptions from the source, ;; No need to get actions and descriptions from the source,

2
lisp/hi-lock.el
View file

@ -447,7 +447,7 @@ lower-case letters made case insensitive."
(unless hi-lock-mode (hi-lock-mode 1)) (unless hi-lock-mode (hi-lock-mode 1))
(hi-lock-set-pattern regexp face)) (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 ;;;###autoload
(defalias 'unhighlight-regexp 'hi-lock-unface-buffer) (defalias 'unhighlight-regexp 'hi-lock-unface-buffer)

2
lisp/progmodes/cperl-mode.el
View file

@ -7171,7 +7171,7 @@ Use as
(cons cons1 (car cperl-hierarchy))))))) (cons cons1 (car cperl-hierarchy)))))))
(end-of-line)))) (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) (defun cperl-tags-hier-init (&optional update)
"Show hierarchical menu of classes and methods. "Show hierarchical menu of classes and methods.