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

[Nick Roberts]

Index: emacs/lisp/progmodes/gdb-ui.el
diff -c emacs/lisp/progmodes/gdb-ui.el:1.76 emacs/lisp/progmodes/gdb-ui.el:1.77
*** emacs/lisp/progmodes/gdb-ui.el:1.76 Tue May 31 20:55:48 2005
--- emacs/lisp/progmodes/gdb-ui.el      Sun Jun  5 07:55:32 2005
***************
*** 2058,2069 ****
        (replace-match " (array);\n" nil nil))))
    (let ((buf (gdb-get-buffer 'gdb-locals-buffer)))
      (and buf (with-current-buffer buf
!              (let ((p (point))
                     (buffer-read-only nil))
!                (delete-region (point-min) (point-max))
                 (insert-buffer-substring (gdb-get-create-buffer
                                           'gdb-partial-output-buffer))
!                (goto-char p)))))
    (run-hooks 'gdb-info-locals-hook))
  
  (defun gdb-info-locals-custom ()
--- 2058,2069 ----
        (replace-match " (array);\n" nil nil))))
    (let ((buf (gdb-get-buffer 'gdb-locals-buffer)))
      (and buf (with-current-buffer buf
!              (let ((p (window-point (get-buffer-window buf 0)))
                     (buffer-read-only nil))
!                (erase-buffer)
                 (insert-buffer-substring (gdb-get-create-buffer
                                           'gdb-partial-output-buffer))
!               (set-window-point (get-buffer-window buf 0) p)))))
    (run-hooks 'gdb-info-locals-hook))
  
  (defun gdb-info-locals-custom ()
***************
*** 2341,2346 ****
--- 2341,2348 ----
  (add-hook 'find-file-hook 'gdb-find-file-hook)
  
  (defun gdb-find-file-hook ()
+ "Set up buffer for debugging if file is part of the source code
+ of the current session."
    (if (and (not gdb-find-file-unhook)
           ;; in case gud or gdb-ui is just loaded
           gud-comint-buffer