Commit 43aef553 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

Don't quote lambdas.

parent 8b262a65
......@@ -611,7 +611,7 @@ to your @file{.emacs} file:
@example
(add-hook 'c-mode-common-hook
'(lambda () (c-toggle-auto-hungry-state 1)))
(lambda () (c-toggle-auto-hungry-state 1)))
@end example
......
......@@ -1417,14 +1417,9 @@ to add local bindings (not very useful, we admit) for @kbd{C-c n} and
@example
(add-hook 'texinfo-mode-hook
'(lambda ()
(define-key texinfo-mode-map
"\C-cp"
'backward-paragraph)
(define-key texinfo-mode-map
"\C-cn"
'forward-paragraph)
))
(lambda ()
(define-key texinfo-mode-map "\C-cp" 'backward-paragraph)
(define-key texinfo-mode-map "\C-cn" 'forward-paragraph)))
@end example
@xref{Hooks}.
......@@ -2167,7 +2162,7 @@ Turn on Auto Fill mode automatically in Text mode and related modes.
@example
(add-hook 'text-mode-hook
'(lambda () (auto-fill-mode 1)))
(lambda () (auto-fill-mode 1)))
@end example
This shows how to add a hook function to a normal hook variable
......
......@@ -4610,9 +4610,9 @@ best fix I've been able to come up with:
(rmail-reply t))
(add-hook 'rmail-mode-hook
'(lambda ()
(define-key rmail-mode-map "r" 'rmail-reply-t)
(define-key rmail-mode-map "R" 'rmail-reply)))
(lambda ()
(define-key rmail-mode-map "r" 'rmail-reply-t)
(define-key rmail-mode-map "R" 'rmail-reply)))
@end lisp
@node MIME with Emacs mail packages, Automatically starting a mail or news reader, Replying to the sender of a message, Mail and news
......@@ -4737,7 +4737,7 @@ automatically via
@lisp
(add-hook 'gnus-article-prepare-hook
'(lambda () (ununderline-region (point-min) (point-max))))
(lambda () (ununderline-region (point-min) (point-max))))
@end lisp
@node Saving a multi-part Gnus posting, Starting Gnus faster, Viewing articles with embedded underlining, Mail and news
......
......@@ -21015,7 +21015,7 @@ Mac, MS (etc) characters into ISO 8859-1.
@item
@example
(add-hook 'gnus-exit-query-functions
'(lambda ()
(lambda ()
(if (and (file-exists-p nnmail-spool-file)
(> (nnheader-file-size nnmail-spool-file) 0))
(yes-or-no-p "New mail has arrived. Quit Gnus anyways? ")
......
......@@ -350,13 +350,13 @@ expansion as well. Here's how to do that:
@smallexample
(add-hook 'mail-setup-hook
'(lambda ()
(substitute-key-definition
'next-line 'mail-abbrev-next-line
mail-mode-map global-map)
(substitute-key-definition
'end-of-buffer 'mail-abbrev-end-of-buffer
mail-mode-map global-map)))
(lambda ()
(substitute-key-definition
'next-line 'mail-abbrev-next-line
mail-mode-map global-map)
(substitute-key-definition
'end-of-buffer 'mail-abbrev-end-of-buffer
mail-mode-map global-map)))
@end smallexample
@node Mail Mode
......
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