From 39db15c9989e0a2d2888f9d2003404f36a881e63 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Fri, 23 Mar 2007 14:12:02 +0000 Subject: [PATCH] (m4-m4-buffer, m4-m4-region): Fix omission bug: Use m4-program-options to construct shell command. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/m4-mode.el | 11 ++++++++--- 2 files changed, 13 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cfd79d1772d..a4a8c3c67bb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-03-23 David Vazquez (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 * 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 734a86b0b99..bd31f731693 100644 --- 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 -- 2.39.5