From 51566783f012d3cfb23c35d9cd71974e05c97659 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 30 Jan 1995 07:16:14 +0000 Subject: [PATCH] (make-extent, delete-extent, set-extent-property) (set-extent-face): New functions. --- lisp/emacs-lisp/lucid.el | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el index d32ec9de75e..c0e8a6551fc 100644 --- a/lisp/emacs-lisp/lucid.el +++ b/lisp/emacs-lisp/lucid.el @@ -152,6 +152,38 @@ bottom of the buffer stack." (defalias 'get-face 'internal-get-face) (defalias 'try-face-font 'internal-try-face-font) +(defun make-extent (beg end &optional buffer) + (make-overlay beg end buffer)) + +(defun set-extent-property (extent prop value) + (if (eq prop 'duplicable) + (cond ((and value (not (overlay-get extent prop))) + ;; If becoming duplicable, copy all overlayprops to text props. + (add-text-properties (overlay-start extent) + (overlay-end extent) + (overlay-properties extent) + (overlay-buffer extent))) + ;; If becoming no longer duplicable, remove these text props. + ((and (not value) (overlay-get extent prop)) + (remove-text-properties (overlay-start extent) + (overlay-end extent) + (overlay-properties extent) + (overlay-buffer extent)))) + ;; If extent is already duplicable, put this property + ;; on the text as well as on the overlay. + (if (overlay-get extent 'duplicable) + (put-text-property (overlay-start extent) + (overlay-end extent) + prop value (overlay-buffer extent)))) + (overlay-put extent prop value)) + +(defun set-extent-face (extent face) + (set-extent-property extent 'face face)) + +(defun delete-extent (extent) + (set-extent-property extent 'duplicable nil) + (delete-overlay extent)) + ;; Support the Lucid names with `screen' instead of `frame'. (defalias 'current-screen-configuration 'current-frame-configuration) -- 2.39.5