# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1020992307 0
# Node ID 793403e94381b7c174941014caa24e6aeb8c7216
# Parent  162082d00c8f5b9118db048fa729d24a33af1b8f
(shell-replace-by-expanded-directory):
If there's already a / at the end, don't add one.

diff -r 162082d00c8f -r 793403e94381 lisp/shell.el
--- a/lisp/shell.el	Thu May 09 21:30:21 2002 +0000
+++ b/lisp/shell.el	Fri May 10 00:58:27 2002 +0000
@@ -993,7 +993,7 @@
 	(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)))))))