projects
/
riece
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1982ba4
)
Fixed.
author
Daiki Ueno
<ueno@unixuser.org>
Fri, 18 Nov 2005 06:08:00 +0000
(06:08 +0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Fri, 18 Nov 2005 06:08:00 +0000
(06:08 +0000)
lisp/riece-develop.el
patch
|
blob
|
history
diff --git
a/lisp/riece-develop.el
b/lisp/riece-develop.el
index
6bc766c
..
6788813
100644
(file)
--- a/
lisp/riece-develop.el
+++ b/
lisp/riece-develop.el
@@
-22,11
+22,12
@@
sStruct: ")
(setq attributes (nreverse attributes)
pointer (cons (vector "" nil nil nil) attributes))
(while (cdr pointer)
(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))
(setq optional-attributes (nreverse optional-attributes)
arglist (mapconcat (lambda (attribute)
(aref attribute 0))