diff options
author | Ronan Waide <waider@waider.ie> | 2002-01-06 22:05:49 +0000 |
---|---|---|
committer | Ronan Waide <waider@waider.ie> | 2002-01-06 22:05:49 +0000 |
commit | 5e8cfa2e848e29010b47f741edb80ed009f1d97c (patch) | |
tree | 780b7b3144d688be01438f94d10b1f207f53c2c8 /lisp/bbdb-gui.el | |
parent | 866aa67c2ef2ba4a8446acba382b8377e59dfec5 (diff) |
Compiler cleanup
Diffstat (limited to 'lisp/bbdb-gui.el')
-rw-r--r-- | lisp/bbdb-gui.el | 16 |
1 files changed, 13 insertions, 3 deletions
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))))) |