From 5b75ef8b0b7824c28078ea82dfb4dfcf9f87757f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 20 Apr 1997 01:37:09 +0000 Subject: [PATCH] (skeleton-read): Fix previous change. --- lisp/skeleton.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/skeleton.el b/lisp/skeleton.el index 47b4f7f9fe8..31d1195409f 100644 --- a/lisp/skeleton.el +++ b/lisp/skeleton.el @@ -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))) -- 2.39.5