(set-extent-property): Don't allow

multiple extents with a mouse-face property to run together.

diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el
index 5c609137ffe8a56283dfa207e586d40d8e90ba89..e7dc74e4d4b6aa13d5e28ea6835a86892cfc9ae3 100644 (file)
--- 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.