Mercurial > emacs

comparison lisp/progmodes/compile.el @ 19007:1606d5205bbc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compile-command): More doc fix.
author Richard M. Stallman <rms@gnu.org>
date Sun, 27 Jul 1997 19:25:02 +0000
parents 528cead9a6c3
children 2f112911cf81
comparison
equal deleted inserted replaced
19006:8a0265f609ff 19007:1606d5205bbc
420 "*Last shell command used to do a compilation; default for next compilation. 420 "*Last shell command used to do a compilation; default for next compilation.
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 (add-hook 'c-mode-hook
426 (lambda () 426 (function
427 (unless (or (file-exists-p \"makefile\") 427 (lambda ()
428 (file-exists-p \"Makefile\")) 428 (unless (or (file-exists-p \"makefile\")
429 (make-local-variable 'compile-command) 429 (file-exists-p \"Makefile\"))
430 (setq compile-command 430 (make-local-variable 'compile-command)
431 (concat \"make -k \" 431 (setq compile-command
432 (file-name-sans-extension buffer-file-name))))))" 432 (concat \"make -k \"
433 (file-name-sans-extension buffer-file-name)))))))"
433 :type 'string 434 :type 'string
434 :group 'compilation) 435 :group 'compilation)
435 436
436 (defvar compilation-directory-stack nil 437 (defvar compilation-directory-stack nil
437 "Stack of previous directories for `compilation-leave-directory-regexp'. 438 "Stack of previous directories for `compilation-leave-directory-regexp'.