From 7d611e25ffdfb31e321d4612b282542690f26534 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 3 Dec 2015 15:22:14 -0500 Subject: [PATCH] * lisp/emacs-lisp/smie.el (smie-next-sexp): Fix BOB "token" --- lisp/emacs-lisp/smie.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/smie.el b/lisp/emacs-lisp/smie.el index 25ea4bbb588..c9c002bc8fa 100644 --- 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)))))) -- 2.39.5