# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1152648839 0
# Node ID d35d3efc3d99439686cd7bb99a8abe1efbbf5201
# Parent  a346a15d3ed95fb17728c7f3ab5a23daa110a3f6
(ido-copy-current-file-name): Use buffer-name if buffer-file-name is nil.

diff -r a346a15d3ed9 -r d35d3efc3d99 lisp/ido.el
--- a/lisp/ido.el	Tue Jul 11 20:13:40 2006 +0000
+++ b/lisp/ido.el	Tue Jul 11 20:13:59 2006 +0000
@@ -2895,7 +2895,8 @@
   "Insert file name of current buffer.
 If repeated, insert text from buffer instead."
   (interactive "P")
-  (let* ((bfname (buffer-file-name ido-entry-buffer))
+  (let* ((bfname (or (buffer-file-name ido-entry-buffer)
+		     (buffer-name ido-entry-buffer)))
 	 (name (and bfname (file-name-nondirectory bfname))))
     (when name
       (setq ido-text-init