X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/9075fcc1937a211bc91e8bc49c332bc55ac99e24..c69aef14ddc150da07dcd3527b5a9fb99d6cef34:/lisp/obsolete/pc-select.el

diff --git a/lisp/obsolete/pc-select.el b/lisp/obsolete/pc-select.el
index 5ee0818a1e..9fa573cb5f 100644
--- a/lisp/obsolete/pc-select.el
+++ b/lisp/obsolete/pc-select.el
@@ -2,7 +2,7 @@
 ;;;		     (or MAC GUI or MS-windoze (bah)) look-and-feel
 ;;;		     including key bindings.
 
-;; Copyright (C) 1995-1997, 2000-2014 Free Software Foundation, Inc.
+;; Copyright (C) 1995-1997, 2000-2016 Free Software Foundation, Inc.
 
 ;; Author: Michael Staats <michael@thp.Uni-Duisburg.DE>
 ;; Keywords: convenience emulations
@@ -337,7 +337,7 @@ but before calling PC Selection mode):
 			    (cadr pc-select-meta-moves-sexps-key-bindings))
 			  (if  (or pc-select-selection-keys-only
 				   (eq window-system 'x)
-				   (memq system-name '(ms-dos windows-nt)))
+				   (memq system-type '(ms-dos windows-nt)))
 			      nil
 			    pc-select-tty-key-bindings)))
 
@@ -346,7 +346,7 @@ but before calling PC Selection mode):
 
 	    (unless  (or pc-select-selection-keys-only
 			 (eq window-system 'x)
-			 (memq system-name '(ms-dos windows-nt)))
+			 (memq system-type '(ms-dos windows-nt)))
 	      ;; it is not clear that we need the following line
 	      ;; I hope it doesn't do too much harm to leave it in, though...
 	      (setq pc-select-old-M-delete-binding
@@ -355,7 +355,7 @@ but before calling PC Selection mode):
 
 	    (when (and (not pc-select-selection-keys-only)
 		       (or (eq window-system 'x)
-			   (memq system-name '(ms-dos windows-nt)))
+			   (memq system-type '(ms-dos windows-nt)))
 		       (fboundp 'normal-erase-is-backspace-mode))
 	      (pc-select-save-and-set-mode normal-erase-is-backspace-mode 1
 					   normal-erase-is-backspace))
@@ -378,13 +378,13 @@ but before calling PC Selection mode):
 			       (current-global-map))
 	(unless  (or pc-select-selection-keys-only
 		     (eq window-system 'x)
-		     (memq system-name '(ms-dos windows-nt)))
+		     (memq system-type '(ms-dos windows-nt)))
 	  ;; it is not clear that we need the following line
 	  ;; I hope it doesn't do too much harm to leave it in, though...
 	  (define-key function-key-map  [M-delete] [?\M-d]))
 	(when (and (not pc-select-selection-keys-only)
 		   (or (eq window-system 'x)
-		       (memq system-name '(ms-dos windows-nt)))
+		       (memq system-type '(ms-dos windows-nt)))
 		   (fboundp 'normal-erase-is-backspace-mode))
 	  (normal-erase-is-backspace-mode 1))
 	(setq highlight-nonselected-windows nil)
@@ -395,7 +395,7 @@ but before calling PC Selection mode):
     (when pc-select-key-bindings-alist
       (when (and (not pc-select-selection-keys-only)
 		 (or (eq window-system 'x)
-		     (memq system-name '(ms-dos windows-nt))))
+		     (memq system-type '(ms-dos windows-nt))))
 	(pc-select-restore-mode normal-erase-is-backspace-mode))
 
       (pc-select-restore-keys