Don't quote lambda expressions with `quote'.

lisp/emacs-lisp/byte-run.el

@@ -72,7 +72,7 @@ The return value of this function is not used."
 ;;   "Cause the named functions to be open-coded when called from compiled code.
 ;; They will only be compiled open-coded when byte-compile-optimize is true."
 ;;   (cons 'eval-and-compile
-;; 	(mapcar '(lambda (x)
+;; 	(mapcar (lambda (x)
 ;; 		   (or (memq (get x 'byte-optimizer)
 ;; 			     '(nil byte-compile-inline-expand))
 ;; 		       (error
@@ -85,7 +85,7 @@ The return value of this function is not used."
 ;; (defmacro proclaim-notinline (&rest fns)
 ;;   "Cause the named functions to no longer be open-coded."
 ;;   (cons 'eval-and-compile
-;; 	(mapcar '(lambda (x)
+;; 	(mapcar (lambda (x)
 ;; 		   (if (eq (get x 'byte-optimizer) 'byte-compile-inline-expand)
 ;; 		       (put x 'byte-optimizer nil))
 ;; 		   (list 'if (list 'eq (list 'get (list 'quote x) ''byte-optimizer)

lisp/emacs-lisp/chart.el

@@ -639,7 +639,7 @@ SORT-PRED if desired."
 		       extlst "File Extensions"
 		       cntlst "# of occurrences"
 		       10
-		       '(lambda (a b) (> (cdr a) (cdr b))))
+		       (lambda (a b) (> (cdr a) (cdr b))))
     ))
 
 (defun chart-space-usage (d)
@@ -669,7 +669,7 @@ SORT-PRED if desired."
 		       nmlst "File Name"
 		       cntlst "File Size"
 		       10
-		       '(lambda (a b) (> (cdr a) (cdr b))))
+		       (lambda (a b) (> (cdr a) (cdr b))))
     ))
 
 (defun chart-emacs-storage ()
@@ -737,7 +737,7 @@ SORT-PRED if desired."
 		       nmlst "User Names"
 		       cntlst "# of occurrences"
 		       10
-		       '(lambda (a b) (> (cdr a) (cdr b))))
+		       (lambda (a b) (> (cdr a) (cdr b))))
     ))
 
 

lisp/emacs-lisp/checkdoc.el

@@ -38,8 +38,7 @@
 ;;      or [menu-bar emacs-lisp eval-buffer].  Additional key-bindings
 ;;      are also provided under C-c ? KEY
 ;;        (require 'checkdoc)
-;;        (add-hook 'emacs-lisp-mode-hook
-;;	             '(lambda () (checkdoc-minor-mode 1)))
+;;        (add-hook 'emacs-lisp-mode-hook 'checkdoc-minor-mode)
 ;;
 ;; Using `checkdoc':
 ;;

lisp/emacs-lisp/disass.el

@@ -251,10 +251,10 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler."
 		       ((eq (car-safe (car-safe arg)) 'byte-code)
 			(insert "(<byte code>...)\n")
 			(mapc ;recurse on list of byte-code objects
-			 '(lambda (obj)
-			    (disassemble-1
-			     obj
-			     (+ indent disassemble-recursive-indent)))
+			 (lambda (obj)
+                           (disassemble-1
+                            obj
+                            (+ indent disassemble-recursive-indent)))
 			 arg))
 		       (t
 			;; really just a constant

lisp/emacs-lisp/tcover-unsafep.el

@@ -29,13 +29,13 @@
 ;;;These forms are all considered safe
 (defconst testcover-unsafep-safe
   '(((lambda (x) (* x 2)) 14)
-    (apply 'cdr (mapcar '(lambda (x) (car x)) y))
+    (apply 'cdr (mapcar (lambda (x) (car x)) y))
     (cond ((= x 4) 5) (t 27))
     (condition-case x (car y) (error (car x)))
     (dolist (x y) (message "here: %s" x))
     (dotimes (x 14 (* x 2)) (message "here: %d" x))
     (let (x) (dolist (y '(1 2 3) (1+ y)) (push y x)))
-    (let (x) (apply '(lambda (x) (* x 2)) 14))
+    (let (x) (apply (lambda (x) (* x 2)) 14))
     (let ((x '(2))) (push 1 x) (pop x) (add-to-list 'x 2))
     (let ((x 1) (y 2)) (setq x (+ x y)))
     (let ((x 1)) (let ((y (+ x 3))) (* x y)))
@@ -90,7 +90,7 @@
       . (function kill-buffer))
     ( (mapcar x y)
       . (unquoted x))
-    ( (mapcar '(lambda (x) (rename-file x "x")) '("unsafep.el"))
+    ( (mapcar (lambda (x) (rename-file x "x")) '("unsafep.el"))
       . (function rename-file))
     ( (mapconcat x1 x2 " ")
       . (unquoted x1))