Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

(skeleton-read): Fix previous change.

Browse source
This commit is contained in:
Richard M. Stallman 1997-04-20 01:37:09 +00:00
parent 22c3935a33
commit 5b75ef8b0b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/skeleton.el
View file

@ -321,7 +321,7 @@ When done with skeleton, but before going back to `_'-point call
(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 @@ automatically, and you are prompted to fill in the variable parts.")))
(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)))