# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 871406561 0
# Node ID 995bfd9752d598c84e333f8dafce76bf88838f07
# Parent  2e448d41aa553184d3268a4ec26d4f7ecad48b79
(set-extent-property): Don't allow
multiple extents with a mouse-face property to run together.

diff -r 2e448d41aa55 -r 995bfd9752d5 lisp/emacs-lisp/lucid.el
--- a/lisp/emacs-lisp/lucid.el	Tue Aug 12 17:21:24 1997 +0000
+++ b/lisp/emacs-lisp/lucid.el	Tue Aug 12 17:22:41 1997 +0000
@@ -142,6 +142,12 @@
   (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.