ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Tiny refactoring 

* lisp/org.el (org-current-level): Tiny refactoring.
This commit is contained in:
Nicolas Goaziou 2014-12-22 00:09:08 +01:00
parent c5ba48072c
commit 6dcaafff3e
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org.el
View File

@ -8084,10 +8084,8 @@ in the region."
(defun org-current-level () (defun org-current-level ()
"Return the level of the current entry, or nil if before the first headline. "Return the level of the current entry, or nil if before the first headline.
The level is the number of stars at the beginning of the headline." The level is the number of stars at the beginning of the headline."
(save-excursion (let ((level (org-with-limited-levels (org-outline-level))))
(org-with-limited-levels (and (> level 0) level)))
(if (ignore-errors (org-back-to-heading t))
(funcall outline-level)))))
(defun org-get-previous-line-level () (defun org-get-previous-line-level ()
"Return the outline depth of the last headline before the current line. "Return the outline depth of the last headline before the current line.