aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/eshell/em-dirs.el
diff options
context:
space:
mode:
authorJohn Wiegley <[email protected]>2001-05-10 03:47:24 +0000
committerJohn Wiegley <[email protected]>2001-05-10 03:47:24 +0000
commit127fd3c222486a6349564cb23c21db95f6d3da11 (patch)
treeef93b1ea61b6f82553f98174684d7af2d34c3a3e /lisp/eshell/em-dirs.el
parentc26f6b27452cd3cd6328e0152feac65f5edfb49e (diff)
Set the property `eshell-no-numeric-conversions' on the following
functions (which all deal with filesystem entities, and never Lisp numerical values): eshell/cd, eshell/pushd, eshell/popd, eshell/ls, eshell/source, eshell/., eshell/man, eshell/rm, eshell/mkdir, eshell/rmdir, eshell/mv, eshell/cp, eshell/ln, eshell/cat, eshell/make, eshell/diff, eshell/locate, eshell/occur, eshell/which, eshell/addpath.
Diffstat (limited to 'lisp/eshell/em-dirs.el')
-rw-r--r--lisp/eshell/em-dirs.el6
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/eshell/em-dirs.el b/lisp/eshell/em-dirs.el
index 0c147f14be..89d4a408e9 100644
--- a/lisp/eshell/em-dirs.el
+++ b/lisp/eshell/em-dirs.el
@@ -408,6 +408,8 @@ in the minibuffer:
(eshell-parse-command "ls" (cdr args))))
nil))))
+(put 'eshell/cd 'eshell-no-numeric-conversions t)
+
(defun eshell-add-to-dir-ring (path)
"Add PATH to the last-dir-ring, if applicable."
(unless (and (not (ring-empty-p eshell-last-dir-ring))
@@ -469,6 +471,8 @@ in the minibuffer:
(eshell/dirs t)))))
nil)
+(put 'eshell/pushd 'eshell-no-numeric-conversions t)
+
;;; popd [+n]
(defun eshell/popd (&rest args)
"Implementation of popd in Lisp."
@@ -497,6 +501,8 @@ in the minibuffer:
(error "Couldn't popd"))))
nil)
+(put 'eshell/popd 'eshell-no-numeric-conversions t)
+
(defun eshell/dirs (&optional if-verbose)
"Implementation of dirs in Lisp."
(when (or (not if-verbose) eshell-dirtrack-verbose)