# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 986308109 0
# Node ID 29f2615d958fc539a64c32f6e6d117c14036b9dc
# Parent  80d9fddbca931609e2887ecc3994ca10c97d2383
(Finding Overlays): Fix example code.

diff -r 80d9fddbca93 -r 29f2615d958f lispref/display.texi
--- 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)))