From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 3 Mar 2006 12:23:29 +0000 (+0000)
Subject: (custom-quote): Remove function since it has been moved to custom.el.
X-Git-Tag: emacs-pretest-22.0.90~3796
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=33709261ef513e4f4b21bd7480bbc502963d0c56;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 88bcf6f98c1..4eabd34743d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 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
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 @@
 
 ;;; 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: