Mercurial > hg > xemacs-beta
annotate lisp/dumped-lisp.el @ 5518:3cc7470ea71c
gnuclient: if TMPDIR was set and connect failed, try again with /tmp
2011-06-03 Aidan Kehoe <kehoea@parhasard.net>
* gnuslib.c (connect_to_unix_server):
Retry with /tmp as a directory in which to search for Unix sockets
if an attempt to connect with some other directory failed (which
may be because gnuclient and gnuserv don't share an environment
value for TMPDIR, or because gnuserv was compiled with USE_TMPDIR
turned off).
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Fri, 03 Jun 2011 18:40:57 +0100 |
| parents | dc37764a105b |
| children | 69a08906ad27 |
| rev | line source |
|---|---|
|
5404
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
5264
diff
changeset
|
1 ;; This file is part of XEmacs. |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
5264
diff
changeset
|
2 |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
5264
diff
changeset
|
3 ;; XEmacs is free software: you can redistribute it and/or modify it |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
5264
diff
changeset
|
4 ;; under the terms of the GNU General Public License as published by the |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
5264
diff
changeset
|
5 ;; Free Software Foundation, either version 3 of the License, or (at your |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
5264
diff
changeset
|
6 ;; option) any later version. |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
5264
diff
changeset
|
7 |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
5264
diff
changeset
|
8 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
5264
diff
changeset
|
9 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
5264
diff
changeset
|
10 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
5264
diff
changeset
|
11 ;; for more details. |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
5264
diff
changeset
|
12 |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
5264
diff
changeset
|
13 ;; You should have received a copy of the GNU General Public License |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
5264
diff
changeset
|
14 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
|
91b3aa59f49b
Convert lisp/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
5264
diff
changeset
|
15 |
| 1330 | 16 (defvar packages-hardcoded-lisp |
| 17 '( | |
| 18 ;; Nothing at this time | |
| 19 ) | |
| 20 "Lisp packages that are always dumped with XEmacs. | |
| 21 This includes every package that is loaded directly by a package listed | |
| 22 in dumped-lisp.el and is not itself listed.") | |
| 23 | |
| 2367 | 24 |
| 25 ;; WARNING WARNING WARNING: None of the files below, until where it says | |
| 26 ;; "All files after this can have extended characters in them", can have | |
| 27 ;; extended (non-ASCII characters) of any sort in them! Unfortunately, you | |
| 28 ;; will not get any error at load-time; however, you may get a later very | |
| 29 ;; cryptic error "Invalid opcode"! This is caused by the byte-code data | |
| 30 ;; being encoded as escape-quoted, when we can't handle that yet. | |
| 31 ;; | |
| 32 ;; #### We should resurrect the check for the coding-system magic cookie in | |
| 33 ;; fileio.c and put in an abort if we are not able to handle it yet. | |
| 34 | |
| 428 | 35 (setq preloaded-file-list |
| 1315 | 36 (list |
| 1333 | 37 ;; do not defcustom any variables in these files |
| 38 | |
| 1315 | 39 "backquote" ; needed for defsubst etc. |
| 40 "bytecomp-runtime" ; define defsubst | |
| 41 "subr" ; load the most basic Lisp functions | |
|
5284
d27c1ee1943b
Make the order of preloaded-file-list more sane.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5264
diff
changeset
|
42 "cl" |
|
d27c1ee1943b
Make the order of preloaded-file-list more sane.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5264
diff
changeset
|
43 "cl-extra" ; also loads cl-macs if we're running interpreted. |
|
d27c1ee1943b
Make the order of preloaded-file-list more sane.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5264
diff
changeset
|
44 "cl-seq" |
| 1315 | 45 "post-gc" |
| 4246 | 46 "version" |
|
5284
d27c1ee1943b
Make the order of preloaded-file-list more sane.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5264
diff
changeset
|
47 "custom" ; Before the world so everything can be customized |
|
d27c1ee1943b
Make the order of preloaded-file-list more sane.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5264
diff
changeset
|
48 "cus-start" ; for customization of builtin variables |
|
d27c1ee1943b
Make the order of preloaded-file-list more sane.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5264
diff
changeset
|
49 "find-paths" |
|
d27c1ee1943b
Make the order of preloaded-file-list more sane.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5264
diff
changeset
|
50 "packages" |
|
d27c1ee1943b
Make the order of preloaded-file-list more sane.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5264
diff
changeset
|
51 "setup-paths" |
|
d27c1ee1943b
Make the order of preloaded-file-list more sane.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5264
diff
changeset
|
52 "replace" |
| 1315 | 53 "widget" |
| 54 "cmdloop" | |
| 55 "keymap" | |
| 56 "syntax" | |
| 57 "device" | |
| 58 "console" | |
| 59 "obsolete" | |
| 60 "specifier" | |
| 61 "frame" ; needed by faces | |
| 3094 | 62 ;; #### this should be (featurep 'xft) |
| 3354 | 63 (when (featurep 'xft-fonts) "fontconfig") ; needed by x-faces |
| 1315 | 64 (when (featurep 'x) "x-faces") ; needed by faces |
| 65 (when (featurep 'gtk) "gtk-faces") | |
| 66 (when (valid-console-type-p 'mswindows) "msw-faces") | |
| 67 "faces" ; must be loaded before any make-face call | |
| 68 ;;(pureload "facemenu") #### not yet ported | |
| 69 "glyphs" | |
|
5176
8b2f75cecb89
rename objects* (.c, .h and .el files) to fontcolor*
Ben Wing <ben@xemacs.org>
parents:
4506
diff
changeset
|
70 "fontcolor" |
| 1315 | 71 "extents" |
| 72 "events" | |
| 73 "hash-table" | |
| 74 "text-props" | |
| 75 "process" ;; This is bad. network-streams may not be defined. | |
| 76 (when (featurep 'multicast) "multicast") ; #+network-streams implicitly true | |
| 77 "map-ynp" | |
| 78 "undo-stack" | |
| 79 "window" ; simple needs `save-window-excursion' | |
| 80 "window-xemacs" | |
| 3932 | 81 "resize-minibuffer" ; simple needs `resize-minibuffer-mode' |
| 1315 | 82 "simple" |
| 1333 | 83 "newcomment" |
| 1315 | 84 "keydefs" ; Before loaddefs so that keymap vars exist. |
| 85 "abbrev" | |
| 86 "derived" | |
| 87 "minibuf" | |
| 88 "list-mode" | |
| 89 "modeline" ; needs simple.el to be loaded first | |
| 428 | 90 ;; If SparcWorks support is included some additional packages are |
| 91 ;; dumped which would normally have autoloads. To avoid | |
| 92 ;; duplicate doc string warnings, SparcWorks uses a separate | |
| 93 ;; autoloads file with the dumped packages removed. | |
| 94 ;; After fixing, eos/loaddefs-eos and loaddefs appear identical?!! | |
| 95 ;; So just make loaddefs-eos go away... | |
| 96 ;;(pureload (if (featurep 'sparcworks) "eos/loaddefs-eos" "loaddefs")) | |
| 1315 | 97 "cus-file" |
| 98 "startup" ; For initialization of | |
| 428 | 99 ; `emacs-user-extension-dir' |
| 1315 | 100 "misc" |
| 101 ;; (pureload "profile") | |
| 3368 | 102 "loadhist" ; Must be dumped before loaddefs is loaded |
| 103 ; Used by help. | |
| 1315 | 104 ;; (pureload "hyper-apropos") Soon... |
| 105 "files" | |
| 106 "lib-complete" | |
| 107 "format" | |
| 108 "indent" | |
| 109 "isearch-mode" | |
| 110 "buffer" | |
| 111 "buff-menu" | |
|
4372
ebb35ddea76a
Byte-compile menu lambdas; make the menu of available tutorials more readable.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4246
diff
changeset
|
112 "paths" |
| 1315 | 113 "lisp" |
| 114 "page" | |
| 115 "register" | |
| 116 "iso8859-1" ; This must be before any modes | |
| 117 ; (sets standard syntax table.) | |
|
4506
bd28481bb0e1
Port #'window-buffer-height, #'fit-window-to-buffer, & window, buf, functions.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4372
diff
changeset
|
118 "easy-mmode" ; Added for 21.5. Used by help. |
|
bd28481bb0e1
Port #'window-buffer-height, #'fit-window-to-buffer, & window, buf, functions.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4372
diff
changeset
|
119 "help" |
| 1315 | 120 "easymenu" ; Added for 20.3. |
|
5487
dc37764a105b
Import special-mode from GNU Emacs.
Didier Verna <didier@lrde.epita.fr>
parents:
5475
diff
changeset
|
121 "special-mode" |
| 1315 | 122 "lisp-mode" |
| 123 "text-mode" | |
| 124 "fill" | |
| 125 "auto-save" ; Added for 20.4 | |
| 126 "movemail" ; Added for 21.2 | |
| 127 (when (eq system-type 'windows-nt) "win32-native") | |
| 128 (when (featurep 'lisp-float-type) "float-sup") | |
| 129 "itimer" ; for vars auto-save-timeout and | |
| 428 | 130 ; auto-gc-threshold |
| 1315 | 131 "itimer-autosave" |
| 132 "printer" | |
| 133 "behavior" | |
| 134 "behavior-defs" | |
| 135 "diagnose" | |
| 136 | |
| 442 | 137 ;;;;;;;;;;;;;;;;;; GUI support |
| 1315 | 138 (when (featurep 'window-system) |
| 139 '("gui" | |
| 140 "mouse" | |
| 141 "mode-motion" | |
| 142 )) | |
| 143 (when (featurep 'toolbar) "toolbar") | |
| 144 (when (featurep 'scrollbar) "scrollbar") | |
| 145 (when (featurep 'menubar) "menubar") | |
| 146 (when (featurep 'dialog) "dialog") | |
| 147 (when (featurep 'gutter) "gutter") | |
| 148 (when (featurep 'dragdrop-api) "dragdrop") | |
| 149 "select" | |
| 150 | |
| 442 | 151 ;;;;;;;;;;;;;;;;;; Content for GUI's |
| 1315 | 152 ;; There used to be window-system inserted in the when-feature, |
| 153 ;; but IMHO your configure script should turn off the menubar, | |
| 154 ;; toolbar, etc. features when there is no window system. We | |
| 155 ;; should just be able to assume that, if (featurep 'menubar), | |
| 156 ;; the menubar should work and if items are added, they can be | |
| 157 ;; seen clearly and usefully. | |
|
5228
5efbd1253905
Remove all support for InfoDock.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5178
diff
changeset
|
158 (when (featurep 'menubar) "menubar-items") |
|
5efbd1253905
Remove all support for InfoDock.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5178
diff
changeset
|
159 (when (featurep 'gutter) "gutter-items") |
|
5efbd1253905
Remove all support for InfoDock.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5178
diff
changeset
|
160 (when (featurep 'toolbar) "toolbar-items") |
|
5efbd1253905
Remove all support for InfoDock.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5178
diff
changeset
|
161 (when (featurep 'dialog) "dialog-items") |
| 442 | 162 |
| 163 ;;;;;;;;;;;;;;;;;; Coding-system support | |
| 1315 | 164 "coding" |
| 165 "code-files" | |
| 166 ;; Handle process with encoding/decoding coding-system. | |
| 167 "code-process" | |
| 168 ;; Provide basic commands to set coding systems to user | |
| 169 "code-cmds" | |
| 170 "unicode" | |
| 442 | 171 ;;;;;;;;;;;;;;;;;; MULE support |
| 1315 | 172 (when (featurep 'mule) |
| 2465 | 173 '("mule/mule-charset" |
| 174 "mule/mule-cmds" ; to sync with Emacs 20.1 | |
| 175 "mule/mule-coding" | |
| 176 "mule/mule-composite-stub" | |
| 177 "mule/mule-composite" | |
| 1315 | 178 )) |
| 179 ;; may initialize coding systems | |
| 2465 | 180 (when (featurep '(and mule x)) "mule/mule-x-init") |
| 181 (when (featurep '(and mule tty)) "mule/mule-tty-init") | |
| 1315 | 182 (when (and (featurep 'mule) (memq system-type '(windows-nt cygwin32))) |
| 2474 | 183 "mule/mule-win32-init") |
| 1315 | 184 "code-init" ; set up defaults |
| 185 ;; All files after this can have extended characters in them. | |
| 186 (when (featurep 'mule) | |
| 2465 | 187 '("mule/mule-category" |
| 188 "mule/kinsoku" | |
| 1315 | 189 )) |
| 428 | 190 |
| 191 ;; after this goes the specific lisp routines for a particular input system | |
| 192 ;; 97.2.5 JHod Shouldn't these go into a site-load file to allow site | |
| 193 ;; or user switching of input systems??? | |
| 194 ;(if (featurep 'wnn) | |
| 195 ; (progn | |
| 196 ; (pureload "egg") | |
| 197 ; (pureload "egg-wnn") | |
| 198 ; (setq egg-default-startup-file "eggrc-wnn"))) | |
| 199 | |
| 200 ;; (if (and (boundp 'CANNA) CANNA) | |
| 201 ;; (pureload "canna") | |
| 202 ;; ) | |
| 203 | |
| 780 | 204 ;; Now load files to set up all the different languages/environments that |
| 205 ;; Mule knows about. Formerly we had to worry about files shadowed by | |
| 206 ;; those of the same name in leim/quail.el, but no longer, since we now | |
| 207 ;; compile with -no-packages. | |
| 428 | 208 |
| 1315 | 209 (when (featurep 'mule) |
| 2465 | 210 '("mule/arabic" |
| 211 "mule/chinese" | |
| 212 "mule/cyrillic" | |
| 213 "mule/english" | |
| 214 "mule/ethiopic" | |
| 215 "mule/greek" | |
| 216 "mule/hebrew" | |
| 217 "mule/indian" | |
| 218 "mule/devanagari" ; must be loaded after indian.el | |
| 219 "mule/japanese" | |
| 220 "mule/korean" | |
| 4072 | 221 "mule/lao" ; sucks. |
| 2465 | 222 "mule/latin" |
| 223 "mule/misc-lang" | |
|
5396
75469840109b
Drop support for Thai-XTIS, which was always non-standard and never used.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5284
diff
changeset
|
224 "mule/thai" |
| 2465 | 225 "mule/tibetan" |
| 226 "mule/vietnamese" | |
| 1315 | 227 )) |
| 228 | |
| 428 | 229 ;; Specialized language support |
| 2973 | 230 (when (featurep 'mule) "mule/canna-leim") |
| 780 | 231 ;; needs access to the charsets created by the above |
| 232 ;; language-specific files. | |
| 1315 | 233 (when (and (featurep 'mule) (valid-console-type-p 'mswindows)) |
| 2465 | 234 "mule/mule-msw-init-late") |
| 780 | 235 |
| 3707 | 236 (when (featurep 'mule) |
| 237 "mule/general-late") | |
| 238 | |
| 428 | 239 ;;; mule-load.el ends here |
| 442 | 240 |
| 241 ;; preload the X code. | |
| 1315 | 242 (when (featurep '(and x scrollbar)) "x-scrollbar") |
| 243 (when (featurep 'x) | |
| 2828 | 244 '("x-mouse" |
| 1315 | 245 "x-select" |
| 246 "x-misc" | |
| 247 "x-init" | |
| 248 "x-win-xfree86" | |
| 249 "x-win-sun")) | |
| 250 ;; preload the GTK code | |
| 251 (when (featurep 'gtk) | |
| 252 '("gtk-ffi" | |
| 253 "gtk-widgets" | |
| 254 "gdk" | |
| 255 "gtk-init" | |
| 256 "gtk-select" | |
| 257 "gtk-mouse" | |
| 258 "gtk-glyphs" | |
| 259 "widgets-gtk")) | |
| 260 (when (featurep '(and gtk dialog)) "dialog-gtk") | |
| 261 (when (featurep 'glade) "glade") | |
| 462 | 262 |
| 428 | 263 ;; preload the mswindows code. |
| 1315 | 264 (when (valid-console-type-p 'mswindows) |
| 265 '("msw-glyphs" | |
| 266 "msw-mouse" | |
| 267 "msw-init" | |
| 268 "msw-select")) | |
| 428 | 269 ;; preload the TTY init code. |
| 1315 | 270 (when (featurep 'tty) "tty-init") |
| 428 | 271 ;;; Formerly in tooltalk/tooltalk-load.el |
| 272 ;; Moved to tooltalk package | |
| 1315 | 273 ;; (when (featurep 'tooltalk) |
| 274 ;; '("tooltalk-macros" "tooltalk-util" "tooltalk-init")) | |
| 428 | 275 ;; "vc-hooks" ; Packaged. Available in two versions. |
| 276 ;; "ediff-hook" ; Packaged. | |
| 1315 | 277 "fontl-hooks" |
| 278 "auto-show" | |
| 2579 | 279 "paragraphs" ; needs easy-mmode, coding |
| 1315 | 280 (when (featurep 'ldap) "ldap") |
| 428 | 281 |
| 1315 | 282 ;; (when (featurep 'energize) "energize/energize-load.el") |
| 428 | 283 ;;; formerly in sunpro/sunpro-load.el |
| 1315 | 284 ;; (when (featurep '(and mule sparcworks)) "mime-setup") |
| 428 | 285 |
| 286 ;; Moved to Sun package | |
| 1315 | 287 ;; (when (featurep 'sparcworks) |
| 288 ;; '("cc-mode" ; Requires cc-mode package | |
| 289 ;; "sunpro-init" | |
| 290 ;; "ring" | |
| 291 ;; "comint" ; Requires comint package | |
| 292 ;; "annotations")) | |
| 428 | 293 |
| 294 ;;; formerly in eos/sun-eos-load.el | |
| 1315 | 295 ;; (when (featurep 'sparcworks) |
| 296 ;; '("sun-eos-init" | |
| 297 ;; "sun-eos-common" | |
| 298 ;; "sun-eos-editor" | |
| 299 ;; "sun-eos-browser" | |
| 300 ;; "sun-eos-debugger" | |
| 301 ;; "sun-eos-debugger-extra" | |
| 302 ;; "sun-eos-menubar")) | |
| 303 "loaddefs" ; <=== autoloads get loaded here | |
| 304 )) | |
| 305 | |
| 306 (setq preloaded-file-list | |
|
5264
0d43872986b6
Change (apply 'nconc (mapcar ...)) to (mapcan ...); warn about first form.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5228
diff
changeset
|
307 (mapcan #'(lambda (x) (if (listp x) x (list x))) preloaded-file-list)) |