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

fix: possibly fragile fix for zero-length field/mirror bug

Browse Source
This commit is contained in:
Joao Tavora 2013-10-14 15:12:06 +01:00
parent 1f1edb6d4e
commit 2d0a1b831d
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
snippet.el
View File

@ -122,8 +122,12 @@
(set-marker-insertion-type end t))
(defun snippet--close-markers (start end)
(set-marker-insertion-type start t)
(set-marker-insertion-type end nil))
(cond ((= start end)
(set-marker-insertion-type start t)
(set-marker-insertion-type end t))
(t
(set-marker-insertion-type start t)
(set-marker-insertion-type end nil))))
(defun snippet--call-with-current-object (object fn)
(let* ((start (snippet--object-start-marker object))
@ -517,10 +521,16 @@ can be:
(defun test ()
(interactive)
(with-current-buffer (switch-to-buffer (get-buffer-create "*test*"))
(with-current-buffer (switch-to-buffer (get-buffer-create "*test easy snippet*"))
(erase-buffer)
(easy)))
(defun test2 ()
(interactive)
(with-current-buffer (switch-to-buffer (get-buffer-create "*test printf snippet*"))
(erase-buffer)
(printf)))
(provide 'snippet)