Mercurial > emacs
diff lisp/shell.el @ 45214:793403e94381
(shell-replace-by-expanded-directory):
If there's already a / at the end, don't add one.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 10 May 2002 00:58:27 +0000 |
| parents | 2472e2446b55 |
| children | 723fdd614e34 |
line wrap: on
line diff
--- 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)))))))