# HG changeset patch # User Karl Heuer # Date 801874781 0 # Node ID b60e87249b27fa188ee9c24fbd56633113750478 # Parent a59559009d7e9ca3873cc96fcf224994d74d91b5 Fix capitalization in menu bar. (gud-xdb-find-file): Delete duplicate menu-bar entry. diff -r a59559009d7e -r b60e87249b27 lisp/gud.el --- a/lisp/gud.el Tue May 30 22:54:53 1995 +0000 +++ b/lisp/gud.el Tue May 30 22:59:41 1995 +0000 @@ -68,16 +68,16 @@ ;; before use.) (defvar gud-menu-map (make-sparse-keymap "Gud") nil) (define-key gud-menu-map [refresh] '("Refresh" . gud-refresh)) -(define-key gud-menu-map [remove] '("Remove breakpoint" . gud-remove)) +(define-key gud-menu-map [remove] '("Remove Breakpoint" . gud-remove)) (define-key gud-menu-map [tbreak] nil) ; gdb, sdb and xdb -(define-key gud-menu-map [break] '("Set breakpoint" . gud-break)) +(define-key gud-menu-map [break] '("Set Breakpoint" . gud-break)) (define-key gud-menu-map [up] nil) ; gdb, dbx, and xdb (define-key gud-menu-map [down] nil) ; gdb, dbx, and xdb -(define-key gud-menu-map [print] '("Print expression" . gud-print)) +(define-key gud-menu-map [print] '("Print Expression" . gud-print)) (define-key gud-menu-map [finish] nil) ; gdb or xdb -(define-key gud-menu-map [stepi] '("Step instruction" . gud-stepi)) -(define-key gud-menu-map [step] '("Step line" . gud-step)) -(define-key gud-menu-map [next] '("Next line" . gud-next)) +(define-key gud-menu-map [stepi] '("Step Instruction" . gud-stepi)) +(define-key gud-menu-map [step] '("Step Line" . gud-step)) +(define-key gud-menu-map [next] '("Next Line" . gud-next)) (define-key gud-menu-map [cont] '("Continue" . gud-cont)) ;; ====================================================================== @@ -246,10 +246,10 @@ (set-buffer buf) (gud-make-debug-menu) (local-set-key [menu-bar debug tbreak] - '("Temporary breakpoint" . gud-tbreak)) - (local-set-key [menu-bar debug finish] '("Finish function" . gud-finish)) - (local-set-key [menu-bar debug up] '("Up stack" . gud-up)) - (local-set-key [menu-bar debug down] '("Down stack" . gud-down)) + '("Temporary Breakpoint" . gud-tbreak)) + (local-set-key [menu-bar debug finish] '("Finish Function" . gud-finish)) + (local-set-key [menu-bar debug up] '("Up Stack" . gud-up)) + (local-set-key [menu-bar debug down] '("Down Stack" . gud-down)) buf))) (defvar gdb-minibuffer-local-map nil @@ -289,10 +289,10 @@ (gud-def gud-print "print %e" "\C-p" "Evaluate C expression at point.") (local-set-key "\C-i" 'gud-gdb-complete-command) - (local-set-key [menu-bar debug tbreak] '("Temporary breakpoint" . gud-tbreak)) - (local-set-key [menu-bar debug finish] '("Finish function" . gud-finish)) - (local-set-key [menu-bar debug up] '("Up stack" . gud-up)) - (local-set-key [menu-bar debug down] '("Down stack" . gud-down)) + (local-set-key [menu-bar debug tbreak] '("Temporary Breakpoint" . gud-tbreak)) + (local-set-key [menu-bar debug finish] '("Finish Function" . gud-finish)) + (local-set-key [menu-bar debug up] '("Up Stack" . gud-up)) + (local-set-key [menu-bar debug down] '("Down Stack" . gud-down)) (setq comint-prompt-regexp "^(.*gdb[+]?) *") (setq paragraph-start comint-prompt-regexp) (run-hooks 'gdb-mode-hook) @@ -464,7 +464,7 @@ (find-file-noselect f)))) (set-buffer buf) (gud-make-debug-menu) - (local-set-key [menu-bar debug tbreak] '("Temporary breakpoint" . gud-tbreak)) + (local-set-key [menu-bar debug tbreak] '("Temporary Breakpoint" . gud-tbreak)) buf))) ;;;###autoload @@ -500,7 +500,7 @@ (setq comint-prompt-regexp "\\(^\\|\n\\)\\*") (setq paragraph-start comint-prompt-regexp) (local-set-key [menu-bar debug tbreak] - '("Temporary breakpoint" . gud-tbreak)) + '("Temporary Breakpoint" . gud-tbreak)) (run-hooks 'sdb-mode-hook) ) @@ -695,8 +695,8 @@ (let ((buf (find-file-noselect f))) (set-buffer buf) (gud-make-debug-menu) - (local-set-key [menu-bar debug up] '("Up stack" . gud-up)) - (local-set-key [menu-bar debug down] '("Down stack" . gud-down)) + (local-set-key [menu-bar debug up] '("Up Stack" . gud-up)) + (local-set-key [menu-bar debug down] '("Down Stack" . gud-down)) buf))) ;;;###autoload @@ -756,8 +756,8 @@ (setq comint-prompt-regexp "^[^)\n]*dbx) *") (setq paragraph-start comint-prompt-regexp) - (local-set-key [menu-bar debug up] '("Up stack" . gud-up)) - (local-set-key [menu-bar debug down] '("Down stack" . gud-down)) + (local-set-key [menu-bar debug up] '("Up Stack" . gud-up)) + (local-set-key [menu-bar debug down] '("Down Stack" . gud-down)) (run-hooks 'dbx-mode-hook) ) @@ -826,12 +826,11 @@ (set-buffer buf) (gud-make-debug-menu) (local-set-key [menu-bar debug tbreak] - '("Temporary breakpoint" . gud-tbreak)) + '("Temporary Breakpoint" . gud-tbreak)) (local-set-key [menu-bar debug finish] - '("Finish function" . gud-finish)) - (local-set-key [menu-bar debug up] '("Up stack" . gud-up)) - (local-set-key [menu-bar debug up] '("Up stack" . gud-up)) - (local-set-key [menu-bar debug down] '("Down stack" . gud-down)) + '("Finish Function" . gud-finish)) + (local-set-key [menu-bar debug up] '("Up Stack" . gud-up)) + (local-set-key [menu-bar debug down] '("Down Stack" . gud-down)) buf) nil)))) @@ -868,10 +867,10 @@ (setq comint-prompt-regexp "^>") (setq paragraph-start comint-prompt-regexp) - (local-set-key [menu-bar debug tbreak] '("Temporary breakpoint" . gud-tbreak)) - (local-set-key [menu-bar debug finish] '("Finish function" . gud-finish)) - (local-set-key [menu-bar debug up] '("Up stack" . gud-up)) - (local-set-key [menu-bar debug down] '("Down stack" . gud-down)) + (local-set-key [menu-bar debug tbreak] '("Temporary Breakpoint" . gud-tbreak)) + (local-set-key [menu-bar debug finish] '("Finish Function" . gud-finish)) + (local-set-key [menu-bar debug up] '("Up Stack" . gud-up)) + (local-set-key [menu-bar debug down] '("Down Stack" . gud-down)) (run-hooks 'xdb-mode-hook)) ;; ======================================================================