Mercurial > hg > xemacs-beta

comparison lisp/paths.el @ 392:1f50e6fe4f3f r21-2-11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-11
author cvs
date Mon, 13 Aug 2007 11:10:50 +0200
parents 8626e4521993
children
comparison
equal deleted inserted replaced
391:e50d8e68d7a5 392:1f50e6fe4f3f
127 "Program to run to print man pages.") 127 "Program to run to print man pages.")
128 128
129 (defconst abbrev-file-name (purecopy "~/.abbrev_defs") 129 (defconst abbrev-file-name (purecopy "~/.abbrev_defs")
130 "*Default name of file to read abbrevs from.") 130 "*Default name of file to read abbrevs from.")
131 131
132 (defconst directory-abbrev-alist 132 (defconst directory-abbrev-alist nil)
133 (list
134 ;;
135 ;; This matches the default Sun automounter temporary mount points. These
136 ;; temporary mount points may go away, so it's important that we only try
137 ;; to read files under the "advertised" mount point, rather than the
138 ;; temporary one, or it will look like files have been deleted on us.
139 ;; Whoever came up with this design is clearly a moron of the first order,
140 ;; but now we're stuck with it, no doubt until the end of time.
141 ;;
142 ;; For best results, automounter junk should go near the front of this
143 ;; list, and other user translations should come after it.
144 ;;
145 ;; You may need to change this if you're not running the Sun automounter,
146 ;; if you're not running in the default configuration. Because the
147 ;; designers (and I use that term loosely) of the automounters failed to
148 ;; provide any uniform way of disambiguating a pathname, emacs needs to
149 ;; have knowledge about exactly how the automounter mangles pathnames
150 ;; (and this knowledge is basically impossible to derive at run-time.)
151 ;;
152 (cons (purecopy "\\`/tmp_mnt/") (purecopy "/"))
153 ))
154 133
155 ;; Formerly, the values of these variables were computed once 134 ;; Formerly, the values of these variables were computed once
156 ;; (at dump time). However, with the advent of pre-compiled binaries 135 ;; (at dump time). However, with the advent of pre-compiled binaries
157 ;; and homebrewed systems such as Linux where who knows where the 136 ;; and homebrewed systems such as Linux where who knows where the
158 ;; hell the various programs may be located (if they even exist at all), 137 ;; hell the various programs may be located (if they even exist at all),
201 180
202 (funcall 181 (funcall
203 l 'rmail-spool-directory 182 l 'rmail-spool-directory
204 (cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration) 183 (cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration)
205 "/usr/spool/mail/") 184 "/usr/spool/mail/")
206 ;; On The Bull DPX/2 /usr/spool/mail is used although 185 ;; On The Bull DPX/2 /usr/spool/mail is used although
207 ;; it is usg-unix-v. 186 ;; it is usg-unix-v.
208 ((string-match "^m68k-bull-sysv3" system-configuration) 187 ((string-match "^m68k-bull-sysv3" system-configuration)
209 "/usr/spool/mail/") 188 "/usr/spool/mail/")
210 ;; SVR4 and recent BSD are said to use this. 189 ;; SVR4 and recent BSD are said to use this.
211 ;; Rather than trying to know precisely which systems use it, 190 ;; Rather than trying to know precisely which systems use it,
254 (funcall 233 (funcall
255 l 'manual-program 234 l 'manual-program
256 ;; Solaris 2 has both of these files; prefer /usr/ucb/man 235 ;; Solaris 2 has both of these files; prefer /usr/ucb/man
257 ;; because the other has nonstandard argument conventions. 236 ;; because the other has nonstandard argument conventions.
258 (if (file-exists-p "/usr/ucb/man") 237 (if (file-exists-p "/usr/ucb/man")
259 "/usr/ucb/man" "/usr/bin/man"))) 238 "/usr/ucb/man" "/usr/bin/man"))
260 ) 239
240 (funcall
241 l 'directory-abbrev-alist
242 ;; Try to match various conventions for automounter temporary
243 ;; mount points. These temporary mount points may go away, so
244 ;; it's important that we only try to read files under the
245 ;; "advertised" mount point, rather than the temporary one, or it
246 ;; will look like files have been deleted on us. Whoever came up
247 ;; with this design is clearly a moron of the first order, but
248 ;; now we're stuck with it, no doubt until the end of time.
249 ;;
250 ;; For best results, automounter junk should go near the front of this
251 ;; list, and other user translations should come after it.
252 ;;
253 ;; Our code handles the following empirically observed conventions:
254 ;; /net is an actual directory! (some systems are not broken!)
255 ;; /net/HOST -> /tmp_mnt/net/HOST (`standard' old Sun automounter)
256 ;; /net/HOST -> /tmp_mnt/HOST (BSDI 4.0)
257 ;; /net/HOST -> /a/HOST (Freebsd 2.2.x)
258 ;; /net/HOST -> /amd/HOST (seen in amd sample config files)
259 ;;
260 ;; If your system has a different convention, you may have to change this.
261 ;; Don't forget to send in a patch!
262 (when (file-directory-p "/net")
263 (append
264 (when (file-directory-p "/tmp_mnt")
265 (if (file-directory-p "/tmp_mnt/net")
266 '(("\\`/tmp_mnt/net/" . "/net/"))
267 '(("\\`/tmp_mnt/" . "/net/"))))
268 (when (file-directory-p "/a")
269 '(("\\`/a/" . "/net/")))
270 (when (file-directory-p "/amd")
271 '(("\\`/amd/" . "/net/")))
272 )))
273 ))
261 274
262 (if (running-temacs-p) 275 (if (running-temacs-p)
263 (initialize-xemacs-paths)) 276 (initialize-xemacs-paths))
264 277
265 ;;; paths.el ends here 278 ;;; paths.el ends here