# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 870031502 0
# Node ID 1606d5205bbc2262ba1f492f5f4b5fdebb4d14a4
# Parent  8a0265f609fff861d2ea77342f0d9d4305a022ed
(compile-command): More doc fix.

diff -r 8a0265f609ff -r 1606d5205bbc lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Sun Jul 27 01:54:56 1997 +0000
+++ b/lisp/progmodes/compile.el	Sun Jul 27 19:25:02 1997 +0000
@@ -422,14 +422,15 @@
 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)