From 8e4eae0ce3702d3dc2dc36f9f144f11c98f02339 Mon Sep 17 00:00:00 2001 From: Ken Manheimer Date: Tue, 21 Jul 2020 10:52:50 -0400 Subject: [PATCH] Revert "Fix allout-widgets-mode handling of edits to item cue, fixing (bug#11312)" This reverts commit 8e13d332481551e4c8c1c66dd0c69dd09256dffc. Backporting it to emacs-27 was not appropriate. --- lisp/allout-widgets.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el index 2a8dced5e9c..aac4a89fad2 100644 --- a/lisp/allout-widgets.el +++ b/lisp/allout-widgets.el @@ -684,7 +684,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-graphics-modification-handler)) + 'modification-hooks '(allout-body-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) @@ -2005,7 +2005,8 @@ reapplying this method will rectify the glyphs." ;; NOTE: most of the cue-area (when (not (widget-get item-widget :is-container)) - (let* ((cue-start (widget-get item-widget :icon-end)) + (let* ((cue-start (or (widget-get item-widget :distinctive-end) + (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)) -- 2.39.2