(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)
;;;_ : provide
(provide 'allout-widgets)
-;;;_ . Local emacs vars.
-;;;_ , Local variables:
-;;;_ , allout-layout: (-1 : 0)
-;;;_ , End:
+;;;_. Local emacs vars.
+;;;_ , Local variables:
+;;;_ , allout-layout: (-1 : 0)
+;;;_ , End: