From df468ad4543d7ad3bda417f68ef53e2262ad5aea Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Tue, 27 Jun 2000 15:28:01 +0000 Subject: Minor tweak. --- generic/span-overlay.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/generic/span-overlay.el b/generic/span-overlay.el index 5e64772e..f1f6d6a9 100644 --- a/generic/span-overlay.el +++ b/generic/span-overlay.el @@ -271,7 +271,7 @@ If there are two spans overlapping then this won't work." (let ((l (member-if (lambda (span) (span-property span prop)) (overlays-at (next-overlay-change (overlay-start span)))))) - (if l (car l) nil))) + (car-safe l))) (defsubst span-live-p (span) -- cgit v1.2.3