[Emacs-diffs] Changes to emacs/lisp/ansi-color.el

[Richard M . Stallman]

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