From: ueno <ueno>
Date: Fri, 18 Nov 2005 06:15:50 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: riece-2_0_2~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7255b1905dc1bab05414d81bc8593f89936be424;p=elisp%2Friece.git

Fixed.
---

diff --git a/lisp/riece-develop.el b/lisp/riece-develop.el
index 87d4de3..3bcd3f7 100644
--- a/lisp/riece-develop.el
+++ b/lisp/riece-develop.el
@@ -1,9 +1,6 @@
 (defun riece-insert-struct-template (prefix struct)
   (interactive "sPrefix: 
 sStruct: ")
-  (if (and prefix
-	   (not (string-match "-\\'" prefix)))
-      (setq prefix (concat prefix "-")))
   (let (attributes
 	optional-attributes
 	name
@@ -11,6 +8,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: "))