andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove unused internal function completion-pcm--optimize-pattern

Browse source 
* lisp/minibuffer.el (completion-pcm--optimize-pattern): Remove
unused internal function (that signalled a compilation warning).
This commit is contained in:
Lars Ingebrigtsen 2019-05-17 06:21:37 +02:00
parent a93e672e27
commit 670c5126a0
1 changed files with 0 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/minibuffer.el
View file

@ -2971,28 +2971,6 @@ or a symbol, see `completion-pcm--merge-completions'."
;; It should be avoided properly, but it's so easy to remove it here.
(delete "" (nreverse pattern)))))
(defun completion-pcm--optimize-pattern (p)
;; Remove empty strings in a separate phase since otherwise a ""
;; might prevent some other optimization, as in '(any "" any).
(setq p (delete "" p))
(let ((n '()))
(while p
(pcase p
(`(,(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)))
(`(point ,(or 'any 'any-delim) . ,rest) (setq p `(point . ,rest)))
(`(,(or 'any 'any-delim) point . ,rest) (setq p `(point . ,rest)))
(`(any ,(or 'any 'any-delim) . ,rest) (setq p `(any . ,rest)))
(`(,(pred symbolp)) (setq p nil)) ;Implicit terminating `any'.
(_ (push (pop p) n))))
(nreverse n)))
(defun completion-pcm--pattern->regex (pattern &optional group)
(let ((re
(concat "\\`"