diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-12-03 15:22:14 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-12-03 15:22:14 -0500 |
| commit | 7d611e25ffdfb31e321d4612b282542690f26534 (patch) | |
| tree | 414701fe19bb3f02b8a17ace9b73fe658654da07 /lisp/emacs-lisp/smie.el | |
| parent | a1c26b19fc779a9d796873fd7415c4f1bf1e7e4f (diff) | |
| download | emacs-7d611e25ffdfb31e321d4612b282542690f26534.tar.gz | |
* lisp/emacs-lisp/smie.el (smie-next-sexp): Fix BOB "token"
Diffstat (limited to 'lisp/emacs-lisp/smie.el')
| -rw-r--r-- | lisp/emacs-lisp/smie.el | 7 |
1 files 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)))))) |