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 ()
"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."
(save-excursion
(org-with-limited-levels
(if (ignore-errors (org-back-to-heading t))
(funcall outline-level)))))
(let ((level (org-with-limited-levels (org-outline-level))))
(and (> level 0) level)))
(defun org-get-previous-line-level ()
"Return the outline depth of the last headline before the current line.