aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/cus-edit.el15
2 files changed, 3 insertions, 15 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 88bcf6f98c1..4eabd34743d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
12006-03-03 Martin Rudalics <rudalics@gmx.at> 12006-03-03 Martin Rudalics <rudalics@gmx.at>
2 2
3 * cus-edit.el (custom-quote): Remove function, since it has been
4 moved to custom.el.
5
3 * font-lock.el (lisp-font-lock-keywords-2) 6 * font-lock.el (lisp-font-lock-keywords-2)
4 * emacs-lisp/rx.el (rx-check-any, rx-check-not) 7 * emacs-lisp/rx.el (rx-check-any, rx-check-not)
5 * generic-x.el (reg-generic-mode): Quote "]"s in regexps when 8 * generic-x.el (reg-generic-mode): Quote "]"s in regexps when
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index feacc9adf0d..60705b30552 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -468,21 +468,6 @@
468 468
469;;; Utilities. 469;;; Utilities.
470 470
471(defun custom-quote (sexp)
472 "Quote SEXP iff it is not self quoting."
473 (if (or (memq sexp '(t nil))
474 (keywordp sexp)
475 (and (listp sexp)
476 (memq (car sexp) '(lambda)))
477 (stringp sexp)
478 (numberp sexp)
479 (vectorp sexp)
480;;; (and (fboundp 'characterp)
481;;; (characterp sexp))
482 )
483 sexp
484 (list 'quote sexp)))
485
486(defun custom-split-regexp-maybe (regexp) 471(defun custom-split-regexp-maybe (regexp)
487 "If REGEXP is a string, split it to a list at `\\|'. 472 "If REGEXP is a string, split it to a list at `\\|'.
488You can get the original back with from the result with: 473You can get the original back with from the result with: