;;; m4-mode.el --- m4 code editing commands for Emacs
-;; Copyright (C) 1996, 1997, 2001, 2002, 2003, 2004, 2005, 2006
+;; Copyright (C) 1996, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007
;; Free Software Foundation, Inc.
;; Author: Andrew Csillag <drew_csillag@geocities.com>
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
+;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
(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