(Finding Overlays): Fix example code.

diff --git a/lispref/display.texi b/lispref/display.texi
index f9284cc160d3447c81dfb95028e8b24999d25dd3..662e32b1fb2e355c9f62fa0d5d92fa5898ab565c 100644 (file)
--- a/lispref/display.texi
+++ b/lispref/display.texi
@@ -1065,7 +1065,7 @@ overlays that specify property @var{prop} for the character at point:
   (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)))