From 14a570afaeb9c01bafdb5dd922d8077810e63d16 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Sun, 19 Apr 2020 12:40:43 +0200 Subject: [PATCH] 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 | 6 ++-- doc/lispref/backups.texi | 2 +- doc/lispref/functions.texi | 2 +- doc/lispref/help.texi | 56 ++++++++++++++++++-------------------- doc/lispref/sequences.texi | 16 +++++------ doc/lispref/syntax.texi | 6 ++-- doc/lispref/text.texi | 9 +++--- 7 files changed, 47 insertions(+), 50 deletions(-) diff --git a/doc/lispref/abbrevs.texi b/doc/lispref/abbrevs.texi index 6689b560c78..575be187d3f 100644 --- a/doc/lispref/abbrevs.texi +++ b/doc/lispref/abbrevs.texi @@ -370,9 +370,9 @@ definitions of @code{local-abbrev-table} and @code{text-mode-abbrev-table}. (funcall expand)))) (add-hook 'foo-mode-hook - #'(lambda () - (add-function :around (local 'abbrev-expand-function) - #'foo-mode-abbrev-expand-function))) + (lambda () + (add-function :around (local 'abbrev-expand-function) + #'foo-mode-abbrev-expand-function))) @end smallexample @node Standard Abbrev Tables diff --git a/doc/lispref/backups.texi b/doc/lispref/backups.texi index b7318a99b8f..4ed1a10fcf6 100644 --- a/doc/lispref/backups.texi +++ b/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 diff --git a/doc/lispref/functions.texi b/doc/lispref/functions.texi index f31bacaed74..bc8ec0ef1b0 100644 --- a/doc/lispref/functions.texi +++ b/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" diff --git a/doc/lispref/help.texi b/doc/lispref/help.texi index eea1fd2e8f1..9b3c4fcb23d 100644 --- a/doc/lispref/help.texi +++ b/doc/lispref/help.texi @@ -175,49 +175,47 @@ All symbols that have PATTERN in their name are described in the *Help* buffer." (interactive "sDescribe symbols matching: ") (let ((describe-func - (function - (lambda (s) + (lambda (s) @end group @group - ;; @r{Print description of symbol.} - (if (fboundp s) ; @r{It is a function.} - (princ - (format "%s\t%s\n%s\n\n" s - (if (commandp s) - (let ((keys (where-is-internal s))) - (if keys - (concat - "Keys: " - (mapconcat 'key-description - keys " ")) - "Keys: none")) - "Function") + ;; @r{Print description of symbol.} + (if (fboundp s) ; @r{It is a function.} + (princ + (format "%s\t%s\n%s\n\n" s + (if (commandp s) + (let ((keys (where-is-internal s))) + (if keys + (concat + "Keys: " + (mapconcat 'key-description + keys " ")) + "Keys: none")) + "Function") @end group @group - (or (documentation s) - "not documented")))) + (or (documentation s) + "not documented")))) - (if (boundp s) ; @r{It is a variable.} + (if (boundp s) ; @r{It is a variable.} @end group @group - (princ - (format "%s\t%s\n%s\n\n" s - (if (custom-variable-p s) - "Option " "Variable") + (princ + (format "%s\t%s\n%s\n\n" s + (if (custom-variable-p s) + "Option " "Variable") @end group @group - (or (documentation-property - s 'variable-documentation) - "not documented"))))))) + (or (documentation-property + s 'variable-documentation) + "not documented")))))) sym-list) @end group @group ;; @r{Build a list of symbols that match pattern.} - (mapatoms (function - (lambda (sym) - (if (string-match pattern (symbol-name sym)) - (setq sym-list (cons sym sym-list)))))) + (mapatoms (lambda (sym) + (if (string-match pattern (symbol-name sym)) + (setq sym-list (cons sym sym-list))))) @end group @group diff --git a/doc/lispref/sequences.texi b/doc/lispref/sequences.texi index f6faf9448c2..7a3f26e584f 100644 --- a/doc/lispref/sequences.texi +++ b/doc/lispref/sequences.texi @@ -1572,14 +1572,14 @@ For example, here is how to examine the elements of the syntax table: @example (let (accumulator) (map-char-table - #'(lambda (key value) - (setq accumulator - (cons (list - (if (consp key) - (list (car key) (cdr key)) - key) - value) - accumulator))) + (lambda (key value) + (setq accumulator + (cons (list + (if (consp key) + (list (car key) (cdr key)) + key) + value) + accumulator))) (syntax-table)) accumulator) @result{} diff --git a/doc/lispref/syntax.texi b/doc/lispref/syntax.texi index ad45a8edaff..9eb99a0ac92 100644 --- a/doc/lispref/syntax.texi +++ b/doc/lispref/syntax.texi @@ -1118,9 +1118,9 @@ bidi-class}). ;; 'bidi-class' Unicode property is R, AL, or RLO -- ;; these have a right-to-left directionality. (map-char-table - #'(lambda (key val) - (if (memq val '(R AL RLO)) - (modify-category-entry key ?R category-table))) + (lambda (key val) + (if (memq val '(R AL RLO)) + (modify-category-entry key ?R category-table))) uniprop-table) category-table)) @end example diff --git a/doc/lispref/text.texi b/doc/lispref/text.texi index fe3d48b3ff5..58424a4231b 100644 --- a/doc/lispref/text.texi +++ b/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)))) + (lambda () + (while (and (not (eobp)) + (looking-at paragraph-separate)) + (forward-line 1))) 'forward-paragraph) @end group @end example -- 2.39.2