Tweak some settings of compile-command

* 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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a3b657b23ca23052fc532ff452915b77388c3768..274ca3a37306f05892747174b377ae66d1b35e5c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
 

diff --git a/lisp/obsolete/scribe.el b/lisp/obsolete/scribe.el
index 8396cce3e274c9afed3517e4cdbf1924a3512555..2ba1bb4aa76d06d0217559533028d6c05b3083ae 100644 (file)
--- a/lisp/obsolete/scribe.el
+++ b/lisp/obsolete/scribe.el
@@ -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)

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index e909f1a5e5bca48c14cb5177564eac41b1335223..8c981b36e567e1583dbdf08bf46e142758b3cc65 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -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))))

diff --git a/lisp/progmodes/mixal-mode.el b/lisp/progmodes/mixal-mode.el
index 8814cdbba35a031434fdf79686f00ace0feba577..a14654cdd7c52e9960e2b250302d2e4207e4b64d 100644 (file)
--- a/lisp/progmodes/mixal-mode.el
+++ b/lisp/progmodes/mixal-mode.el
@@ -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)