mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-24 10:38:38 +00:00
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.
This commit is contained in:
parent
17731c39b2
commit
72bc50c029
@ -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.
|
||||
|
||||
|
@ -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):
|
||||
|
@ -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
|
||||
;;
|
||||
|
@ -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"
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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)
|
||||
;; ))
|
||||
;;
|
||||
|
@ -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))
|
||||
|
@ -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
|
||||
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user