xemacs-beta: lisp/dumped-lisp.el annotate

annotate lisp/dumped-lisp.el @ 5265:5663ae9a8989

Warn at compile time, error at runtime, with (quote X Y), (function X Y). lisp/ChangeLog addition: 2010-09-16 Aidan Kehoe <kehoea@parhasard.net> * bytecomp.el (byte-compile-function-form, byte-compile-quote) (byte-compile-quote-form): Warn at compile time, and error at runtime, if a (quote ...) or a (function ...) form attempts to quote more than one object. src/ChangeLog addition: 2010-09-16 Aidan Kehoe <kehoea@parhasard.net> * eval.c (Ffunction, Fquote): Add argument information in the arguments: () format for these two special operators.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Thu, 16 Sep 2010 14:10:44 +0100
parents	0d43872986b6
children	d27c1ee1943b 91b3aa59f49b

rev	line source
1330 4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben] ben parents: 1315 diff changeset	1 (defvar packages-hardcoded-lisp
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben] ben parents: 1315 diff changeset	2 '(
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben] ben parents: 1315 diff changeset	3 ;; Nothing at this time
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben] ben parents: 1315 diff changeset	4 )
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben] ben parents: 1315 diff changeset	5 "Lisp packages that are always dumped with XEmacs.
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben] ben parents: 1315 diff changeset	6 This includes every package that is loaded directly by a package listed
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben] ben parents: 1315 diff changeset	7 in dumped-lisp.el and is not itself listed.")
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben] ben parents: 1315 diff changeset	8
2367 ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 1333 diff changeset	9
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 1333 diff changeset	10 ;; WARNING WARNING WARNING: None of the files below, until where it says
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 1333 diff changeset	11 ;; "All files after this can have extended characters in them", can have
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 1333 diff changeset	12 ;; extended (non-ASCII characters) of any sort in them! Unfortunately, you
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 1333 diff changeset	13 ;; will not get any error at load-time; however, you may get a later very
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 1333 diff changeset	14 ;; cryptic error "Invalid opcode"! This is caused by the byte-code data
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 1333 diff changeset	15 ;; being encoded as escape-quoted, when we can't handle that yet.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 1333 diff changeset	16 ;;
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 1333 diff changeset	17 ;; #### We should resurrect the check for the coding-system magic cookie in
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 1333 diff changeset	18 ;; fileio.c and put in an abort if we are not able to handle it yet.
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben] ben parents: 1333 diff changeset	19
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	20 (setq preloaded-file-list
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	21 (list
1333 1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1330 diff changeset	22 ;; do not defcustom any variables in these files
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1330 diff changeset	23
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	24 "backquote" ; needed for defsubst etc.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	25 "bytecomp-runtime" ; define defsubst
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	26 "find-paths"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	27 "packages" ; Bootstrap run-time lisp environment
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	28 "setup-paths"
1333 1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1330 diff changeset	29
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1330 diff changeset	30 ;; use custom-declare-variable-early, not defcustom, in these files
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1330 diff changeset	31
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	32 "subr" ; load the most basic Lisp functions
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	33 "post-gc"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	34 "replace" ; match-string used in version.el.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	35
4246 9fec7fedbf1b [xemacs-hg @ 2007-10-31 11:21:02 by aidan] aidan parents: 4072 diff changeset	36 "version"
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	37
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	38 "cl"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	39 "cl-extra"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	40 "cl-seq"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	41 "widget"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	42 "custom" ; Before the world so everything can be
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	43 ; customized
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	44 "cus-start" ; for customization of builtin variables
1333 1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1330 diff changeset	45
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1330 diff changeset	46 ;; OK, you can use defcustom from here on
1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1330 diff changeset	47
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	48 "cmdloop"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	49 "keymap"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	50 "syntax"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	51 "device"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	52 "console"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	53 "obsolete"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	54 "specifier"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	55 "frame" ; needed by faces
3094 ad2f4ae9895b [xemacs-hg @ 2005-11-26 11:45:47 by stephent] stephent parents: 2973 diff changeset	56 ;; #### this should be (featurep 'xft)
3354 15fb91e3a115 [xemacs-hg @ 2006-04-23 16:11:16 by stephent] stephent parents: 3094 diff changeset	57 (when (featurep 'xft-fonts) "fontconfig") ; needed by x-faces
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	58 (when (featurep 'x) "x-faces") ; needed by faces
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	59 (when (featurep 'gtk) "gtk-faces")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	60 (when (valid-console-type-p 'mswindows) "msw-faces")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	61 "faces" ; must be loaded before any make-face call
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	62 ;;(pureload "facemenu") #### not yet ported
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	63 "glyphs"
5176 8b2f75cecb89 rename objects* (.c, .h and .el files) to fontcolor* Ben Wing <ben@xemacs.org> parents: 4506 diff changeset	64 "fontcolor"
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	65 "extents"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	66 "events"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	67 "hash-table"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	68 "text-props"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	69 "process" ;; This is bad. network-streams may not be defined.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	70 (when (featurep 'multicast) "multicast") ; #+network-streams implicitly true
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	71 "map-ynp"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	72 "undo-stack"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	73 "window" ; simple needs `save-window-excursion'
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	74 "window-xemacs"
3932 c585f0c06591 [xemacs-hg @ 2007-04-30 19:50:53 by stephent] stephent parents: 3767 diff changeset	75 "resize-minibuffer" ; simple needs `resize-minibuffer-mode'
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	76 "simple"
1333 1b0339b048ce [xemacs-hg @ 2003-03-02 09:38:37 by ben] ben parents: 1330 diff changeset	77 "newcomment"
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	78 "keydefs" ; Before loaddefs so that keymap vars exist.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	79 "abbrev"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	80 "derived"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	81 "minibuf"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	82 "list-mode"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	83 "modeline" ; needs simple.el to be loaded first
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	84 ;; If SparcWorks support is included some additional packages are
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	85 ;; dumped which would normally have autoloads. To avoid
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	86 ;; duplicate doc string warnings, SparcWorks uses a separate
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	87 ;; autoloads file with the dumped packages removed.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	88 ;; After fixing, eos/loaddefs-eos and loaddefs appear identical?!!
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	89 ;; So just make loaddefs-eos go away...
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	90 ;;(pureload (if (featurep 'sparcworks) "eos/loaddefs-eos" "loaddefs"))
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	91 "cus-file"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	92 "startup" ; For initialization of
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	93 ; `emacs-user-extension-dir'
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	94 "misc"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	95 ;; (pureload "profile")
3368 959746c534f6 [xemacs-hg @ 2006-04-29 16:15:21 by aidan] aidan parents: 3354 diff changeset	96 "loadhist" ; Must be dumped before loaddefs is loaded
959746c534f6 [xemacs-hg @ 2006-04-29 16:15:21 by aidan] aidan parents: 3354 diff changeset	97 ; Used by help.
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	98 ;; (pureload "hyper-apropos") Soon...
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	99 "files"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	100 "lib-complete"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	101 "format"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	102 "indent"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	103 "isearch-mode"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	104 "buffer"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	105 "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	106 "paths"
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	107 "lisp"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	108 "page"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	109 "register"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	110 "iso8859-1" ; This must be before any modes
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	111 ; (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	112 "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	113 "help"
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	114 "easymenu" ; Added for 20.3.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	115 "lisp-mode"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	116 "text-mode"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	117 "fill"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	118 "auto-save" ; Added for 20.4
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	119 "movemail" ; Added for 21.2
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	120 (when (eq system-type 'windows-nt) "win32-native")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	121 (when (featurep 'lisp-float-type) "float-sup")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	122 "itimer" ; for vars auto-save-timeout and
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	123 ; auto-gc-threshold
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	124 "itimer-autosave"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	125 "printer"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	126 "behavior"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	127 "behavior-defs"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	128 "diagnose"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	129
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	130 ;;;;;;;;;;;;;;;;;; GUI support
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	131 (when (featurep 'window-system)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	132 '("gui"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	133 "mouse"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	134 "mode-motion"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	135 ))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	136 (when (featurep 'toolbar) "toolbar")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	137 (when (featurep 'scrollbar) "scrollbar")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	138 (when (featurep 'menubar) "menubar")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	139 (when (featurep 'dialog) "dialog")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	140 (when (featurep 'gutter) "gutter")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	141 (when (featurep 'dragdrop-api) "dragdrop")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	142 "select"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	143
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	144 ;;;;;;;;;;;;;;;;;; Content for GUI's
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	145 ;; There used to be window-system inserted in the when-feature,
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	146 ;; but IMHO your configure script should turn off the menubar,
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	147 ;; toolbar, etc. features when there is no window system. We
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	148 ;; should just be able to assume that, if (featurep 'menubar),
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	149 ;; the menubar should work and if items are added, they can be
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	150 ;; seen clearly and usefully.
5228 5efbd1253905 Remove all support for InfoDock. Aidan Kehoe <kehoea@parhasard.net> parents: 5178 diff changeset	151 (when (featurep 'menubar) "menubar-items")
5efbd1253905 Remove all support for InfoDock. Aidan Kehoe <kehoea@parhasard.net> parents: 5178 diff changeset	152 (when (featurep 'gutter) "gutter-items")
5efbd1253905 Remove all support for InfoDock. Aidan Kehoe <kehoea@parhasard.net> parents: 5178 diff changeset	153 (when (featurep 'toolbar) "toolbar-items")
5efbd1253905 Remove all support for InfoDock. Aidan Kehoe <kehoea@parhasard.net> parents: 5178 diff changeset	154 (when (featurep 'dialog) "dialog-items")
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	155
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	156 ;;;;;;;;;;;;;;;;;; Coding-system support
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	157 "coding"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	158 "code-files"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	159 ;; Handle process with encoding/decoding coding-system.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	160 "code-process"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	161 ;; Provide basic commands to set coding systems to user
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	162 "code-cmds"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	163 "unicode"
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	164 ;;;;;;;;;;;;;;;;;; MULE support
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	165 (when (featurep 'mule)
2465 afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	166 '("mule/mule-charset"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	167 "mule/mule-cmds" ; to sync with Emacs 20.1
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	168 "mule/mule-coding"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	169 "mule/mule-composite-stub"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	170 "mule/mule-composite"
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	171 ))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	172 ;; may initialize coding systems
2465 afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	173 (when (featurep '(and mule x)) "mule/mule-x-init")
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	174 (when (featurep '(and mule tty)) "mule/mule-tty-init")
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	175 (when (and (featurep 'mule) (memq system-type '(windows-nt cygwin32)))
2474 a43cb0f95540 [xemacs-hg @ 2005-01-09 14:22:08 by adrian] adrian parents: 2465 diff changeset	176 "mule/mule-win32-init")
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	177 "code-init" ; set up defaults
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	178 ;; All files after this can have extended characters in them.
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	179 (when (featurep 'mule)
2465 afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	180 '("mule/mule-category"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	181 "mule/kinsoku"
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	182 ))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	183
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	184 ;; after this goes the specific lisp routines for a particular input system
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	185 ;; 97.2.5 JHod Shouldn't these go into a site-load file to allow site
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	186 ;; or user switching of input systems???
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	187 ;(if (featurep 'wnn)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	188 ; (progn
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	189 ; (pureload "egg")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	190 ; (pureload "egg-wnn")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	191 ; (setq egg-default-startup-file "eggrc-wnn")))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	192
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	193 ;; (if (and (boundp 'CANNA) CANNA)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	194 ;; (pureload "canna")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	195 ;; )
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	196
780 578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben] ben parents: 778 diff changeset	197 ;; Now load files to set up all the different languages/environments that
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben] ben parents: 778 diff changeset	198 ;; Mule knows about. Formerly we had to worry about files shadowed by
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben] ben parents: 778 diff changeset	199 ;; those of the same name in leim/quail.el, but no longer, since we now
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben] ben parents: 778 diff changeset	200 ;; compile with -no-packages.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	201
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	202 (when (featurep 'mule)
2465 afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	203 '("mule/arabic"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	204 "mule/chinese"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	205 "mule/cyrillic"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	206 "mule/english"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	207 "mule/ethiopic"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	208 "mule/greek"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	209 "mule/hebrew"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	210 "mule/indian"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	211 "mule/devanagari" ; must be loaded after indian.el
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	212 "mule/japanese"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	213 "mule/korean"
4072 aa28d959af41 [xemacs-hg @ 2007-07-22 22:03:29 by aidan] aidan parents: 3932 diff changeset	214 "mule/lao" ; sucks.
2465 afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	215 "mule/latin"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	216 "mule/misc-lang"
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	217 ;; "thai" #### merge thai and thai-xtis!!!
4072 aa28d959af41 [xemacs-hg @ 2007-07-22 22:03:29 by aidan] aidan parents: 3932 diff changeset	218 ;; #### Even better; take out thai-xtis! It's not even a
aa28d959af41 [xemacs-hg @ 2007-07-22 22:03:29 by aidan] aidan parents: 3932 diff changeset	219 ;; standard, and no-one uses it.
2465 afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	220 "mule/thai-xtis"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	221 "mule/tibetan"
afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	222 "mule/vietnamese"
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	223 ))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	224
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	225 ;; Specialized language support
2973 414a64af46c9 [xemacs-hg @ 2005-10-04 17:51:13 by stephent] stephent parents: 2828 diff changeset	226 (when (featurep 'mule) "mule/canna-leim")
780 578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben] ben parents: 778 diff changeset	227 ;; needs access to the charsets created by the above
578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben] ben parents: 778 diff changeset	228 ;; language-specific files.
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	229 (when (and (featurep 'mule) (valid-console-type-p 'mswindows))
2465 afab4c317508 [xemacs-hg @ 2005-01-03 10:29:11 by michaels] michaels parents: 2367 diff changeset	230 "mule/mule-msw-init-late")
780 578cb2932d72 [xemacs-hg @ 2002-03-18 10:07:30 by ben] ben parents: 778 diff changeset	231
3707 f6f6fc9eb269 [xemacs-hg @ 2006-11-28 21:20:22 by aidan] aidan parents: 3368 diff changeset	232 (when (featurep 'mule)
f6f6fc9eb269 [xemacs-hg @ 2006-11-28 21:20:22 by aidan] aidan parents: 3368 diff changeset	233 "mule/general-late")
f6f6fc9eb269 [xemacs-hg @ 2006-11-28 21:20:22 by aidan] aidan parents: 3368 diff changeset	234
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	235 ;;; mule-load.el ends here
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	236
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 440 diff changeset	237 ;; preload the X code.
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	238 (when (featurep '(and x scrollbar)) "x-scrollbar")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	239 (when (featurep 'x)
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 2579 diff changeset	240 '("x-mouse"
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	241 "x-select"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	242 "x-misc"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	243 "x-init"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	244 "x-win-xfree86"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	245 "x-win-sun"))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	246 ;; preload the GTK code
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	247 (when (featurep 'gtk)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	248 '("gtk-ffi"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	249 "gtk-widgets"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	250 "gdk"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	251 "gtk-init"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	252 "gtk-select"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	253 "gtk-mouse"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	254 "gtk-glyphs"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	255 "widgets-gtk"))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	256 (when (featurep '(and gtk dialog)) "dialog-gtk")
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	257 (when (featurep 'glade) "glade")
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: 444 diff changeset	258
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	259 ;; preload the mswindows code.
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	260 (when (valid-console-type-p 'mswindows)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	261 '("msw-glyphs"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	262 "msw-mouse"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	263 "msw-init"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	264 "msw-select"))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	265 ;; preload the TTY init code.
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	266 (when (featurep 'tty) "tty-init")
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	267 ;;; Formerly in tooltalk/tooltalk-load.el
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	268 ;; Moved to tooltalk package
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	269 ;; (when (featurep 'tooltalk)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	270 ;; '("tooltalk-macros" "tooltalk-util" "tooltalk-init"))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	271 ;; "vc-hooks" ; Packaged. Available in two versions.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	272 ;; "ediff-hook" ; Packaged.
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	273 "fontl-hooks"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	274 "auto-show"
2579 1fc205405d85 [xemacs-hg @ 2005-02-10 03:26:14 by ben] ben parents: 2558 diff changeset	275 "paragraphs" ; needs easy-mmode, coding
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	276 (when (featurep 'ldap) "ldap")
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	277
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	278 ;; (when (featurep 'energize) "energize/energize-load.el")
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	279 ;;; formerly in sunpro/sunpro-load.el
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	280 ;; (when (featurep '(and mule sparcworks)) "mime-setup")
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	281
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	282 ;; Moved to Sun package
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	283 ;; (when (featurep 'sparcworks)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	284 ;; '("cc-mode" ; Requires cc-mode package
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	285 ;; "sunpro-init"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	286 ;; "ring"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	287 ;; "comint" ; Requires comint package
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	288 ;; "annotations"))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	289
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	290 ;;; formerly in eos/sun-eos-load.el
1315 70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	291 ;; (when (featurep 'sparcworks)
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	292 ;; '("sun-eos-init"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	293 ;; "sun-eos-common"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	294 ;; "sun-eos-editor"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	295 ;; "sun-eos-browser"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	296 ;; "sun-eos-debugger"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	297 ;; "sun-eos-debugger-extra"
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	298 ;; "sun-eos-menubar"))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	299 "loaddefs" ; <=== autoloads get loaded here
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	300 ))
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	301
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben] ben parents: 1133 diff changeset	302 (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	303 (mapcan #'(lambda (x) (if (listp x) x (list x))) preloaded-file-list))

Mercurial > hg > xemacs-beta

annotate lisp/dumped-lisp.el @ 5265:5663ae9a8989