From: Andreas Schwab <schwab@suse.de>
Date: Thu, 11 Apr 2002 12:13:53 +0000 (+0000)
Subject: (file-name-non-special): Handle return value of t from
X-Git-Tag: ttn-vms-21-2-B4~15693
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7660e38fa582150c2092356471a450370e2279e0;p=emacs.git

(file-name-non-special): Handle return value of t from
`file-name-completion'.
---

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))))))