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'."