diff options
| author | Tom Dalziel <tom_dl@hotmail.com> | 2023-08-13 21:53:26 +0100 |
|---|---|---|
| committer | Tom Dalziel <tom_dl@hotmail.com> | 2023-08-13 21:53:26 +0100 |
| commit | ea14078cb2b934961b41d5179996ebd8d283273b (patch) | |
| tree | 333e27a24263be31e5c9dfb87c704d0525065bd7 | |
| parent | a5658ee1d496994379d1a0a2cddf904394ab2115 (diff) | |
Make car + cdr safe for delete overlays
| -rw-r--r-- | evil-surround.el | 8 |
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)) |
