From 7255b1905dc1bab05414d81bc8593f89936be424 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 18 Nov 2005 06:15:50 +0000 Subject: [PATCH] Fixed. --- lisp/riece-develop.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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: ")) -- 1.7.10.4