Index: emacs/lisp/ansi-color.el
diff -c emacs/lisp/ansi-color.el:1.18 emacs/lisp/ansi-color.el:1.19
*** emacs/lisp/ansi-color.el:1.18 Sat Aug 6 22:13:41 2005
--- emacs/lisp/ansi-color.el Tue Aug 9 02:55:25 2005
***************
*** 486,492 ****
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)
(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
--- 486,492 ----
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 (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,517 ****
(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)
(set-extent-face extent face)
(overlay-put extent 'face face)))
--- 511,517 ----
(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 (fboundp 'set-extent-face)
(set-extent-face extent face)
(overlay-put extent 'face face)))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
