diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2003-09-08 19:01:57 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2003-09-08 19:01:57 +0000 |
| commit | d5d78bd53e5bc03744fb55c62ba5330c498c5973 (patch) | |
| tree | 7311be32a4682f7f7f88a531db8c030a9f09486a /lisp/recentf.el | |
| parent | cc7593b13f243e804fdb4a63f1132f30e98f1db5 (diff) | |
| download | emacs-d5d78bd53e5bc03744fb55c62ba5330c498c5973.tar.gz | |
Ensure that recentf correctly update the menu bar:
(recentf-menu-path,recentf-menu-before): Doc fix.
(recentf-menu-bar): New function.
(recentf-clear-data): Use it
(recentf-update-menu): Likewise. Use easy-menu-add-item instead
of easy-menu-change.
Diffstat (limited to 'lisp/recentf.el')
| -rw-r--r-- | lisp/recentf.el | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/lisp/recentf.el b/lisp/recentf.el index 5a66a26428b..76c29995a57 100644 --- a/lisp/recentf.el +++ b/lisp/recentf.el @@ -8,7 +8,7 @@ ;; Maintainer: FSF ;; Keywords: files -(defconst recentf-version "$Revision: 1.24 $") +(defconst recentf-version "$Revision: 1.25 $") ;; This file is part of GNU Emacs. @@ -98,7 +98,7 @@ Set VARIABLE with VALUE, and force a rebuild of the recentf menu." (defcustom recentf-menu-path '("files") "*Path where to add the recentf menu. -If nil add it at top level (see also `easy-menu-change')." +If nil add it at top level (see also `easy-menu-add-item')." :group 'recentf :type '(choice (const :tag "Top Level" nil) (sexp :tag "Menu Path")) @@ -106,7 +106,7 @@ If nil add it at top level (see also `easy-menu-change')." (defcustom recentf-menu-before "Open File..." "*Name of the menu before which the recentf menu will be added. -If nil add it at end of menu (see also `easy-menu-change')." +If nil add it at end of menu (see also `easy-menu-add-item')." :group 'recentf :type '(choice (string :tag "Name") (const :tag "Last" nil)) @@ -520,10 +520,15 @@ menu-elements (no sub-menu)." :help (concat "Open " value) :active t)))) +(defsubst recentf-menu-bar () + "Return the keymap of the global menu bar." + (lookup-key global-map [menu-bar])) + (defun recentf-clear-data () "Clear data used to build the recentf menu. This force a rebuild of the menu." - (easy-menu-remove-item nil recentf-menu-path recentf-menu-title) + (easy-menu-remove-item (recentf-menu-bar) + recentf-menu-path recentf-menu-title) (setq recentf-data-cache nil)) ;;; Predefined menu filters @@ -916,10 +921,11 @@ That is, remove a non readable file from the recent list, if (unless (equal recentf-data-cache cache) (setq recentf-data-cache cache) (condition-case err - (easy-menu-change recentf-menu-path - recentf-menu-title - (recentf-make-menu-items) - recentf-menu-before) + (easy-menu-add-item + (recentf-menu-bar) recentf-menu-path + (easy-menu-create-menu recentf-menu-title + (recentf-make-menu-items)) + recentf-menu-before) (error (message "recentf update menu failed: %s" (error-message-string err))))))) |