diff options
| -rw-r--r-- | lisp/allout-widgets.el | 5 |
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)) |