Commit 1cc4a183 authored by David Byers's avatar David Byers
Browse files

Fixed minor issue with reading conference names in some commands.

Detailed changes:
> 2003-08-27  David Byers  <davby@ida.liu.se>
>
> 	* utilities.el (lyskom-completing-read): Protect the value of
> 	this-command from alteration.
> 	(lyskom-read-from-minibuffer): Same here.
>
parent 1e6e2229
2003-08-27 David Byers <davby@ida.liu.se>
* utilities.el (lyskom-completing-read): Protect the value of
this-command from alteration.
(lyskom-read-from-minibuffer): Same here.
2003-08-26 David Byers <byers@lysator.liu.se>
* utilities.el (lyskom-magic-minibuffer-mangle-initial):
......
......@@ -2152,19 +2152,21 @@ suitable for use as initial input in a magic minibuffer."
(defun lyskom-completing-read (prompt table &optional predicate
require-match init hist def)
(lyskom-ignore def)
(lyskom-with-lyskom-minibuffer
(lyskom-with-magic-minibuffer
(let ((res (completing-read prompt table predicate require-match init hist)))
(if (or (null res) (equal res "")) def res)))))
(let ((this-command this-command))
(lyskom-ignore def)
(lyskom-with-lyskom-minibuffer
(lyskom-with-magic-minibuffer
(let ((res (completing-read prompt table predicate require-match init hist)))
(if (or (null res) (equal res "")) def res))))))
(defun lyskom-read-from-minibuffer (prompt
&optional initial-contents
keymap read hist def)
(lyskom-ignore def)
(lyskom-with-lyskom-minibuffer
(lyskom-with-magic-minibuffer
(or (read-from-minibuffer prompt initial-contents keymap read hist) def))))
(let ((this-command this-command))
(lyskom-ignore def)
(lyskom-with-lyskom-minibuffer
(lyskom-with-magic-minibuffer
(or (read-from-minibuffer prompt initial-contents keymap read hist) def)))))
(defun lyskom-set-connection-time-format (val)
"Change protocol time format to UTC if VAL is non-nil."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment