[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 7d611e2: * lisp/emacs-lisp/smie.el (smie-next-sex
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] emacs-25 7d611e2: * lisp/emacs-lisp/smie.el (smie-next-sexp): Fix BOB "token" |
Date: |
Thu, 03 Dec 2015 20:22:20 +0000 |
branch: emacs-25
commit 7d611e25ffdfb31e321d4612b282542690f26534
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/emacs-lisp/smie.el (smie-next-sexp): Fix BOB "token"
---
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 25ea4bb..c9c002b 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))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 7d611e2: * lisp/emacs-lisp/smie.el (smie-next-sexp): Fix BOB "token",
Stefan Monnier <=