From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 12 Aug 1997 17:22:41 +0000 (+0000)
Subject: (set-extent-property): Don't allow
X-Git-Tag: emacs-20.1~627
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c27d895b27b87a025f3c0430f0ca29631968f663;p=emacs.git

(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 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.