From 8b04c0ae7659ec81ef37c6feca9f330dae4d8ede Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 22 Apr 2008 19:47:13 +0000 Subject: [PATCH] (internal-complete-buffer-except): New function. --- lisp/minibuffer.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index a6f408c6658..c06010f1550 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -764,6 +764,16 @@ during running `completion-setup-hook'." 'completion--file-name-table) "Internal subroutine for `read-file-name'. Do not call this.") +(defun internal-complete-buffer-except (&optional buffer) + "Perform completion on all buffers excluding BUFFER. +Like `internal-complete-buffer', but removes BUFFER from the completion list." + (lexical-let ((except (if (stringp buffer) buffer (buffer-name buffer)))) + (apply-partially 'completion-table-with-predicate + 'internal-complete-buffer + (lambda (name) + (not (equal (if (consp name) (car name) name) except))) + nil))) + (provide 'minibuffer) ;; arch-tag: ef8a0a15-1080-4790-a754-04017c02f08f -- 2.39.2