diff options
| author | Stefan Monnier | 2015-12-03 15:22:14 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2015-12-03 15:22:14 -0500 |
| commit | 7d611e25ffdfb31e321d4612b282542690f26534 (patch) | |
| tree | 414701fe19bb3f02b8a17ace9b73fe658654da07 | |
| parent | a1c26b19fc779a9d796873fd7415c4f1bf1e7e4f (diff) | |
| download | emacs-7d611e25ffdfb31e321d4612b282542690f26534.tar.gz emacs-7d611e25ffdfb31e321d4612b282542690f26534.zip | |
* lisp/emacs-lisp/smie.el (smie-next-sexp): Fix BOB "token"
| -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: | |||
| 717 | (goto-char pos) | 717 | (goto-char pos) |
| 718 | (throw 'return | 718 | (throw 'return |
| 719 | (list t epos | 719 | (list t epos |
| 720 | (buffer-substring-no-properties | 720 | (unless (= (point) epos) |
| 721 | epos | 721 | (buffer-substring-no-properties |
| 722 | (+ epos (if (< (point) epos) -1 1)))))))) | 722 | epos |
| 723 | (+ epos (if (< (point) epos) -1 1))))))))) | ||
| 723 | (if (eq pos (point)) | 724 | (if (eq pos (point)) |
| 724 | ;; We did not move, so let's abort the loop. | 725 | ;; We did not move, so let's abort the loop. |
| 725 | (throw 'return (list t (point)))))) | 726 | (throw 'return (list t (point)))))) |