From: ueno <ueno>
Date: Wed, 20 Sep 2000 16:20:49 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: liece-1_4_7~49
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e377ac313d9ace21967b0b852868870b8a4bbd13;p=elisp%2Fliece.git

Fix typo.
---

diff --git a/lisp/liece-minibuf.el b/lisp/liece-minibuf.el
index 891a5f4..1db543c 100644
--- a/lisp/liece-minibuf.el
+++ b/lisp/liece-minibuf.el
@@ -63,7 +63,7 @@
 	(forward-char)
 	(setq preceding-char (char-before))
 	(cond
-	 ((and (eq state 'flag) (memq preceding-char ?(+ ?-)))
+	 ((and (eq state 'flag) (memq preceding-char '(+ ?-)))
 	  (setq state 'mode
 		type nil))
 	 ((and (eq state 'mode) (eq preceding-char ? ))
@@ -74,7 +74,7 @@
 	 ((and (eq state 'mode) (eq preceding-char ?b))
 	  (setq type (nconc type (list 'ban (char-before (1- (point)))))))))
       (cons state type))))
-	
+
 (defun liece-minibuffer-prepare-candidate ()
   (let ((point (point)))
     (skip-syntax-backward "^ ")