diff options
| author | Glenn Morris | 2010-11-09 20:24:47 -0800 |
|---|---|---|
| committer | Glenn Morris | 2010-11-09 20:24:47 -0800 |
| commit | 72bc50c0291f14945d49f8bd39f19a75c95f26e3 (patch) | |
| tree | 86f7edd55df6fda94297d9a694be53099393ec5b /lisp/emulation | |
| parent | 17731c39b249ec0e40ece1e18ed120ff4031568c (diff) | |
| download | emacs-72bc50c0291f14945d49f8bd39f19a75c95f26e3.tar.gz emacs-72bc50c0291f14945d49f8bd39f19a75c95f26e3.zip | |
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.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/viper-init.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el index 9f7b473c67a..5af96922171 100644 --- a/lisp/emulation/viper-init.el +++ b/lisp/emulation/viper-init.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; viper-init.el --- some common definitions for Viper | 1 | ;;; viper-init.el --- some common definitions for Viper |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. | 4 | ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> | 6 | ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> |
| 7 | ;; Package: viper | 7 | ;; Package: viper |
| @@ -63,9 +63,10 @@ | |||
| 63 | (defun viper-window-display-p () | 63 | (defun viper-window-display-p () |
| 64 | (and (viper-device-type) (not (memq (viper-device-type) '(tty stream pc))))) | 64 | (and (viper-device-type) (not (memq (viper-device-type) '(tty stream pc))))) |
| 65 | 65 | ||
| 66 | (defcustom viper-ms-style-os-p (memq system-type | 66 | (defcustom viper-ms-style-os-p |
| 67 | '(ms-dos windows-nt windows-95)) | 67 | (memq system-type (if (featurep 'emacs) '(ms-dos windows-nt) |
| 68 | "Tells if Emacs is running under an MS-style OS: ms-dos, windows-nt, W95." | 68 | '(ms-dos windows-nt windows-95))) |
| 69 | "Non-nil if Emacs is running under an MS-style OS: MS-DOS, or MS-Windows." | ||
| 69 | :type 'boolean | 70 | :type 'boolean |
| 70 | :tag "Is it Microsoft-made OS?" | 71 | :tag "Is it Microsoft-made OS?" |
| 71 | :group 'viper-misc) | 72 | :group 'viper-misc) |
| @@ -996,5 +997,4 @@ on a dumb terminal." | |||
| 996 | ;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun) | 997 | ;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun) |
| 997 | ;; End: | 998 | ;; End: |
| 998 | 999 | ||
| 999 | ;; arch-tag: 4efa2416-1fcb-4690-be10-1a2a0248d250 | ||
| 1000 | ;;; viper-init.el ends here | 1000 | ;;; viper-init.el ends here |