Remove references to OS/2 in code, doc, and comments

* lisp/gnus/nnheader.el (nnheader-read-timeout)
(nnheader-file-name-translation-alist): Remove OS/2 case, and simplify.
* lisp/emulation/viper-util.el (viper-color-defined-p):
* lisp/net/pop3.el (pop3-read-timeout):
* lisp/net/imap.el (imap-read-timeout):
* lisp/url/url-privacy.el (url-setup-privacy-info): Remove OS/2 case.
* lisp/emulation/viper-ex.el (viper-glob-function):
* lisp/vc/ediff-util.el (ediff-submit-report): Doc fix.
* lisp/cus-edit.el (custom-display): Remove "pm" (OS/2).
* doc/emacs/msdos-xtra.texi (MS-DOS):
* doc/misc/gnus.texi (Various Various):
* doc/misc/viper.texi (Rudimentary Changes): Remove mentions of OS/2.
; * lisp/url/url.el, lisp/url/url-vars.el:
; * lisp/progmodes/cperl-mode.el: Remove old comments.

11 files changed, 17 insertions, 56 deletions

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index fac9c77e12a..f408e835769 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -3246,10 +3246,6 @@ Only match the specified window systems.")
                                            :sibling-args (:help-echo "\
 The X11 Window System.")
                                            x)
-                                    (const :format "PM "
-                                           :sibling-args (:help-echo "\
-OS/2 Presentation Manager.")
-                                           pm)
                                     (const :format "W32 "
                                            :sibling-args (:help-echo "\
 MS Windows.")
diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el
index edc71ea859b..ca067033e63 100644
--- a/lisp/emulation/viper-ex.el
+++ b/lisp/emulation/viper-ex.el
@@ -326,8 +326,7 @@ Don't put `-c' here, as it is added automatically."
         (t  'viper-glob-unix-files) ; presumably UNIX
         )
   "Expand the file spec containing wildcard symbols.
-The default tries to set this variable to work with Unix, Windows,
-and OS/2.
+The default tries to set this variable to work with Unix or MS Windows.
 
 However, if it doesn't work right for some types of Unix shells or some OS,
 the user should supply the appropriate function and set this variable to the
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index e6fd6095dc2..e32b41f5750 100644
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -29,7 +29,6 @@
 
 ;; Compiler pacifier
 (defvar viper-overriding-map)
-(defvar pm-color-alist)
 (defvar viper-minibuffer-current-face)
 (defvar viper-minibuffer-insert-face)
 (defvar viper-minibuffer-vi-face)
@@ -132,12 +131,6 @@ Otherwise return the normal value."
          (if fp (cdr fp)
            ,variable)))))
 
-;; OS/2
-(cond ((eq (viper-device-type) 'pm)
-       (fset 'viper-color-defined-p
-             (lambda (color) (assoc color pm-color-alist)))))
-
-
 ;; cursor colors
 (defun viper-change-cursor-color (new-color &optional frame)
   (if (and (viper-window-display-p)  (viper-color-display-p)
diff --git a/lisp/gnus/nnheader.el b/lisp/gnus/nnheader.el
index 648485b4f61..cc3dccea25f 100644
--- a/lisp/gnus/nnheader.el
+++ b/lisp/gnus/nnheader.el
@@ -82,8 +82,7 @@ Integer values will in effect be rounded up to the nearest multiple of
   :type 'integer)
 
 (defvar nnheader-read-timeout
-  (if (string-match "windows-nt\\|os/2\\|cygwin"
-                    (symbol-name system-type))
+  (if (memq system-type '(windows-nt cygwin))
       ;; http://thread.gmane.org/v9655t3pjo.fsf@marauder.physik.uni-ulm.de
       ;;
       ;; IIRC, values lower than 1.0 didn't/don't work on Windows/DOS.
@@ -105,17 +104,8 @@ Integer values will in effect be rounded up to the nearest multiple of
 Shorter values mean quicker response, but are more CPU intensive.")
 
 (defcustom nnheader-file-name-translation-alist
-  (let ((case-fold-search t))
-    (cond
-     ((string-match "windows-nt\\|os/2\\|cygwin"
-                    (symbol-name system-type))
-      (append (mapcar (lambda (c) (cons c ?_))
-                      '(?: ?* ?\" ?< ?> ??))
-              (if (string-match "windows-nt\\|cygwin"
-                                (symbol-name system-type))
-                  nil
-                '((?+ . ?-)))))
-     (t nil)))
+  (if (memq system-type '(windows-nt cygwin))
+      (mapcar (lambda (c) (cons c ?_)) '(?: ?* ?\" ?< ?> ??)))
   "Alist that says how to translate characters in file names.
 For instance, if \":\" is invalid as a file character in file names
 on your system, you could say something like:
diff --git a/lisp/net/imap.el b/lisp/net/imap.el
index ada2c477e9e..7b293921a43 100644
--- a/lisp/net/imap.el
+++ b/lisp/net/imap.el
@@ -249,9 +249,7 @@ See also `imap-log'."
   :group 'imap
   :type 'string)
 
-(defcustom imap-read-timeout (if (string-match
-                                  "windows-nt\\|os/2\\|cygwin"
-                                  (symbol-name system-type))
+(defcustom imap-read-timeout (if (memq system-type '(windows-nt cygwin))
                                  1.0
                                0.1)
   "How long to wait between checking for the end of output.
diff --git a/lisp/net/pop3.el b/lisp/net/pop3.el
index 6230a15c85b..2ef63217256 100644
--- a/lisp/net/pop3.el
+++ b/lisp/net/pop3.el
@@ -159,8 +159,7 @@ Used for APOP authentication.")
       (defalias 'pop3-accept-process-output 'nnheader-accept-process-output)
     ;; Borrowed from `nnheader.el':
     (defvar pop3-read-timeout
-      (if (string-match "windows-nt\\|os/2\\|cygwin"
-                        (symbol-name system-type))
+      (if (memq system-type '(windows-nt cygwin))
           1.0
         0.01)
       "How long pop3 should wait between checking for the end of output.
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index f4cb478e028..23ea91fe95b 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -1922,10 +1922,7 @@ or as help on variables `cperl-tips', `cperl-problems',
   (perldb (read-from-minibuffer "Run perldb (like this): "
                                 (if (consp gud-perldb-history)
                                     (car gud-perldb-history)
-                                  (concat "perl " ;;(file-name-nondirectory
-                                          ;; I have problems
-                                          ;; in OS/2
-                                          ;; otherwise
+                                  (concat "perl "
                                           (buffer-file-name)))
                                 nil nil
                                 '(gud-perldb-history . 1))))
@@ -6644,7 +6641,6 @@ Customized by setting variables `cperl-shrink-wrap-info-frame',
                        (if not-loner
                            (/ (* (- frheight 3) cperl-max-help-size) 100)
                          (setq char-height (frame-char-height))
-                         ;; Non-functioning under OS/2:
                          (if (eq char-height 1) (setq char-height 18))
                          ;; Title, menubar, + 2 for slack
                          (- (/ (display-pixel-height) char-height) 4)))
@@ -7010,7 +7006,7 @@ Does not move point."
         (setq pos (point))
         (goto-char 1)
         (setq rel file)
-        ;; On case-preserving filesystems (EMX on OS/2) case might be encoded in properties
+        ;; On case-preserving filesystems case might be encoded in properties
         (set-text-properties 0 (length rel) nil rel)
         (and (equal topdir (substring rel 0 (length topdir)))
              (setq rel (substring file (length topdir))))
@@ -7103,7 +7099,7 @@ Use as
                     (t
                      (goto-char 1)
                      (setq rel file)
-                     ;; On case-preserving filesystems (EMX on OS/2) case might be encoded in properties
+                     ;; On case-preserving filesystems case might be encoded in properties
                      (set-text-properties 0 (length rel) nil rel)
                      (and (equal topdir (substring rel 0 (length topdir)))
                           (setq rel (substring file (length topdir))))
diff --git a/lisp/url/url-privacy.el b/lisp/url/url-privacy.el
index b27d76bab5d..90dfb275132 100644
--- a/lisp/url/url-privacy.el
+++ b/lisp/url/url-privacy.el
@@ -43,7 +43,6 @@
          ((eq system-type 'windows-nt) "Windows-NT; 32bit")
          ((eq system-type 'ms-dos) "MS-DOS; 32bit")
          ((memq (url-device-type) '(win32 w32)) "Windows; 32bit")
-         ((eq (url-device-type) 'pm) "OS/2; 32bit")
          (t
           (pcase (url-device-type)
             (`x "X11")
diff --git a/lisp/url/url-vars.el b/lisp/url/url-vars.el
index d6c4667da46..f08779f6950 100644
--- a/lisp/url/url-vars.el
+++ b/lisp/url/url-vars.el
@@ -410,10 +410,6 @@ Should be one of:
   :group 'url
   :type 'hook)
 
-;;; Make OS/2 happy - yeeks
-;; (defvar      tcp-binary-process-input-services nil
-;;   "*Make OS/2 happy with our CRLF pairs...")
-
 (defconst url-working-buffer " *url-work")
 
 (defvar url-gateway-unplugged nil
diff --git a/lisp/url/url.el b/lisp/url/url.el
index 75cf77deaa4..be6377ceb3a 100644
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -58,9 +58,6 @@ This is to avoid conflict with user settings if URL is dumped with
 Emacs."
   (unless url-setup-done
 
-    ;; Make OS/2 happy
-    ;;(push '("http" "80") tcp-binary-process-input-services)
-
     (mailcap-parse-mailcaps)
     (mailcap-parse-mimetypes)
 
diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el
index 549066e1eca..aea5f76d4fc 100644
--- a/lisp/vc/ediff-util.el
+++ b/lisp/vc/ediff-util.el
@@ -3277,16 +3277,14 @@ Hit \\[ediff-recenter] to reset the windows afterward."
     file))
 
 
-;; Quote metacharacters (using \) when executing diff in Unix, but not in
-;; EMX OS/2
+;; Quote metacharacters (using \) when executing diff in Unix.
 ;;(defun ediff-protect-metachars (str)
-;;  (or (memq system-type '(emx))
-;;      (let ((limit 0))
-;;      (while (string-match ediff-metachars str limit)
-;;        (setq str (concat (substring str 0 (match-beginning 0))
-;;                          "\\"
-;;                          (substring str (match-beginning 0))))
-;;        (setq limit (1+ (match-end 0))))))
+;;  (let ((limit 0))
+;;    (while (string-match ediff-metachars str limit)
+;;      (setq str (concat (substring str 0 (match-beginning 0))
+;;                      "\\"
+;;                      (substring str (match-beginning 0))))
+;;      (setq limit (1+ (match-end 0)))))
 ;;  str)
 
 ;; Make sure the current buffer (for a file) has the same contents as the
@@ -4059,7 +4057,7 @@ interfaces to several other packages and runs under Emacs and XEmacs,
 byte-compilation may produce output like this:
 
        While compiling toplevel forms in file ediff.el:
-         ** reference to free variable pm-color-alist
+         ** reference to free variable zzz
            ........................
        While compiling the end of the data:
          ** The following functions are not known to be defined: