diff options
| author | Lionel Henry <lionel.hry@gmail.com> | 2016-04-30 17:21:25 +0200 |
|---|---|---|
| committer | Lionel Henry <lionel.hry@gmail.com> | 2016-06-28 11:58:30 +0200 |
| commit | 87a95ef75ab0bdcf67d3491e2dd17a2521f70302 (patch) | |
| tree | 09f09981c958a7f85187c194221925cda0d01961 /lisp/ess-r-syntax.el | |
| parent | 1555df0a11eb9ec8edc59b7c054c4b234a9839de (diff) | |
Return nil when climbing on start of buffer
Diffstat (limited to 'lisp/ess-r-syntax.el')
| -rw-r--r-- | lisp/ess-r-syntax.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/ess-r-syntax.el b/lisp/ess-r-syntax.el index cd59f99..dd90db6 100644 --- a/lisp/ess-r-syntax.el +++ b/lisp/ess-r-syntax.el @@ -156,9 +156,10 @@ Cons cell containing the token type and string representation." (defun ess-climb-token () (ess-climb-outside-comment) (ess-skip-blanks-backward t) - (or (ess-climb-token--back) - (ess-climb-token--back-and-forth) - (error "Internal error: Tokenization failed"))) + (unless (= (point) (point-min)) + (or (ess-climb-token--back) + (ess-climb-token--back-and-forth) + (error "Internal error: Tokenization failed")))) (defun ess-climb-token--back () (let* ((token-end (point)) |