[nongnu] elpa/sly fa6076c 2/3: Fix #452: saner syntax propertization in REPL

[ELPA Syncer]

branch: elpa/sly
commit fa6076c8edb0bf64393d49582c2214a3a579544a
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Fix #452: saner syntax propertization in REPL
    
    Thanks to Stefan Monnier <monnier@iro.umontreal.ca> for the hint.
    
    * contrib/sly-mrepl.el (sly-mrepl--syntax-propertize): Rework.
---
 contrib/sly-mrepl.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/contrib/sly-mrepl.el b/contrib/sly-mrepl.el
index f2a879b..c776e42 100644
--- a/contrib/sly-mrepl.el
+++ b/contrib/sly-mrepl.el
@@ -331,16 +331,16 @@ In that case, moving a sexp backward does nothing."
         (forward-sexp n))))
 
 (defun sly-mrepl--syntax-propertize (beg end)
-  "Make everything up to current prompt comment syntax."
+  "Make everything up to currentn prompt comment syntax."
   (remove-text-properties beg end '(syntax-table nil))
   (let ((end (min end (sly-mrepl--safe-mark)))
-        (beg beg))
-    (when (> end beg)
-      (unless (nth 8 (syntax-ppss beg))
-        (add-text-properties beg (1+ beg)
-                             `(syntax-table ,(string-to-syntax "!"))))
-      (add-text-properties (1- end) end
-                           `(syntax-table ,(string-to-syntax "!"))))))
+        (beg (min beg end)))
+    (when (<= beg (point-min))
+      (add-text-properties beg (1+ beg)
+                           `(syntax-table ,(string-to-syntax "!"))))
+    (remove-text-properties beg end 'syntax-table)
+    (add-text-properties (1- end) end
+                           `(syntax-table ,(string-to-syntax "!")))))
 
 (defun sly-mrepl--call-with-repl (repl-buffer fn)
   (with-current-buffer repl-buffer