(mouse-major-mode-menu): Avoid confusing error message when there's no current

local map.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 917cdca28a3d7c4ab8943c6db0b5d3cb9eb31c7a..4ed6d634c2ac49c4943b3fd96bbcca266e0a705c 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -52,7 +52,8 @@
     (define-key newmap (vector (car event))
       (nconc (make-sparse-keymap "Menu")
             (mouse-major-mode-menu-1
-             (lookup-key (current-local-map) [menu-bar]))))
+             (and (current-local-map)
+                  (lookup-key (current-local-map) [menu-bar])))))
     (mouse-major-mode-menu-compute-equiv-keys newmap)
     (command-execute
      ;; Make NEWMAP override the usual definition