Re: bytecomp warning for CL functions

[Juanma Barranquero]

On Tue, 2 Jul 2002 13:45:59 -0600 (MDT), Richard Stallman <address@hidden> 
wrote:

> I will install this
> code, together with some changes so that these warnings are enabled
> automatically whenever the file being compiled does not do (require
> 'cl) at run time.

So now, having that in .emacs:


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'cl)

(defvar lk-faces-regexp-history nil)

(defadvice list-faces-display (around lk-faces-regexp (arg) activate compile 
preactivate)
  "If ARG is non-nil, prompt for a regexp and list only
those faces matching the regexp."
  (interactive "P")
  (if arg
      (let* ((regexp (read-string "Faces (regexp): " nil 
'lk-faces-regexp-history nil t))
             (faces (if (string= regexp "")
                        (face-list)
                      (delete-if-not #'(lambda (face)
                                         (string-match regexp (symbol-name 
face)))
                                     (face-list)))))
        (if faces
            (flet ((face-list () faces))
              ad-do-it)
          (message "No faces matching \"%s\"" regexp)))
    ad-do-it))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


causes a warning at startup time:

  warning: Function `delete-if-not' from cl package called at runtime

:(


                                                           /L/e/k/t/u