diff options
author | Bastien <bzg@gnu.org> | 2015-09-07 16:59:13 +0200 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2015-09-07 16:59:13 +0200 |
commit | aff6142b81fb3432510de62624bdf09027c1a679 (patch) | |
tree | 51c3232cd5c3f51dccc5e800a2b685b155b02a6b | |
parent | 366dc4e369cab2009b55e2de81d9190871505d6e (diff) | |
download | org-mode-aff6142b81fb3432510de62624bdf09027c1a679.tar.gz |
org.el: Enhance docstrings
* org.el (org-demote-subtree, org-do-demote)
(org-fix-position-after-promote): Enhance docstrings.
-rwxr-xr-x | lisp/org.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/org.el b/lisp/org.el index f3bb30a..74fe4ae 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -8043,18 +8043,17 @@ See also `org-promote'." (org-fix-position-after-promote)) (defun org-demote-subtree () - "Demote the entire subtree. See `org-demote'. -See also `org-promote'." + "Demote the entire subtree. +See `org-demote' and `org-promote'." (interactive) (save-excursion (org-with-limited-levels (org-map-tree 'org-demote))) (org-fix-position-after-promote)) - (defun org-do-promote () "Promote the current heading higher up the tree. -If the region is active in `transient-mark-mode', promote all headings -in the region." +If the region is active in `transient-mark-mode', promote all +headings in the region." (interactive) (save-excursion (if (org-region-active-p) @@ -8064,8 +8063,8 @@ in the region." (defun org-do-demote () "Demote the current heading lower down the tree. -If the region is active in `transient-mark-mode', demote all headings -in the region." +If the region is active in `transient-mark-mode', demote all +headings in the region." (interactive) (save-excursion (if (org-region-active-p) @@ -8074,7 +8073,7 @@ in the region." (org-fix-position-after-promote)) (defun org-fix-position-after-promote () - "Make sure that after pro/demotion cursor position is right." + "Fix cursor position and indentation after demoting/promoting." (let ((pos (point))) (when (save-excursion (beginning-of-line 1) |