Function: custom-quote

custom-quote is a byte-compiled function defined in custom.el.gz.

Signature

(custom-quote SEXP)

Documentation

Quote SEXP if it is not self quoting.

Source Code

;; Defined in /usr/src/emacs/lisp/custom.el.gz
(defun custom-quote (sexp)
  "Quote SEXP if it is not self quoting."
  ;; Can't use `macroexp-quote' because it is loaded after `custom.el'
  ;; during bootstrap.  See `loadup.el'.
  (if (and (not (consp sexp))
           (or (keywordp sexp)
               (not (symbolp sexp))
               (booleanp sexp)))
      sexp
    (list 'quote sexp)))