[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/sly c783ba6: Again touch fix for #452
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/sly c783ba6: Again touch fix for #452 |
Date: |
Fri, 4 Jun 2021 05:57:18 -0400 (EDT) |
branch: elpa/sly
commit c783ba6576b554f3fc15a70bf30d225f277d1863
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>
Again touch fix for #452
* contrib/sly-mrepl.el (sly-mrepl--syntax-propertize): Simplify
---
contrib/sly-mrepl.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/contrib/sly-mrepl.el b/contrib/sly-mrepl.el
index 0eedd42..9681c82 100644
--- a/contrib/sly-mrepl.el
+++ b/contrib/sly-mrepl.el
@@ -331,14 +331,13 @@ 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."
+ "Keep everything up to current prompt comment syntax."
(remove-text-properties beg end '(syntax-table nil))
(let ((end (min end (sly-mrepl--safe-mark)))
(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 "!")))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/sly c783ba6: Again touch fix for #452,
ELPA Syncer <=