emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

org: org-on-heading-p=>org-at-heading-p (deprecated); refactor

Browse source
This commit is contained in:
Henrik Lissner 2017-01-05 18:15:00 -05:00
parent cbab4e4ee4
commit 88814bf924
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
modules/defuns/defuns-org.el
View file

@ -7,8 +7,7 @@
(interactive) (interactive)
(cond ((org-at-item-p) (cond ((org-at-item-p)
(org-indent-item-tree)) (org-indent-item-tree))
((and (org-on-heading-p) ((org-at-heading-p)
(looking-back "^\\*+ +.*" (line-beginning-position)))
(ignore-errors (org-demote))) (ignore-errors (org-demote)))
(t (call-interactively 'self-insert-command)))) (t (call-interactively 'self-insert-command))))
@ -29,10 +28,8 @@
(org-list-struct)) (org-list-struct))
(org-list-struct)))) (org-list-struct))))
(org-list-indent-item-generic -1 nil struct))) (org-list-indent-item-generic -1 nil struct)))
((and (org-on-heading-p) ((org-at-heading-p)
(looking-back "^\\*+ +.*" (line-beginning-position))) (ignore-errors (org-promote)))
(ignore-errors
(org-promote)))
(t (call-interactively 'self-insert-command)))) (t (call-interactively 'self-insert-command))))
;;;###autoload ;;;###autoload