mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Move two function definitions.

Browse source
This commit is contained in:
Richard M. Stallman 1996-10-08 08:03:42 +00:00
parent 21a6f23c30
commit 67580ab566
1 changed files with 16 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

31
lisp/gud.el
View file

@ -227,21 +227,6 @@ we're in the GUD buffer)."
output))
(defun gud-new-keymap (map)
"Return a new keymap which inherits from MAP and has name `Gud'."
(nconc (make-sparse-keymap "Gud") map))
(defun gud-make-debug-menu ()
"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 (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]
(cons "Gud" (gud-new-keymap gud-menu-map)))))
(defun gud-gdb-find-file (f)
(save-excursion
(let ((buf (find-file-noselect f)))
@ -1477,6 +1462,22 @@ Obeying it means displaying in another window the specified file and line."
(or gud-last-frame (setq gud-last-frame gud-last-last-frame))
(gud-display-frame))
(defun gud-new-keymap (map)
"Return a new keymap which inherits from MAP and has name `Gud'."
(nconc (make-sparse-keymap "Gud") map))
(defun gud-make-debug-menu ()
"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 (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]
(cons "Gud" (gud-new-keymap gud-menu-map)))))
;;; Code for parsing expressions out of C code. The single entry point is
;;; find-c-expr, which tries to return an lvalue expression from around point.
;;;