From 046934349fbbe535deac0d0406c5978ef0ed8796 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 3 Oct 2000 15:50:24 +0000 Subject: [PATCH] * liece-commands.el (liece-command-set-operators): Reset `run'. (liece-command-set-voices): Ditto. --- lisp/ChangeLog | 5 +++++ lisp/liece-commands.el | 10 ++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) 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 + + * liece-commands.el (liece-command-set-operators): Reset `run'. + (liece-command-set-voices): Ditto. + 2000-09-30 Daiki Ueno * 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)))))) -- 1.7.10.4