diff options
author | Ken Manheimer <ken.manheimer@gmail.com> | 2020-07-21 10:55:08 -0400 |
---|---|---|
committer | Ken Manheimer <ken.manheimer@gmail.com> | 2020-07-21 10:55:08 -0400 |
commit | 56422a6366ed6a76cb9f52d9be315483d0506760 (patch) | |
tree | d6fe94a596688825eeabca5edffe0955aa1e2b3a | |
parent | 8e4eae0ce3702d3dc2dc36f9f144f11c98f02339 (diff) | |
download | emacs-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.el | 13 |
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: |