Mercurial > emacs
changeset 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 | 162082d00c8f |
| children | 7c87a236ef78 |
| files | lisp/shell.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
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)))))))