Fix typo.
authorueno <ueno>
Wed, 20 Sep 2000 16:20:49 +0000 (16:20 +0000)
committerueno <ueno>
Wed, 20 Sep 2000 16:20:49 +0000 (16:20 +0000)
lisp/liece-minibuf.el

index 891a5f4..1db543c 100644 (file)
@@ -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 "^ ")