diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-08-12 17:22:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-08-12 17:22:41 +0000 |
| commit | 94083abd26914cb1078884ffa246c6d45a3ac4b7 (patch) | |
| tree | 477840cb806526c1d6fcd847386c9bfeda9b5384 /lisp/emacs-lisp/lucid.el | |
| parent | 16b5a00e1b839f6f9d6db29501c80ee5893c90b7 (diff) | |
| download | emacs-94083abd26914cb1078884ffa246c6d45a3ac4b7.tar.gz | |
(set-extent-property): Don't allow
multiple extents with a mouse-face property to run together.
Diffstat (limited to 'lisp/emacs-lisp/lucid.el')
| -rw-r--r-- | lisp/emacs-lisp/lucid.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el index 5c609137ffe..e7dc74e4d4b 100644 --- a/lisp/emacs-lisp/lucid.el +++ b/lisp/emacs-lisp/lucid.el @@ -142,6 +142,12 @@ bottom of the buffer stack." (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. |