diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2013-09-14 07:58:56 +0200 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2013-09-14 07:58:56 +0200 |
| commit | bb331aee96144f75516005ccbbd3b7ccb0675701 (patch) | |
| tree | 743c378745f76f3e5757153525ffea3bf865c3b1 | |
| parent | c1f1c026f20b70a19293b1943d26f24c0b7fe63a (diff) | |
| download | org-mode-bb331aee96144f75516005ccbbd3b7ccb0675701.tar.gz | |
Keep paragraph motion commands from deactivating the mark
* lisp/org.el (org-forward-paragraph): Do not deactivate the mark.
(org-backward-paragraph): Do not deactivate the mark.
| -rw-r--r-- | lisp/org.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index 225a9e1..8e970a1 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -23302,7 +23302,8 @@ item, etc. It also provides some special moves for convenience: - On a verse or source block, stop after blank lines." (interactive) (when (eobp) (user-error "Cannot move further down")) - (let* ((element (org-element-at-point)) + (let* ((deactivate-mark nil) + (element (org-element-at-point)) (type (org-element-type element)) (post-affiliated (org-element-property :post-affiliated element)) (contents-begin (org-element-property :contents-begin element)) @@ -23383,7 +23384,8 @@ convenience: - On a verse or source block, stop before blank lines." (interactive) (when (bobp) (user-error "Cannot move further up")) - (let* ((element (org-element-at-point)) + (let* ((deactivate-mark nil) + (element (org-element-at-point)) (type (org-element-type element)) (contents-begin (org-element-property :contents-begin element)) (contents-end (org-element-property :contents-end element)) |