diff lisp/eshell/em-dirs.el @ 33020:e21feeab77fb

See ChangeLog

--- a/lisp/eshell/em-dirs.el	Sun Oct 29 04:56:45 2000 +0000
+++ b/lisp/eshell/em-dirs.el	Sun Oct 29 05:18:48 2000 +0000
@@ -297,7 +297,7 @@
 		    (file-name-as-directory (cdr user))))
 		 eshell-user-names)))))))
 
-(defun eshell/pwd (&rest args)          ; ignored
+(defun eshell/pwd (&rest args)
   "Change output from `pwd` to be cleaner."
   (let* ((path default-directory)
 	 (len (length path)))
@@ -307,8 +307,8 @@
 		       (string-match "\\`[A-Za-z]:[\\\\/]\\'" path))))
 	(setq path (substring path 0 (1- (length path)))))
     (if eshell-pwd-convert-function
-	(setq path (funcall eshell-pwd-convert-function path)))
-    path))
+	(funcall eshell-pwd-convert-function path)
+      path)))
 
 (defun eshell-expand-multiple-dots (path)
   "Convert '...' to '../..', '....' to '../../..', etc..