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

Fix `org-end-of-line' behaviour in visual line mode 

* lisp/org.el (org-end-of-line): When visual line mode is on, really
  move by visual lines.  Small refactoring.
This commit is contained in:
Nicolas Goaziou 2012-11-05 17:39:06 +01:00
parent 209afadbf9
commit c20730be9a
1 changed files with 9 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/org.el
View File

@ -21331,10 +21331,12 @@ tags on the first attempt, and only move to after the tags when
the cursor is already beyond the end of the headline." the cursor is already beyond the end of the headline."
(interactive "P") (interactive "P")
(let ((special (if (consp org-special-ctrl-a/e) (cdr org-special-ctrl-a/e) (let ((special (if (consp org-special-ctrl-a/e) (cdr org-special-ctrl-a/e)
org-special-ctrl-a/e))) org-special-ctrl-a/e))
(if (or (not special) arg) (move-fun (cond ((org-bound-and-true-p visual-line-mode)
(call-interactively 'end-of-visual-line)
(if (fboundp 'move-end-of-line) 'move-end-of-line 'end-of-line)) ((fboundp 'move-end-of-line) 'move-end-of-line)
(t 'end-of-line))))
(if (or (not special) arg) (call-interactively move-fun)
(let* ((element (save-excursion (beginning-of-line) (let* ((element (save-excursion (beginning-of-line)
(org-element-at-point))) (org-element-at-point)))
(type (org-element-type element))) (type (org-element-type element)))
@ -21351,19 +21353,12 @@ the cursor is already beyond the end of the headline."
(not (eq this-command last-command))) (not (eq this-command last-command)))
(goto-char (match-end 0)) (goto-char (match-end 0))
(goto-char (match-beginning 1)))) (goto-char (match-beginning 1))))
(call-interactively (call-interactively move-fun))))
(if (fboundp 'move-end-of-line) 'move-end-of-line ((org-element-property :hiddenp element)
'end-of-line)))))
((memq type
'(center-block comment-block drawer dynamic-block example-block
export-block item plain-list property-drawer
quote-block special-block src-block verse-block))
;; If element is hidden, `move-end-of-line' would put point ;; If element is hidden, `move-end-of-line' would put point
;; after it. Use `end-of-line' to stay on current line. ;; after it. Use `end-of-line' to stay on current line.
(call-interactively 'end-of-line)) (call-interactively 'end-of-line))
(t (t (call-interactively move-fun)))))
(call-interactively
(if (fboundp 'move-end-of-line) 'move-end-of-line 'end-of-line))))))
(org-no-warnings (and (featurep 'xemacs) (setq zmacs-region-stays t))))) (org-no-warnings (and (featurep 'xemacs) (setq zmacs-region-stays t)))))
(define-key org-mode-map "\C-a" 'org-beginning-of-line) (define-key org-mode-map "\C-a" 'org-beginning-of-line)