]> git.eshelyaron.com Git - emacs.git/commitdiff
(shell-mode): Use (ring-empty-p rather than (zerop (ring-length.
authorFrancesco Potortì <pot@gnu.org>
Tue, 14 May 2002 08:46:00 +0000 (08:46 +0000)
committerFrancesco Potortì <pot@gnu.org>
Tue, 14 May 2002 08:46:00 +0000 (08:46 +0000)
lisp/shell.el

index c93cc77b673ef295864e948bb5da22e02dde15c3..ec52a2f3624cbb5004f78fb18bca6c563eb67bfa 100644 (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