diff options
author | Ken Manheimer <ken.manheimer@gmail.com> | 2020-07-05 16:27:52 -0400 |
---|---|---|
committer | Ken Manheimer <ken.manheimer@gmail.com> | 2020-07-20 14:27:17 -0400 |
commit | 044960ead25e5e7a9da9ebcd2103e39d4142e1e4 (patch) | |
tree | 5bc732922d7093f92386a51abea06e7189ecd42f | |
parent | cd93debc600b31ec7d257ba0195ae7132df83816 (diff) | |
download | emacs-044960ead25e5e7a9da9ebcd2103e39d4142e1e4.tar.gz |
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)
-rw-r--r-- | lisp/allout-widgets.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el index fbdddca7d76..3c6a05cbbce 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)) |