From: ueno <ueno>
Date: Tue, 3 Oct 2000 15:50:24 +0000 (+0000)
Subject: * liece-commands.el (liece-command-set-operators): Reset `run'.
X-Git-Tag: liece-1_4_7~44
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fliece.git;a=commitdiff_plain;h=046934349fbbe535deac0d0406c5978ef0ed8796

* 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
--- 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
--- 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))))))