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

org.el (org-end-of-line): Don't throw an error outside elements 

* org.el (org-end-of-line): Don't throw an error outside
elements.
This commit is contained in:
Bastien Guerry 2013-02-13 16:43:55 +01:00
parent 2108d294db
commit afcb175e05
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org.el
View File

@ -22221,8 +22221,10 @@ the cursor is already beyond the end of the headline."
((fboundp 'move-end-of-line) 'move-end-of-line) ((fboundp 'move-end-of-line) 'move-end-of-line)
(t 'end-of-line)))) (t 'end-of-line))))
(if (or (not special) arg) (call-interactively move-fun) (if (or (not special) arg) (call-interactively move-fun)
(let* ((element (save-excursion (beginning-of-line) (let* ((element (ignore-errors
(org-element-at-point))) ;; Don't throw an error outside elements
(save-excursion (beginning-of-line)
(org-element-at-point))))
(type (org-element-type element))) (type (org-element-type element)))
(cond (cond
((memq type '(headline inlinetask)) ((memq type '(headline inlinetask))