diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-04-29 00:31:35 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-04-29 00:31:35 +0200 |
commit | 89071f287f6ef1cd957c08ab1a272a0b57315c8f (patch) | |
tree | 09c9cf151bbfed7738b1fd537c04784780e4b51a | |
parent | ba5bedc17f057f7662f2fe0c2cfcc888650eba3a (diff) | |
download | org-mode-89071f287f6ef1cd957c08ab1a272a0b57315c8f.tar.gz |
org-table: Fix failing tests
* lisp/org-table.el (org-table-copy-region): Preserve return value.
Sligthly improve docstring.
-rw-r--r-- | lisp/org-table.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/org-table.el b/lisp/org-table.el index 5d316d2..e74002c 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -1835,8 +1835,9 @@ If there is no active region, use just the field at point." ;;;###autoload (defun org-table-copy-region (beg end &optional cut) "Copy rectangular region in table to clipboard. -A special clipboard is used which can only be accessed -with `org-table-paste-rectangle'." +A special clipboard is used which can only be accessed with +`org-table-paste-rectangle'. Return the region copied, as a list +of lists of fields." (interactive (list (if (org-region-active-p) (region-beginning) (point)) (if (org-region-active-p) (region-end) (point)) @@ -1865,8 +1866,9 @@ with `org-table-paste-rectangle'." (forward-line)) (set-marker end nil)) (when cut (org-table-align)) - (setq org-table-clip (nreverse region)) - (message (substitute-command-keys "Cells in the region copied, use \\[org-table-paste-rectangle] to paste them in a table.")))) + (message (substitute-command-keys "Cells in the region copied, use \ +\\[org-table-paste-rectangle] to paste them in a table.")) + (setq org-table-clip (nreverse region)))) ;;;###autoload (defun org-table-paste-rectangle () |