version 1.14, 2014/12/01 19:27:01 |
version 1.16, 2021/03/14 23:21:21 |
|
|
;; |
;; |
;; asir-mode.el -- asir mode |
;; asir-mode.el -- asir mode |
;; |
;; |
;; $OpenXM: OpenXM_contrib2/windows/post-msg-asirgui/asir-mode.el,v 1.13 2013/11/27 17:18:07 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 |
;; 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 |
;; it under the terms of the GNU General Public License as published by |
|
|
(shell (get-buffer-create asir-cmd-buffer-name))) |
(shell (get-buffer-create asir-cmd-buffer-name))) |
(sleep-for 1) |
(sleep-for 1) |
(goto-char (point-max)) |
(goto-char (point-max)) |
(insert "asir") |
(insert "openxm asir") |
(comint-send-input) |
(comint-send-input) |
(select-frame current-frame)))))) |
(select-frame current-frame)))))) |
|
|
|
|
((and (eq char-after-ip ?{) |
((and (eq char-after-ip ?{) |
(progn |
(progn |
(setq placeholder (c-inside-bracelist-p (point) |
(setq placeholder (c-inside-bracelist-p (point) |
paren-state)) |
paren-state nil)) |
(if placeholder |
(if placeholder |
(setq tmpsymbol '(brace-list-open . inexpr-class)) |
(setq tmpsymbol '(brace-list-open . inexpr-class)) |
(setq tmpsymbol '(block-open . inexpr-statement) |
(setq tmpsymbol '(block-open . inexpr-statement) |
|
|
(save-excursion |
(save-excursion |
(goto-char containing-sexp) |
(goto-char containing-sexp) |
(c-looking-at-special-brace-list))) |
(c-looking-at-special-brace-list))) |
(c-inside-bracelist-p containing-sexp paren-state)))) |
(c-inside-bracelist-p containing-sexp paren-state t)))) |
(cond |
(cond |
|
|
;; CASE 9A: In the middle of a special brace list opener. |
;; CASE 9A: In the middle of a special brace list opener. |