From: ueno <ueno>
Date: Wed, 20 Sep 2000 04:23:27 +0000 (+0000)
Subject: * liece-minibuf.el (liece-minibuffer-parse-modes): Don't complete
X-Git-Tag: liece-1_4_7~50
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=503ff4e5f3695320fb6ae3cf3d7a6804193d6b03;p=elisp%2Fliece.git

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