Преглед на файлове

org-table: Fix failing tests

* lisp/org-table.el (org-table-copy-region): Preserve return value.
  Sligthly improve docstring.
Nicolas Goaziou преди 7 години
родител
ревизия
89071f287f
променени са 1 файла, в които са добавени 6 реда и са изтрити 4 реда
  1. 6 4
      lisp/org-table.el

+ 6 - 4
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 ()