diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -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. |