ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-13 21:13:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

a better method to bind <tab> key and a better fall-back

Browse Source
This commit is contained in:
Zhang Chiyuan 2008-03-07 10:36:40 +00:00
parent 7ee3296d56
commit 926766ce80
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
yasnippet.el
View File

@ -57,9 +57,9 @@ will first try \"bar\", if not found, then \"foo-bar\" is tried.")
current column if this variable is non-`nil'.") current column if this variable is non-`nil'.")
(make-variable-buffer-local 'yas/indent-line) (make-variable-buffer-local 'yas/indent-line)
(defvar yas/trigger-keys (list (kbd "TAB")) (defvar yas/trigger-key (kbd "<tab>")
"The keys to bind as a trigger of snippet.") "The key to bind as a trigger of snippet.")
(defvar yas/trigger-fallback 'indent-according-to-mode (defvar yas/trigger-fallback 'yas/default-trigger-fallback
"The fallback command to call when there's no snippet to expand.") "The fallback command to call when there's no snippet to expand.")
(make-variable-buffer-local 'yas/trigger-fallback) (make-variable-buffer-local 'yas/trigger-fallback)
@ -624,6 +624,20 @@ hierarchy."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; User level functions ;; User level functions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun yas/default-trigger-fallback ()
"Default fallback when a snippet expansion failed.
The default behavior is first lookup if there's binding for <tab>
in local keymap. If found, execute it. If not found, then look up
binding for TAB. If still not found, run `indent-for-tab-command'."
(interactive)
(let ((command (local-key-binding (kbd "<tab>"))))
(if command
(call-interactively command)
(setq command (key-binding (kbd "TAB")))
(if command
(call-interactively command)
(call-interactively 'indent-for-tab-command)))))
(defun yas/about () (defun yas/about ()
(interactive) (interactive)
(message (concat "yasnippet (version " (message (concat "yasnippet (version "
@ -652,8 +666,7 @@ content of the file is the template."
(defun yas/initialize () (defun yas/initialize ()
"Do necessary initialization." "Do necessary initialization."
(dolist (key yas/trigger-keys) (global-set-key yas/trigger-key 'yas/expand)
(global-set-key key 'yas/expand))
(when yas/use-menu (when yas/use-menu
(define-key-after (define-key-after
(lookup-key global-map [menu-bar]) (lookup-key global-map [menu-bar])