diff options
Diffstat (limited to 'lisp/menu-bar.el')
| -rw-r--r-- | lisp/menu-bar.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 13c4c36be17..9e267d26c9b 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -545,17 +545,17 @@ (let ((x-select-enable-clipboard t)) (yank))) -(defun clipboard-kill-ring-save (beg end) +(defun clipboard-kill-ring-save (beg end &optional region) "Copy region to kill ring, and save in the X clipboard." - (interactive "r") + (interactive "r\np") (let ((x-select-enable-clipboard t)) - (kill-ring-save beg end))) + (kill-ring-save beg end region))) -(defun clipboard-kill-region (beg end) +(defun clipboard-kill-region (beg end &optional region) "Kill the region, and save it in the X clipboard." - (interactive "r") + (interactive "r\np") (let ((x-select-enable-clipboard t)) - (kill-region beg end))) + (kill-region beg end region))) (defun menu-bar-enable-clipboard () "Make CUT, PASTE and COPY (keys and menu bar items) use the clipboard. |