X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-develop.el;h=3bcd3f7edc3abcc9222bf41b835efce4eda89cfb;hp=6788813d80dda918292a4402e2bd5a3e769d737e;hb=91839c2c2836c9e81e73ade8184d07fb1ee97fc2;hpb=e230743233c6a11e59f79c8e10cabcde70ddb7f1

diff --git a/lisp/riece-develop.el b/lisp/riece-develop.el
index 6788813..3bcd3f7 100644
--- a/lisp/riece-develop.el
+++ b/lisp/riece-develop.el
@@ -8,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: "))
@@ -39,7 +42,7 @@ sStruct: ")
 					 optional-attributes " "))))
     (setq strings (list (format "\
 \(defun %smake-%s (%s)
-  \"Make a %s%s object.\"
+  \"Make %s%s object.\"
   (vector %s))"
 				prefix struct arglist
 				prefix struct