X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-develop.el;h=6a5c02cc02e67e3bffd2cd2757b8913cdd2af77d;hp=87d4de3366366805f86fa7f6d33fb599a39b5f73;hb=2ad73eb3332a97489a0c6cacf8e0cef7bb769b8f;hpb=9181c3ff5a7cef076422e387edebd8a66b2e769e

diff --git a/lisp/riece-develop.el b/lisp/riece-develop.el
index 87d4de3..6a5c02c 100644
--- a/lisp/riece-develop.el
+++ b/lisp/riece-develop.el
@@ -1,9 +1,5 @@
 (defun riece-insert-struct-template (prefix struct)
-  (interactive "sPrefix: 
-sStruct: ")
-  (if (and prefix
-	   (not (string-match "-\\'" prefix)))
-      (setq prefix (concat prefix "-")))
+  (interactive "sPrefix: \nsStruct: ")
   (let (attributes
 	optional-attributes
 	name
@@ -11,6 +7,9 @@ sStruct: ")
 	arglist
 	strings
 	(index 0))
+    (if (and prefix
+	     (not (string-match "-\\'" prefix)))
+	(setq prefix (concat prefix "-")))
     (catch 'finish
       (while t
 	(setq name (read-from-minibuffer "Attribute: "))