Mercurial > emacs
comparison lisp/progmodes/compile.el @ 106777:e96c7312f94c
Fix compile-command's safe-local-variable condition.
* progmodes/compile.el: Don't treat compile-command as safe if
compilation-read-command might be nil (Bug#4218).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 09 Jan 2010 15:53:55 -0500 |
| parents | 3f64b8380468 |
| children | 57e095b90f5b |
comparison
equal
deleted
inserted
replaced
| 106776:7a2c06c2f19c | 106777:e96c7312f94c |
|---|---|
| 601 (set (make-local-variable 'compile-command) | 601 (set (make-local-variable 'compile-command) |
| 602 (concat \"make -k \" | 602 (concat \"make -k \" |
| 603 (file-name-sans-extension buffer-file-name))))))" | 603 (file-name-sans-extension buffer-file-name))))))" |
| 604 :type 'string | 604 :type 'string |
| 605 :group 'compilation) | 605 :group 'compilation) |
| 606 ;;;###autoload(put 'compile-command 'safe-local-variable 'stringp) | 606 ;;;###autoload(put 'compile-command 'safe-local-variable (lambda (a) (and (stringp a) (or (not (boundp 'compilation-read-command)) compilation-read-command)))) |
| 607 | 607 |
| 608 ;;;###autoload | 608 ;;;###autoload |
| 609 (defcustom compilation-disable-input nil | 609 (defcustom compilation-disable-input nil |
| 610 "If non-nil, send end-of-file as compilation process input. | 610 "If non-nil, send end-of-file as compilation process input. |
| 611 This only affects platforms that support asynchronous processes (see | 611 This only affects platforms that support asynchronous processes (see |