Closes #235: implement yas--init-yas-in-snippet-keymap

This commit is contained in:
João Távora 2012-08-02 08:22:14 +01:00
parent f35d2dba11
commit cffd1aa095

View File

@ -426,7 +426,11 @@ the trigger key itself."
(dolist (key keys)
(define-key keymap (read-kbd-macro key) definition))))
(defvar yas-keymap
(defvar yas-keymap (yas--init-yas-in-snippet-keymap)
"The keymap active while a snippet expansion is in progress.")
(defun yas--init-yas-in-snippet-keymap ()
(setq yas-keymap
(let ((map (make-sparse-keymap)))
(mapc #'(lambda (binding)
(yas--define-some-keys (car binding) map (cdr binding)))
@ -434,8 +438,7 @@ the trigger key itself."
(,yas-prev-field-key . yas-prev-field)
("C-g" . yas-abort-snippet)
(,yas-skip-and-clear-key . yas-skip-and-clear-or-delete-char)))
map)
"The keymap active while a snippet expansion is in progress.")
map)))
(defvar yas-key-syntaxes (list "w" "w_" "w_." "w_.()" "^ ")
"List of character syntaxes used to find a trigger key before point.