aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/emulation
diff options
context:
space:
mode:
authorGlenn Morris2017-04-08 13:16:08 -0700
committerGlenn Morris2017-04-08 13:16:08 -0700
commitbca1fde85f44d0cb04aec25b0a93d37bbd757460 (patch)
tree1fbc47f3b0b15acbfddb73eacf61ad58940ede79 /lisp/emulation
parentb7d61609bd2a5a97b63733a4c16194850e48de2a (diff)
downloademacs-bca1fde85f44d0cb04aec25b0a93d37bbd757460.tar.gz
emacs-bca1fde85f44d0cb04aec25b0a93d37bbd757460.zip
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.
Diffstat (limited to 'lisp/emulation')
-rw-r--r--lisp/emulation/viper-ex.el3
-rw-r--r--lisp/emulation/viper-util.el7
2 files changed, 1 insertions, 9 deletions
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."
326 (t 'viper-glob-unix-files) ; presumably UNIX 326 (t 'viper-glob-unix-files) ; presumably UNIX
327 ) 327 )
328 "Expand the file spec containing wildcard symbols. 328 "Expand the file spec containing wildcard symbols.
329The default tries to set this variable to work with Unix, Windows, 329The default tries to set this variable to work with Unix or MS Windows.
330and OS/2.
331 330
332However, if it doesn't work right for some types of Unix shells or some OS, 331However, if it doesn't work right for some types of Unix shells or some OS,
333the user should supply the appropriate function and set this variable to the 332the 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 @@
29 29
30;; Compiler pacifier 30;; Compiler pacifier
31(defvar viper-overriding-map) 31(defvar viper-overriding-map)
32(defvar pm-color-alist)
33(defvar viper-minibuffer-current-face) 32(defvar viper-minibuffer-current-face)
34(defvar viper-minibuffer-insert-face) 33(defvar viper-minibuffer-insert-face)
35(defvar viper-minibuffer-vi-face) 34(defvar viper-minibuffer-vi-face)
@@ -132,12 +131,6 @@ Otherwise return the normal value."
132 (if fp (cdr fp) 131 (if fp (cdr fp)
133 ,variable))))) 132 ,variable)))))
134 133
135;; OS/2
136(cond ((eq (viper-device-type) 'pm)
137 (fset 'viper-color-defined-p
138 (lambda (color) (assoc color pm-color-alist)))))
139
140
141;; cursor colors 134;; cursor colors
142(defun viper-change-cursor-color (new-color &optional frame) 135(defun viper-change-cursor-color (new-color &optional frame)
143 (if (and (viper-window-display-p) (viper-color-display-p) 136 (if (and (viper-window-display-p) (viper-color-display-p)