@example
(add-hook 'c-mode-common-hook
- '(lambda () (c-toggle-auto-hungry-state 1)))
+ (lambda () (c-toggle-auto-hungry-state 1)))
@end example
@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}.
@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
(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
@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
@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? ")
@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