branch: elpa/parseclj
commit b26fadbc05af7c66acb37235704ad02ed6c61fbe
Author: Daniel Barreto <[email protected]>
Commit: Daniel Barreto <[email protected]>
Get rid of `parseclj-lex-error-token` side-effect
---
parseclj-lex.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/parseclj-lex.el b/parseclj-lex.el
index 4c3dc2511b..f23580d5dd 100644
--- a/parseclj-lex.el
+++ b/parseclj-lex.el
@@ -61,8 +61,6 @@ Other ATTRIBUTES can be given as a flat list of key-value
pairs."
"Create a lexer error token starting at POS.
ERROR-TYPE is an optional keyword to attach to the created token,
as the means for providing more information on the error."
- (when (= pos (point))
- (right-char))
(apply #'parseclj-lex-token
:lex-error
(buffer-substring-no-properties pos (point))
@@ -420,7 +418,9 @@ See `parseclj-lex-token'."
(parseclj-lex-error-token pos :invalid-hashtag-dispatcher)))))
(t
- (parseclj-lex-error-token pos))))))
+ (progn
+ (right-char)
+ (parseclj-lex-error-token pos)))))))
(provide 'parseclj-lex)
