Fix elisp parser bug

This commit is contained in:
Greg Sexton 2014-08-10 16:54:21 +01:00
parent 9d6003f90b
commit af44495352

View File

@ -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))))))