From 503ff4e5f3695320fb6ae3cf3d7a6804193d6b03 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 20 Sep 2000 04:23:27 +0000 Subject: [PATCH] * liece-minibuf.el (liece-minibuffer-parse-modes): Don't complete mode flags when completing an argument. --- lisp/ChangeLog | 5 +++++ lisp/liece-minibuf.el | 6 ++---- 2 files changed, 7 insertions(+), 4 deletions(-) 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 + + * liece-minibuf.el (liece-minibuffer-parse-modes): Don't complete + mode flags when completing an argument. + 2000-09-19 Daiki Ueno * 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 -- 1.7.10.4