projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed.
[riece]
/
lisp
/
riece-develop.el
diff --git
a/lisp/riece-develop.el
b/lisp/riece-develop.el
index
87d4de3
..
3bcd3f7
100644
(file)
--- a/
lisp/riece-develop.el
+++ b/
lisp/riece-develop.el
@@
-1,9
+1,6
@@
(defun riece-insert-struct-template (prefix struct)
(interactive "sPrefix:
sStruct: ")
(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
(let (attributes
optional-attributes
name
@@
-11,6
+8,9
@@
sStruct: ")
arglist
strings
(index 0))
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: "))
(catch 'finish
(while t
(setq name (read-from-minibuffer "Attribute: "))