emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

emacs-27 56422a6 2/5: Revert "Don't let item decoration be disrupted by


From: ken manheimer
Subject: emacs-27 56422a6 2/5: Revert "Don't let item decoration be disrupted by too-shallow items."
Date: Tue, 21 Jul 2020 10:58:25 -0400 (EDT)

branch: emacs-27
commit 56422a6366ed6a76cb9f52d9be315483d0506760
Author: Ken Manheimer <ken.manheimer@gmail.com>
Commit: Ken Manheimer <ken.manheimer@gmail.com>

    Revert "Don't let item decoration be disrupted by too-shallow items."
    
    This reverts commit 8684216542889fa57daa32072104afc69785907f.
    
    Backporting it to emacs-27 was not appropriate.
---
 lisp/allout-widgets.el | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el
index aac4a89..f817876 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:



reply via email to

[Prev in Thread] Current Thread [Next in Thread]