/[emacs]/emacs/lisp/term/x-win.el
ViewVC logotype

Diff of /emacs/lisp/term/x-win.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.176 by lektu, Mon May 16 11:27:56 2005 UTC revision 1.177 by handa, Fri Jun 10 01:50:51 2005 UTC
# Line 2467  order until succeed.") Line 2467  order until succeed.")
2467    (interactive)    (interactive)
2468    (let ((clipboard-text    (let ((clipboard-text
2469           (condition-case nil           (condition-case nil
2470               (x-get-selection 'CLIPBOARD)               (x-selection-value 'CLIPBOARD)
2471             (error nil)))             (error nil)))
2472          (x-select-enable-clipboard t))          (x-select-enable-clipboard t))
2473      (if (and clipboard-text (> (length clipboard-text) 0))      (if (and clipboard-text (> (length clipboard-text) 0))

Legend:
Removed from v.1.176  
changed lines
  Added in v.1.177

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26