Mercurial > emacs
changeset 42770:a7530850a26c
(toplevel): Require `cl' when compiling.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Wed, 16 Jan 2002 06:33:20 +0000 |
| parents | c3e528c6c110 |
| children | ed597889bfc8 |
| files | lisp/ibuf-macs.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ibuf-macs.el Wed Jan 16 02:47:15 2002 +0000 +++ b/lisp/ibuf-macs.el Wed Jan 16 06:33:20 2002 +0000 @@ -1,11 +1,9 @@ ;;; ibuf-macs.el --- macros for ibuffer -;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc. ;; Author: Colin Walters <walters@verbum.org> ;; Created: 6 Dec 2001 -;; X-RCS: $Id: ibuf-macs.el,v 1.6 2001/12/11 22:47:09 walters Exp $ -;; URL: http://cvs.verbum.org/ibuffer ;; Keywords: buffer, convenience ;; This file is not currently part of GNU Emacs. @@ -27,6 +25,9 @@ ;;; Code: +(eval-when-compile + (require 'cl)) + ;; From Paul Graham's "ANSI Common Lisp", adapted for Emacs Lisp here. (defmacro ibuffer-aif (test true-body &rest false-body) "Evaluate TRUE-BODY or FALSE-BODY depending on value of TEST.