emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/evil-surround ea14078cb2 171/175: Make car + cdr safe for


From: ELPA Syncer
Subject: [nongnu] elpa/evil-surround ea14078cb2 171/175: Make car + cdr safe for delete overlays
Date: Mon, 9 Oct 2023 13:01:17 -0400 (EDT)

branch: elpa/evil-surround
commit ea14078cb2b934961b41d5179996ebd8d283273b
Author: Tom Dalziel <tom_dl@hotmail.com>
Commit: Tom Dalziel <tom_dl@hotmail.com>

    Make car + cdr safe for delete overlays
---
 evil-surround.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/evil-surround.el b/evil-surround.el
index bd47d88de3..e01e8d0ab3 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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]