forked from mirrors/org-mode
org-table: Fix failing tests
* lisp/org-table.el (org-table-copy-region): Preserve return value. Sligthly improve docstring.
This commit is contained in:
parent
ba5bedc17f
commit
89071f287f
|
@ -1835,8 +1835,9 @@ If there is no active region, use just the field at point."
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun org-table-copy-region (beg end &optional cut)
|
(defun org-table-copy-region (beg end &optional cut)
|
||||||
"Copy rectangular region in table to clipboard.
|
"Copy rectangular region in table to clipboard.
|
||||||
A special clipboard is used which can only be accessed
|
A special clipboard is used which can only be accessed with
|
||||||
with `org-table-paste-rectangle'."
|
`org-table-paste-rectangle'. Return the region copied, as a list
|
||||||
|
of lists of fields."
|
||||||
(interactive (list
|
(interactive (list
|
||||||
(if (org-region-active-p) (region-beginning) (point))
|
(if (org-region-active-p) (region-beginning) (point))
|
||||||
(if (org-region-active-p) (region-end) (point))
|
(if (org-region-active-p) (region-end) (point))
|
||||||
|
@ -1865,8 +1866,9 @@ with `org-table-paste-rectangle'."
|
||||||
(forward-line))
|
(forward-line))
|
||||||
(set-marker end nil))
|
(set-marker end nil))
|
||||||
(when cut (org-table-align))
|
(when cut (org-table-align))
|
||||||
(setq org-table-clip (nreverse region))
|
(message (substitute-command-keys "Cells in the region copied, use \
|
||||||
(message (substitute-command-keys "Cells in the region copied, use \\[org-table-paste-rectangle] to paste them in a table."))))
|
\\[org-table-paste-rectangle] to paste them in a table."))
|
||||||
|
(setq org-table-clip (nreverse region))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun org-table-paste-rectangle ()
|
(defun org-table-paste-rectangle ()
|
||||||
|
|
Loading…
Reference in a new issue