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

Johan Bockg� <bojohan at gnu.org>

Browse Source 
(byte-compile-find-cl-functions): Simplify.  Collect `defun' and
`autoload' entries.  Avoid modifying load-history.
This commit is contained in:
Glenn Morris 2008-04-27 01:17:03 +00:00
parent a3efe8911c
commit 212df36327
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2008-04-27 Johan Bockgård <bojohan@gnu.org>
* emacs-lisp/bytecomp.el (byte-compile-find-cl-functions):
Simplify. Collect `defun' and `autoload' entries. Avoid
modifying load-history.
2008-04-26 Glenn Morris <rgm@gnu.org>
* textmodes/ispell.el (ispell-insert-word): Revert previous change.

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

@ -1405,15 +1405,9 @@ extra args."
(when (and (stringp (car elt))
(string-match
"^cl\\>" (file-name-nondirectory (car elt))))
(setq byte-compile-cl-functions
(append byte-compile-cl-functions
(cdr elt)))))
(let ((tail byte-compile-cl-functions))
(while tail
(if (and (consp (car tail))
(eq (car (car tail)) 'autoload))
(setcar tail (cdr (car tail))))
(setq tail (cdr tail))))))
(dolist (e (cdr elt))
(when (memq (car-safe e) '(autoload defun))
(push (cdr e) byte-compile-cl-functions)))))))
(defun byte-compile-cl-warn (form)
"Warn if FORM is a call of a function from the CL package."