mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(gdb-breakpoints-mode-map)

Browse source 
(gdb-frames-mode-map): Add follow-link property.
This commit is contained in:
Nick Roberts 2005-03-25 22:04:45 +00:00
parent 5a049eca11
commit 0d43db4d62
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/progmodes/gdb-ui.el
View file

@ -1299,10 +1299,10 @@ static char *magick[] = {
(defvar gdb-breakpoints-mode-map
(let ((map (make-sparse-keymap))
(menu (make-sparse-keymap "Breakpoints")))
(define-key menu [toggle] '("Toggle" . gdb-toggle-breakpoint))
(define-key menu [delete] '("Delete" . gdb-delete-breakpoint))
(define-key menu [quit] '("Quit" . kill-this-buffer))
(define-key menu [goto] '("Goto" . gdb-goto-breakpoint))
(define-key menu [delete] '("Delete" . gdb-delete-breakpoint))
(define-key menu [toggle] '("Toggle" . gdb-toggle-breakpoint))
(suppress-keymap map)
(define-key map [menu-bar breakpoints] (cons "Breakpoints" menu))
(define-key map " " 'gdb-toggle-breakpoint)
@ -1310,6 +1310,7 @@ static char *magick[] = {
(define-key map "q" 'kill-this-buffer)
(define-key map "\r" 'gdb-goto-breakpoint)
(define-key map [mouse-2] 'gdb-goto-breakpoint)
(define-key map [follow-link] 'mouse-face)
map))
(defun gdb-breakpoints-mode ()
@ -1435,6 +1436,7 @@ static char *magick[] = {
(define-key map "q" 'kill-this-buffer)
(define-key map "\r" 'gdb-frames-select)
(define-key map [mouse-2] 'gdb-frames-select)
(define-key map [follow-link] 'mouse-face)
map))
(defun gdb-frames-mode ()