diff options
| author | Francesco Potortì | 2002-05-14 08:46:00 +0000 |
|---|---|---|
| committer | Francesco Potortì | 2002-05-14 08:46:00 +0000 |
| commit | 6ba0fd3eb934e5063db7621cb052339abfdb278b (patch) | |
| tree | c56ab8c68435e4810aa1aa4b70721bced5ebc3d0 | |
| parent | f19be1633866a52c0e139887b81d51056a8d5236 (diff) | |
| download | emacs-6ba0fd3eb934e5063db7621cb052339abfdb278b.tar.gz emacs-6ba0fd3eb934e5063db7621cb052339abfdb278b.zip | |
(shell-mode): Use (ring-empty-p rather than (zerop (ring-length.
| -rw-r--r-- | lisp/shell.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index c93cc77b673..ec52a2f3624 100644 --- a/lisp/shell.el +++ b/lisp/shell.el | |||
| @@ -415,7 +415,7 @@ buffer." | |||
| 415 | (make-local-variable 'list-buffers-directory) | 415 | (make-local-variable 'list-buffers-directory) |
| 416 | (setq list-buffers-directory (expand-file-name default-directory)) | 416 | (setq list-buffers-directory (expand-file-name default-directory)) |
| 417 | ;; shell-dependent assignments. | 417 | ;; shell-dependent assignments. |
| 418 | (when (zerop (ring-length comint-input-ring)) | 418 | (when (ring-empty-p comint-input-ring) |
| 419 | (let ((shell (file-name-nondirectory (car | 419 | (let ((shell (file-name-nondirectory (car |
| 420 | (process-command (get-buffer-process (current-buffer))))))) | 420 | (process-command (get-buffer-process (current-buffer))))))) |
| 421 | (setq comint-input-ring-file-name | 421 | (setq comint-input-ring-file-name |