system-type related trivia.

* lisp/cedet/semantic/bovine/c.el: Test system-type with memq.

* lisp/progmodes/cperl-mode.el (cperl-find-pods-heres, cperl-write-tags):
No recent Emacs supports system-type `emx'.

* lisp/progmodes/ada-xref.el (is-windows): Rename to ada-on-ms-windows.
(ada-command-separator, ada-default-prj-properties)
(ada-find-any-references): Update for above name change.

* lisp/dirtrack.el (dirtrack-directory-function)
(dirtrack-canonicalize-function):
* lisp/filecache.el (file-cache-completion-ignore-case)
(file-cache-case-fold-search, file-cache-ignore-case):
* lisp/term.el (serial-port-is-file-p): Cosmetic change.

* lisp/emulation/viper-init.el (viper-ms-style-os-p): Doc fix.
Remove non-existent `windows-95' system-type.
* lisp/dired.el (dired-chown-program): Remove non-existent `linux'
system-type.

* lisp/locate.el: Comment.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 19500be1a7f409a3849fbc6db7cfa10be7acc90f..2ab7e98c7dda957330619a004fea274532a9a8b2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,23 @@
 2010-11-10  Glenn Morris  <rgm@gnu.org>
 
+       * progmodes/cperl-mode.el (cperl-find-pods-heres, cperl-write-tags):
+       No recent Emacs supports system-type `emx'.
+
+       * progmodes/ada-xref.el (is-windows): Rename to ada-on-ms-windows.
+       (ada-command-separator, ada-default-prj-properties)
+       (ada-find-any-references): Update for above name change.
+
+       * dirtrack.el (dirtrack-directory-function)
+       (dirtrack-canonicalize-function):
+       * filecache.el (file-cache-completion-ignore-case)
+       (file-cache-case-fold-search, file-cache-ignore-case):
+       * term.el (serial-port-is-file-p): Cosmetic change.
+
+       * emulation/viper-init.el (viper-ms-style-os-p): Doc fix.
+       Remove non-existent `windows-95' system-type.
+       * dired.el (dired-chown-program): Remove non-existent `linux'
+       system-type.
+
        * net/net-utils.el (net-utils-remove-ctl-m): Use memq for system-types.
        (ping-program-options): Remove non-existent `linux' system-type.
 

diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog
index d225d8d15fe7ba04546b8a90d71b0099d772d889..8f5daf1ea2280b40f893c391809a33f453ffae45 100644 (file)
--- a/lisp/cedet/ChangeLog
+++ b/lisp/cedet/ChangeLog
@@ -1,3 +1,7 @@
+2010-11-10  Glenn Morris  <rgm@gnu.org>
+
+       * semantic/bovine/c.el: Test system-type with memq.
+
 2010-11-09  Glenn Morris  <rgm@gnu.org>
 
        * semantic/lex.el (semantic-lex-ignore-comments, semantic-flex):

diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el
index 2bac420a1c533d263fcda1dfdb5cd25c4696c436..1b441a27d2b93534df82b4ec5d3774f0c0125681 100644 (file)
--- a/lisp/cedet/semantic/bovine/c.el
+++ b/lisp/cedet/semantic/bovine/c.el
@@ -94,8 +94,8 @@ NOTE: In process of obsoleting this."
 ;; Compiler options need to show up after path setup, but before
 ;; the preprocessor section.
 
-(when (member system-type '(gnu gnu/linux darwin cygwin))
-  (semantic-gcc-setup))
+(if (memq system-type '(gnu gnu/linux darwin cygwin))
+    (semantic-gcc-setup))
 
 ;;; Pre-processor maps
 ;;

diff --git a/lisp/dired.el b/lisp/dired.el
index 04ba6083c2156b4a16f07433d7f87a0982ef1046..bd3fb531d774ed982174a42eaadbd500c81ac878 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -73,7 +73,7 @@ If nil, `dired-listing-switches' is used.")
 ;;;###autoload
 (defvar dired-chown-program
   (purecopy
-  (if (memq system-type '(hpux usg-unix-v irix linux gnu/linux cygwin))
+  (if (memq system-type '(hpux usg-unix-v irix gnu/linux cygwin))
       "chown"
     (if (file-exists-p "/usr/sbin/chown")
        "/usr/sbin/chown"

diff --git a/lisp/dirtrack.el b/lisp/dirtrack.el
index 4e29c51fa75e637b3dda22325e03a40999e1ee38..7a43459f5364a407fd7fdd76062632c87555b942 100644 (file)
--- a/lisp/dirtrack.el
+++ b/lisp/dirtrack.el
@@ -144,7 +144,7 @@ be on a single line."
   :type  'string)
 
 (defcustom dirtrack-directory-function
-  (if (memq system-type (list 'ms-dos 'windows-nt 'cygwin))
+  (if (memq system-type '(ms-dos windows-nt cygwin))
       'dirtrack-windows-directory-function
     'file-name-as-directory)
   "Function to apply to the prompt directory for comparison purposes."
@@ -152,7 +152,7 @@ be on a single line."
   :type  'function)
 
 (defcustom dirtrack-canonicalize-function
-  (if (memq system-type (list 'ms-dos 'windows-nt 'cygwin))
+  (if (memq system-type '(ms-dos windows-nt cygwin))
       'downcase 'identity)
   "Function to apply to the default directory for comparison purposes."
   :group 'dirtrack
@@ -269,5 +269,4 @@ function `dirtrack-debug-mode' to turn on debugging output."
 
 (provide 'dirtrack)
 
-;; arch-tag: 168de071-be88-4937-aff6-2aba9f328d5a
 ;;; dirtrack.el ends here

diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el
index 9f7b473c67a8e0646d594b824acf29191aac57d8..5af9692217186ba2e67c6dd8d84b144d89143aa9 100644 (file)
--- a/lisp/emulation/viper-init.el
+++ b/lisp/emulation/viper-init.el
@@ -1,7 +1,7 @@
 ;;; viper-init.el --- some common definitions for Viper
 
-;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
+;;   2006, 2007, 2008, 2009, 2010  Free Software Foundation, Inc.
 
 ;; Author: Michael Kifer <kifer@cs.stonybrook.edu>
 ;; Package: viper
@@ -63,9 +63,10 @@
 (defun viper-window-display-p ()
   (and (viper-device-type) (not (memq (viper-device-type) '(tty stream pc)))))
 
-(defcustom viper-ms-style-os-p (memq system-type
-                                    '(ms-dos windows-nt windows-95))
-  "Tells if Emacs is running under an MS-style OS: ms-dos, windows-nt, W95."
+(defcustom viper-ms-style-os-p
+  (memq system-type (if (featurep 'emacs) '(ms-dos windows-nt)
+                     '(ms-dos windows-nt windows-95)))
+  "Non-nil if Emacs is running under an MS-style OS: MS-DOS, or MS-Windows."
   :type 'boolean
   :tag "Is it Microsoft-made OS?"
   :group 'viper-misc)
@@ -996,5 +997,4 @@ on a dumb terminal."
 ;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
 ;; End:
 
-;; arch-tag: 4efa2416-1fcb-4690-be10-1a2a0248d250
 ;;; viper-init.el ends here

diff --git a/lisp/filecache.el b/lisp/filecache.el
index b4b1e8bd95413aa7fcfdf0be49d971725fe7a46b..51b7ce59b1eb12a9c7145533ba9337e56b8d8f11 100644 (file)
--- a/lisp/filecache.el
+++ b/lisp/filecache.el
@@ -207,7 +207,7 @@ should be t."
   :group 'file-cache)
 
 (defcustom file-cache-completion-ignore-case
-   (if (memq system-type (list 'ms-dos 'windows-nt 'cygwin))
+  (if (memq system-type '(ms-dos windows-nt cygwin))
       t
      completion-ignore-case)
   "If non-nil, file-cache completion should ignore case.
@@ -216,7 +216,7 @@ Defaults to the value of `completion-ignore-case'."
   :group 'file-cache)
 
 (defcustom file-cache-case-fold-search
-  (if (memq system-type (list 'ms-dos 'windows-nt 'cygwin))
+  (if (memq system-type '(ms-dos windows-nt cygwin))
       t
     case-fold-search)
   "If non-nil, file-cache completion should ignore case.
@@ -225,7 +225,7 @@ Defaults to the value of `case-fold-search'."
   :group 'file-cache)
 
 (defcustom file-cache-ignore-case
-  (memq system-type (list 'ms-dos 'windows-nt 'cygwin))
+  (memq system-type '(ms-dos windows-nt cygwin))
   "Non-nil means ignore case when checking completions in the file cache.
 Defaults to nil on DOS and Windows, and t on other systems."
   :type 'boolean
@@ -687,5 +687,4 @@ match REGEXP."
 
 (provide 'filecache)
 
-;; arch-tag: 433d3ca4-4af2-47ce-b2cf-1f727460f538
 ;;; filecache.el ends here

diff --git a/lisp/locate.el b/lisp/locate.el
index f58b95710e24f17aeef86ab339f8c28cf1c2bab1..4e8925665ca4949de7c172c15a81769e5365b5ce 100644 (file)
--- a/lisp/locate.el
+++ b/lisp/locate.el
@@ -97,7 +97,7 @@
 ;; (defadvice dired-make-relative (before set-no-error activate)
 ;;   "For locate mode and Windows, don't return errors"
 ;;   (if (and (eq   major-mode  'locate-mode)
-;;        (memq system-type (list 'windows-nt 'ms-dos)))
+;;        (memq system-type '(windows-nt ms-dos)))
 ;;       (ad-set-arg 2 t)
 ;;     ))
 ;;

diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index ceda645e682ff3c757f02533cd1f5b0387d2a359..36e297182cf13fb5b8d882be7a3551c3487e4c23 100644 (file)
--- a/lisp/progmodes/ada-xref.el
+++ b/lisp/progmodes/ada-xref.el
@@ -167,7 +167,7 @@ This has the same syntax as in the project file (with variable substitution)."
 Otherwise, ask the user for the name of the project file to use."
   :type 'boolean :group 'ada)
 
-(defconst is-windows (memq system-type (quote (windows-nt)))
+(defconst ada-on-ms-windows (memq system-type '(windows-nt))
   "True if we are running on Windows.")
 
 (defcustom ada-tight-gvd-integration nil
@@ -222,7 +222,7 @@ Used to go back to these positions.")
 On Windows systems using `cmdproxy.exe' as the shell,
 we need to use `/d' or the drive is never changed.")
 
-(defvar ada-command-separator (if is-windows " && " "\n")
+(defvar ada-command-separator (if ada-on-ms-windows " && " "\n")
   "Separator to use between multiple commands to `compile' or `start-process'.
 `cmdproxy.exe' doesn't recognize multiple-line commands, so we have to use
 \"&&\" for now.")
@@ -768,7 +768,7 @@ is non-nil, prompt the user to select one.  If none are found, return
      'comp_opt        ada-prj-default-comp-opt
      'cross_prefix    ""
      'debug_cmd       (concat ada-prj-default-debugger
-                             " ${main}" (if is-windows ".exe")) ;; FIXME: don't need .exe?
+                             " ${main}" (if ada-on-ms-windows ".exe")) ;; FIXME: don't need .exe?
      'debug_post_cmd  (list nil)
      'debug_pre_cmd   (list (concat ada-cd-command " ${build_dir}"))
      'gnatmake_opt    ada-prj-default-gnatmake-opt
@@ -782,7 +782,7 @@ is non-nil, prompt the user to select one.  If none are found, return
      'make_cmd        (list ada-prj-default-make-cmd) ;; FIXME: should not a list
      'obj_dir         (list ".")
      'remote_machine  ""
-     'run_cmd         (list (concat "./${main}" (if is-windows ".exe")))
+     'run_cmd         (list (concat "./${main}" (if ada-on-ms-windows ".exe")))
      ;; FIXME: should not a list
      ;; FIXME: don't need .exe?
      'src_dir         (list ".")
@@ -1016,7 +1016,7 @@ existing buffer `*gnatfind*', if there is one."
   ;;  processed (gnatfind \"+\":...).
   (let* ((quote-entity
          (if (= (aref entity 0) ?\")
-             (if is-windows
+             (if ada-on-ms-windows
                  (concat "\\\"" (substring entity 1 -1) "\\\"")
                (concat "'\"" (substring entity 1 -1) "\"'"))
            entity))

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index fca091458399d075a22a955f2f3947e230c39b1c..6f8c12615105b966450212e56651d80f0fccb8ec 100644 (file)
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -3803,7 +3803,8 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
                                                  indentable t))
            ;; Need to remove face as well...
            (goto-char min)
-           (and (eq system-type 'emx)
+           ;; 'emx not supported by Emacs since at least 21.1.
+           (and (featurep 'xemacs) (eq system-type 'emx)
                 (eq (point) 1)
                 (let ((case-fold-search t))
                   (looking-at "extproc[ \t]")) ; Analogue of #!
@@ -7038,7 +7039,7 @@ Use as
   (or topdir
       (setq topdir default-directory))
   (let ((tags-file-name "TAGS")
-       (case-fold-search (eq system-type 'emx))
+       (case-fold-search (and (featurep 'xemacs) (eq system-type 'emx)))
        xs rel tm)
     (save-excursion
       (cond (inbuffer nil)             ; Already there

diff --git a/lisp/term.el b/lisp/term.el
index 464ff40c23c47e87c82606ec443bf2af7821e1d7..9c5115921651b2161f04af9e79cc7660d5ab2b03 100644 (file)
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -4223,7 +4223,7 @@ Return t if this is a Unix-based system, where serial ports are
 files, such as /dev/ttyS0.
 Return nil if this is Windows or DOS, where serial ports have
 special identifiers such as COM1."
-  (not (member system-type (list 'windows-nt 'cygwin 'ms-dos))))
+  (not (memq system-type '(windows-nt cygwin ms-dos))))
 
 (defvar serial-name-history
   (if (serial-port-is-file-p)