mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(byte-compile-find-cl-functions):

Browse Source 
Check that (car elt) is a string.
This commit is contained in:
Richard M. Stallman 2002-07-31 22:05:16 +00:00
parent 430190ba6d
commit c43008c44a
2 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/ChangeLog
View File

@ -1,3 +1,12 @@
2002-07-31 Richard M. Stallman <rms@gnu.org>
* emacs-lisp/bytecomp.el (byte-compile-find-cl-functions):
Check that (car elt) is a string.
* pcomplete.el (pcomplete-entries): Doc fix.
* international/mule.el (non-standard-icccm-encodings-alist): Doc fix.
2002-07-31 Andreas Schwab <schwab@suse.de>
* dired.el: Hide disabling of dired-find-alternate-file behind
@ -99,6 +108,13 @@
2002-07-29 Richard M. Stallman <rms@gnu.org>
* bindings.el (help-echo): If global-mode-string is non-nil,
display some spaces after it.
* emacs-lisp/bytecomp.el (byte-compile-find-cl-functions):
Don't call string-match on non-string.
(displaying-byte-compile-warnings):
* textmodes/ispell.el (check-ispell-version): Bind default-directory
to avoid errors. Kill the old temp buffer at the beginning.

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

@ -10,7 +10,7 @@
;;; This version incorporates changes up to version 2.10 of the
;;; Zawinski-Furuseth compiler.
(defconst byte-compile-version "$Revision: 2.107 $")
(defconst byte-compile-version "$Revision: 2.108 $")
;; This file is part of GNU Emacs.
@ -1206,7 +1206,8 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property."
(defun byte-compile-find-cl-functions ()
(unless byte-compile-cl-functions
(dolist (elt load-history)
(when (string-match "^cl\\>" (car elt))
(when (and (stringp (car elt))
(string-match "^cl\\>" (car elt)))
(setq byte-compile-cl-functions
(append byte-compile-cl-functions
(cdr elt)))))