forked from mirrors/org-mode
org-compat: Support for getting data from Windows clipboard
* lisp/org-compat.el (org-get-x-clipboard): Use w32-get-clipboard-data to get the clipboard data under Windows. TINYCHANGE
This commit is contained in:
parent
23e6c72133
commit
b88b5d4fd1
|
@ -190,10 +190,12 @@ If DELETE is non-nil, delete all those overlays."
|
||||||
found))
|
found))
|
||||||
|
|
||||||
(defun org-get-x-clipboard (value)
|
(defun org-get-x-clipboard (value)
|
||||||
"Get the value of the x clipboard, compatible with XEmacs, and GNU Emacs 21."
|
"Get the value of the x or Windows clipboard, compatible with XEmacs, and GNU Emacs 21."
|
||||||
(if (eq window-system 'x)
|
(cond ((eq window-system 'x)
|
||||||
(let ((x (org-get-x-clipboard-compat value)))
|
(let ((x (org-get-x-clipboard-compat value)))
|
||||||
(if x (org-no-properties x)))))
|
(if x (org-no-properties x))))
|
||||||
|
((and (eq window-system 'w32) (fboundp 'w32-get-clipboard-data))
|
||||||
|
(w32-get-clipboard-data))))
|
||||||
|
|
||||||
(defsubst org-decompose-region (beg end)
|
(defsubst org-decompose-region (beg end)
|
||||||
"Decompose from BEG to END."
|
"Decompose from BEG to END."
|
||||||
|
|
Loading…
Reference in New Issue