;;; ansi-color.el --- translate ANSI escape sequences into faces
;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007 Free Software Foundation, Inc.
+;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
;; Author: Alex Schroeder <alex@gnu.org>
;; Maintainer: Alex Schroeder <alex@gnu.org>
;; GNU Emacs is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by the
-;; Free Software Foundation; either version 2, or (at your option) any
+;; Free Software Foundation; either version 3, or (at your option) any
;; later version.
;;
;; GNU Emacs is distributed in the hope that it will be useful, but
(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)
+ (if (featurep 'xemacs)
(set-extent-face extent face)
(overlay-put extent 'face face)))
(let ((ansi-color-map (make-vector 50 nil))
(index 0))
;; miscellaneous attributes
- (mapcar
+ (mapc
(function (lambda (e)
(aset ansi-color-map index e)
(setq index (1+ index)) ))
ansi-color-faces-vector)
;; foreground attributes
(setq index 30)
- (mapcar
+ (mapc
(function (lambda (e)
(aset ansi-color-map index
(ansi-color-make-face 'foreground e))
ansi-color-names-vector)
;; background attributes
(setq index 40)
- (mapcar
+ (mapc
(function (lambda (e)
(aset ansi-color-map index
(ansi-color-make-face 'background e))
(provide 'ansi-color)
-;;; arch-tag: 00726118-9432-44fd-b72d-d2af7591c99c
+;; arch-tag: 00726118-9432-44fd-b72d-d2af7591c99c
;;; ansi-color.el ends here