Mercurial > emacs

diff lisp/emulation/viper-init.el @ 111461:2b266010d0b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 13a509edfa26
children 417b1e4d63cd
line wrap: on
line diff
--- a/lisp/emulation/viper-init.el	Tue Nov 09 20:13:21 2010 -0800
+++ b/lisp/emulation/viper-init.el	Tue Nov 09 20:24:47 2010 -0800
@@ -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 @@
 ;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
 ;; End:
 
-;; arch-tag: 4efa2416-1fcb-4690-be10-1a2a0248d250
 ;;; viper-init.el ends here