[Emacs-diffs] emacs/lisp/progmodes gdb-ui.el [EMACS_23_1_RC]

[Nick Roberts]

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."