Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 31325:f365a6dc7773 | 31326:a36c3cf583d4 |
|---|---|
| 297 (string-match "^\\([^=]+\\)=\\(.*\\)" (car sets))) | 297 (string-match "^\\([^=]+\\)=\\(.*\\)" (car sets))) |
| 298 (setenv (match-string 1 (car sets)) | 298 (setenv (match-string 1 (car sets)) |
| 299 (match-string 2 (car sets)))) | 299 (match-string 2 (car sets)))) |
| 300 (setq sets (cdr sets)))) | 300 (setq sets (cdr sets)))) |
| 301 | 301 |
| 302 (defun pcomplete/eshell-mode/export () | |
| 303 "Completion function for Eshell's `export'." | |
| 304 (while (pcomplete-here | |
| 305 (if eshell-complete-export-definition | |
| 306 process-environment | |
| 307 (eshell-envvar-names))))) | |
| 308 | |
| 302 (defun eshell/unset (&rest args) | 309 (defun eshell/unset (&rest args) |
| 303 "Unset an environment variable." | 310 "Unset an environment variable." |
| 304 (while args | 311 (while args |
| 305 (if (stringp (car args)) | 312 (if (stringp (car args)) |
| 306 (setenv (car args) nil t)) | 313 (setenv (car args) nil t)) |
| 307 (setq args (cdr args)))) | 314 (setq args (cdr args)))) |
| 308 | 315 |
| 309 (defun pcomplete/eshell-mode/export () | 316 (defun pcomplete/eshell-mode/unset () |
| 310 "Completion function for Eshell's `export'." | 317 "Completion function for Eshell's `unset'." |
| 311 (while (pcomplete-here | 318 (while (pcomplete-here (eshell-envvar-names)))) |
| 312 (if eshell-complete-export-definition | |
| 313 process-environment | |
| 314 (eshell-envvar-names))))) | |
| 315 | 319 |
| 316 (defun eshell/setq (&rest args) | 320 (defun eshell/setq (&rest args) |
| 317 "Allow command-ish use of `setq'." | 321 "Allow command-ish use of `setq'." |
| 318 (let (last-value) | 322 (let (last-value) |
| 319 (while args | 323 (while args |