Mercurial > emacs

changeset 9345:832197fec54d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read-envvar-name): Special meaning for MUSTMATCH neither t nor nil. (setenv): Use that new case, when clearing a var.
author Richard M. Stallman <rms@gnu.org>
date Wed, 05 Oct 1994 06:29:50 +0000
parents 43cf4ed3f5f0
children fec27dfc0684
files lisp/env.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/env.el	Wed Oct 05 00:47:30 1994 +0000
+++ b/lisp/env.el	Wed Oct 05 06:29:50 1994 +0000
@@ -35,7 +35,8 @@
 
 (defun read-envvar-name (prompt &optional mustmatch)
   "Read environment variable name, prompting with PROMPT.
-Optional second arg MUSTMATCH, if non-nil, means require existing envvar name."
+Optional second arg MUSTMATCH, if non-nil, means require existing envvar name.
+If it is also not t, RET does not exit if it does non-null completion."
   (completing-read prompt
 		   (mapcar (function
 			    (lambda (enventry)
@@ -60,7 +61,7 @@
 This function works by modifying `process-environment'."
   (interactive
    (if current-prefix-arg
-       (list (read-envvar-name "Clear environment variable: " t) nil t)
+       (list (read-envvar-name "Clear environment variable: " 'exact) nil t)
      (let* ((var (read-envvar-name "Set environment variable: " nil))
 	    (oldval (getenv var))
 	    newval