diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2013-09-08 18:22:51 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2013-09-08 18:22:51 +0200 |
commit | e677589e69140f64a7e165b2ea0287df4d0a20c3 (patch) | |
tree | 5ed3c334c31515a39fd18d9fe047156c81f2ce7a | |
parent | 8ad6f534f9b24f273b7699199df34c0f44f9059f (diff) | |
download | org-mode-e677589e69140f64a7e165b2ea0287df4d0a20c3.tar.gz |
Stop C-a and C-e from deactivating the mark
* lisp/org.el (org-beginning-of-line):
(org-end-of-line): Bind deactivate-mark to avoid that this command
deactivates it.
-rw-r--r-- | lisp/org.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index 7f0717e..59a22a2 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -22704,7 +22704,7 @@ beyond the end of the headline." (special (if (consp org-special-ctrl-a/e) (car org-special-ctrl-a/e) org-special-ctrl-a/e)) - refpos) + deactivate-mark refpos) (if (org-bound-and-true-p visual-line-mode) (beginning-of-visual-line 1) (beginning-of-line 1)) @@ -22772,7 +22772,8 @@ the cursor is already beyond the end of the headline." (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)))) + (t 'end-of-line))) + deactivate-mark) (if (or (not special) arg) (call-interactively move-fun) (let* ((element (save-excursion (beginning-of-line) (org-element-at-point))) |