X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fcl-compat.el;h=960a1eaf84d347f734a1385aaf4be4633d251db1;hb=883675cc94f1a69be8018d58511320275e3b236a;hp=82ba2911eab7b665e006d29755ddb246191f2866;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/cl-compat.el b/lisp/cl-compat.el
index 82ba291..960a1ea 100644
--- a/lisp/cl-compat.el
+++ b/lisp/cl-compat.el
@@ -56,8 +56,10 @@
 (defmacro defkeyword (x &optional doc)
   (list* 'defconst x (list 'quote x) (and doc (list doc))))
 
-(defun keywordp (sym)
-  (and (symbolp sym) (eq (aref (symbol-name sym) 0) ?\:) (set sym sym)))
+;; XEmacs change.
+;; We have built-in function.
+;;(defun keywordp (sym)
+;;  (and (symbolp sym) (eq (aref (symbol-name sym) 0) ?\:) (set sym sym)))
 
 (defun keyword-of (sym)
   (or (keywordp sym) (keywordp (intern (format ":%s" sym)))))