Fix elisp parser bug
This commit is contained in:
parent
9d6003f90b
commit
af44495352
@ -80,7 +80,8 @@ children of the pair."
|
|||||||
(end-of-defun)
|
(end-of-defun)
|
||||||
(backward-char)
|
(backward-char)
|
||||||
(setq end (point))
|
(setq end (point))
|
||||||
(setq acc (cons (funcall create beg end offset nil) acc))
|
(when (> offset 0)
|
||||||
|
(setq acc (cons (funcall create beg end offset nil) acc)))
|
||||||
(beginning-of-defun -1))
|
(beginning-of-defun -1))
|
||||||
(list (reverse acc))))))
|
(list (reverse acc))))))
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user