[Top][All Lists]
[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
- [Emacs-diffs] emacs/lisp ChangeLog progmodes/gdb-mi.el, Dmitry Dzhus, 2009/07/07
- [Emacs-diffs] emacs/lisp ChangeLog progmodes/gdb-mi.el, Dmitry Dzhus, 2009/07/07
- [Emacs-diffs] emacs/lisp ChangeLog progmodes/gdb-mi.el, Dmitry Dzhus, 2009/07/07
- [Emacs-diffs] emacs/lisp ChangeLog progmodes/gdb-mi.el, Dmitry Dzhus, 2009/07/07
- [Emacs-diffs] emacs/lisp ChangeLog progmodes/gdb-mi.el,
Dmitry Dzhus <=
- [Emacs-diffs] emacs/lisp ChangeLog progmodes/gdb-mi.el, Dmitry Dzhus, 2009/07/07
- [Emacs-diffs] emacs/lisp ChangeLog progmodes/gdb-mi.el, Dmitry Dzhus, 2009/07/07
- [Emacs-diffs] emacs/lisp ChangeLog progmodes/gdb-mi.el, Dmitry Dzhus, 2009/07/14
- [Emacs-diffs] emacs/lisp ChangeLog progmodes/gdb-mi.el, Dmitry Dzhus, 2009/07/29
- [Emacs-diffs] emacs/lisp ChangeLog progmodes/gdb-mi.el, Dmitry Dzhus, 2009/07/30