From 2d0a1b831d60a7da02af89f27bebf3fffc4ba950 Mon Sep 17 00:00:00 2001 From: Joao Tavora Date: Mon, 14 Oct 2013 15:12:06 +0100 Subject: [PATCH] fix: possibly fragile fix for zero-length field/mirror bug --- snippet.el | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/snippet.el b/snippet.el index 80fe68a..62f9eb4 100644 --- a/snippet.el +++ b/snippet.el @@ -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)