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

Make overlay-modification protection optional

Browse Source 
* yasnippet.el (yas-inhibit-overlay-modification-protection): New
variable.
(yas--on-protection-overlay-modification): Consult it.
This commit is contained in:
Noam Postavsky 2019-04-14 14:29:04 -04:00
parent bae20af3de
commit fc33b2fbae
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
yasnippet.el
View File

@ -567,6 +567,16 @@ This is useful to control whether snippet navigation bindings
override `keymap' overlay property bindings from other packages." override `keymap' overlay property bindings from other packages."
:type 'integer) :type 'integer)
(defcustom yas-inhibit-overlay-modification-protection nil
"If nil, changing text outside the active field aborts the snippet.
This protection is intended to prevent yasnippet from ending up
in an inconsistent state. However, some packages (e.g., the
company completion package) may trigger this protection when it
is not needed. In that case, setting this variable to non-nil
can be useful."
;; See also `yas--on-protection-overlay-modification'.
:type 'boolean)
;;; Internal variables ;;; Internal variables
@ -3931,6 +3941,7 @@ Move the overlays, or create them if they do not exit."
(defun yas--on-protection-overlay-modification (_overlay after? beg end &optional length) (defun yas--on-protection-overlay-modification (_overlay after? beg end &optional length)
"Commit the snippet if the protection overlay is being killed." "Commit the snippet if the protection overlay is being killed."
(unless (or yas--inhibit-overlay-hooks (unless (or yas--inhibit-overlay-hooks
yas-inhibit-overlay-modification-protection
(not after?) (not after?)
(= length (- end beg)) ; deletion or insertion (= length (- end beg)) ; deletion or insertion
(yas--undo-in-progress)) (yas--undo-in-progress))