* liece-minibuf.el (liece-minibuffer-parse-modes): Don't complete

mode flags when completing an argument.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 254dc44..63e9673 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-09-20   Daiki Ueno  <ueno@unixuser.org>
+
+       * liece-minibuf.el (liece-minibuffer-parse-modes): Don't complete
+       mode flags when completing an argument.
+
 2000-09-19   Daiki Ueno  <ueno@unixuser.org>
 
        * liece-menu.el (liece-menu-callback-set-operators): Rename from

diff --git a/lisp/liece-minibuf.el b/lisp/liece-minibuf.el
index 1f44d85..891a5f4 100644 (file)
--- a/lisp/liece-minibuf.el
+++ b/lisp/liece-minibuf.el
@@ -63,12 +63,10 @@
        (forward-char)
        (setq preceding-char (char-before))
        (cond
-        ((and (memq state '(flag arg))
-              (or (char-equal preceding-char ?+)
-                  (char-equal preceding-char ?-)))
+        ((and (eq state 'flag) (memq preceding-char ?(+ ?-)))
          (setq state 'mode
                type nil))
-        ((and (eq state 'mode) (char-equal preceding-char ? ))
+        ((and (eq state 'mode) (eq preceding-char ? ))
          (setq state 'arg))
         ((and (eq state 'mode) (memq preceding-char '(?o ?v)))
          (setq type (nconc type (list 'nick preceding-char