changeset 37170:29f2615d958f

(Finding Overlays): Fix example code.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 03 Apr 2001 14:28:29 +0000
parents 80d9fddbca93
children b2411ccdbf22
files lispref/display.texi
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lispref/display.texi	Tue Apr 03 14:13:46 2001 +0000
+++ b/lispref/display.texi	Tue Apr 03 14:28:29 2001 +0000
@@ -1065,7 +1065,7 @@
   (let ((overlays (overlays-at (point)))
         found)
     (while overlays
-      (let ((overlay (cdr overlays)))
+      (let ((overlay (car overlays)))
         (if (overlay-get overlay prop)
             (setq found (cons overlay found))))
       (setq overlays (cdr overlays)))