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

(def-gdb-auto-updated-buffer)

Browse source 
(def-gdb-auto-update-trigger): Simplify construction.
(gdb-locals-buffer): Use def-gdb-auto-update-trigger instead of
def-gdb-auto-updated-buffer as gdb-info-locals-handler is
defined explicitly.
(gdb-assembler-buffer): Use def-gdb-auto-update-handler instead of
def-gdb-auto-updated-buffer as gdb-invalidate-assembler is
defined explicitly.
(gdb-info-locals-custom): Remove as it's a no-op.
This commit is contained in:
Nick Roberts 2005-10-26 01:01:34 +00:00
parent 14924bb1e0
commit 9317517c79
1 changed files with 7 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1200,7 +1200,7 @@ happens to be appropriate."
(defmacro def-gdb-auto-update-trigger (name demand-predicate gdb-command
output-handler)
`(defun ,name (&optional ignored)
(if (and (,demand-predicate)
(if (and ,demand-predicate
(not (member ',name
gdb-pending-triggers)))
(progn
@ -1232,7 +1232,7 @@ happens to be appropriate."
`(progn
(def-gdb-auto-update-trigger ,trigger-name
;; The demand predicate:
(lambda () (gdb-get-buffer ',buffer-key))
(gdb-get-buffer ',buffer-key)
,gdb-command
,output-handler-name)
(def-gdb-auto-update-handler ,output-handler-name
@ -2153,11 +2153,10 @@ corresponding to the mode line clicked."
'gdb-locals-buffer-name
'gdb-locals-mode)
(def-gdb-auto-updated-buffer gdb-locals-buffer
gdb-invalidate-locals
(def-gdb-auto-update-trigger gdb-invalidate-locals
(gdb-get-buffer 'gdb-locals-buffer)
"server info locals\n"
gdb-info-locals-handler
gdb-info-locals-custom)
gdb-info-locals-handler)
;; Abbreviate for arrays and structures.
;; These can be expanded using gud-display.
@ -2187,9 +2186,6 @@ corresponding to the mode line clicked."
(set-window-point window p)))))
(run-hooks 'gdb-info-locals-hook))
(defun gdb-info-locals-custom ()
nil)
(defvar gdb-locals-mode-map
(let ((map (make-sparse-keymap)))
(suppress-keymap map)
@ -2614,12 +2610,9 @@ BUFFER nil or omitted means use the current buffer."
'gdb-assembler-buffer-name
'gdb-assembler-mode)
(def-gdb-auto-updated-buffer gdb-assembler-buffer
(def-gdb-auto-update-handler gdb-assembler-handler
gdb-invalidate-assembler
(concat gdb-server-prefix "disassemble "
(if (member gdb-frame-address '(nil "main")) nil "0x")
gdb-frame-address "\n")
gdb-assembler-handler
gdb-assembler-buffer
gdb-assembler-custom)
(defun gdb-assembler-custom ()