From 608b298453712a9cdd5aac8a0f60a4f11531982c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 9 Aug 2005 02:55:25 +0000 Subject: (ansi-color-make-extent, ansi-color-set-extent-face): Use fboundp, not functionp. --- lisp/ansi-color.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/ansi-color.el') diff --git a/lisp/ansi-color.el b/lisp/ansi-color.el index 94b6b81e031..c329bab5788 100644 --- a/lisp/ansi-color.el +++ b/lisp/ansi-color.el @@ -486,7 +486,7 @@ For XEmacs, we create a temporary face and return it." OBJECT defaults to the current buffer. XEmacs uses `make-extent', Emacs uses `make-overlay'. XEmacs can use a buffer or a string for OBJECT, Emacs requires OBJECT to be a buffer." - (if (functionp 'make-extent) + (if (fboundp 'make-extent) (make-extent from to object) ;; In Emacs, the overlay might end at the process-mark in comint ;; buffers. In that case, new text will be inserted before the @@ -511,7 +511,7 @@ property." (defun ansi-color-set-extent-face (extent face) "Set the `face' property of EXTENT to FACE. XEmacs uses `set-extent-face', Emacs uses `overlay-put'." - (if (functionp 'set-extent-face) + (if (fboundp 'set-extent-face) (set-extent-face extent face) (overlay-put extent 'face face))) -- cgit v1.2.1