From fdf7349b1c4b0d599208761af948bd1d6f2434fd Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 9 Oct 2019 09:45:07 +0200 Subject: [PATCH] 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 2720286814a..83c71a561a9 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 ;; -- 2.39.5