Mercurial > emacs
changeset 17515:62b47fab94fd
(skeleton-read): Fix previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 20 Apr 1997 01:37:09 +0000 |
| parents | 335bd3dea3ea |
| children | 5a5e360f7d45 |
| files | lisp/skeleton.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/skeleton.el Sun Apr 20 01:30:13 1997 +0000 +++ b/lisp/skeleton.el Sun Apr 20 01:37:09 1997 +0000 @@ -321,7 +321,7 @@ (if skeleton-point (goto-char skeleton-point)))))) -(defun skeleton-read (PROMPT &optional initial-input recursive) +(defun skeleton-read (prompt &optional initial-input recursive) "Function for reading a string from the minibuffer within skeletons. PROMPT may contain a `%s' which will be replaced by `skeleton-subprompt'. If non-`nil' second arg INITIAL-INPUT or variable `input' is a string or @@ -362,7 +362,7 @@ (equal prompt initial-input) (equal prompt (car-safe initial-input)))) (signal 'quit t) - str)) + prompt)) (defun skeleton-internal-list (skeleton &optional str recursive) (let* ((start (save-excursion (beginning-of-line) (point)))