[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/progmodes gdb-ui.el [EMACS_23_1_RC]
From: |
Nick Roberts |
Subject: |
[Emacs-diffs] emacs/lisp/progmodes gdb-ui.el [EMACS_23_1_RC] |
Date: |
Thu, 02 Jul 2009 06:36:43 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_23_1_RC
Changes by: Nick Roberts <nickrob> 09/07/02 06:36:43
Modified files:
lisp/progmodes : gdb-ui.el
Log message:
(def-gdb-auto-update-handler)
(gdb-data-list-register-values-handler)
(gdb-stack-list-locals-handler): Preserve point when switching buffers
using tabs.
(gdb-propertize-header): Inline temporary global variable.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/gdb-ui.el?cvsroot=emacs&only_with_tag=EMACS_23_1_RC&r1=1.256.2.2&r2=1.256.2.3
Patches:
Index: gdb-ui.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/Attic/gdb-ui.el,v
retrieving revision 1.256.2.2
retrieving revision 1.256.2.3
diff -u -b -r1.256.2.2 -r1.256.2.3
--- gdb-ui.el 1 Jul 2009 12:06:36 -0000 1.256.2.2
+++ gdb-ui.el 2 Jul 2009 06:36:43 -0000 1.256.2.3
@@ -1813,13 +1813,16 @@
(with-current-buffer buf
(let* ((window (get-buffer-window buf 0))
(start (window-start window))
- (p (window-point window))
+ (p (if window (window-point window) (point)))
(buffer-read-only nil))
(erase-buffer)
(insert-buffer-substring (gdb-get-buffer-create
'gdb-partial-output-buffer))
+ (if window
+ (progn
(set-window-start window start)
- (set-window-point window p)))))
+ (set-window-point window p))
+ (goto-char p))))))
;; put customisation here
(,custom-defun)))
@@ -2170,9 +2173,8 @@
(set-window-dedicated-p (selected-window) nil)
(switch-to-buffer
(gdb-get-buffer-create ',buffer))
- (setq gdb-header (gdb-set-header ',buffer))
- (setq header-line-format gdb-header))
- (set-window-dedicated-p (selected-window) t)))))
+ (setq header-line-format(gdb-set-header ',buffer))
+ (set-window-dedicated-p (selected-window) t))))))
(defun gdb-set-header (buffer)
(cond ((eq buffer 'gdb-locals-buffer)
@@ -3823,12 +3825,15 @@
(with-current-buffer buf
(let* ((window (get-buffer-window buf 0))
(start (window-start window))
- (p (window-point window))
+ (p (if window (window-point window) (point)))
(buffer-read-only nil))
(erase-buffer)
(insert register-values)
+ (if window
+ (progn
(set-window-start window start)
- (set-window-point window p))))))
+ (set-window-point window p))
+ (goto-char p)))))))
(gdb-data-list-register-values-custom))
(defun gdb-data-list-register-values-custom ()
@@ -3944,7 +3949,7 @@
(and buf (with-current-buffer buf
(let* ((window (get-buffer-window buf 0))
(start (window-start window))
- (p (window-point window))
+ (p (if window (window-point window) (point)))
(buffer-read-only nil) (name) (value))
(erase-buffer)
(dolist (local locals-list)
@@ -3965,8 +3970,11 @@
(insert
(concat name "\t" (nth 1 local)
"\t" value "\n")))
+ (if window
+ (progn
(set-window-start window start)
- (set-window-point window p))))))))
+ (set-window-point window p))
+ (goto-char p)))))))))
(defun gdb-get-register-names ()
"Create a list of register names."