Skip to content

GitLab

Commit 88d9af06 authored by Dave Love's avatar Dave Love
Browse files

(keywordp): Remove.

parent cf6bc7c3
Hide whitespace changes
Inline Side-by-side
Showing with 0 additions and 3 deletions
lisp/emacs-lisp/cl-compat.el
View file @ 88d9af06
...@@ -54,9 +54,6 @@ ...@@ -54,9 +54,6 @@
(defmacro defkeyword (x &optional doc) (defmacro defkeyword (x &optional doc)
(list* 'defconst x (list 'quote x) (and doc (list 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)))
(defun keyword-of (sym) (defun keyword-of (sym)
(or (keywordp sym) (keywordp (intern (format ":%s" sym))))) (or (keywordp sym) (keywordp (intern (format ":%s" sym)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment