From 3bc99bc9db330d7ecea61a7a831288f62e5ba515 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 18 Nov 2005 06:08:00 +0000 Subject: [PATCH] Fixed. --- lisp/riece-develop.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/riece-develop.el b/lisp/riece-develop.el index 6bc766c..6788813 100644 --- 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) - (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)) -- 1.7.10.4