/[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.161 by jpw, Mon Mar 10 13:29:05 2003 UTC revision 1.162 by handa, Thu Mar 13 06:23:59 2003 UTC
# Line 2126  This is in addition to, but in preferenc Line 2126  This is in addition to, but in preferenc
2126    (cond ((>= (length text) x-cut-buffer-max)    (cond ((>= (length text) x-cut-buffer-max)
2127           (x-set-cut-buffer "" push)           (x-set-cut-buffer "" push)
2128           (setq x-last-selected-text-cut ""))           (setq x-last-selected-text-cut ""))
2129            ((and (multibyte-string-p text)
2130                  (let ((charsets (find-charset-string text)))
2131                    (or (memq 'eight-bit-control charsets)
2132                        (memq 'eight-bit-graphic charsets))))
2133             (x-set-cut-buffer "" push)
2134             (setq x-last-selected-text-cut ""))
2135          (t          (t
2136        (x-set-cut-buffer text push)           (x-set-cut-buffer text push)
2137           (setq x-last-selected-text-cut text)))           (setq x-last-selected-text-cut text)))
2138    (x-set-selection 'PRIMARY text)    (x-set-selection 'PRIMARY text)
2139    (setq x-last-selected-text-primary text)    (setq x-last-selected-text-primary text)
2140    (when x-select-enable-clipboard    (when x-select-enable-clipboard
2141        (x-set-selection 'CLIPBOARD text)      (x-set-selection 'CLIPBOARD text)
2142        (setq x-last-selected-text-clipboard text))      (setq x-last-selected-text-clipboard text))
2143    )    )
2144    
2145  ;;; Return the value of the current X selection.  ;;; Return the value of the current X selection.

Legend:
Removed from v.1.161  
changed lines
  Added in v.1.162

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