mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* shell.el (shell-mode): Set comint-input-ring-size from HISTSIZE. (Bug#7889)

Browse source
This commit is contained in:
Glenn Morris 2011-03-09 01:01:14 -08:00
parent 791cd3860e
commit 0be6f4f187
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/shell.el
View file

@ -459,7 +459,12 @@ buffer."
;; shell-dependent assignments.
(when (ring-empty-p comint-input-ring)
(let ((shell (file-name-nondirectory (car
(process-command (get-buffer-process (current-buffer)))))))
(process-command (get-buffer-process (current-buffer))))))
(hsize (getenv "HISTSIZE")))
(and (stringp hsize)
(integerp (setq hsize (string-to-number hsize)))
(> hsize 0)
(set (make-local-variable 'comint-input-ring-size) hsize))
(setq comint-input-ring-file-name
(or (getenv "HISTFILE")
(cond ((string-equal shell "bash") "~/.bash_history")