Remove spurious change of before-change-functions

Found by OGAWA Hirofumi in
<https://github.com/joaotavora/yasnippet/issues/953>.
* yasnippet.el (yas--save-backquotes): Don't remove first entry of
before-change-functions.
This commit is contained in:
Noam Postavsky 2018-09-16 17:15:26 -04:00
parent 1e71360868
commit 7a178a2ca0

View File

@ -4505,8 +4505,7 @@ Lisp expression."
current-string '(?`)))))) current-string '(?`))))))
(goto-char (match-beginning 0)) (goto-char (match-beginning 0))
(when transformed (when transformed
(let ((marker (make-marker)) (let ((marker (make-marker)))
(before-change-functions (cdr before-change-functions)))
(yas--save-restriction-and-widen (yas--save-restriction-and-widen
(insert "Y") ;; quite horrendous, I love it :) (insert "Y") ;; quite horrendous, I love it :)
(set-marker marker (point)) (set-marker marker (point))