/[emacs]/emacs/lisp/progmodes/gdb-ui.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gdb-ui.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.101 by nickrob, Tue Oct 25 02:30:39 2005 UTC revision 1.102 by nickrob, Wed Oct 26 01:01:34 2005 UTC
# Line 1200  happens to be appropriate." Line 1200  happens to be appropriate."
1200  (defmacro def-gdb-auto-update-trigger (name demand-predicate gdb-command  (defmacro def-gdb-auto-update-trigger (name demand-predicate gdb-command
1201                                              output-handler)                                              output-handler)
1202    `(defun ,name (&optional ignored)    `(defun ,name (&optional ignored)
1203       (if (and (,demand-predicate)       (if (and ,demand-predicate
1204                (not (member ',name                (not (member ',name
1205                             gdb-pending-triggers)))                             gdb-pending-triggers)))
1206           (progn           (progn
# Line 1232  happens to be appropriate." Line 1232  happens to be appropriate."
1232    `(progn    `(progn
1233       (def-gdb-auto-update-trigger ,trigger-name       (def-gdb-auto-update-trigger ,trigger-name
1234         ;; The demand predicate:         ;; The demand predicate:
1235         (lambda () (gdb-get-buffer ',buffer-key))         (gdb-get-buffer ',buffer-key)
1236         ,gdb-command         ,gdb-command
1237         ,output-handler-name)         ,output-handler-name)
1238       (def-gdb-auto-update-handler ,output-handler-name       (def-gdb-auto-update-handler ,output-handler-name
# Line 2153  corresponding to the mode line clicked." Line 2153  corresponding to the mode line clicked."
2153                        'gdb-locals-buffer-name                        'gdb-locals-buffer-name
2154                        'gdb-locals-mode)                        'gdb-locals-mode)
2155    
2156  (def-gdb-auto-updated-buffer gdb-locals-buffer  (def-gdb-auto-update-trigger gdb-invalidate-locals
2157    gdb-invalidate-locals    (gdb-get-buffer 'gdb-locals-buffer)
2158    "server info locals\n"    "server info locals\n"
2159    gdb-info-locals-handler    gdb-info-locals-handler)
   gdb-info-locals-custom)  
2160    
2161  ;; Abbreviate for arrays and structures.  ;; Abbreviate for arrays and structures.
2162  ;; These can be expanded using gud-display.  ;; These can be expanded using gud-display.
# Line 2187  corresponding to the mode line clicked." Line 2186  corresponding to the mode line clicked."
2186                  (set-window-point window p)))))                  (set-window-point window p)))))
2187    (run-hooks 'gdb-info-locals-hook))    (run-hooks 'gdb-info-locals-hook))
2188    
 (defun gdb-info-locals-custom ()  
   nil)  
   
2189  (defvar gdb-locals-mode-map  (defvar gdb-locals-mode-map
2190    (let ((map (make-sparse-keymap)))    (let ((map (make-sparse-keymap)))
2191      (suppress-keymap map)      (suppress-keymap map)
# Line 2614  BUFFER nil or omitted means use the curr Line 2610  BUFFER nil or omitted means use the curr
2610                        'gdb-assembler-buffer-name                        'gdb-assembler-buffer-name
2611                        'gdb-assembler-mode)                        'gdb-assembler-mode)
2612    
2613  (def-gdb-auto-updated-buffer gdb-assembler-buffer  (def-gdb-auto-update-handler gdb-assembler-handler
2614    gdb-invalidate-assembler    gdb-invalidate-assembler
2615    (concat gdb-server-prefix "disassemble "    gdb-assembler-buffer
           (if (member gdb-frame-address '(nil "main")) nil "0x")  
           gdb-frame-address "\n")  
   gdb-assembler-handler  
2616    gdb-assembler-custom)    gdb-assembler-custom)
2617    
2618  (defun gdb-assembler-custom ()  (defun gdb-assembler-custom ()

Legend:
Removed from v.1.101  
changed lines
  Added in v.1.102

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26