diff lisp/filecache.el @ 111461:2b266010d0b7

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.
author Glenn Morris <rgm@gnu.org>
date Tue, 09 Nov 2010 20:24:47 -0800
parents 066c6d53b8b9
children 417b1e4d63cd
line wrap: on
line diff
--- a/lisp/filecache.el	Tue Nov 09 20:13:21 2010 -0800
+++ b/lisp/filecache.el	Tue Nov 09 20:24:47 2010 -0800
@@ -207,7 +207,7 @@
   :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 @@
   :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 @@
   :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 @@
 
 (provide 'filecache)
 
-;; arch-tag: 433d3ca4-4af2-47ce-b2cf-1f727460f538
 ;;; filecache.el ends here