Mercurial > hg > xemacs-beta

diff lisp/custom/custom-xmas.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children
line wrap: on
line diff
--- a/lisp/custom/custom-xmas.el	Mon Aug 13 08:51:05 2007 +0200
+++ b/lisp/custom/custom-xmas.el	Mon Aug 13 08:51:32 2007 +0200
@@ -4,7 +4,7 @@
 ;;
 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
 ;; Keywords: help, faces
-;; Version: 1.44
+;; Version: 1.46
 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
 
 ;;; Commentary:
@@ -27,10 +27,7 @@
     (color-instance-rgb-components (make-color-instance color))))
 
 ;; Overwrite Emacs definition.
-(defun custom-facep (face) 
-  "Face symbol or object."
-  (or (facep face)
-      (find-face face)))
+(defalias 'custom-facep 'find-face)
 
 ;; Support for special XEmacs font attributes.
 (autoload 'font-create-object "font" nil)