emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs/lisp ChangeLog progmodes/gdb-mi.el


From: Dmitry Dzhus
Subject: [Emacs-diffs] emacs/lisp ChangeLog progmodes/gdb-mi.el
Date: Tue, 07 Jul 2009 17:40:35 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Dmitry Dzhus <sphinx>   09/07/07 17:40:35

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : gdb-mi.el 

Log message:
        * progmodes/gdb-mi.el (gdb-stack-list-frames-handler): Rewritten
          without regexps.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15776&r2=1.15777
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/gdb-mi.el?cvsroot=emacs&r1=1.8&r2=1.9

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15776
retrieving revision 1.15777
diff -u -b -r1.15776 -r1.15777
--- ChangeLog   7 Jul 2009 17:36:42 -0000       1.15776
+++ ChangeLog   7 Jul 2009 17:40:32 -0000       1.15777
@@ -14,6 +14,7 @@
        end of line, too.
        (gdb-frame-handler): Match convention to for disassembly buffer
        mode name.
+       (gdb-stack-list-frames-handler): Rewritten without regexps.
 
        * progmodes/gdb-mi.el (gdb-init-1): Set mode name for disassembly
        buffer properly.

Index: progmodes/gdb-mi.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/gdb-mi.el,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- progmodes/gdb-mi.el 7 Jul 2009 17:36:46 -0000       1.8
+++ progmodes/gdb-mi.el 7 Jul 2009 17:40:35 -0000       1.9
@@ -2477,10 +2477,11 @@
                      'gdb-stack-buffer-name
                      'gdb-frames-mode)
 
-(def-gdb-auto-update-trigger gdb-invalidate-frames
-  (gdb-get-buffer 'gdb-stack-buffer)
+(def-gdb-auto-updated-buffer gdb-stack-buffer
+  gdb-invalidate-frames
   "-stack-list-frames\n"
-  gdb-stack-list-frames-handler)
+  gdb-stack-list-frames-handler
+  gdb-stack-list-frames-custom)
 
 (defun gdb-insert-frame-location (frame)
   "Insert \"of file:line\" button or library name for structure FRAME.
@@ -2498,27 +2499,14 @@
           ;; Library
           (from (insert (format " of %s" from))))))
 
-(defun gdb-stack-list-frames-handler ()
-  (setq gdb-pending-triggers (delq 'gdb-invalidate-frames
-                                 gdb-pending-triggers))
-  (with-current-buffer (gdb-get-buffer-create 'gdb-partial-output-buffer)
+(defun gdb-stack-list-frames-custom ()
     (let* ((res (json-partial-output "frame"))
-           (stack (gdb-get-field res 'stack))
-           (buf (gdb-get-buffer 'gdb-stack-buffer)))
-      (and buf 
-           (with-current-buffer buf
-             (let ((buffer-read-only nil))
-               (erase-buffer)
+         (stack (gdb-get-field res 'stack)))
                (dolist (frame (nreverse stack))
                  (insert (apply 'format `("%s in %s" ,@(gdb-get-many-fields 
frame 'level 'func))))
                  (gdb-insert-frame-location frame)
                  (newline))
-               (gdb-stack-list-frames-custom)))))))
-
-(defun gdb-stack-list-frames-custom ()
-  (with-current-buffer (gdb-get-buffer 'gdb-stack-buffer)
     (save-excursion
-      (let ((buffer-read-only nil))
        (goto-char (point-min))
        (forward-line 1)
        (while (< (point) (point-max))
@@ -2536,7 +2524,7 @@
                  (let ((bl (point-at-bol)))
                    (put-text-property bl (+ bl 4)
                                       'face '(:inverse-video t)))))
-         (forward-line 1))))))
+             (forward-line 1)))))
 
 (defun gdb-stack-buffer-name ()
   (with-current-buffer gud-comint-buffer




reply via email to

[Prev in Thread] Current Thread [Next in Thread]