Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(ansi-color-make-extent, ansi-color-set-extent-face):

Browse source 
Use fboundp, not functionp.
This commit is contained in:
Richard M. Stallman 2005-08-09 02:55:25 +00:00
parent f373470deb
commit c8f0dac9e3
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ansi-color.el
View file

@ -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)))