Commit 14a570af authored by Mattias Engdegård's avatar Mattias Engdegård

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.
parent d5ec18c6
Pipeline #5316 passed with stage
in 55 minutes and 52 seconds
......@@ -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
......
......@@ -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
......
......@@ -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"
......
......@@ -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
(lambda (sym)
(mapatoms (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
......
......@@ -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)
......
......@@ -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)
......
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment