summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTom Dalziel <tom_dl@hotmail.com>2023-08-13 21:53:26 +0100
committerTom Dalziel <tom_dl@hotmail.com>2023-08-13 21:53:26 +0100
commitea14078cb2b934961b41d5179996ebd8d283273b (patch)
tree333e27a24263be31e5c9dfb87c704d0525065bd7
parenta5658ee1d496994379d1a0a2cddf904394ab2115 (diff)
Make car + cdr safe for delete overlays
-rw-r--r--evil-surround.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/evil-surround.el b/evil-surround.el
index bd47d88..e01e8d0 100644
--- a/evil-surround.el
+++ b/evil-surround.el
@@ -228,8 +228,8 @@ Does not modify the buffer."
"Return overlay from provided delimiters or character.
Preferably, use DELIMS to select the correct range. Otherwise, use CHAR.
This overlay includes the delimeters."
- (let ((open (car delims))
- (close (cdr delims))
+ (let ((open (car-safe delims))
+ (close (cdr-safe delims))
outer)
(if (and (stringp open) (stringp close))
(let* ((o (regexp-quote open))
@@ -252,8 +252,8 @@ This overlay includes the delimeters."
"Return overlay from provided delimiters or character.
Preferably, use DELIMS to select the correct range. Otherwise, use CHAR.
This overlay excludes the delimeters."
- (let ((open (car delims))
- (close (cdr delims))
+ (let ((open (car-safe delims))
+ (close (cdr-safe delims))
inner)
(if (and (stringp open) (stringp close))
(let* ((o (regexp-quote open))