# HG changeset patch # User Glenn Morris # Date 1250978380 0 # Node ID 10c38084881d84938ba953d5610414d42a5f2784 # Parent dbd882f3da46d51c84a8dfcfb2fd5937fdfe8c77 Remove code for defunct system-types emx, macos, mswindows, unisoft-unix, vax-vms, win32, w32. diff -r dbd882f3da46 -r 10c38084881d lisp/ChangeLog --- a/lisp/ChangeLog Sat Aug 22 21:53:34 2009 +0000 +++ b/lisp/ChangeLog Sat Aug 22 21:59:40 2009 +0000 @@ -1,5 +1,17 @@ 2009-08-22 Glenn Morris + * hippie-exp.el (he-concat-directory-file-name): + * lpr.el (lpr-windows-system, printer-name): + * ls-lisp.el (ls-lisp-emulation, ls-lisp-use-insert-directory-program): + * ps-print.el (ps-windows-system): + * startup.el (command-line): + * emulation/viper-ex.el (viper-glob-function): + * international/mule-cmds.el (set-language-environment-coding-systems): + * net/ange-ftp.el (ange-ftp-write-region): + * obsolete/fast-lock.el (fast-lock-cache-name): + Remove code for defunct system-types emx, macos, mswindows, + unisoft-unix, vax-vms, win32, w32. + * calendar/diary-lib.el (diary-mark-entries-1): Only mark all days of a given name if the pattern is not more specific. diff -r dbd882f3da46 -r 10c38084881d lisp/emulation/viper-ex.el --- a/lisp/emulation/viper-ex.el Sat Aug 22 21:53:34 2009 +0000 +++ b/lisp/emulation/viper-ex.el Sat Aug 22 21:59:40 2009 +0000 @@ -329,7 +329,6 @@ (defcustom viper-glob-function (cond (ex-unix-type-shell 'viper-glob-unix-files) - ((eq system-type 'emx) 'viper-glob-mswindows-files) ; OS/2 (viper-ms-style-os-p 'viper-glob-mswindows-files) ; Microsoft OS (t 'viper-glob-unix-files) ; presumably UNIX ) diff -r dbd882f3da46 -r 10c38084881d lisp/hippie-exp.el --- a/lisp/hippie-exp.el Sat Aug 22 21:53:34 2009 +0000 +++ b/lisp/hippie-exp.el Sat Aug 22 21:59:40 2009 +0000 @@ -1,7 +1,7 @@ ;;; hippie-exp.el --- expand text trying various ways to find its expansion -;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, -;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, +;; 2009 Free Software Foundation, Inc. ;; Author: Anders Holst ;; Last change: 3 March 1998 @@ -519,7 +519,7 @@ (defun he-concat-directory-file-name (dir-part name-part) "Try to slam together two parts of a file specification, system dependently." (cond ((null dir-part) name-part) - ((memq system-type '(ms-dos w32)) + ((eq system-type 'ms-dos) (if (and (string-match "\\\\" dir-part) (not (string-match "/" dir-part)) (= (aref name-part (1- (length name-part))) ?/)) diff -r dbd882f3da46 -r 10c38084881d lisp/international/mule-cmds.el --- a/lisp/international/mule-cmds.el Sat Aug 22 21:53:34 2009 +0000 +++ b/lisp/international/mule-cmds.el Sat Aug 22 21:59:40 2009 +0000 @@ -1968,7 +1968,6 @@ (eol-type (if (null default-buffer-file-coding-system) (cond ((memq system-type '(windows-nt ms-dos)) 1) - ((eq system-type 'macos) 2) (t 0)) (coding-system-eol-type default-buffer-file-coding-system)))) (when priority diff -r dbd882f3da46 -r 10c38084881d lisp/lpr.el --- a/lisp/lpr.el Sat Aug 22 21:53:34 2009 +0000 +++ b/lisp/lpr.el Sat Aug 22 21:59:40 2009 +0000 @@ -31,7 +31,7 @@ ;;;###autoload (defvar lpr-windows-system - (memq system-type '(emx win32 w32 mswindows ms-dos windows-nt))) + (memq system-type '(ms-dos windows-nt))) ;;;###autoload (defvar lpr-lp-system @@ -45,7 +45,7 @@ ;;;###autoload (defcustom printer-name - (and (memq system-type '(emx ms-dos)) "PRN") + (and (eq system-type 'ms-dos) "PRN") "The name of a local printer to which data is sent for printing. \(Note that PostScript files are sent to `ps-printer-name', which see.\) diff -r dbd882f3da46 -r 10c38084881d lisp/ls-lisp.el --- a/lisp/ls-lisp.el Sat Aug 22 21:53:34 2009 +0000 +++ b/lisp/ls-lisp.el Sat Aug 22 21:59:40 2009 +0000 @@ -70,10 +70,9 @@ :group 'dired) (defcustom ls-lisp-emulation - (cond ((eq system-type 'macos) 'MacOS) - ;; ((eq system-type 'windows-nt) 'MS-Windows) + (cond ;; ((eq system-type 'windows-nt) 'MS-Windows) ((memq system-type - '(hpux usg-unix-v unisoft-unix irix berkeley-unix)) + '(hpux usg-unix-v irix berkeley-unix)) 'UNIX)) ; very similar to GNU ;; Anything else defaults to nil, meaning GNU. "Platform to emulate: GNU (default), MacOS, MS-Windows, UNIX. @@ -129,7 +128,7 @@ :group 'ls-lisp) (defcustom ls-lisp-use-insert-directory-program - (not (memq system-type '(macos ms-dos windows-nt))) + (not (memq system-type '(ms-dos windows-nt))) "Non-nil causes ls-lisp to revert back to using `insert-directory-program'. This is useful on platforms where ls-lisp is dumped into Emacs, such as Microsoft Windows, but you would still like to use a program to list diff -r dbd882f3da46 -r 10c38084881d lisp/net/ange-ftp.el --- a/lisp/net/ange-ftp.el Sat Aug 22 21:53:34 2009 +0000 +++ b/lisp/net/ange-ftp.el Sat Aug 22 21:59:40 2009 +0000 @@ -1,7 +1,8 @@ ;;; ange-ftp.el --- transparent FTP support for GNU Emacs ;; Copyright (C) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, -;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 +;; Free Software Foundation, Inc. ;; Author: Andy Norman (ange@hplb.hpl.hp.com) ;; Maintainer: FSF @@ -3220,7 +3221,7 @@ ;; regardless. Maybe a system-type to host-type lookup? (binary (or (ange-ftp-binary-file filename) (and (not (memq system-type - '(ms-dos windows-nt macos vax-vms))) + '(ms-dos windows-nt))) (memq (ange-ftp-host-type host user) '(unix dumb-unix))))) (cmd (if append 'append 'put)) diff -r dbd882f3da46 -r 10c38084881d lisp/obsolete/fast-lock.el --- a/lisp/obsolete/fast-lock.el Sat Aug 22 21:53:34 2009 +0000 +++ b/lisp/obsolete/fast-lock.el Sat Aug 22 21:59:40 2009 +0000 @@ -549,7 +549,7 @@ (concat buffer-file-name ".flc") (let* ((bufile (expand-file-name buffer-file-truename)) (chars-alist - (if (memq system-type '(emx windows-nt cygwin)) + (if (memq system-type '(windows-nt cygwin)) '((?/ . (?#)) (?# . (?# ?#)) (?: . (?\;)) (?\; . (?\; ?\;))) '((?/ . (?#)) (?# . (?# ?#))))) (mapchars diff -r dbd882f3da46 -r 10c38084881d lisp/ps-print.el --- a/lisp/ps-print.el Sat Aug 22 21:53:34 2009 +0000 +++ b/lisp/ps-print.el Sat Aug 22 21:59:40 2009 +0000 @@ -1478,7 +1478,7 @@ (defconst ps-windows-system - (memq system-type '(emx win32 w32 mswindows ms-dos windows-nt))) + (memq system-type '(ms-dos windows-nt))) (defconst ps-lp-system (memq system-type '(usg-unix-v hpux irix))) diff -r dbd882f3da46 -r 10c38084881d lisp/startup.el --- a/lisp/startup.el Sat Aug 22 21:53:34 2009 +0000 +++ b/lisp/startup.el Sat Aug 22 21:59:40 2009 +0000 @@ -741,13 +741,9 @@ ;; Set the default strings to display in mode line for ;; end-of-line formats that aren't native to this platform. (cond - ((memq system-type '(ms-dos windows-nt emx)) + ((memq system-type '(ms-dos windows-nt)) (setq eol-mnemonic-unix "(Unix)" eol-mnemonic-mac "(Mac)")) - ;; Both Mac and Unix EOLs are now "native" on Mac OS so keep the - ;; abbreviated strings `/' and `:' set in coding.c for them. - ((eq system-type 'macos) - (setq eol-mnemonic-dos "(DOS)")) (t ; this is for Unix/GNU/Linux systems (setq eol-mnemonic-dos "(DOS)" eol-mnemonic-mac "(Mac)")))