procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tweak some settings of compile-command

Browse source 
* progmodes/compile.el (compile-command): Tweak example in doc.
* obsolete/scribe.el (scribe-mode):
* progmodes/mixal-mode.el (mixal-mode): Quote buffer name.

Fixes: debbugs:15053
This commit is contained in:
Glenn Morris 2013-08-13 00:56:43 -07:00
parent f0024d8c0d
commit 55e47f950d
4 changed files with 14 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
2013-08-13 Glenn Morris <rgm@gnu.org>
* progmodes/compile.el (compile-command): Tweak example in doc.
* obsolete/scribe.el (scribe-mode):
* progmodes/mixal-mode.el (mixal-mode): Quote buffer name. (Bug#15053)
* mail/feedmail.el (feedmail-confirm-outgoing)
(feedmail-display-full-frame, feedmail-deduce-bcc-where): Fix types.

4
lisp/obsolete/scribe.el
View file

@ -144,7 +144,9 @@ Interesting variables:
(set (make-local-variable 'sentence-end)
"\\([.?!]\\|@:\\)[]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*")
(set (make-local-variable 'compile-command)
(concat "scribe " (buffer-file-name))))
(concat "scribe "
(if buffer-file-name
(shell-quote-argument (buffer-file-name))))))
(defun scribe-tab ()
(interactive)

4
lisp/progmodes/compile.el
View file

@ -624,7 +624,9 @@ You might also use mode hooks to specify it in certain modes, like this:
(file-exists-p \"Makefile\"))
(set (make-local-variable 'compile-command)
(concat \"make -k \"
(file-name-sans-extension buffer-file-name))))))"
(if buffer-file-name
(shell-quote-argument
(file-name-sans-extension buffer-file-name))))))))"
:type 'string
:group 'compilation)
;;;###autoload(put 'compile-command 'safe-local-variable (lambda (a) (and (stringp a) (or (not (boundp 'compilation-read-command)) compilation-read-command))))

6
lisp/progmodes/mixal-mode.el
View file

@ -1113,8 +1113,10 @@ Assumes that file has been compiled with debugging support."
mixal-syntax-propertize-function)
;; might add an indent function in the future
;; (set (make-local-variable 'indent-line-function) 'mixal-indent-line)
(set (make-local-variable 'compile-command) (concat "mixasm "
buffer-file-name)))
(set (make-local-variable 'compile-command)
(concat "mixasm "
(if buffer-file-name
(shell-quote-argument buffer-file-name)))))
(provide 'mixal-mode)