* liece-commands.el (liece-command-set-operators): Reset `run'.

(liece-command-set-voices): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 58286c4..e72b5bb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-03   Daiki Ueno  <ueno@unixuser.org>
+
+       * liece-commands.el (liece-command-set-operators): Reset `run'.
+       (liece-command-set-voices): Ditto.
+
 2000-09-30   Daiki Ueno  <ueno@unixuser.org>
 
        * liece-xemacs.el (liece-xemacs-modeline-glyph): Add 'xpm check.

diff --git a/lisp/liece-commands.el b/lisp/liece-commands.el
index 15053a3..bbcba82 100644 (file)
--- a/lisp/liece-commands.el
+++ b/lisp/liece-commands.el
@@ -496,8 +496,9 @@ Argument CHANGE ."
     (unwind-protect
        (dolist (nick nicks)
          (push nick run)
-         (if (= (length run) liece-compress-mode-length)
-             (liece-command-qualify-nicks ?o run (not arg))))
+         (when (= (length run) liece-compress-mode-length)
+           (liece-command-qualify-nicks ?o run (not arg))
+           (setq run nil)))
       (when run
        (liece-command-qualify-nicks ?o run (not arg))))))
 
@@ -520,8 +521,9 @@ Argument CHANGE ."
     (unwind-protect
        (dolist (nick nicks)
          (push nick run)
-         (if (= (length run) liece-compress-mode-length)
-             (liece-command-qualify-nicks ?v run (not arg))))
+         (when (= (length run) liece-compress-mode-length)
+           (liece-command-qualify-nicks ?v run (not arg))
+           (setq run nil)))
       (when run
        (liece-command-qualify-nicks ?v run (not arg))))))