Mercurial > emacs

comparison lispref/display.texi @ 37170:29f2615d958f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Finding Overlays): Fix example code.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 03 Apr 2001 14:28:29 +0000
parents 1ac3e0f3e75a
children 1302dd937a79
comparison
equal deleted inserted replaced
37169:80d9fddbca93 37170:29f2615d958f
1063 @smallexample 1063 @smallexample
1064 (defun find-overlays-specifying (prop) 1064 (defun find-overlays-specifying (prop)
1065 (let ((overlays (overlays-at (point))) 1065 (let ((overlays (overlays-at (point)))
1066 found) 1066 found)
1067 (while overlays 1067 (while overlays
1068 (let ((overlay (cdr overlays))) 1068 (let ((overlay (car overlays)))
1069 (if (overlay-get overlay prop) 1069 (if (overlay-get overlay prop)
1070 (setq found (cons overlay found)))) 1070 (setq found (cons overlay found))))
1071 (setq overlays (cdr overlays))) 1071 (setq overlays (cdr overlays)))
1072 found)) 1072 found))
1073 @end smallexample 1073 @end smallexample