diff man/faq.texi @ 28344:54fda0e8528a

Weed out redundant uses of `function'

--- a/man/faq.texi	Mon Mar 27 04:20:08 2000 +0000
+++ b/man/faq.texi	Mon Mar 27 04:29:55 2000 +0000
@@ -1237,9 +1237,8 @@
   (file-error nil))
 
 (add-hook 'XXX-mode-hook
-          (function
-            (lambda ()
-             (setq abbrev-mode t))))
+          (lambda ()
+           (setq abbrev-mode t)))
 @end lisp
 
 @node Turning on auto-fill by default, Associating modes with files, Turning on abbrevs by default, Common requests
@@ -1389,9 +1388,8 @@
 
 @lisp
 (add-hook 'XXX-mode-hook
-      (function
-       (lambda ()
-         (setq case-fold-search nil))))
+          (lambda ()
+           (setq case-fold-search nil)))
 @end lisp
 
 @node Wrapping words automatically, Spell-checkers, Controlling case sensitivity, Common requests
@@ -2014,8 +2012,8 @@
 
 @lisp
 (add-hook 'dired-load-hook
-          (function (lambda ()
-                      (load "dired-x"))))
+          (lambda ()
+           (load "dired-x")))
 @end lisp
 
 With dired-x loaded, @kbd{M-o} toggles omitting in each dired buffer.
@@ -3802,8 +3800,8 @@
 
 @lisp
 (add-hook 'tex-mode-hook
-  (function (lambda ()
-    (local-set-key (quote [f1]) (quote help-for-help)))))
+  (lambda ()
+   (local-set-key (quote [f1]) (quote help-for-help))))
 @end lisp
 
 
@@ -3868,13 +3866,11 @@
 variable to this "lambda function."  For example,
 
 @lisp
-(setq term-setup-hook
-      (function
-       (lambda ()
-         (cond ((string-match "\\`vt220" (or (getenv "TERM") ""))
-                ;; Make vt220's "Do" key behave like M-x:
-                (global-set-key [do] 'execute-extended-command))
-               ))))
+(add-hook 'term-setup-hook
+          (lambda ()
+           (when (string-match "\\`vt220" (or (getenv "TERM") ""))
+             ;; Make vt220's "Do" key behave like M-x:
+             (global-set-key [do] 'execute-extended-command))))
 @end lisp
 
 For information on what Emacs does every time it is started, see the