summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2012-11-05 17:40:48 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2012-11-05 17:40:48 +0100
commit854ddf635c517aed0c742fbcb63c1489bb87b4b6 (patch)
treec1022c6ea6cb8eb8c6b7f018687dca09b75dca8f
parent1896fc352f3447a4f7c636d5e5c1630b578717cf (diff)
parentc20730be9aef8c5389aaaef08664515b0a749bd9 (diff)
downloadorg-mode-854ddf635c517aed0c742fbcb63c1489bb87b4b6.tar.gz
Merge branch 'maint'
-rw-r--r--lisp/org.el23
1 files changed, 9 insertions, 14 deletions
diff --git a/lisp/org.el b/lisp/org.el
index d944afb..ad2863b 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -21637,10 +21637,12 @@ tags on the first attempt, and only move to after the tags when
the cursor is already beyond the end of the headline."
(interactive "P")
(let ((special (if (consp org-special-ctrl-a/e) (cdr org-special-ctrl-a/e)
- org-special-ctrl-a/e)))
- (if (or (not special) arg)
- (call-interactively
- (if (fboundp 'move-end-of-line) 'move-end-of-line 'end-of-line))
+ org-special-ctrl-a/e))
+ (move-fun (cond ((org-bound-and-true-p visual-line-mode)
+ 'end-of-visual-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)
(org-element-at-point)))
(type (org-element-type element)))
@@ -21657,19 +21659,12 @@ the cursor is already beyond the end of the headline."
(not (eq this-command last-command)))
(goto-char (match-end 0))
(goto-char (match-beginning 1))))
- (call-interactively
- (if (fboundp 'move-end-of-line) 'move-end-of-line
- '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))
+ (call-interactively move-fun))))
+ ((org-element-property :hiddenp element)
;; If element is hidden, `move-end-of-line' would put point
;; after it. Use `end-of-line' to stay on current line.
(call-interactively 'end-of-line))
- (t
- (call-interactively
- (if (fboundp 'move-end-of-line) 'move-end-of-line 'end-of-line))))))
+ (t (call-interactively move-fun)))))
(org-no-warnings (and (featurep 'xemacs) (setq zmacs-region-stays t)))))
(define-key org-mode-map "\C-a" 'org-beginning-of-line)