]> git.eshelyaron.com Git - emacs.git/commitdiff
; Fix completions restriction descriptions with boundaries
authorEshel Yaron <me@eshelyaron.com>
Thu, 4 Jan 2024 15:24:26 +0000 (16:24 +0100)
committerEshel Yaron <me@eshelyaron.com>
Fri, 19 Jan 2024 10:07:05 +0000 (11:07 +0100)
* lisp/minibuffer.el (minibuffer-narrow-completions-to-current):
Respect completion boundaries when formatting restriction description.

lisp/minibuffer.el

index b2529d9595c9310b7d9332d60538ff66bbcd61ce..2722656c418f525c6c51db66e243be0f6142de40 100644 (file)
@@ -5172,6 +5172,7 @@ exclude matches to current input from completions list."
   (let* ((table (make-hash-table :test #'equal))
          (beg-end (minibuffer--completion-boundaries))
          (beg (car beg-end)) (end (cdr beg-end))
+         (current (buffer-substring beg end))
          (start (minibuffer-prompt-end))
          (input (buffer-substring start (point-max)))
          (all (completion-all-completions
@@ -5195,7 +5196,7 @@ exclude matches to current input from completions list."
                        ((symbolp cand) (symbol-name cand))
                        (t              (car         cand)))))
              (not (gethash key table))))
-         (concat "excluding matches for " (prin1-to-string input)))
+         (concat "excluding matches for " (prin1-to-string current)))
       (minibuffer--add-completions-predicate
        (lambda (cand &rest _)
          (let ((key (cond
@@ -5203,7 +5204,7 @@ exclude matches to current input from completions list."
                      ((symbolp cand) (symbol-name cand))
                      (t              (car         cand)))))
            (gethash key table)))
-       (concat "narrowing to " (prin1-to-string input))))))
+       (concat "narrowing to " (prin1-to-string current))))))
 
 (defun minibuffer-widen-completions (&optional all)
   "Remove restrictions on current minibuffer completions list.