(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 ? ))
((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 "^ ")