Commit 67580ab5 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Move two function definitions.

parent 21a6f23c
...@@ -227,21 +227,6 @@ we're in the GUD buffer)." ...@@ -227,21 +227,6 @@ we're in the GUD buffer)."
output)) 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) (defun gud-gdb-find-file (f)
(save-excursion (save-excursion
(let ((buf (find-file-noselect f))) (let ((buf (find-file-noselect f)))
...@@ -1477,6 +1462,22 @@ Obeying it means displaying in another window the specified file and line." ...@@ -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)) (or gud-last-frame (setq gud-last-frame gud-last-last-frame))
(gud-display-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 ;;; 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. ;;; find-c-expr, which tries to return an lvalue expression from around point.
;;; ;;;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment