Mercurial > emacs
comparison lisp/dirtrack.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 | ffe7f17f895f |
children | 417b1e4d63cd |
comparison
equal
deleted
inserted
replaced
111460:ca911a71a6c8 | 111461:2b266010d0b7 |
---|---|
142 "Buffer in which to write directory tracking debug information." | 142 "Buffer in which to write directory tracking debug information." |
143 :group 'dirtrack | 143 :group 'dirtrack |
144 :type 'string) | 144 :type 'string) |
145 | 145 |
146 (defcustom dirtrack-directory-function | 146 (defcustom dirtrack-directory-function |
147 (if (memq system-type (list 'ms-dos 'windows-nt 'cygwin)) | 147 (if (memq system-type '(ms-dos windows-nt cygwin)) |
148 'dirtrack-windows-directory-function | 148 'dirtrack-windows-directory-function |
149 'file-name-as-directory) | 149 'file-name-as-directory) |
150 "Function to apply to the prompt directory for comparison purposes." | 150 "Function to apply to the prompt directory for comparison purposes." |
151 :group 'dirtrack | 151 :group 'dirtrack |
152 :type 'function) | 152 :type 'function) |
153 | 153 |
154 (defcustom dirtrack-canonicalize-function | 154 (defcustom dirtrack-canonicalize-function |
155 (if (memq system-type (list 'ms-dos 'windows-nt 'cygwin)) | 155 (if (memq system-type '(ms-dos windows-nt cygwin)) |
156 'downcase 'identity) | 156 'downcase 'identity) |
157 "Function to apply to the default directory for comparison purposes." | 157 "Function to apply to the default directory for comparison purposes." |
158 :group 'dirtrack | 158 :group 'dirtrack |
159 :type 'function) | 159 :type 'function) |
160 | 160 |
267 ))))) | 267 ))))) |
268 input) | 268 input) |
269 | 269 |
270 (provide 'dirtrack) | 270 (provide 'dirtrack) |
271 | 271 |
272 ;; arch-tag: 168de071-be88-4937-aff6-2aba9f328d5a | |
273 ;;; dirtrack.el ends here | 272 ;;; dirtrack.el ends here |