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

Handle dead snippets better

Browse Source 
* yasnippet-debug.el (yas-debug-live-marker)
(yas-debug-ov-fom-start, yas-debug-ov-fom-end)
(yas-debug-live-range, yas--debug-format-fom-concise): Don't assume
snippet has markers, it could have been converted to integer position.
This commit is contained in:
Noam Postavsky 2017-05-16 21:37:04 -04:00
parent 2f5cb2e2ef
commit 7b03ac2030
1 changed files with 26 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
yasnippet-debug.el
View File

@ -95,25 +95,28 @@
(color-ov (yas-debug-get-live-indicator marker))
(color (car color-ov))
(ov (cdr color-ov))
(decorator (overlay-get ov 'before-string)))
(propertize (format "at %d" (marker-position marker))
'cursor-sensor-functions
`(,(lambda (window _oldpos dir)
(overlay-put
ov 'before-string
(propertize decorator
'face (if (eq dir 'entered)
'mode-line-highlight color)))))
'face color)))
(decorator (overlay-get ov 'before-string))
(str (format "at %d" (+ marker))))
(if (markerp marker)
(propertize str
'cursor-sensor-functions
`(,(lambda (window _oldpos dir)
(overlay-put
ov 'before-string
(propertize decorator
'face (if (eq dir 'entered)
'mode-line-highlight color)))))
'face color)
str)))
(defun yas-debug-ov-fom-start (ovfom)
(if (overlayp ovfom) (overlay-start ovfom)
(let ((m (yas--fom-start ovfom)))
(when (markerp m) (marker-position m)))))
(cond ((overlayp ovfom) (overlay-start ovfom))
((integerp ovfom) ovfom)
(t (yas--fom-start ovfom))))
(defun yas-debug-ov-fom-end (ovfom)
(if (overlayp ovfom) (overlay-end ovfom)
(let ((m (yas--fom-end ovfom)))
(when (markerp m) (marker-position m)))))
(cond ((overlayp ovfom) (overlay-end ovfom))
((integerp ovfom) ovfom)
(t (yas--fom-end ovfom))))
(defun yas-debug-live-range (range)
(let* ((color-ov (yas-debug-get-live-indicator range))
@ -123,8 +126,8 @@
(decorator-end (overlay-get ov 'after-string))
(beg (yas-debug-ov-fom-start range))
(end (yas-debug-ov-fom-end range)))
(if (and beg end)
(propertize (format "from %d to %d" beg end)
(if (and beg end (not (integerp beg)) (not (integerp end)))
(propertize (format "from %d to %d" (+ beg) (+ end))
'cursor-sensor-functions
`(,(lambda (window _oldpos dir)
(let ((face (if (eq dir 'entered)
@ -278,15 +281,15 @@
(cond ((yas--field-p fom)
(format "field %s from %d to %d"
(yas--field-number fom)
(marker-position (yas--field-start fom))
(marker-position (yas--field-end fom))))
(+ (yas--field-start fom))
(+ (yas--field-end fom))))
((yas--mirror-p fom)
(format "mirror from %d to %d"
(marker-position (yas--mirror-start fom))
(marker-position (yas--mirror-end fom))))
(+ (yas--mirror-start fom))
(+ (yas--mirror-end fom))))
(t
(format "snippet exit at %d"
(marker-position (yas--fom-start fom)))))))
(+ (yas--fom-start fom)))))))
(defun yas-debug-process-command-line (&optional options)
"Implement command line processing."