From 88814bf924bfec1da3372228324af1cf92f87979 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 5 Jan 2017 18:15:00 -0500 Subject: [PATCH] org: org-on-heading-p=>org-at-heading-p (deprecated); refactor --- modules/defuns/defuns-org.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/modules/defuns/defuns-org.el b/modules/defuns/defuns-org.el index 792a3d311..e17947bc9 100644 --- a/modules/defuns/defuns-org.el +++ b/modules/defuns/defuns-org.el @@ -7,8 +7,7 @@ (interactive) (cond ((org-at-item-p) (org-indent-item-tree)) - ((and (org-on-heading-p) - (looking-back "^\\*+ +.*" (line-beginning-position))) + ((org-at-heading-p) (ignore-errors (org-demote))) (t (call-interactively 'self-insert-command)))) @@ -29,10 +28,8 @@ (org-list-struct)) (org-list-struct)))) (org-list-indent-item-generic -1 nil struct))) - ((and (org-on-heading-p) - (looking-back "^\\*+ +.*" (line-beginning-position))) - (ignore-errors - (org-promote))) + ((org-at-heading-p) + (ignore-errors (org-promote))) (t (call-interactively 'self-insert-command)))) ;;;###autoload