# HG changeset patch # User Eli Zaretskii # Date 893252700 0 # Node ID 70d6549a41058300388dca88def3c94089f18381 # Parent 64adf1f4d54dc3a279a6b04b96adfbc87d4578cd (x-select-text, x-get-selection-value): Replace win16 with w16. diff -r 64adf1f4d54d -r 70d6549a4105 lisp/term/pc-win.el --- a/lisp/term/pc-win.el Wed Apr 22 13:39:59 1998 +0000 +++ b/lisp/term/pc-win.el Wed Apr 22 13:45:00 1998 +0000 @@ -339,7 +339,7 @@ The value may be different for frames on different X displays." x-colors) -;; From lisp/term/win32-win.el +;; From lisp/term/w32-win.el ; ;;;; Selections and cut buffers ; @@ -354,7 +354,7 @@ (defun x-select-text (text &optional push) (if x-select-enable-clipboard - (win16-set-clipboard-data text)) + (w16-set-clipboard-data text)) (setq x-last-selected-text text)) ;;; Return the value of the current selection. @@ -365,8 +365,8 @@ (let (text) ;; Don't die if x-get-selection signals an error. (condition-case c - (setq text (win16-get-clipboard-data)) - (error (message "win16-get-clipboard-data:%s" c))) + (setq text (w16-get-clipboard-data)) + (error (message "w16-get-clipboard-data:%s" c))) (if (string= text "") (setq text nil)) (cond ((not text) nil)