Mercurial > hg > xemacs-beta

comparison lisp/prim/overlay.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 8fc7fe29b841
children 0132846995bd
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
175 (if (extent-property overlay 'overlay) 175 (if (extent-property overlay 'overlay)
176 (if (> pos (extent-end-position overlay)) 176 (if (> pos (extent-end-position overlay))
177 (setq before (append before (list overlay))) 177 (setq before (append before (list overlay)))
178 (setq after (append after (list overlay))))))) 178 (setq after (append after (list overlay)))))))
179 (extent-list)) 179 (extent-list))
180 (list before after))) 180 (cons before after)))
181 181
182 (defun overlay-recenter (pos) 182 (defun overlay-recenter (pos)
183 "Recenter the overlays of the current buffer around position POS." 183 "Recenter the overlays of the current buffer around position POS."
184 (set (make-local-variable 'xemacs-internal-overlay-center-pos) pos)) 184 (set (make-local-variable 'xemacs-internal-overlay-center-pos) pos))
185 185