Commit 33709261 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(custom-quote): Remove function since it has been moved to custom.el.

parent a6966c1c
2006-03-03 Martin Rudalics <rudalics@gmx.at>
 
* cus-edit.el (custom-quote): Remove function, since it has been
moved to custom.el.
* font-lock.el (lisp-font-lock-keywords-2)
* emacs-lisp/rx.el (rx-check-any, rx-check-not)
* generic-x.el (reg-generic-mode): Quote "]"s in regexps when
......
......@@ -468,21 +468,6 @@
;;; Utilities.
(defun custom-quote (sexp)
"Quote SEXP iff it is not self quoting."
(if (or (memq sexp '(t nil))
(keywordp sexp)
(and (listp sexp)
(memq (car sexp) '(lambda)))
(stringp sexp)
(numberp sexp)
(vectorp sexp)
;;; (and (fboundp 'characterp)
;;; (characterp sexp))
)
sexp
(list 'quote sexp)))
(defun custom-split-regexp-maybe (regexp)
"If REGEXP is a string, split it to a list at `\\|'.
You can get the original back with from the result with:
......
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