branch: elpa/isl
commit a3f0ac95216f686d1eb5a665fa16b55dec37c21a
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Prevent usage of string with newlines) as default
---
isl.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/isl.el b/isl.el
index 5140ec1387a..75f3223026e 100644
--- a/isl.el
+++ b/isl.el
@@ -1235,7 +1235,8 @@ Arguments INITIAL-INPUT and DEFAULT are same as in
`read-from-minibuffer'."
(let ((region (buffer-substring-no-properties
(region-beginning)
(region-end))))
- (if (> (length region) isl-max-region-length)
+ (if (or (> (length region) isl-max-region-length)
+ (string-match-p "\n" region))
(user-error "Isl: Region not suitable for using as default")
region))))
