Protect the call to x-selection-value.

This commit is contained in:
Carsten Dominik 2008-04-21 21:24:23 +02:00
parent 51eac353ae
commit e6590eed4d
2 changed files with 7 additions and 1 deletions

View File

@ -1,3 +1,8 @@
2008-04-21 Carsten Dominik <dominik@science.uva.nl>
* lisp/org-remember.el (org-get-x-clipboard): Protect the call to
`x-selection-value'.
2008-04-16 Jason Riedy <jason@acm.org>
* lisp/org-table.el (orgtbl-to-generic): Add a :remove-nil-lines

View File

@ -280,7 +280,8 @@ RET at beg-of-buf -> Append to file as level 2 headline
(if (eq window-system 'x)
(let ((x (if org-xemacs-p
(org-no-warnings (get-selection-no-error value))
(x-selection-value value))))
(and (fboundp 'x-selection-value)
(x-selection-value value)))))
(and (> (length x) 0) (set-text-properties 0 (length x) nil x) x))))
;;;###autoload