OpenXM_contrib2/windows/post-msg-asirgui/asir-mode.el - diff

Return to asir-mode.el CVS log

Up to [local] / OpenXM_contrib2 / windows / post-msg-asirgui

version 1.5, 2013/09/21 06:16:05

version 1.6, 2013/09/21 06:34:14

Line 2

;;

;; asir-mode.el -- asir mode

;;

;; $OpenXM: OpenXM_contrib2/windows/post-msg-asirgui/asir-mode.el,v 1.4 2013/09/21 03:52:05 ohara Exp $

;; $OpenXM: OpenXM_contrib2/windows/post-msg-asirgui/asir-mode.el,v 1.5 2013/09/21 06:16:05 ohara Exp $

;; This program is free software: you can redistribute it and/or modify

;; it under the terms of the GNU General Public License as published by

Line 101

"Paste region to asir"

(interactive)

(if mark-active

(save-excursion

(if (eq system-type 'windows-nt)

(let ((buffer (current-buffer))

(let ((temp-file (make-temp-file (format "%s/cmdasir-" (getenv "TEMP"))))

(start (region-beginning))

(exec-path (asir-effective-exec-path)))

(end (region-end)))

(write-region (region-beginning) (region-end) temp-file)

(set-buffer asir-cmd-buffer-name)

(start-process "asir-proc-cmdasir" nil "cmdasir" "--paste-contents" temp-file))

(goto-char (point-max))

(save-excursion

(insert-buffer-substring buffer start end)

(let ((buffer (current-buffer))

(comint-send-input)))))

(start (region-beginning))

(end (region-end)))

(set-buffer asir-cmd-buffer-name)

(goto-char (point-max))

(insert-buffer-substring buffer start end)

(comint-send-input))))))

;;;; Extension for CC-mode.