[Emacs-diffs] trunk r113834: Tweak some settings of compile-command

[Glenn Morris]

------------------------------------------------------------
revno: 113834
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/15053
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2013-08-13 00:56:43 -0700
message:
  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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/obsolete/scribe.el        scribe.el-20091113204419-o5vbwnq5f7feedwu-2584
  lisp/progmodes/compile.el      compile.el-20091113204419-o5vbwnq5f7feedwu-126
  lisp/progmodes/mixal-mode.el   
mixalmode.el-20091113204419-o5vbwnq5f7feedwu-2928

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-13 07:42:51 +0000
+++ b/lisp/ChangeLog    2013-08-13 07:56:43 +0000
@@ -1,5 +1,9 @@
 2013-08-13  Glenn Morris  <address@hidden>
 
+       * 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.
 

=== modified file 'lisp/obsolete/scribe.el'
--- a/lisp/obsolete/scribe.el   2013-01-01 09:11:05 +0000
+++ b/lisp/obsolete/scribe.el   2013-08-13 07:56:43 +0000
@@ -144,7 +144,9 @@
   (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)

=== modified file 'lisp/progmodes/compile.el'
--- a/lisp/progmodes/compile.el 2013-08-05 14:26:57 +0000
+++ b/lisp/progmodes/compile.el 2013-08-13 07:56:43 +0000
@@ -624,7 +624,9 @@
                     (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))))

=== modified file 'lisp/progmodes/mixal-mode.el'
--- a/lisp/progmodes/mixal-mode.el      2013-01-01 09:11:05 +0000
+++ b/lisp/progmodes/mixal-mode.el      2013-08-13 07:56:43 +0000
@@ -1113,8 +1113,10 @@
        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)