From 1b93984e8fd5085addb55758e54665034fe702cf Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 10 May 2002 00:58:27 +0000 Subject: [PATCH] (shell-replace-by-expanded-directory): If there's already a / at the end, don't add one. --- lisp/shell.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/shell.el b/lisp/shell.el index fb427aa9f72..0b2b7543218 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -993,7 +993,7 @@ Returns t if successful." (let ((stack (cons default-directory shell-dirstack)) (index (cond ((looking-at "=-/?") (length shell-dirstack)) - ((looking-at "=\\([0-9]+\\)") + ((looking-at "=\\([0-9]+\\)/?") (string-to-number (buffer-substring (match-beginning 1) (match-end 1))))))) -- 2.39.5