# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 861500229 0
# Node ID 62b47fab94fd71931ee7eaa48dfb4fce73750571
# Parent  335bd3dea3ea4402de2e7591c3ddbd6e3fff2cdf
(skeleton-read): Fix previous change.

diff -r 335bd3dea3ea -r 62b47fab94fd lisp/skeleton.el
--- 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)))