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.13, 2013/11/27 17:18:07

version 1.16, 2021/03/14 23:21:21

Line 2

;;

;; asir-mode.el -- asir mode

;;

;; $OpenXM: OpenXM_contrib2/windows/post-msg-asirgui/asir-mode.el,v 1.12 2013/11/27 13:39:08 ohara Exp $

;; $OpenXM: OpenXM_contrib2/windows/post-msg-asirgui/asir-mode.el,v 1.15 2021/02/24 23:10:32 takayama 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 37

;; C-c p Selected region is pasted to Asir.

(require 'shell)

(require 'cl)

;;;; AsirGUI for Windows

(defvar asir-exec-path '("~/Desktop/asir/bin" "c:/Program Files/asir/bin" "c:/Program Files (x64)/asir/bin" "c:/asir/bin")

Line 92

Line 93

(shell (get-buffer-create asir-cmd-buffer-name)))

(sleep-for 1)

(goto-char (point-max))

(insert "asir")

(insert "openxm asir")

(comint-send-input)

(select-frame current-frame))))))

Line 1252 Key bindings:

Line 1253 Key bindings:

((and (eq char-after-ip ?{)

(progn

(setq placeholder (c-inside-bracelist-p (point)

paren-state))

paren-state nil))

(if placeholder

(setq tmpsymbol '(brace-list-open . inexpr-class))

(setq tmpsymbol '(block-open . inexpr-statement)

Line 1375 Key bindings:

Line 1376 Key bindings:

(save-excursion

(goto-char containing-sexp)

(c-looking-at-special-brace-list)))

(c-inside-bracelist-p containing-sexp paren-state))))

(c-inside-bracelist-p containing-sexp paren-state t))))

(cond

;; CASE 9A: In the middle of a special brace list opener.