[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master fdf7349: Protect against unlikely case of [menu-bar
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master fdf7349: Protect against unlikely case of [menu-bar] not being bound |
Date: |
Wed, 9 Oct 2019 03:45:14 -0400 (EDT) |
branch: master
commit fdf7349b1c4b0d599208761af948bd1d6f2434fd
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Protect against unlikely case of [menu-bar] not being bound
* lisp/recentf.el (recentf-show-menu):
(recentf-hide-menu): The [menu-bar] key may be unbound (bug#25191).
---
lisp/recentf.el | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/lisp/recentf.el b/lisp/recentf.el
index 2720286..83c71a5 100644
--- a/lisp/recentf.el
+++ b/lisp/recentf.el
@@ -658,15 +658,17 @@ Return nil if file NAME is not one of the ten more
recent."
(defun recentf-show-menu ()
"Show the menu of recently opened files."
- (easy-menu-add-item
- (recentf-menu-bar) recentf-menu-path
- (list recentf-menu-title :filter 'recentf-make-menu-items)
- recentf-menu-before))
+ (when (keymapp (recentf-menu-bar))
+ (easy-menu-add-item
+ (recentf-menu-bar) recentf-menu-path
+ (list recentf-menu-title :filter 'recentf-make-menu-items)
+ recentf-menu-before)))
(defun recentf-hide-menu ()
"Hide the menu of recently opened files."
- (easy-menu-remove-item (recentf-menu-bar) recentf-menu-path
- recentf-menu-title))
+ (when (keymapp (recentf-menu-bar))
+ (easy-menu-remove-item (recentf-menu-bar) recentf-menu-path
+ recentf-menu-title)))
;;; Predefined menu filters
;;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master fdf7349: Protect against unlikely case of [menu-bar] not being bound,
Lars Ingebrigtsen <=