Mercurial > emacs
diff lisp/eshell/em-dirs.el @ 91085:880960b70474
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-283
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sun, 11 Nov 2007 00:56:44 +0000 |
parents | f55f9811f5d7 e0ca14d507a5 |
children | 53108e6cea98 |
line wrap: on
line diff
--- a/lisp/eshell/em-dirs.el Fri Nov 09 14:52:32 2007 +0000 +++ b/lisp/eshell/em-dirs.el Sun Nov 11 00:56:44 2007 +0000 @@ -319,7 +319,7 @@ (before translate-multiple-dots (filename &optional directory) activate) (setq filename (eshell-expand-multiple-dots filename)))" - (while (string-match "\\.\\.\\(\\.+\\)" path) + (while (string-match "\\(?:^\\|/\\)\\.\\.\\(\\.+\\)\\(?:$\\|/\\)" path) (let* ((extra-dots (match-string 1 path)) (len (length extra-dots)) replace-text)