Mercurial > emacs
changeset 16405:1fb8e3c7cc03
Move two function definitions.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 08 Oct 1996 08:03:42 +0000 |
| parents | 0cdf66e69ad8 |
| children | da03658014e3 |
| files | lisp/gud.el |
| diffstat | 1 files changed, 16 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gud.el Mon Oct 07 18:29:22 1996 +0000 +++ b/lisp/gud.el Tue Oct 08 08:03:42 1996 +0000 @@ -227,21 +227,6 @@ 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 @@ (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. ;;;