mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki Activity

In gdb, try to init comint history from gdbhist.

Browse source 
* lisp/progmodes/gdb-mi.el (gdb): Try to initialize comint input history
from gdb's history file.  (Bug#7575)
This commit is contained in:
Glenn Morris 2010-12-07 21:00:12 -08:00
parent 5fe9ebd14e
commit ac8331a7bf
2 changed files with 19 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2010-12-08 Glenn Morris <rgm@gnu.org>
* progmodes/gdb-mi.el (gdb): Try to initialize comint input history
from gdb's history file. (Bug#7575)
* mail/emacsbug.el (report-emacs-bug):
Try to handle some other mail clients.

18
lisp/progmodes/gdb-mi.el
View file

@ -647,7 +647,22 @@ detailed description of this mode.
(gud-common-init command-line nil 'gud-gdbmi-marker-filter)
(set (make-local-variable 'gud-minor-mode) 'gdbmi)
(setq comint-input-sender 'gdb-send)
(when (ring-empty-p comint-input-ring) ; cf shell-mode
(let (hfile)
(when (catch 'done
(dolist (file '(".gdbinit" "~/.gdbinit"))
(if (file-readable-p (setq file (expand-file-name file)))
(with-temp-buffer
(insert-file-contents file)
(and (re-search-forward
"^ *set history filename *\\(.*\\)" nil t)
(file-readable-p
(setq hfile (expand-file-name
(match-string 1)
(file-name-directory file))))
(throw 'done t))))))
(set (make-local-variable 'comint-input-ring-file-name) hfile)
(comint-read-input-ring t))))
(gud-def gud-tbreak "tbreak %f:%l" "\C-t"
"Set temporary breakpoint at current line.")
(gud-def gud-jump
@ -4191,5 +4206,4 @@ BUFFER nil or omitted means use the current buffer."
(provide 'gdb-mi)
;; arch-tag: 1b41ea2b-f364-4cec-8f35-e02e4fe01912
;;; gdb-mi.el ends here