diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-08-12 17:22:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-08-12 17:22:41 +0000 |
| commit | c27d895b27b87a025f3c0430f0ca29631968f663 (patch) | |
| tree | 052ae54878342fc3f3e1f9b16ac78271b86fd4ef /lisp/emacs-lisp/lucid.el | |
| parent | 4fdf389ae258437c13378e73ad224fd2485e3c23 (diff) | |
| download | emacs-c27d895b27b87a025f3c0430f0ca29631968f663.tar.gz emacs-c27d895b27b87a025f3c0430f0ca29631968f663.tar.bz2 emacs-c27d895b27b87a025f3c0430f0ca29631968f663.zip | |
(set-extent-property): Don't allow
multiple extents with a mouse-face property to run together.
Diffstat (limited to 'lisp/emacs-lisp/lucid.el')
| -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. |