diff options
| author | Glenn Morris | 2017-04-08 13:16:08 -0700 |
|---|---|---|
| committer | Glenn Morris | 2017-04-08 13:16:08 -0700 |
| commit | bca1fde85f44d0cb04aec25b0a93d37bbd757460 (patch) | |
| tree | 1fbc47f3b0b15acbfddb73eacf61ad58940ede79 /lisp/emulation | |
| parent | b7d61609bd2a5a97b63733a4c16194850e48de2a (diff) | |
| download | emacs-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.el | 3 | ||||
| -rw-r--r-- | lisp/emulation/viper-util.el | 7 |
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. |
| 329 | The default tries to set this variable to work with Unix, Windows, | 329 | The default tries to set this variable to work with Unix or MS Windows. |
| 330 | and OS/2. | ||
| 331 | 330 | ||
| 332 | However, if it doesn't work right for some types of Unix shells or some OS, | 331 | However, if it doesn't work right for some types of Unix shells or some OS, |
| 333 | the user should supply the appropriate function and set this variable to the | 332 | 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 @@ | |||
| 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) |