el/dot-emacs.el: Fix the eshell prompt algorithm.

[profile] / el / dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index c51803b7a1308e397ee69d99a2520fa19c516ac4..3b6d3b5d3e1d5f84f0905d5f08d5f16ce5a614af 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -2139,8 +2139,8 @@ (defun mdw-eshell-prompt ()
                   (home (expand-file-name "~")) (nhome (length home)))
              (if (and (>= npwd nhome)
                       (or (= nhome npwd)
-                          (= (elt pwd nhome) ?/)
-                      (string= (substring pwd 0 nhome) home)))
+                          (= (elt pwd nhome) ?/))
+                      (string= (substring pwd 0 nhome) home))
                  (concat "~" (substring pwd (length home)))
                pwd))
            right)))