[Emacs-diffs] Changes to emacs/lisp/select.el [lexbind]

[Miles Bader]

Index: emacs/lisp/select.el
diff -c emacs/lisp/select.el:1.17.2.1 emacs/lisp/select.el:1.17.2.2
*** emacs/lisp/select.el:1.17.2.1       Fri Apr  4 01:20:10 2003
--- emacs/lisp/select.el        Tue Oct 14 19:51:22 2003
***************
*** 38,44 ****
  TYPE may be `SECONDARY' or `CLIPBOARD', in addition to `PRIMARY'.
  DATA-TYPE is usually `STRING', but can also be one of the symbols
  in `selection-converter-alist', which see."
!   (x-get-selection-internal (or type 'PRIMARY) (or data-type 'STRING)))
  
  (defun x-get-clipboard ()
    "Return text pasted to the clipboard."
--- 38,55 ----
  TYPE may be `SECONDARY' or `CLIPBOARD', in addition to `PRIMARY'.
  DATA-TYPE is usually `STRING', but can also be one of the symbols
  in `selection-converter-alist', which see."
!   (let ((data (x-get-selection-internal (or type 'PRIMARY)
!                                       (or data-type 'STRING)))
!       coding)
!     (when (and (stringp data)
!              (setq data-type (get-text-property 0 'foreign-selection data)))
!       (setq coding (if (eq data-type 'UTF8_STRING)
!                      'utf-8
!                    (or next-selection-coding-system
!                        selection-coding-system))
!           data (decode-coding-string data coding))
!       (put-text-property 0 (length data) 'foreign-selection data-type data))
!     data))
  
  (defun x-get-clipboard ()
    "Return text pasted to the clipboard."
***************
*** 378,381 ****
--- 389,393 ----
  
  (provide 'select)
  
+ ;;; arch-tag: bb634f97-8a3b-4b0a-b940-f6e09982328c
  ;;; select.el ends here