emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/lua-mode 9c94413 118/468: lua-comment/-string-p funcs: wra


From: Philip Kaludercic
Subject: [nongnu] elpa/lua-mode 9c94413 118/468: lua-comment/-string-p funcs: wrap into save-excursion because syntax-ppss alters point position
Date: Thu, 5 Aug 2021 04:58:19 -0400 (EDT)

branch: elpa/lua-mode
commit 9c94413feba71707eb5169cad3d7d428a552b6d3
Author: immerrr <immerrr+lua@gmail.com>
Commit: immerrr <immerrr+lua@gmail.com>

    lua-comment/-string-p funcs: wrap into save-excursion because syntax-ppss 
alters point position
---
 lua-mode.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lua-mode.el b/lua-mode.el
index c98aee3..c18f603 100644
--- a/lua-mode.el
+++ b/lua-mode.el
@@ -408,16 +408,16 @@ This function replaces previous prefix-key binding with a 
new one."
 
 (defun lua-string-p (&optional pos)
   "Returns true if the point is in a string."
-  (elt (syntax-ppss pos) 3))
+  (save-excursion (elt (syntax-ppss pos) 3)))
 
 (defun lua-comment-p (&optional pos)
   "Returns true if the point is in a comment."
-  (elt (syntax-ppss pos) 4))
+  (save-excursion (elt (syntax-ppss pos) 4)))
 
 (defun lua-comment-or-string-p (&optional pos)
   "Returns true if the point is in a comment or string."
-  (let ((parse-result (syntax-ppss pos)))
-    (or (elt parse-result 3) (elt parse-result 4))))
+  (save-excursion (let ((parse-result (syntax-ppss pos)))
+                    (or (elt parse-result 3) (elt parse-result 4)))))
 
 (defun lua-indent-line ()
   "Indent current line for Lua mode.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]