Fixed decoding.

[riece] / lisp / riece-develop.el

diff --git a/lisp/riece-develop.el b/lisp/riece-develop.el
index 66b2157..3bcd3f7 100644 (file)
--- 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: "))