From 961243a34959c8f6335778dd0c520626aadd9f8c Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Tue, 29 Apr 2025 23:11:58 +0200 Subject: [PATCH] ; (completion--file-name-table): Minor cleanup. --- lisp/minibuffer.el | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 65057533b99..f738d2d6511 100644 --- 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)) -- 2.39.5