procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Restore obsolete method of changing byte-compile-dest-file

Browse source 
* lisp/emacs-lisp/bytecomp.el (byte-compile-dest-file):
Restore seven-year obsolete feature that was removed for six months,
since automake uses it.
This commit is contained in:
Glenn Morris 2017-11-29 15:11:01 -05:00
parent 3dd25aeecb
commit 9964db4c34
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/bytecomp.el
View file

@ -172,6 +172,10 @@ are found in the same directory is hard-coded in various places in Emacs.)"
(funcall handler 'byte-compiler-base-file-name filename) (funcall handler 'byte-compiler-base-file-name filename)
filename))) filename)))
;; Sadly automake relies on this misfeature up to at least version 1.15.1.
(if (fboundp 'byte-compile-dest-file)
(or (featurep 'bytecomp)
(display-warning 'bytecomp "Redefining `byte-compile-dest-file' is obsolete (as of 23.2); set `byte-compile-dest-file-function' instead."))
(defun byte-compile-dest-file (filename) (defun byte-compile-dest-file (filename)
"Convert an Emacs Lisp source file name to a compiled file name. "Convert an Emacs Lisp source file name to a compiled file name.
If `byte-compile-dest-file-function' is non-nil, uses that If `byte-compile-dest-file-function' is non-nil, uses that
@ -186,6 +190,7 @@ otherwise adds \".elc\"."
(cond ((string-match emacs-lisp-file-regexp filename) (cond ((string-match emacs-lisp-file-regexp filename)
(concat (substring filename 0 (match-beginning 0)) ".elc")) (concat (substring filename 0 (match-beginning 0)) ".elc"))
(t (concat filename ".elc"))))) (t (concat filename ".elc")))))
)
;; This can be the 'byte-compile property of any symbol. ;; This can be the 'byte-compile property of any symbol.
(autoload 'byte-compile-inline-expand "byte-opt") (autoload 'byte-compile-inline-expand "byte-opt")