Remove #' and function quoting from lambda forms in manual

* doc/lispref/abbrevs.texi (Abbrev Expansion):
* doc/lispref/backups.texi (Reverting):
* doc/lispref/functions.texi (Mapping Functions):
* doc/lispref/help.texi (Accessing Documentation):
* doc/lispref/sequences.texi (Char-Tables):
* doc/lispref/syntax.texi (Categories):
* doc/lispref/text.texi (Sorting):
Remove function quoting from lambda in examples where it still occurs,
since examples should follow our best style and be consistent.

doc/lispref/abbrevs.texi

@@ -370,7 +370,7 @@ definitions of @code{local-abbrev-table} and @code{text-mode-abbrev-table}.
       (funcall expand))))
 
 (add-hook 'foo-mode-hook
-          #'(lambda ()
+          (lambda ()
             (add-function :around (local 'abbrev-expand-function)
                           #'foo-mode-abbrev-expand-function)))
 @end smallexample

doc/lispref/backups.texi

@@ -807,7 +807,7 @@ If you just want to automatically auto-revert every
 
 @example
 (setq-local buffer-stale-function
-     #'(lambda (&optional noconfirm) 'fast))
+     (lambda (&optional noconfirm) 'fast))
 @end example
 
 @noindent

doc/lispref/functions.texi

@@ -970,7 +970,7 @@ string.
 @end group
 
 @group
-(mapconcat (function (lambda (x) (format "%c" (1+ x))))
+(mapconcat (lambda (x) (format "%c" (1+ x)))
            "HAL-8000"
            "")
      @result{} "IBM.9111"

doc/lispref/help.texi

@@ -175,7 +175,6 @@ All symbols that have PATTERN in their name are described
 in the *Help* buffer."
   (interactive "sDescribe symbols matching: ")
   (let ((describe-func
-         (function
          (lambda (s)
 @end group
 @group
@@ -208,16 +207,15 @@ in the *Help* buffer."
 @group
                   (or (documentation-property
                         s 'variable-documentation)
-                       "not documented")))))))
+                      "not documented"))))))
         sym-list)
 @end group
 
 @group
     ;; @r{Build a list of symbols that match pattern.}
-    (mapatoms (function
+    (mapatoms (lambda (sym)
-               (lambda (sym)
                 (if (string-match pattern (symbol-name sym))
-                     (setq sym-list (cons sym sym-list))))))
+                    (setq sym-list (cons sym sym-list)))))
 @end group
 
 @group

doc/lispref/sequences.texi

@@ -1572,7 +1572,7 @@ For example, here is how to examine the elements of the syntax table:
 @example
 (let (accumulator)
    (map-char-table
-    #'(lambda (key value)
+    (lambda (key value)
       (setq accumulator
             (cons (list
                    (if (consp key)

doc/lispref/syntax.texi

@@ -1118,7 +1118,7 @@ bidi-class}).
     ;; 'bidi-class' Unicode property is R, AL, or RLO --
     ;; these have a right-to-left directionality.
     (map-char-table
-     #'(lambda (key val)
+     (lambda (key val)
        (if (memq val '(R AL RLO))
            (modify-category-entry key ?R category-table)))
      uniprop-table)

doc/lispref/text.texi

@@ -2073,11 +2073,10 @@ its @code{sort-subr} call looks like this:
 @example
 @group
 (sort-subr reverse
-           (function
            (lambda ()
              (while (and (not (eobp))
                          (looking-at paragraph-separate))
-                (forward-line 1))))
+               (forward-line 1)))
            'forward-paragraph)
 @end group
 @end example