Mercurial > hg > xemacs-beta
diff lisp/cl-compat.el @ 2153:393039450288
[xemacs-hg @ 2004-06-26 21:25:23 by james]
Synch with Emacs 21.3.
author | james |
---|---|
date | Sat, 26 Jun 2004 21:25:24 +0000 |
parents | 023b83f4e54b |
children | 8f1ee2d15784 |
line wrap: on
line diff
--- a/lisp/cl-compat.el Fri Jun 25 21:50:24 2004 +0000 +++ b/lisp/cl-compat.el Sat Jun 26 21:25:24 2004 +0000 @@ -23,7 +23,7 @@ ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA ;; 02111-1307, USA. -;;; Synched up with: FSF 19.34. +;;; Synched up with: FSF 21.3. ;;; Commentary: @@ -56,11 +56,6 @@ (defmacro defkeyword (x &optional doc) (list* 'defconst x (list 'quote x) (and doc (list doc)))) -;; 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))))) @@ -192,5 +187,5 @@ (provide 'cl-compat) +;;; arch-tag: 9996bb4f-aaf5-4592-b436-bf64759a3163 ;;; cl-compat.el ends here -