mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

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

Browse Source 
Use m4-program-options to construct shell command.
This commit is contained in:
Thien-Thi Nguyen 2007-03-23 14:12:02 +00:00
parent 7a147065e4
commit 39db15c998
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

11
lisp/progmodes/m4-mode.el
View File

@ -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