Mercurial > emacs
diff lisp/eshell/esh-var.el @ 31326:a36c3cf583d4
See ChangeLog
author | John Wiegley <johnw@newartisans.com> |
---|---|
date | Fri, 01 Sep 2000 22:48:12 +0000 |
parents | 3099993cba0f |
children | 8e57189d61b4 |
line wrap: on
line diff
--- a/lisp/eshell/esh-var.el Fri Sep 01 21:41:22 2000 +0000 +++ b/lisp/eshell/esh-var.el Fri Sep 01 22:48:12 2000 +0000 @@ -299,6 +299,13 @@ (match-string 2 (car sets)))) (setq sets (cdr sets)))) +(defun pcomplete/eshell-mode/export () + "Completion function for Eshell's `export'." + (while (pcomplete-here + (if eshell-complete-export-definition + process-environment + (eshell-envvar-names))))) + (defun eshell/unset (&rest args) "Unset an environment variable." (while args @@ -306,12 +313,9 @@ (setenv (car args) nil t)) (setq args (cdr args)))) -(defun pcomplete/eshell-mode/export () - "Completion function for Eshell's `export'." - (while (pcomplete-here - (if eshell-complete-export-definition - process-environment - (eshell-envvar-names))))) +(defun pcomplete/eshell-mode/unset () + "Completion function for Eshell's `unset'." + (while (pcomplete-here (eshell-envvar-names)))) (defun eshell/setq (&rest args) "Allow command-ish use of `setq'."