- Title
- syntax-table
- Type
- Function
- Arguments
- syntax-table &optional BUFFER
- Package
- editor
- Section
- シンタックス
- File
- builtin.l
現在のシンタックステーブルを取り出します。
使用例:
;;; evalして挿入
(defun xmldoc-eval-and-insert ()
(interactive "p")
(let ((syntab (syntax-table))) ;;現在のxmldocモードのsyntax-tableを取り出し
(let (from to col str start end)
(cond ((selection-start-end (start end)
(setq from start to end)))
(t
;;一時的にlispに切り替えて
(use-syntax-table ed::*lisp-mode-syntax-table*)
(unwind-protect
(setq from (progn
(backward-sexp)
(point))
to (progn
(forward-sexp)
(point)))
;; また元に戻す
(use-syntax-table syntab))))