summaryrefslogtreecommitdiff
path: root/lisp/gnus/nnheader.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2017-04-08 13:16:08 -0700
committerGlenn Morris <rgm@gnu.org>2017-04-08 13:16:08 -0700
commitbca1fde85f44d0cb04aec25b0a93d37bbd757460 (patch)
tree1fbc47f3b0b15acbfddb73eacf61ad58940ede79 /lisp/gnus/nnheader.el
parentb7d61609bd2a5a97b63733a4c16194850e48de2a (diff)
downloademacs-bca1fde85f44d0cb04aec25b0a93d37bbd757460.tar.gz
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/gnus/nnheader.el')
-rw-r--r--lisp/gnus/nnheader.el16
1 files changed, 3 insertions, 13 deletions
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: