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: "))
(setq attributes (nreverse attributes)
pointer (cons (vector "" nil nil nil) attributes))
(while (cdr pointer)
- (when (aref (car (cdr pointer)) 1)
- (setq optional-attributes (cons (car (cdr pointer))
- optional-attributes))
- (setcdr pointer (nthcdr 2 pointer)))
- (setq pointer (cdr pointer)))
+ (if (aref (car (cdr pointer)) 1)
+ (progn
+ (setq optional-attributes (cons (car (cdr pointer))
+ optional-attributes))
+ (setcdr pointer (nthcdr 2 pointer)))
+ (setq pointer (cdr pointer))))
(setq optional-attributes (nreverse optional-attributes)
arglist (mapconcat (lambda (attribute)
(aref attribute 0))
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