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

; Don't enter debugger for kill-all-local-variables case

Browse Source 
* yasnippet.el (yas--watch-auto-fill): If we're called from
kill-all-local-variables, we don't need to check this, because
auto-fill-function will shortly be set to nil as well.
This commit is contained in:
Noam Postavsky 2018-03-18 09:29:29 -04:00
parent ae95810289
commit a0d2cff79b
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
yasnippet.el
View File

@ -582,8 +582,16 @@ override bindings from other packages (e.g., `company-mode')."
"The original value of `auto-fill-function'.") "The original value of `auto-fill-function'.")
(make-variable-buffer-local 'yas--original-auto-fill-function) (make-variable-buffer-local 'yas--original-auto-fill-function)
(defun yas--watch-auto-fill (_sym newval _op _where) (defun yas--watch-auto-fill (_sym newval op _where)
(when (and (null newval) (eq auto-fill-function 'yas--auto-fill)) (when (and (null newval) (eq auto-fill-function 'yas--auto-fill)
(fboundp 'backtrace-frames) ; Suppress compiler warning.
;; If we're about to change `auto-fill-function' too,
;; it's okay (probably).
(not (and (eq op 'makunbound)
(not (eq (default-value 'auto-fill-function) 'yas--auto-fill))
(cl-member 'kill-all-local-variables
(backtrace-frames 'yas--watch-auto-fill)
:key (lambda (frame) (nth 1 frame))))))
(debug nil "`yas--original-auto-fill-function' unexpectedly nil! Please report this backtrace (hit `c' to continue)")) ) (debug nil "`yas--original-auto-fill-function' unexpectedly nil! Please report this backtrace (hit `c' to continue)")) )
;; Try to get more info on #873/919 (this only works for Emacs 26+). ;; Try to get more info on #873/919 (this only works for Emacs 26+).