[BACK]Return to asir-mode.el CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / windows / post-msg-asirgui

Diff for /OpenXM_contrib2/windows/post-msg-asirgui/asir-mode.el between version 1.13 and 1.15

version 1.13, 2013/11/27 17:18:07 version 1.15, 2021/02/24 23:10:32
Line 2 
Line 2 
 ;;  ;;
 ;; asir-mode.el -- asir mode  ;; 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.14 2014/12/01 19:27:01 ohara 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
Line 37 
Line 37 
 ;; C-c p     Selected region is pasted to Asir.  ;; C-c p     Selected region is pasted to Asir.
   
 (require 'shell)  (require 'shell)
   (require 'cl)
   
 ;;;; AsirGUI for Windows  ;;;; AsirGUI for Windows
 (defvar asir-exec-path '("~/Desktop/asir/bin" "c:/Program Files/asir/bin" "c:/Program Files (x64)/asir/bin" "c:/asir/bin")  (defvar asir-exec-path '("~/Desktop/asir/bin" "c:/Program Files/asir/bin" "c:/Program Files (x64)/asir/bin" "c:/asir/bin")
Line 1252  Key bindings:
Line 1253  Key bindings:
            ((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)
Line 1375  Key bindings:
Line 1376  Key bindings:
                               (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.

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.15

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>