mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-02-06 20:49:33 +00:00
; * lisp/minibuffer.el (completion-pcm--optimize-pattern): Comment.
This commit is contained in:
parent
92618d767d
commit
2722df2a14
@ -2951,6 +2951,8 @@ or a symbol, see `completion-pcm--merge-completions'."
|
||||
(`(,(and s1 (pred stringp)) ,(and s2 (pred stringp)) . ,rest)
|
||||
(setq p (cons (concat s1 s2) rest)))
|
||||
(`(,(and p1 (pred symbolp)) ,(and p2 (guard (eq p1 p2))) . ,_)
|
||||
;; Unused lexical variable warning due to body not using p1, p2.
|
||||
;; https://debbugs.gnu.org/16771
|
||||
(setq p (cdr p)))
|
||||
(`(star ,(pred symbolp) . ,rest) (setq p `(star . ,rest)))
|
||||
(`(,(pred symbolp) star . ,rest) (setq p `(star . ,rest)))
|
||||
|
Loading…
x
Reference in New Issue
Block a user