mirror of
https://github.com/joaotavora/yasnippet.git
synced 2025-10-13 21:13:04 +00:00
* Fix issue 88
* Implement enhacement of issue 90
This commit is contained in:
parent
5fe5e127fd
commit
5a9ab30982
17
yasnippet.el
17
yasnippet.el
@ -717,9 +717,13 @@ behaviour.")
|
|||||||
(make-variable-buffer-local 'yas/dont-activate)
|
(make-variable-buffer-local 'yas/dont-activate)
|
||||||
|
|
||||||
(defun yas/minor-mode-on ()
|
(defun yas/minor-mode-on ()
|
||||||
"Turn on YASnippet minor mode."
|
"Turn on YASnippet minor mode.
|
||||||
|
|
||||||
|
Do this unless `yas/dont-activate' is t or the function
|
||||||
|
`yas/get-snippet-tables' (which see), returns an empty list."
|
||||||
(interactive)
|
(interactive)
|
||||||
(unless yas/dont-activate
|
(unless (or yas/dont-activate
|
||||||
|
(null (yas/get-snippet-tables)))
|
||||||
(yas/minor-mode 1)))
|
(yas/minor-mode 1)))
|
||||||
|
|
||||||
(defun yas/minor-mode-off ()
|
(defun yas/minor-mode-off ()
|
||||||
@ -1052,10 +1056,15 @@ already have such a property."
|
|||||||
(defun yas/get-snippet-tables (&optional mode-symbol dont-search-parents)
|
(defun yas/get-snippet-tables (&optional mode-symbol dont-search-parents)
|
||||||
"Get snippet tables for current buffer.
|
"Get snippet tables for current buffer.
|
||||||
|
|
||||||
Return tables in this order: optional MODE-SYMBOL, then
|
Return a list of 'yas/snippet-table' objects indexed by mode.
|
||||||
|
|
||||||
|
The modes are tried in this order: optional MODE-SYMBOL, then
|
||||||
`yas/mode-symbol', then `major-mode' then, unless
|
`yas/mode-symbol', then `major-mode' then, unless
|
||||||
DONT-SEARCH-PARENTS is non-nil, the guessed parent mode of either
|
DONT-SEARCH-PARENTS is non-nil, the guessed parent mode of either
|
||||||
MODE-SYMBOL or `major-mode'."
|
MODE-SYMBOL or `major-mode'.
|
||||||
|
|
||||||
|
Guessing is done by looking up the MODE-SYMBOL's
|
||||||
|
`derived-mode-parent' property, see also `derived-mode-p'."
|
||||||
(let ((mode-tables
|
(let ((mode-tables
|
||||||
(mapcar #'(lambda (mode)
|
(mapcar #'(lambda (mode)
|
||||||
(gethash mode yas/snippet-tables))
|
(gethash mode yas/snippet-tables))
|
||||||
|
Loading…
x
Reference in New Issue
Block a user