From: Glenn Morris <rgm@gnu.org>
Date: Mon, 5 Mar 2018 20:46:48 +0000 (-0500)
Subject: ; * lisp/minibuffer.el (completion-pcm--optimize-pattern): Comment.
X-Git-Tag: emacs-27.0.90~5547
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2722df2a14465b49a192e741baaa8c22591d1ffa;p=emacs.git

; * lisp/minibuffer.el (completion-pcm--optimize-pattern): Comment.
---

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'."
         (`(,(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)))