Lines Matching defs:overlay
52 ;; should call the function `glasses-set-overlay-properties' afterwards.
156 "Set value of the variable SYMBOL to VALUE and update overlay categories.
159 (glasses-set-overlay-properties))
173 (defun glasses-set-overlay-properties ()
176 ;; In-identifier overlay
180 ;; Beg-identifier overlay
183 ;; Parenthesis overlay
187 (glasses-set-overlay-properties)
190 (defun glasses-overlay-p (overlay)
191 "Return whether OVERLAY is an overlay of glasses mode."
192 (memq (overlay-get overlay 'category)
196 (defun glasses-make-overlay (beg end &optional category)
197 "Create and return readability overlay over the region from BEG to END.
198 CATEGORY is the overlay category. If it is nil, use the `glasses' category."
199 (let ((overlay (make-overlay beg end)))
200 (overlay-put overlay 'category (or category 'glasses))
201 overlay))
214 (glasses-make-overlay (match-beginning 1) (match-end 1)
221 (o (glasses-make-overlay (match-beginning n) (match-end n))))
230 (overlay-put o 'invisible t)
231 (overlay-put o 'after-string (downcase (match-string n))))))
243 (let ((o (glasses-make-overlay (point) (1+ (point)))))
245 (overlay-put o 'display (concat glasses-separator)))
252 (glasses-make-overlay (match-beginning 1) (match-end 1)
259 (when (glasses-overlay-p o)
260 (delete-overlay o))))