mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Add messages for `org-table-copy-region' and `org-copy-visible' 

* lisp/org-table.el (org-table-copy-region):
* lisp/org.el (org-copy-visible): Add a message.
This commit is contained in:
Bastien 2018-04-28 12:52:20 +02:00
parent b5b7bb8446
commit 5c8cb1e733
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org-table.el
View File

@ -1865,7 +1865,8 @@ with `org-table-paste-rectangle'."
(forward-line))
(set-marker end nil))
(when cut (org-table-align))
(setq org-table-clip (nreverse region))))
(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."))))
;;;###autoload
(defun org-table-paste-rectangle ()

3
lisp/org.el
View File

@ -20008,7 +20008,8 @@ this numeric value."
(let ((next (next-single-char-property-change beg 'invisible nil end)))
(setq result (concat result (buffer-substring beg next)))
(setq beg next)))
(kill-new result)))
(kill-new result)
(message "Visible strings have been copied to the kill ring.")))
(defun org-copy-special ()
"Copy region in table or copy current subtree.