mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00
Code Issues Releases Activity

(shell-mode): Use (ring-empty-p rather than (zerop (ring-length.

Browse Source
This commit is contained in:
Francesco Potortì 2002-05-14 08:46:00 +00:00
parent f19be16338
commit 6ba0fd3eb9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/shell.el
View File

@ -415,7 +415,7 @@ buffer."
(make-local-variable 'list-buffers-directory)
(setq list-buffers-directory (expand-file-name default-directory))
;; shell-dependent assignments.
(when (zerop (ring-length comint-input-ring))
(when (ring-empty-p comint-input-ring)
(let ((shell (file-name-nondirectory (car
(process-command (get-buffer-process (current-buffer)))))))
(setq comint-input-ring-file-name