Mercurial > emacs
changeset 63033:bd3ecd5ebdff
(gdb-info-locals-handler): Use window point to preserve point.
(gdb-find-file-hook): Add doc string.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sun, 05 Jun 2005 07:55:32 +0000 |
| parents | e0a00e4eda52 |
| children | 5db7a2ef6f87 |
| files | lisp/progmodes/gdb-ui.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gdb-ui.el Sun Jun 05 07:54:50 2005 +0000 +++ b/lisp/progmodes/gdb-ui.el Sun Jun 05 07:55:32 2005 +0000 @@ -2058,12 +2058,12 @@ (replace-match " (array);\n" nil nil)))) (let ((buf (gdb-get-buffer 'gdb-locals-buffer))) (and buf (with-current-buffer buf - (let ((p (point)) + (let ((p (window-point (get-buffer-window buf 0))) (buffer-read-only nil)) - (delete-region (point-min) (point-max)) + (erase-buffer) (insert-buffer-substring (gdb-get-create-buffer 'gdb-partial-output-buffer)) - (goto-char p))))) + (set-window-point (get-buffer-window buf 0) p))))) (run-hooks 'gdb-info-locals-hook)) (defun gdb-info-locals-custom () @@ -2341,6 +2341,8 @@ (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