procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(m4-m4-region, m4-m4-buffer): Use shell-command-on-region.

Browse source 
(m4-start-m4, m4-end-m4): Functions deleted.
This commit is contained in:
Richard M. Stallman 1998-12-30 19:02:31 +00:00
parent bd3ac67e7b
commit 5119b7a78f
1 changed files with 5 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

25
lisp/progmodes/m4-mode.el
View file

@ -108,33 +108,18 @@
(define-key map "\C-c\C-c" 'comment-region)
map))
(defun m4-end-m4 (process event)
(cond ((equal event "kill\n") (princ "m4 process done"))
(t (princ
(format "Process: %s had the event `%s'" process event)))))
(defun m4-start-m4 ()
(eval (append (append '(start-process "m4process" "*m4 output*" m4-program)
m4-program-options) '("-e")))
(set-process-sentinel (get-process "m4process") 'm4-end-m4))
(defun m4-m4-buffer ()
"send contents of the current buffer to m4"
(interactive)
(m4-start-m4)
(process-send-region "m4process" (point-min) (point-max))
(process-send-eof "m4process")
(switch-to-buffer-other-window "*m4 output*")
(delete-process "m4process"))
(shell-command-on-region (point-min) (point-max) m4-program "*m4-output*"
nil)
(switch-to-buffer-other-window "*m4-output*"))
(defun m4-m4-region ()
"send contents of the current region to m4"
(interactive)
(m4-start-m4)
(process-send-region "m4process" (point) (mark))
(process-send-eof "m4process")
(switch-to-buffer-other-window "*m4 output*"))
(shell-command-on-region (point) (mark) m4-program "*m4-output*" nil)
(switch-to-buffer-other-window "*m4-output*"))
;;;###autoload
(defun m4-mode ()