Lines Matching +defs:custom +defs:quote
454 (list 'quote
1285 ;; Warn if a custom definition fails to specify :group.
1289 (or (not (eq (car-safe name) 'quote))
1290 (and (eq (car form) 'custom-declare-group)
1293 (not (and (consp name) (eq (car name) 'quote)))
1297 '((custom-declare-group . defgroup)
1298 (custom-declare-face . defface)
1299 (custom-declare-variable . defcustom))))
1456 `(cond ((consp ,form) (eq (car ,form) 'quote))
1988 ;; prin1-to-string is used to quote backslashes.
2008 ;; custom-declare-variable because make-docfile is so amazingly stupid.
2013 custom-declare-variable))
2017 '(autoload custom-declare-variable)))
2039 QUOTED says that we have to put a quote before the
2041 `autoload' and `custom-declare-variable' need that."
2195 (eq (car (nth 1 form)) 'quote)
2223 (put 'custom-declare-variable 'byte-hunk-handler
2224 'byte-compile-file-form-custom-declare-variable)
2225 (defun byte-compile-file-form-custom-declare-variable (form)
2268 (if (eq (car-safe (nth 1 form)) 'quote)
2364 (eq 'quote (car-safe code))
2378 ((eq (car code) 'quote)
2394 ((eq (car code) 'quote)
2478 ;; Return (quote (lambda ...)).
2479 (list 'quote (byte-compile-byte-code-unmake fun)))
2493 (list 'quote (nth 1 fun)) ;arglist
2507 (list 'quote (nth 1 interactive))))))))
2509 (list 'quote fun))))))
2712 ;; Note that even (quote foo) must be parsed just as any subr by the
2713 ;; interpreter, so quote should be compiled into byte-code in some contexts.
2719 ;; eval -> atom, quote or (function atom atom atom)
2742 (setq body (cons (list 'quote tmp) body)))
2757 (eq (car-safe (car body)) 'quote))
2824 (if (memq fn '(custom-declare-group custom-declare-variable custom-declare-face))
2935 (list 'put (list 'quote function) ''byte-compile
2936 (list 'quote
2951 (list 'put (list 'quote function)
2952 ''byte-opcode (list 'quote opcode))
2953 (list 'put (list 'quote opcode)
2954 ''byte-opcode-invert (list 'quote function)))
2968 (list 'quote
3275 (if (and (eq (car-safe fn) 'quote)
3294 (if (and (eq (car-safe fn) 'quote)
3306 (if (and (eq (car-safe fn) 'quote)
3365 (byte-defop-compiler-1 quote)
3366 (byte-defop-compiler-1 quote-form)
3386 (cons (list 'set-default (list 'quote (car args)) (car (cdr args)))
3391 (defun byte-compile-quote (form)
3394 (defun byte-compile-quote-form (form)
3468 (and (eq 'quote (car-safe (nth 1 ,condition)))
3476 (and (eq 'quote (car-safe (nth 1 ,condition)))
3526 (and (eq (car-safe (car clause)) 'quote)
3777 (list 'quote (nth 1 form))
3785 (list 'quote (nth 1 form))
3794 (list (list 'fset (list 'quote (nth 1 form))
3799 (list 'quote (cons 'macro (eval code))))))
3800 (list 'quote (nth 1 form)))))
3869 (eq (car (nth 1 form)) 'quote)
3875 (eq (car (nth 2 form)) 'quote)
3909 (if (eq (car-safe (car-safe (cdr-safe form))) 'quote)