diff options
| author | Glenn Morris | 2018-03-05 15:46:48 -0500 |
|---|---|---|
| committer | Glenn Morris | 2018-03-05 15:46:48 -0500 |
| commit | 2722df2a14465b49a192e741baaa8c22591d1ffa (patch) | |
| tree | e3882a33aeff937aff019c99f23f9a0ae1e1fca4 | |
| parent | 92618d767d1c2cc52c57d2c157998d2fd103f34c (diff) | |
| download | emacs-2722df2a14465b49a192e741baaa8c22591d1ffa.tar.gz emacs-2722df2a14465b49a192e741baaa8c22591d1ffa.zip | |
; * lisp/minibuffer.el (completion-pcm--optimize-pattern): Comment.
| -rw-r--r-- | lisp/minibuffer.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index e3ae2912a86..9b6f043b576 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el | |||
| @@ -2951,6 +2951,8 @@ or a symbol, see `completion-pcm--merge-completions'." | |||
| 2951 | (`(,(and s1 (pred stringp)) ,(and s2 (pred stringp)) . ,rest) | 2951 | (`(,(and s1 (pred stringp)) ,(and s2 (pred stringp)) . ,rest) |
| 2952 | (setq p (cons (concat s1 s2) rest))) | 2952 | (setq p (cons (concat s1 s2) rest))) |
| 2953 | (`(,(and p1 (pred symbolp)) ,(and p2 (guard (eq p1 p2))) . ,_) | 2953 | (`(,(and p1 (pred symbolp)) ,(and p2 (guard (eq p1 p2))) . ,_) |
| 2954 | ;; Unused lexical variable warning due to body not using p1, p2. | ||
| 2955 | ;; https://debbugs.gnu.org/16771 | ||
| 2954 | (setq p (cdr p))) | 2956 | (setq p (cdr p))) |
| 2955 | (`(star ,(pred symbolp) . ,rest) (setq p `(star . ,rest))) | 2957 | (`(star ,(pred symbolp) . ,rest) (setq p `(star . ,rest))) |
| 2956 | (`(,(pred symbolp) star . ,rest) (setq p `(star . ,rest))) | 2958 | (`(,(pred symbolp) star . ,rest) (setq p `(star . ,rest))) |