Commit c43008c4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

Check that (car elt) is a string.
parent 430190ba
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.
......
......@@ -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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment