From 5e8cfa2e848e29010b47f741edb80ed009f1d97c Mon Sep 17 00:00:00 2001 From: Ronan Waide Date: Sun, 6 Jan 2002 22:05:49 +0000 Subject: Compiler cleanup --- lisp/bbdb-gui.el | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) (limited to 'lisp/bbdb-gui.el') diff --git a/lisp/bbdb-gui.el b/lisp/bbdb-gui.el index 2598d32..69029c1 100644 --- a/lisp/bbdb-gui.el +++ b/lisp/bbdb-gui.el @@ -29,8 +29,18 @@ ;; compiler whinage. Some of this is legacy stuff that would probably ;; be better deleted. (defvar scrollbar-height nil) -(or (fboundp 'set-specifier) - (fset 'set-specifier 'ignore)) +(eval-when-compile + (or (fboundp 'set-specifier) + (fset 'set-specifier 'ignore)) + (or (fboundp 'make-glyph) + (fset 'make-glyph 'ignore)) + (or (fboundp 'set-glyph-face) + (fset 'set-glyph-face 'ignore)) + (or (fboundp 'highlight-headers-x-face) + (fset 'highlight-headers-x-face 'ignore)) + (or (fboundp 'highlight-headers-x-face-to-pixmap) + (fset 'highlight-headers-x-face-to-pixmap 'ignore))) + (if (string-match "XEmacs\\|Lucid" emacs-version) (progn @@ -82,7 +92,7 @@ (fset 'bbdb-delete-extent 'delete-overlay)) (if (fboundp 'mapcar-extents) - (defun bbdb-list-extents() (mapcar-extents 'identity)) + (defmacro bbdb-list-extents() `(mapcar-extents 'identity)) (defun bbdb-list-extents() (let ((o (overlay-lists))) (nconc (car o) (cdr o))))) -- cgit v1.2.3