emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

emacs-27 044960e 1/5: Backport: Fix allout-widgets-mode handling of edit


From: ken manheimer
Subject: emacs-27 044960e 1/5: Backport: Fix allout-widgets-mode handling of edits to item cue, fixing (bug#11312)
Date: Mon, 20 Jul 2020 14:33:42 -0400 (EDT)

branch: emacs-27
commit 044960ead25e5e7a9da9ebcd2103e39d4142e1e4
Author: Ken Manheimer <ken.manheimer@gmail.com>
Commit: Ken Manheimer <ken.manheimer@gmail.com>

    Backport: Fix allout-widgets-mode handling of edits to item cue, fixing 
(bug#11312)
    
    * lisp/allout-widgets.el (allout-decorate-item-cue): Properly decorate
    item cue span.
    (allout-setup-text-properties): use allout-graphics-modification-handler
    as allout-cue-span-category modification hook.
    
    (cherry picked from commit 8e13d332481551e4c8c1c66dd0c69dd09256dffc)
---
 lisp/allout-widgets.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el
index fbdddca..3c6a05c 100644
--- a/lisp/allout-widgets.el
+++ b/lisp/allout-widgets.el
@@ -677,7 +677,7 @@ outline hot-spot navigation (see `allout-mode')."
   (setplist 'allout-cue-span-category nil)
   (put 'allout-cue-span-category 'evaporate t)
   (put 'allout-cue-span-category
-       'modification-hooks '(allout-body-modification-handler))
+       'modification-hooks '(allout-graphics-modification-handler))
   (put 'allout-cue-span-category 'local-map allout-cue-span-keymap)
   (put 'allout-cue-span-category 'mouse-face widget-button-face)
   (put 'allout-cue-span-category 'pointer 'arrow)
@@ -1994,8 +1994,7 @@ reapplying this method will rectify the glyphs."
   ;; NOTE: most of the cue-area
 
   (when (not (widget-get item-widget :is-container))
-    (let* ((cue-start (or (widget-get item-widget :distinctive-end)
-                          (widget-get item-widget :icon-end)))
+    (let* ((cue-start (widget-get item-widget :icon-end))
            (body-start (widget-get item-widget :body-start))
            ;(expanded (widget-get item-widget :expanded))
            ;(has-subitems (widget-get item-widget :has-subitems))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]