Mercurial > emacs

diff lisp/shell.el @ 45285:dc0eece6818b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(shell-mode): Use (ring-empty-p rather than (zerop (ring-length.
author Francesco Potort? <pot@gnu.org>
date Tue, 14 May 2002 08:46:00 +0000
parents 723fdd614e34
children 58a34a457ab8
line wrap: on
line diff
--- a/lisp/shell.el	Tue May 14 08:42:48 2002 +0000
+++ b/lisp/shell.el	Tue May 14 08:46:00 2002 +0000
@@ -415,7 +415,7 @@
   (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