レス数が1000を超えています。残念ながら全部は表示しません。

SKK専用スレッド

459 ：456 ：01/11/29 19:24

もうちょっとましなのに作り変えてみた。
;; syntax-table ってはじめて使った。

(defvar skk-paren-syntax-table
(let ((syntable (make-syntax-table)))
(dolist (pair skk-auto-paren-string-alist)
(unless (string= (car pair) (cdr pair))
(modify-syntax-entry (string-to-char (car pair))
(concat "(" (cdr pair))
syntable)
(modify-syntax-entry (string-to-char (cdr pair))
(concat ")" (car pair))
syntable)))
syntable))

(defvar skk-default-close-paren "」")

(defun skk-insert-close-paren (arg)
(interactive "P")
(if arg
(insert skk-default-close-paren)
(let ((syntable (syntax-table)))
(set-syntax-table skk-paren-syntax-table)
(insert (or (condition-case err
(save-excursion
(up-list -1)
(cdr (assoc (char-to-string (char-after))
skk-auto-paren-string-alist)))
(error nil))
skk-default-close-paren))
(set-syntax-table syntable))))

read.cgi ver5.26+ (01/10/21-)