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)