2339 |
;; Don't put repeated commands in command history many times. |
;; Don't put repeated commands in command history many times. |
2340 |
(set (make-local-variable 'comint-input-ignoredups) t) |
(set (make-local-variable 'comint-input-ignoredups) t) |
2341 |
(make-local-variable 'paragraph-start) |
(make-local-variable 'paragraph-start) |
2342 |
(set (make-local-variable 'gud-delete-prompt-marker) (make-marker))) |
(set (make-local-variable 'gud-delete-prompt-marker) (make-marker)) |
2343 |
|
(add-hook 'kill-buffer-hook 'gud-kill-buffer-hook nil t)) |
2344 |
|
|
2345 |
;; Cause our buffers to be displayed, by default, |
;; Cause our buffers to be displayed, by default, |
2346 |
;; in the selected window. |
;; in the selected window. |
2547 |
(set-buffer obuf)))))) |
(set-buffer obuf)))))) |
2548 |
|
|
2549 |
(defun gud-kill-buffer-hook () |
(defun gud-kill-buffer-hook () |
2550 |
(if gud-minor-mode |
(setq gud-minor-mode-type gud-minor-mode) |
2551 |
(setq gud-minor-mode-type gud-minor-mode))) |
(condition-case nil |
2552 |
|
(kill-process (get-buffer-process gud-comint-buffer)) |
2553 |
(add-hook 'kill-buffer-hook 'gud-kill-buffer-hook) |
(error nil))) |
2554 |
|
|
2555 |
(defun gud-reset () |
(defun gud-reset () |
2556 |
(dolist (buffer (buffer-list)) |
(dolist (buffer (buffer-list)) |