* riece-develop.el (riece-insert-struct-template): Use "\n"

[riece] / lisp / riece-develop.el

diff --git a/lisp/riece-develop.el b/lisp/riece-develop.el
index 6788813..6a5c02c 100644 (file)
--- a/lisp/riece-develop.el
+++ b/lisp/riece-develop.el
@@ -1,6 +1,5 @@
 (defun riece-insert-struct-template (prefix struct)
-  (interactive "sPrefix: 
-sStruct: ")
+  (interactive "sPrefix: \nsStruct: ")
   (let (attributes
        optional-attributes
        name
@@ -8,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: "))
@@ -39,7 +41,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