Fixed.
authorDaiki Ueno <ueno@unixuser.org>
Sat, 20 Aug 2005 00:02:38 +0000 (00:02 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Sat, 20 Aug 2005 00:02:38 +0000 (00:02 +0000)
lisp/riece-addon.el

index 532a328..6ab1c57 100644 (file)
@@ -318,7 +318,7 @@ Useful keys:
   (when (eq major-mode 'riece-addon-list-mode)
     (riece-command-list-addons)
     (let ((point (point-min)))
-      (while (not (eq (get-text-property point 'riece-addon) addon)
+      (while (and (not (eq (get-text-property point 'riece-addon) addon))
                  (setq point (next-single-property-change point
                                                           'riece-addon))))
       (if point
@@ -345,7 +345,7 @@ Useful keys:
   (when (eq major-mode 'riece-addon-list-mode)
     (riece-command-list-addons)
     (let ((point (point-min)))
-      (while (not (eq (get-text-property point 'riece-addon) addon)
+      (while (and (not (eq (get-text-property point 'riece-addon) addon))
                  (setq point (next-single-property-change point
                                                           'riece-addon))))
       (if point