changeset 69268:901e5cda9c30

(custom-quote): Remove function since it has been moved to custom.el.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 03 Mar 2006 12:22:29 +0000
parents c3f3f618663b
children 0fd88dd2d6b4
files lisp/cus-edit.el
diffstat 1 files changed, 0 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-edit.el	Fri Mar 03 12:20:26 2006 +0000
+++ b/lisp/cus-edit.el	Fri Mar 03 12:22:29 2006 +0000
@@ -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: