Mercurial > emacs

diff lisp/mouse.el @ 11023:498940aefc37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-major-mode-menu): Avoid confusing error message when there's no current local map.
author Karl Heuer <kwzh@gnu.org>
date Wed, 15 Mar 1995 21:30:49 +0000
parents 6c0dc7a8a07a
children e6bdaaa6ce1b
line wrap: on
line diff
--- a/lisp/mouse.el	Wed Mar 15 20:20:39 1995 +0000
+++ b/lisp/mouse.el	Wed Mar 15 21:30:49 1995 +0000
@@ -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