summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKen Manheimer <ken.manheimer@gmail.com>2020-07-21 10:55:08 -0400
committerKen Manheimer <ken.manheimer@gmail.com>2020-07-21 10:55:08 -0400
commit56422a6366ed6a76cb9f52d9be315483d0506760 (patch)
treed6fe94a596688825eeabca5edffe0955aa1e2b3a
parent8e4eae0ce3702d3dc2dc36f9f144f11c98f02339 (diff)
downloademacs-56422a6366ed6a76cb9f52d9be315483d0506760.tar.gz
Revert "Don't let item decoration be disrupted by too-shallow items."
This reverts commit 8684216542889fa57daa32072104afc69785907f. Backporting it to emacs-27 was not appropriate.
-rw-r--r--lisp/allout-widgets.el13
1 files changed, 5 insertions, 8 deletions
diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el
index aac4a89fad2..f817876d719 100644
--- a/lisp/allout-widgets.el
+++ b/lisp/allout-widgets.el
@@ -1602,10 +1602,7 @@ We return the item-widget corresponding to the item at point."
(if is-container
(progn (widget-put item-widget :is-container t)
(setq reverse-siblings-chart (list 1)))
- (let ((parent-position (widget-apply parent
- :actual-position :from)))
- (when parent-position
- (goto-char parent-position)))
+ (goto-char (widget-apply parent :actual-position :from))
(if (widget-get parent :is-container)
;; `allout-goto-prefix' will go to first non-container item:
(allout-goto-prefix)
@@ -2403,7 +2400,7 @@ The elements of LIST are not copied, just the list structure itself."
;;;_ : provide
(provide 'allout-widgets)
-;;;_ . Local emacs vars.
-;;;_ , Local variables:
-;;;_ , allout-layout: (-1 : 0)
-;;;_ , End:
+;;;_. Local emacs vars.
+;;;_ , Local variables:
+;;;_ , allout-layout: (-1 : 0)
+;;;_ , End: