From 93acfb0eff2c089abf14caa95f5599cdbd99fb48 Mon Sep 17 00:00:00 2001 From: Daniel Colascione Date: Wed, 15 Jan 2014 15:49:40 -0800 Subject: [PATCH] Use whole file-name-history'. --- lisp/ChangeLog | 6 ++++++ lisp/emacs-lisp/bytecomp.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * 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 * 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)) -- 2.39.2