From c27d895b27b87a025f3c0430f0ca29631968f663 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Tue, 12 Aug 1997 17:22:41 +0000
Subject: [PATCH] (set-extent-property): Don't allow multiple extents with a
 mouse-face property to run together.

---
 lisp/emacs-lisp/lucid.el | 6 ++++++
 1 file changed, 6 insertions(+)

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