Use whole file-name-history'.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0e100336b94..fa2f97d0702 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-01-15  Daniel Colascione  <dancol@dancol.org>
+
+        * emacs-lisp/bytecomp.el (byte-compile-file): Use whole
+        `buffer-file-name' in interactive-form so that we don't leave
+        pathless file names in `file-name-history'.
+
 2014-01-15  Juri Linkov  <juri@jurta.org>
 
         * indent.el (indent-rigidly): Set deactivate-mark to nil
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 1e21a222149..6f5b6295d1e 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1714,7 +1714,7 @@ The value is non-nil if there were no errors, nil if errors."
      (list (read-file-name (if current-prefix-arg
                                "Byte compile and load file: "
                              "Byte compile file: ")
-                           file-dir file-name nil)
+                           file-dir buffer-file-name nil)
            current-prefix-arg)))
   ;; Expand now so we get the current buffer's defaults
   (setq filename (expand-file-name filename))