; (completion--file-name-table): Minor cleanup.

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 65057533b997694afaaeb21fa4ea0258516e7eb5..f738d2d65118afdffae0f891879c12c4e160db82 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -3794,20 +3794,12 @@ except that it passes the file name through `substitute-in-file-name'."
     (if (eq (car-safe action) 'boundaries)
         (cons 'boundaries (completion--sifn-boundaries orig table pred (cdr action)))
       (let* ((sifned (substitute-in-file-name orig))
-             (result
-              (let ((completion-regexp-list
-                     ;; Regexps are matched against the real file names after
-                     ;; expansion, so regexps containing $ won't work.  Drop
-                     ;; them; we'll return more completions, but callers need to
-                     ;; handle that anyway.
-                     (cl-remove-if (lambda (regexp) (string-search "$" regexp))
-                                   completion-regexp-list)))
-                (complete-with-action action table sifned pred))))
+             (result (complete-with-action action table sifned pred)))
         (cond
          ((null action)                 ; try-completion
           (if (stringp result)
-              ;; Extract the newly added text, quote any dollar signs, and
-              ;; append it to ORIG.
+              ;; Extract the newly added text, quote any dollar signs,
+              ;; and append it to ORIG.
               (let ((new-text (substring result (length sifned))))
                 (concat orig (minibuffer--double-dollars new-text)))
             result))