mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/smie.el (smie-next-sexp): Fix BOB "token"

Browse source
This commit is contained in:
Stefan Monnier 2015-12-03 15:22:14 -05:00
parent a1c26b19fc
commit 7d611e25ff
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/smie.el
View file

@ -717,9 +717,10 @@ Possible return values:
(goto-char pos)
(throw 'return
(list t epos
(buffer-substring-no-properties
epos
(+ epos (if (< (point) epos) -1 1))))))))
(unless (= (point) epos)
(buffer-substring-no-properties
epos
(+ epos (if (< (point) epos) -1 1)))))))))
(if (eq pos (point))
;; We did not move, so let's abort the loop.
(throw 'return (list t (point))))))