Mercurial > emacs
changeset 37661:6d7c89c79996
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.
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Thu, 10 May 2001 03:47:24 +0000 |
| parents | 55a6794cb94d |
| children | cb20d33bef50 |
| files | lisp/eshell/em-dirs.el lisp/eshell/em-ls.el lisp/eshell/em-script.el lisp/eshell/em-unix.el lisp/eshell/esh-ext.el |
| diffstat | 5 files changed, 38 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/eshell/em-dirs.el Thu May 10 03:46:48 2001 +0000 +++ b/lisp/eshell/em-dirs.el Thu May 10 03:47:24 2001 +0000 @@ -408,6 +408,8 @@ (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 @@ (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 @@ (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)
--- a/lisp/eshell/em-ls.el Thu May 10 03:46:48 2001 +0000 +++ b/lisp/eshell/em-ls.el Thu May 10 03:47:24 2001 +0000 @@ -273,6 +273,8 @@ (flush-func 'eshell-flush)) (eshell-do-ls args))) +(put 'eshell/ls 'eshell-no-numeric-conversions t) + (eval-when-compile (defvar block-size) (defvar dereference-links)
--- a/lisp/eshell/em-script.el Thu May 10 03:46:48 2001 +0000 +++ b/lisp/eshell/em-script.el Thu May 10 03:47:24 2001 +0000 @@ -119,6 +119,8 @@ $2, etc.") (eshell-source-file (car args) (cdr args) t))) +(put 'eshell/source 'eshell-no-numeric-conversions t) + (defun eshell/. (&rest args) "Source a file in the current environment." (eshell-eval-using-options @@ -130,6 +132,8 @@ environment, binding ARGS to $1, $2, etc.") (eshell-source-file (car args) (cdr args)))) +(put 'eshell/. 'eshell-no-numeric-conversions t) + ;;; Code: ;;; em-script.el ends here
--- a/lisp/eshell/em-unix.el Thu May 10 03:46:48 2001 +0000 +++ b/lisp/eshell/em-unix.el Thu May 10 03:47:24 2001 +0000 @@ -166,6 +166,8 @@ "Invoke man, flattening the arguments appropriately." (funcall 'man (apply 'eshell-flatten-and-stringify args))) +(put 'eshell/man 'eshell-no-numeric-conversions t) + (defun eshell-remove-entries (path files &optional top-level) "From PATH, remove all of the given FILES, perhaps interactively." (while files @@ -276,6 +278,8 @@ (setq args (cdr args))) nil)) +(put 'eshell/rm 'eshell-no-numeric-conversions t) + (defun eshell/mkdir (&rest args) "Implementation of mkdir in Lisp." (eshell-eval-using-options @@ -290,6 +294,8 @@ (setq args (cdr args))) nil)) +(put 'eshell/mkdir 'eshell-no-numeric-conversions t) + (defun eshell/rmdir (&rest args) "Implementation of rmdir in Lisp." (eshell-eval-using-options @@ -304,6 +310,8 @@ (setq args (cdr args))) nil)) +(put 'eshell/rmdir 'eshell-no-numeric-conversions t) + (eval-when-compile (defvar no-dereference) (defvar preview) @@ -483,6 +491,8 @@ eshell-mv-interactive-query eshell-mv-overwrite-files)))) +(put 'eshell/mv 'eshell-no-numeric-conversions t) + (defun eshell/cp (&rest args) "Implementation of cp in Lisp." (eshell-eval-using-options @@ -516,6 +526,8 @@ eshell-cp-interactive-query eshell-cp-overwrite-files preserve))) +(put 'eshell/cp 'eshell-no-numeric-conversions t) + (defun eshell/ln (&rest args) "Implementation of ln in Lisp." (eshell-eval-using-options @@ -546,6 +558,8 @@ eshell-ln-interactive-query eshell-ln-overwrite-files)))) +(put 'eshell/ln 'eshell-no-numeric-conversions t) + (defun eshell/cat (&rest args) "Implementation of cat in Lisp. If in a pipeline, or the file is not a regular file, directory or @@ -593,6 +607,8 @@ ;; if the file does not end in a newline, do not emit one (setq eshell-ensure-newline-p nil)))) +(put 'eshell/cat 'eshell-no-numeric-conversions t) + ;; special front-end functions for compilation-mode buffers (defun eshell/make (&rest args) @@ -608,6 +624,8 @@ (eshell-parse-command "*make" (eshell-stringify-list (eshell-flatten-list args)))))) +(put 'eshell/make 'eshell-no-numeric-conversions t) + (defun eshell-occur-mode-goto-occurrence () "Go to the occurrence the current line describes." (interactive) @@ -964,6 +982,8 @@ (pop-to-buffer (current-buffer)))))) nil) +(put 'eshell/diff 'eshell-no-numeric-conversions t) + (defun eshell/locate (&rest args) "Alias \"locate\" to call Emacs `locate' function." (if (or eshell-plain-locate-behavior @@ -979,6 +999,8 @@ (let ((locate-history-list (list (car args)))) (locate-with-filter (car args) (cadr args)))))) +(put 'eshell/locate 'eshell-no-numeric-conversions t) + (defun eshell/occur (&rest args) "Alias \"occur\" to call Emacs `occur' function." (let ((inhibit-read-only t)) @@ -986,6 +1008,8 @@ (error "usage: occur: (REGEXP &optional NLINES)") (apply 'occur args)))) +(put 'eshell/occur 'eshell-no-numeric-conversions t) + ;;; Code: ;;; em-unix.el ends here
--- a/lisp/eshell/esh-ext.el Thu May 10 03:46:48 2001 +0000 +++ b/lisp/eshell/esh-ext.el Thu May 10 03:47:24 2001 +0000 @@ -239,6 +239,8 @@ (eshell-printn (car paths)) (setq paths (cdr paths))))))) +(put 'eshell/addpath 'eshell-no-numeric-conversions t) + (defun eshell-script-interpreter (file) "Extract the script to run from FILE, if it has #!<interp> in it. Return nil, or a list of the form: