(m4-m4-buffer, m4-m4-region): Fix omission bug:

Use m4-program-options to construct shell command.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cfd79d1772d81696a3c33313ab5d99910ce0a6b1..a4a8c3c67bbb2fdf43b02b9a8c9aed1114a60006 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-03-23  David Vazquez  <xeos00@gmail.com>  (tiny change)
+
+       * progmodes/m4-mode.el (m4-m4-buffer, m4-m4-region): Fix
+       omission bug: Use m4-program-options to construct shell command.
+
 2007-03-23  David Kastrup  <dak@gnu.org>
 
        * progmodes/cc-mode.el (c-make-emacs-variables-local): Use

diff --git a/lisp/progmodes/m4-mode.el b/lisp/progmodes/m4-mode.el
index 734a86b0b991745d69cc4c3428e086316e6e447e..bd31f731693e8d7023d7fbdbb894c15cfdfad221 100644 (file)
--- a/lisp/progmodes/m4-mode.el
+++ b/lisp/progmodes/m4-mode.el
@@ -118,14 +118,19 @@
 (defun m4-m4-buffer ()
   "Send contents of the current buffer to m4."
   (interactive)
-  (shell-command-on-region (point-min) (point-max) m4-program "*m4-output*"
-                          nil)
+  (shell-command-on-region
+   (point-min) (point-max)
+   (mapconcat 'identity (cons m4-program m4-program-options) "\s")
+   "*m4-output*" nil)
   (switch-to-buffer-other-window "*m4-output*"))
 
 (defun m4-m4-region ()
   "Send contents of the current region to m4."
   (interactive)
-  (shell-command-on-region (point) (mark) m4-program "*m4-output*" nil)
+  (shell-command-on-region
+   (point) (mark)
+   (mapconcat 'identity (cons m4-program m4-program-options) "\s")
+   "*m4-output*" nil)
   (switch-to-buffer-other-window "*m4-output*"))
 
 ;;;###autoload