comparison lisp/emacs-lisp/lisp-mode.el @ 63988:7f1acc9f0399

(eval-defun-1): Remove unnecessary quotes.

63987:56d2561b1c9f

	 ;; buffer, thus allowing `face-user-default-spec' to use the
	 ;; new customized spec instead of the saved spec.
	 ;; Resetting `saved-face' temporarily to nil is needed to let
	 ;; `defface' change the spec, regardless of a saved spec.
	 (prog1 `(prog1 ,form
		   (put ',(eval (nth 1 form)) 'saved-face
			',(get (eval (nth 1 form)) 'saved-face))
		   (put ',(eval (nth 1 form)) 'customized-face
			',(eval (nth 2 form))))
	   (put (eval (nth 1 form)) 'saved-face nil)))
	((eq (car form) 'progn)
	 (cons 'progn (mapcar 'eval-defun-1 (cdr form))))
	(t form)))

63988:7f1acc9f0399

	 ;; buffer, thus allowing `face-user-default-spec' to use the
	 ;; new customized spec instead of the saved spec.
	 ;; Resetting `saved-face' temporarily to nil is needed to let
	 ;; `defface' change the spec, regardless of a saved spec.
	 (prog1 `(prog1 ,form
		   (put ,(nth 1 form) 'saved-face
			',(get (eval (nth 1 form)) 'saved-face))
		   (put ,(nth 1 form) 'customized-face
			,(nth 2 form)))
	   (put (eval (nth 1 form)) 'saved-face nil)))
	((eq (car form) 'progn)
	 (cons 'progn (mapcar 'eval-defun-1 (cdr form))))
	(t form)))