From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 10 May 2002 00:58:27 +0000 (+0000)
Subject: (shell-replace-by-expanded-directory):
X-Git-Tag: ttn-vms-21-2-B4~15122
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1b93984e8fd5085addb55758e54665034fe702cf;p=emacs.git

(shell-replace-by-expanded-directory):
If there's already a / at the end, don't add one.
---

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)))))))