From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Juanma Barranquero <lektu@terra.es>
Newsgroups: gmane.emacs.devel
Subject: Re: bytecomp warning for CL functions
Date: Wed, 03 Jul 2002 09:21:39 +0200
Sender: emacs-devel-admin@gnu.org
Message-ID: <20020703091701.8A71.LEKTU@terra.es>
References: <rzqofdrfhdk.fsf@albion.dl.ac.uk> <200207021945.g62Jjxa02009@aztec.santafe.edu>
NNTP-Posting-Host: localhost.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset="US-ASCII"
Content-Transfer-Encoding: 7bit
X-Trace: main.gmane.org 1025681043 14562 127.0.0.1 (3 Jul 2002 07:24:03 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 3 Jul 2002 07:24:03 +0000 (UTC)
Cc: d.love@dl.ac.uk, monnier+gnu/emacs@rum.cs.yale.edu, emacs-devel@gnu.org
Return-path: <emacs-devel-admin@gnu.org>
Original-Received: from quimby.gnus.org ([80.91.224.244])
	by main.gmane.org with esmtp (Exim 3.33 #1 (Debian))
	id 17PeUc-0003ml-00
	for <emacs-devel@main.gmane.org>; Wed, 03 Jul 2002 09:24:02 +0200
Original-Received: from fencepost.gnu.org ([199.232.76.164])
	by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian))
	id 17Pea1-00021A-00
	for <emacs-devel@quimby.gnus.org>; Wed, 03 Jul 2002 09:29:37 +0200
Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org)
	by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian))
	id 17PeUe-0002x4-00; Wed, 03 Jul 2002 03:24:04 -0400
Original-Received: from [62.22.27.141] (helo=mail.peoplecall.com)
	by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian))
	id 17PeSK-0002nl-00; Wed, 03 Jul 2002 03:21:41 -0400
Original-Received: from [62.22.27.143] (jbarranquero.ofi.peoplecall.com [62.22.27.143])
	by mail.peoplecall.com (8.11.6/8.11.6) with ESMTP id g637LWe10685;
	Wed, 3 Jul 2002 09:21:32 +0200
Original-To: rms@gnu.org
In-Reply-To: <200207021945.g62Jjxa02009@aztec.santafe.edu>
X-Mailer: Becky! ver. 2.05
Errors-To: emacs-devel-admin@gnu.org
X-BeenThere: emacs-devel@gnu.org
X-Mailman-Version: 2.0.11
Precedence: bulk
List-Help: <mailto:emacs-devel-request@gnu.org?subject=help>
List-Post: <mailto:emacs-devel@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=subscribe>
List-Id: Emacs development discussions. <emacs-devel.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/emacs-devel/>
Xref: main.gmane.org gmane.emacs.devel:5390
X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:5390

On Tue, 2 Jul 2002 13:45:59 -0600 (MDT), Richard Stallman <rms@gnu.org> 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