diff options
author | John Wiegley <[email protected]> | 2001-05-10 03:47:24 +0000 |
---|---|---|
committer | John Wiegley <[email protected]> | 2001-05-10 03:47:24 +0000 |
commit | 127fd3c222486a6349564cb23c21db95f6d3da11 (patch) | |
tree | ef93b1ea61b6f82553f98174684d7af2d34c3a3e /lisp/eshell/em-dirs.el | |
parent | c26f6b27452cd3cd6328e0152feac65f5edfb49e (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.el | 6 |
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) |