Update copyright year to 2015

[gnu-emacs] / lisp / obsolete / pc-select.el

diff --git a/lisp/obsolete/pc-select.el b/lisp/obsolete/pc-select.el
index 9a5f9e9d9dcc2c791e276022a98454e3639ba96d..371c33848a5cf641bea18096da57412cd58c8bfb 100644 (file)
--- 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-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1995-1997, 2000-2015 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,24 +378,24 @@ 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)
-       (setq transient-mark-mode t)
+       (transient-mark-mode 1)
        (setq mark-even-if-inactive t)
        (delete-selection-mode 1))
     ;;else
     (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