mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

Use whole file-name-history'.

Browse Source
This commit is contained in:
Daniel Colascione 2014-01-15 15:49:40 -08:00
parent c7880bc8f0
commit 93acfb0eff
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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

2
lisp/emacs-lisp/bytecomp.el
View File

@ -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))