aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKen Manheimer2020-07-21 10:52:50 -0400
committerKen Manheimer2020-07-21 10:52:50 -0400
commit8e4eae0ce3702d3dc2dc36f9f144f11c98f02339 (patch)
treeb407081d728aea582205b3aa80cf64829eb34cb9
parent4db3235fd8a99f20de414372524948982b23d1fc (diff)
downloademacs-8e4eae0ce3702d3dc2dc36f9f144f11c98f02339.tar.gz
emacs-8e4eae0ce3702d3dc2dc36f9f144f11c98f02339.zip
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.
-rw-r--r--lisp/allout-widgets.el5
1 files 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')."
684 (setplist 'allout-cue-span-category nil) 684 (setplist 'allout-cue-span-category nil)
685 (put 'allout-cue-span-category 'evaporate t) 685 (put 'allout-cue-span-category 'evaporate t)
686 (put 'allout-cue-span-category 686 (put 'allout-cue-span-category
687 'modification-hooks '(allout-graphics-modification-handler)) 687 'modification-hooks '(allout-body-modification-handler))
688 (put 'allout-cue-span-category 'local-map allout-cue-span-keymap) 688 (put 'allout-cue-span-category 'local-map allout-cue-span-keymap)
689 (put 'allout-cue-span-category 'mouse-face widget-button-face) 689 (put 'allout-cue-span-category 'mouse-face widget-button-face)
690 (put 'allout-cue-span-category 'pointer 'arrow) 690 (put 'allout-cue-span-category 'pointer 'arrow)
@@ -2005,7 +2005,8 @@ reapplying this method will rectify the glyphs."
2005 ;; NOTE: most of the cue-area 2005 ;; NOTE: most of the cue-area
2006 2006
2007 (when (not (widget-get item-widget :is-container)) 2007 (when (not (widget-get item-widget :is-container))
2008 (let* ((cue-start (widget-get item-widget :icon-end)) 2008 (let* ((cue-start (or (widget-get item-widget :distinctive-end)
2009 (widget-get item-widget :icon-end)))
2009 (body-start (widget-get item-widget :body-start)) 2010 (body-start (widget-get item-widget :body-start))
2010 ;(expanded (widget-get item-widget :expanded)) 2011 ;(expanded (widget-get item-widget :expanded))
2011 ;(has-subitems (widget-get item-widget :has-subitems)) 2012 ;(has-subitems (widget-get item-widget :has-subitems))