mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(gud-make-debug-menu): Cope if no local map yet.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-06-20 16:34:14 +00:00
parent 0287f07cc2
commit e031630049
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/gud.el
View File

@ -234,7 +234,8 @@ we're in the GUD buffer)."
"Make sure the current local map has a [menu-bar debug] submap.
If it doesn't, replace it with a new map that inherits it,
and create such a submap in that new map."
(if (lookup-key (current-local-map) [menu-bar debug])
(if (and (current-local-map)
(lookup-key (current-local-map) [menu-bar debug]))
nil
(use-local-map (gud-new-keymap (current-local-map)))
(define-key (current-local-map) [menu-bar debug]