From 6ba0fd3eb934e5063db7621cb052339abfdb278b Mon Sep 17 00:00:00 2001 From: =?utf8?q?Francesco=20Potort=C3=AC?= Date: Tue, 14 May 2002 08:46:00 +0000 Subject: [PATCH] (shell-mode): Use (ring-empty-p rather than (zerop (ring-length. --- lisp/shell.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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." (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 -- 2.39.5