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

2015-12-03 15:22:14 -05:00 · 2015-12-03 15:22:14 -05:00 · 7d611e25ff
commit 7d611e25ff
parent a1c26b19fc
1 changed files with 4 additions and 3 deletions
--- a/lisp/emacs-lisp/smie.el
+++ b/lisp/emacs-lisp/smie.el
@ -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))))))