Mercurial > emacs

comparison lisp/progmodes/compile.el @ 18987:528cead9a6c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compile-command): Doc fix.
author Richard M. Stallman <rms@gnu.org>
date Fri, 25 Jul 1997 19:02:00 +0000
parents d2c26a873eb4
children 1606d5205bbc
comparison
equal deleted inserted replaced
18986:d22331526e2d 18987:528cead9a6c3
421 421
422 Sometimes it is useful for files to supply local values for this variable. 422 Sometimes it is useful for files to supply local values for this variable.
423 You might also use mode hooks to specify it in certain modes, like this: 423 You might also use mode hooks to specify it in certain modes, like this:
424 424
425 (setq c-mode-hook 425 (setq c-mode-hook
426 '(lambda () (or (file-exists-p \"makefile\") (file-exists-p \"Makefile\") 426 (lambda ()
427 (progn (make-local-variable 'compile-command) 427 (unless (or (file-exists-p \"makefile\")
428 (setq compile-command 428 (file-exists-p \"Makefile\"))
429 (concat \"make -k \" 429 (make-local-variable 'compile-command)
430 buffer-file-name))))))" 430 (setq compile-command
431 (concat \"make -k \"
432 (file-name-sans-extension buffer-file-name))))))"
431 :type 'string 433 :type 'string
432 :group 'compilation) 434 :group 'compilation)
433 435
434 (defvar compilation-directory-stack nil 436 (defvar compilation-directory-stack nil
435 "Stack of previous directories for `compilation-leave-directory-regexp'. 437 "Stack of previous directories for `compilation-leave-directory-regexp'.