From 7660e38fa582150c2092356471a450370e2279e0 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Thu, 11 Apr 2002 12:13:53 +0000 Subject: [PATCH] (file-name-non-special): Handle return value of t from `file-name-completion'. --- lisp/files.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/files.el b/lisp/files.el index c71dd806f6d..c4e3e8c3760 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3943,7 +3943,7 @@ With prefix arg, silently save all file-visiting buffers, then kill." (car arguments) (let ((value (apply operation arguments))) (cond ((memq operation '(file-name-completion)) - (and value (concat "/:" value))) + (and value (if (eq value t) t (concat "/:" value)))) ((memq operation '(file-name-all-completions)) (mapcar (lambda (name) (concat "/:" name)) value)) (t value)))))) -- 2.39.2