Use whole file-name-history'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0e100336b947106e6d71a3468336600afa5d56b5..fa2f97d070297a12cad75503ed1165c967812856 100644 (file)
--- 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 1e21a222149c6e60d3914e56cc431772efa8a1d9..6f5b6295d1e14c46616c4f73d7e1d7b6c2138dd3 100644 (file)
--- 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))