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

Make tty-run-terminal-initialization load the .elc file (if any)

Browse source 
* lisp/faces.el (tty-run-terminal-initialization):
`locate-library' may have found the .el.gz file (bug#51116).
This commit is contained in:
Lars Ingebrigtsen 2021-10-11 11:22:05 +02:00
parent 07edc28bdb
commit e9df86004f
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/faces.el
View file

@ -2289,7 +2289,9 @@ If you set `term-file-prefix' to nil, this function does nothing."
(let ((file (locate-library (concat term-file-prefix type)))) (let ((file (locate-library (concat term-file-prefix type))))
(and file (and file
(or (assoc file load-history) (or (assoc file load-history)
(load (file-name-sans-extension file) (load (replace-regexp-in-string
"\\.el\\(\\.gz\\)?\\'" ""
file)
t t))))) t t)))))
type) type)
;; Next, try to find a matching initialization function, and call it. ;; Next, try to find a matching initialization function, and call it.