emacs-diffs
[Top][All Lists]
Advanced

[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
 ;;



reply via email to

[Prev in Thread] Current Thread [Next in Thread]