Mercurial > emacs
changeset 19321:995bfd9752d5
(set-extent-property): Don't allow
multiple extents with a mouse-face property to run together.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 12 Aug 1997 17:22:41 +0000 |
| parents | 2e448d41aa55 |
| children | cc9e75f82cdb |
| files | lisp/emacs-lisp/lucid.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lucid.el Tue Aug 12 17:21:24 1997 +0000 +++ b/lisp/emacs-lisp/lucid.el Tue Aug 12 17:22:41 1997 +0000 @@ -142,6 +142,12 @@ (make-overlay beg end buffer)) (defun set-extent-property (extent prop value) + ;; Make sure that separate adjacent extents + ;; with the same mouse-face value + ;; do not run together as one extent. + (and (eq prop 'mouse-face) + (symbolp value) + (setq value (list value))) (if (eq prop 'duplicable) (cond ((and value (not (overlay-get extent prop))) ;; If becoming duplicable, copy all overlayprops to text props.