(compile-command): More doc fix.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 01bbef5afea43724cc7082604c9804ad5d74cc87..cca20639a0cbb9c6476368ddce99112468a6f29e 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -422,14 +422,15 @@ nil as an element means to try the default directory."
 Sometimes it is useful for files to supply local values for this variable.
 You might also use mode hooks to specify it in certain modes, like this:
 
-    (setq c-mode-hook
-      (lambda ()
-       (unless (or (file-exists-p \"makefile\")
-                   (file-exists-p \"Makefile\"))
-         (make-local-variable 'compile-command)
-         (setq compile-command
-               (concat \"make -k \"
-                       (file-name-sans-extension buffer-file-name))))))"
+    (add-hook 'c-mode-hook
+      (function
+       (lambda ()
+        (unless (or (file-exists-p \"makefile\")
+                    (file-exists-p \"Makefile\"))
+          (make-local-variable 'compile-command)
+          (setq compile-command
+                (concat \"make -k \"
+                        (file-name-sans-extension buffer-file-name)))))))"
   :type 'string
   :group 'compilation)