# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1018527233 0
# Node ID 32d733dae72665a51d7b90251e8e82b9e35f5e5d
# Parent  9148e7fc1e39a20253ef82149d64070d58389973
(file-name-non-special): Handle return value of t from
`file-name-completion'.

diff -r 9148e7fc1e39 -r 32d733dae726 lisp/files.el
--- a/lisp/files.el	Thu Apr 11 07:16:13 2002 +0000
+++ b/lisp/files.el	Thu Apr 11 12:13:53 2002 +0000
@@ -3943,7 +3943,7 @@
 	(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))))))