2058 |
(replace-match " (array);\n" nil nil)))) |
(replace-match " (array);\n" nil nil)))) |
2059 |
(let ((buf (gdb-get-buffer 'gdb-locals-buffer))) |
(let ((buf (gdb-get-buffer 'gdb-locals-buffer))) |
2060 |
(and buf (with-current-buffer buf |
(and buf (with-current-buffer buf |
2061 |
(let ((p (point)) |
(let ((p (window-point (get-buffer-window buf 0))) |
2062 |
(buffer-read-only nil)) |
(buffer-read-only nil)) |
2063 |
(delete-region (point-min) (point-max)) |
(erase-buffer) |
2064 |
(insert-buffer-substring (gdb-get-create-buffer |
(insert-buffer-substring (gdb-get-create-buffer |
2065 |
'gdb-partial-output-buffer)) |
'gdb-partial-output-buffer)) |
2066 |
(goto-char p))))) |
(set-window-point (get-buffer-window buf 0) p))))) |
2067 |
(run-hooks 'gdb-info-locals-hook)) |
(run-hooks 'gdb-info-locals-hook)) |
2068 |
|
|
2069 |
(defun gdb-info-locals-custom () |
(defun gdb-info-locals-custom () |
2341 |
(add-hook 'find-file-hook 'gdb-find-file-hook) |
(add-hook 'find-file-hook 'gdb-find-file-hook) |
2342 |
|
|
2343 |
(defun gdb-find-file-hook () |
(defun gdb-find-file-hook () |
2344 |
|
"Set up buffer for debugging if file is part of the source code |
2345 |
|
of the current session." |
2346 |
(if (and (not gdb-find-file-unhook) |
(if (and (not gdb-find-file-unhook) |
2347 |
;; in case gud or gdb-ui is just loaded |
;; in case gud or gdb-ui is just loaded |
2348 |
gud-comint-buffer |
gud-comint-buffer |