Mercurial > hg > xemacs-beta
comparison lisp/auto-autoloads.el @ 217:d44af0c54775 r20-4b7
Import from CVS: tag r20-4b7
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:08:34 +0200 |
parents | 41ff10fd062f |
children | 262b8bb4a523 |
comparison
equal
deleted
inserted
replaced
216:43306a74e31c | 217:d44af0c54775 |
---|---|
1 ;;; DO NOT MODIFY THIS FILE | 1 ;;; DO NOT MODIFY THIS FILE |
2 (if (featurep 'TopLevel-autoloads) (error "Already loaded")) | 2 (if (featurep 'Standard-autoloads) (error "Already loaded")) |
3 | |
4 ;;;### (autoloads nil "abbrev" "lisp/abbrev.el") | |
5 | |
6 ;;;*** | |
7 | |
8 ;;;### (autoloads (about-xemacs) "about" "lisp/about.el") | |
9 | |
10 (autoload 'about-xemacs "about" "\ | |
11 Describe the True Editor and its minions." t nil) | |
12 | |
13 ;;;*** | |
14 | |
15 ;;;### (autoloads (apropos-documentation apropos-value apropos apropos-command) "apropos" "lisp/apropos.el") | |
16 | |
17 (fset 'command-apropos 'apropos-command) | |
18 | |
19 (autoload 'apropos-command "apropos" "\ | |
20 Shows commands (interactively callable functions) that match REGEXP. | |
21 With optional prefix ARG or if `apropos-do-all' is non-nil, also show | |
22 variables." t nil) | |
23 | |
24 (autoload 'apropos "apropos" "\ | |
25 Show all bound symbols whose names match REGEXP. | |
26 With optional prefix ARG or if `apropos-do-all' is non-nil, also show unbound | |
27 symbols and key bindings, which is a little more time-consuming. | |
28 Returns list of symbols and documentation found." t nil) | |
29 | |
30 (autoload 'apropos-value "apropos" "\ | |
31 Show all symbols whose value's printed image matches REGEXP. | |
32 With optional prefix ARG or if `apropos-do-all' is non-nil, also looks | |
33 at the function and at the names and values of properties. | |
34 Returns list of symbols and values found." t nil) | |
35 | |
36 (autoload 'apropos-documentation "apropos" "\ | |
37 Show symbols whose documentation contain matches for REGEXP. | |
38 With optional prefix ARG or if `apropos-do-all' is non-nil, also use | |
39 documentation that is not stored in the documentation file and show key | |
40 bindings. | |
41 Returns list of symbols and documentation found." t nil) | |
42 | |
43 ;;;*** | |
44 | |
45 ;;;### (autoloads (batch-update-directory batch-update-autoloads update-autoloads-from-directory update-autoloads-here update-file-autoloads generate-file-autoloads) "autoload" "lisp/autoload.el") | |
46 | |
47 (autoload 'generate-file-autoloads "autoload" "\ | |
48 Insert at point a loaddefs autoload section for FILE. | |
49 autoloads are generated for defuns and defmacros in FILE | |
50 marked by `generate-autoload-cookie' (which see). | |
51 If FILE is being visited in a buffer, the contents of the buffer | |
52 are used." t nil) | |
53 | |
54 (autoload 'update-file-autoloads "autoload" "\ | |
55 Update the autoloads for FILE in `generated-autoload-file' | |
56 \(which FILE might bind in its local variables). | |
57 This functions refuses to update autoloads files." t nil) | |
58 | |
59 (autoload 'update-autoloads-here "autoload" "\ | |
60 Update sections of the current buffer generated by `update-file-autoloads'." t nil) | |
61 | |
62 (autoload 'update-autoloads-from-directory "autoload" "\ | |
63 Update `generated-autoload-file' with all the current autoloads from DIR. | |
64 This runs `update-file-autoloads' on each .el file in DIR. | |
65 Obsolete autoload entries for files that no longer exist are deleted." t nil) | |
66 | |
67 (autoload 'batch-update-autoloads "autoload" "\ | |
68 Update the autoloads for the files or directories on the command line. | |
69 Runs `update-file-autoloads' on files and `update-directory-autoloads' | |
70 on directories. Must be used only with -batch, and kills Emacs on completion. | |
71 Each file will be processed even if an error occurred previously. | |
72 For example, invoke `xemacs -batch -f batch-update-autoloads *.el'. | |
73 The directory to which the auto-autoloads.el file must be the first parameter | |
74 on the command line." nil nil) | |
75 | |
76 (autoload 'batch-update-directory "autoload" "\ | |
77 Update the autoloads for the directory on the command line. | |
78 Runs `update-file-autoloads' on each file in the given directory, must | |
79 be used only with -batch and kills XEmacs on completion." nil nil) | |
80 | |
81 ;;;*** | |
82 | |
83 ;;;### (autoloads nil "buff-menu" "lisp/buff-menu.el") | |
84 | |
85 (defvar list-buffers-directory nil) | |
86 | |
87 (make-variable-buffer-local 'list-buffers-directory) | |
88 | |
89 ;;;*** | |
3 | 90 |
4 ;;;### (autoloads (batch-byte-recompile-directory batch-byte-recompile-directory-norecurse batch-byte-compile display-call-tree byte-compile-sexp byte-compile compile-defun byte-compile-file byte-recompile-file byte-recompile-directory byte-force-recompile) "bytecomp" "lisp/bytecomp.el") | 91 ;;;### (autoloads (batch-byte-recompile-directory batch-byte-recompile-directory-norecurse batch-byte-compile display-call-tree byte-compile-sexp byte-compile compile-defun byte-compile-file byte-recompile-file byte-recompile-directory byte-force-recompile) "bytecomp" "lisp/bytecomp.el") |
5 | 92 |
6 (autoload 'byte-force-recompile "bytecomp" "\ | 93 (autoload 'byte-force-recompile "bytecomp" "\ |
7 Recompile every `.el' file in DIRECTORY that already has a `.elc' file. | 94 Recompile every `.el' file in DIRECTORY that already has a `.elc' file. |
405 | 492 |
406 (autoload 'compiler-macroexpand "cl-macs" nil nil nil) | 493 (autoload 'compiler-macroexpand "cl-macs" nil nil nil) |
407 | 494 |
408 ;;;*** | 495 ;;;*** |
409 | 496 |
497 ;;;### (autoloads (batch-remove-old-elc) "cleantree" "lisp/cleantree.el") | |
498 | |
499 (autoload 'batch-remove-old-elc "cleantree" nil nil nil) | |
500 | |
501 ;;;*** | |
502 | |
503 ;;;### (autoloads (config-value config-value-hash-table) "config" "lisp/config.el") | |
504 | |
505 (autoload 'config-value-hash-table "config" "\ | |
506 Returns hashtable of configuration parameters and their values." nil nil) | |
507 | |
508 (autoload 'config-value "config" "\ | |
509 Return the value of the configuration parameter CONFIG_SYMBOL." nil nil) | |
510 | |
511 ;;;*** | |
512 | |
410 ;;;### (autoloads (Custom-make-dependencies) "cus-dep" "lisp/cus-dep.el") | 513 ;;;### (autoloads (Custom-make-dependencies) "cus-dep" "lisp/cus-dep.el") |
411 | 514 |
412 (autoload 'Custom-make-dependencies "cus-dep" "\ | 515 (autoload 'Custom-make-dependencies "cus-dep" "\ |
413 Extract custom dependencies from .el files in SUBDIRS. | 516 Extract custom dependencies from .el files in SUBDIRS. |
414 SUBDIRS is a list of directories. If it is nil, the command-line | 517 SUBDIRS is a list of directories. If it is nil, the command-line |
528 that option." nil nil) | 631 that option." nil nil) |
529 | 632 |
530 (autoload 'customize-browse "cus-edit" "\ | 633 (autoload 'customize-browse "cus-edit" "\ |
531 Create a tree browser for the customize hierarchy." t nil) | 634 Create a tree browser for the customize hierarchy." t nil) |
532 | 635 |
533 (defcustom custom-file (if (boundp 'emacs-user-extension-dir) (concat "~" init-file-user emacs-user-extension-dir "options.el") "~/.emacs") "File used for storing customization information.\nIf you change this from the default \"~/.emacs\" you need to\nexplicitly load that file for the settings to take effect." :type 'file :group 'customize) | 636 (defcustom custom-file (if (boundp 'user-init-directory) (concat "~" init-file-user user-init-directory "options.el") "~/.emacs") "File used for storing customization information.\nIf you change this from the default \"~/.emacs\" you need to\nexplicitly load that file for the settings to take effect." :type 'file :group 'customize) |
534 | 637 |
535 (autoload 'customize-save-customized "cus-edit" "\ | 638 (autoload 'customize-save-customized "cus-edit" "\ |
536 Save all user options which have been set in this session." t nil) | 639 Save all user options which have been set in this session." t nil) |
537 | 640 |
538 (autoload 'custom-save-all "cus-edit" "\ | 641 (autoload 'custom-save-all "cus-edit" "\ |
574 Print disassembled code for OBJECT in (optional) BUFFER. | 677 Print disassembled code for OBJECT in (optional) BUFFER. |
575 OBJECT can be a symbol defined as a function, or a function itself | 678 OBJECT can be a symbol defined as a function, or a function itself |
576 \(a lambda expression or a compiled-function object). | 679 \(a lambda expression or a compiled-function object). |
577 If OBJECT is not already compiled, we compile it, but do not | 680 If OBJECT is not already compiled, we compile it, but do not |
578 redefine OBJECT if it is a symbol." t nil) | 681 redefine OBJECT if it is a symbol." t nil) |
682 | |
683 ;;;*** | |
684 | |
685 ;;;### (autoloads nil "easymenu" "lisp/easymenu.el") | |
686 | |
687 ;;;*** | |
688 | |
689 ;;;### (autoloads (tags-apropos list-tags tags-query-replace tags-search tags-loop-continue next-file find-tag-other-window find-tag visit-tags-table) "etags" "lisp/etags.el") | |
690 | |
691 (defcustom tags-build-completion-table 'ask "*If this variable is nil, then tags completion is disabled.\nIf this variable is t, then things which prompt for tags will do so with \n completion across all known tags.\nIf this variable is the symbol `ask', then you will be asked whether each\n tags table should be added to the completion list as it is read in.\n (With the exception that for very small tags tables, you will not be asked,\n since they can be parsed quickly.)" :type '(radio (const :tag "Disabled" nil) (const :tag "Complete All" t) (const :tag "Ask" ask)) :group 'etags) | |
692 | |
693 (defcustom tags-always-exact nil "*If this variable is non-nil, then tags always looks for exact matches." :type 'boolean :group 'etags) | |
694 | |
695 (defcustom tag-table-alist nil "*A list which determines which tags files are active for a buffer.\nThis is not really an association list, in that all elements are\nchecked. The CAR of each element of this list is a pattern against\nwhich the buffer's file name is compared; if it matches, then the CDR\nof the list should be the name of the tags table to use. If more than\none element of this list matches the buffer's file name, then all of\nthe associated tags tables will be used. Earlier ones will be\nsearched first.\n\nIf the CAR of elements of this list are strings, then they are treated\nas regular-expressions against which the file is compared (like the\nauto-mode-alist). If they are not strings, then they are evaluated.\nIf they evaluate to non-nil, then the current buffer is considered to\nmatch.\n\nIf the CDR of the elements of this list are strings, then they are\nassumed to name a TAGS file. If they name a directory, then the string\n\"TAGS\" is appended to them to get the file name. If they are not \nstrings, then they are evaluated, and must return an appropriate string.\n\nFor example:\n (setq tag-table-alist\n '((\"/usr/src/public/perl/\" . \"/usr/src/public/perl/perl-3.0/\")\n (\"\\\\.el$\" . \"/usr/local/emacs/src/\")\n (\"/jbw/gnu/\" . \"/usr15/degree/stud/jbw/gnu/\")\n (\"\" . \"/usr/local/emacs/src/\")\n ))\n\nThis means that anything in the /usr/src/public/perl/ directory should use\nthe TAGS file /usr/src/public/perl/perl-3.0/TAGS; and file ending in .el should\nuse the TAGS file /usr/local/emacs/src/TAGS; and anything in or below the\ndirectory /jbw/gnu/ should use the TAGS file /usr15/degree/stud/jbw/gnu/TAGS.\nA file called something like \"/usr/jbw/foo.el\" would use both the TAGS files\n/usr/local/emacs/src/TAGS and /usr15/degree/stud/jbw/gnu/TAGS (in that order)\nbecause it matches both patterns.\n\nIf the buffer-local variable `buffer-tag-table' is set, then it names a tags\ntable that is searched before all others when find-tag is executed from this\nbuffer.\n\nIf there is a file called \"TAGS\" in the same directory as the file in \nquestion, then that tags file will always be used as well (after the\n`buffer-tag-table' but before the tables specified by this list.)\n\nIf the variable tags-file-name is set, then the tags file it names will apply\nto all buffers (for backwards compatibility.) It is searched first.\n" :type '(repeat (cons (choice :value "" (regexp :tag "Buffer regexp") (function :tag "Expression")) (string :tag "Tag file or directory"))) :group 'etags) | |
696 | |
697 (autoload 'visit-tags-table "etags" "\ | |
698 Tell tags commands to use tags table file FILE first. | |
699 FILE should be the name of a file created with the `etags' program. | |
700 A directory name is ok too; it means file TAGS in that directory." t nil) | |
701 | |
702 (autoload 'find-tag "etags" "\ | |
703 *Find tag whose name contains TAGNAME. | |
704 Selects the buffer that the tag is contained in | |
705 and puts point at its definition. | |
706 If TAGNAME is a null string, the expression in the buffer | |
707 around or before point is used as the tag name. | |
708 If called interactively with a numeric argument, searches for the next tag | |
709 in the tag table that matches the tagname used in the previous find-tag. | |
710 If second arg OTHER-WINDOW is non-nil, uses another window to display | |
711 the tag. | |
712 | |
713 This version of this function supports multiple active tags tables, | |
714 and completion. | |
715 | |
716 Variables of note: | |
717 | |
718 tag-table-alist controls which tables apply to which buffers | |
719 tags-file-name a default tags table | |
720 tags-build-completion-table controls completion behavior | |
721 buffer-tag-table another way of specifying a buffer-local table | |
722 make-tags-files-invisible whether tags tables should be very hidden | |
723 tag-mark-stack-max how many tags-based hops to remember" t nil) | |
724 | |
725 (autoload 'find-tag-other-window "etags" "\ | |
726 *Find tag whose name contains TAGNAME. | |
727 Selects the buffer that the tag is contained in in another window | |
728 and puts point at its definition. | |
729 If TAGNAME is a null string, the expression in the buffer | |
730 around or before point is used as the tag name. | |
731 If second arg NEXT is non-nil (interactively, with prefix arg), | |
732 searches for the next tag in the tag table | |
733 that matches the tagname used in the previous find-tag. | |
734 | |
735 This version of this function supports multiple active tags tables, | |
736 and completion. | |
737 | |
738 Variables of note: | |
739 | |
740 tag-table-alist controls which tables apply to which buffers | |
741 tags-file-name a default tags table | |
742 tags-build-completion-table controls completion behavior | |
743 buffer-tag-table another way of specifying a buffer-local table | |
744 make-tags-files-invisible whether tags tables should be very hidden | |
745 tag-mark-stack-max how many tags-based hops to remember" t nil) | |
746 | |
747 (autoload 'next-file "etags" "\ | |
748 Select next file among files in current tag table(s). | |
749 | |
750 A first argument of t (prefix arg, if interactive) initializes to the | |
751 beginning of the list of files in the (first) tags table. If the argument | |
752 is neither nil nor t, it is evalled to initialize the list of files. | |
753 | |
754 Non-nil second argument NOVISIT means use a temporary buffer | |
755 to save time and avoid uninteresting warnings. | |
756 | |
757 Value is nil if the file was already visited; | |
758 if the file was newly read in, the value is the filename." t nil) | |
759 | |
760 (autoload 'tags-loop-continue "etags" "\ | |
761 Continue last \\[tags-search] or \\[tags-query-replace] command. | |
762 Used noninteractively with non-nil argument to begin such a command (the | |
763 argument is passed to `next-file', which see). | |
764 Two variables control the processing we do on each file: | |
765 the value of `tags-loop-scan' is a form to be executed on each file | |
766 to see if it is interesting (it returns non-nil if so) | |
767 and `tags-loop-operate' is a form to execute to operate on an interesting file | |
768 If the latter returns non-nil, we exit; otherwise we scan the next file." t nil) | |
769 | |
770 (autoload 'tags-search "etags" "\ | |
771 Search through all files listed in tags table for match for REGEXP. | |
772 Stops when a match is found. | |
773 To continue searching for next match, use command \\[tags-loop-continue]. | |
774 | |
775 See documentation of variable `tag-table-alist'." t nil) | |
776 | |
777 (autoload 'tags-query-replace "etags" "\ | |
778 Query-replace-regexp FROM with TO through all files listed in tags table. | |
779 Third arg DELIMITED (prefix arg) means replace only word-delimited matches. | |
780 If you exit (\\[keyboard-quit] or ESC), you can resume the query-replace | |
781 with the command \\[tags-loop-continue]. | |
782 | |
783 See documentation of variable `tag-table-alist'." t nil) | |
784 | |
785 (autoload 'list-tags "etags" "\ | |
786 Display list of tags in file FILE. | |
787 FILE should not contain a directory spec | |
788 unless it has one in the tag table." t nil) | |
789 | |
790 (autoload 'tags-apropos "etags" "\ | |
791 Display list of all tags in tag table REGEXP matches." t nil) | |
792 | |
793 ;;;*** | |
794 | |
795 ;;;### (autoloads (font-lock-set-defaults-1 font-lock-fontify-buffer turn-off-font-lock turn-on-font-lock font-lock-mode) "font-lock" "lisp/font-lock.el") | |
796 | |
797 (defvar font-lock-auto-fontify t "\ | |
798 *Whether font-lock should automatically fontify files as they're loaded. | |
799 This will only happen if font-lock has fontifying keywords for the major | |
800 mode of the file. You can get finer-grained control over auto-fontification | |
801 by using this variable in combination with `font-lock-mode-enable-list' or | |
802 `font-lock-mode-disable-list'.") | |
803 | |
804 (defvar font-lock-mode-enable-list nil "\ | |
805 *List of modes to auto-fontify, if `font-lock-auto-fontify' is nil.") | |
806 | |
807 (defvar font-lock-mode-disable-list nil "\ | |
808 *List of modes not to auto-fontify, if `font-lock-auto-fontify' is t.") | |
809 | |
810 (defvar font-lock-use-colors '(color) "\ | |
811 *Specification for when Font Lock will set up color defaults. | |
812 Normally this should be '(color), meaning that Font Lock will set up | |
813 color defaults that are only used on color displays. Set this to nil | |
814 if you don't want Font Lock to set up color defaults at all. This | |
815 should be one of | |
816 | |
817 -- a list of valid tags, meaning that the color defaults will be used | |
818 when all of the tags apply. (e.g. '(color x)) | |
819 -- a list whose first element is 'or and whose remaining elements are | |
820 lists of valid tags, meaning that the defaults will be used when | |
821 any of the tag lists apply. | |
822 -- nil, meaning that the defaults should not be set up at all. | |
823 | |
824 \(If you specify face values in your init file, they will override any | |
825 that Font Lock specifies, regardless of whether you specify the face | |
826 values before or after loading Font Lock.) | |
827 | |
828 See also `font-lock-use-fonts'. If you want more control over the faces | |
829 used for fontification, see the documentation of `font-lock-mode' for | |
830 how to do it.") | |
831 | |
832 (defvar font-lock-use-fonts '(or (mono) (grayscale)) "\ | |
833 *Specification for when Font Lock will set up non-color defaults. | |
834 | |
835 Normally this should be '(or (mono) (grayscale)), meaning that Font | |
836 Lock will set up non-color defaults that are only used on either mono | |
837 or grayscale displays. Set this to nil if you don't want Font Lock to | |
838 set up non-color defaults at all. This should be one of | |
839 | |
840 -- a list of valid tags, meaning that the non-color defaults will be used | |
841 when all of the tags apply. (e.g. '(grayscale x)) | |
842 -- a list whose first element is 'or and whose remaining elements are | |
843 lists of valid tags, meaning that the defaults will be used when | |
844 any of the tag lists apply. | |
845 -- nil, meaning that the defaults should not be set up at all. | |
846 | |
847 \(If you specify face values in your init file, they will override any | |
848 that Font Lock specifies, regardless of whether you specify the face | |
849 values before or after loading Font Lock.) | |
850 | |
851 See also `font-lock-use-colors'. If you want more control over the faces | |
852 used for fontification, see the documentation of `font-lock-mode' for | |
853 how to do it.") | |
854 | |
855 (defvar font-lock-maximum-decoration nil "\ | |
856 *If non-nil, the maximum decoration level for fontifying. | |
857 If nil, use the minimum decoration (equivalent to level 0). | |
858 If t, use the maximum decoration available. | |
859 If a number, use that level of decoration (or if not available the maximum). | |
860 If a list, each element should be a cons pair of the form (MAJOR-MODE . LEVEL), | |
861 where MAJOR-MODE is a symbol or t (meaning the default). For example: | |
862 ((c++-mode . 2) (c-mode . t) (t . 1)) | |
863 means use level 2 decoration for buffers in `c++-mode', the maximum decoration | |
864 available for buffers in `c-mode', and level 1 decoration otherwise.") | |
865 | |
866 (define-obsolete-variable-alias 'font-lock-use-maximal-decoration 'font-lock-maximum-decoration) | |
867 | |
868 (defvar font-lock-maximum-size (* 250 1024) "\ | |
869 *If non-nil, the maximum size for buffers for fontifying. | |
870 Only buffers less than this can be fontified when Font Lock mode is turned on. | |
871 If nil, means size is irrelevant. | |
872 If a list, each element should be a cons pair of the form (MAJOR-MODE . SIZE), | |
873 where MAJOR-MODE is a symbol or t (meaning the default). For example: | |
874 ((c++-mode . 256000) (c-mode . 256000) (rmail-mode . 1048576)) | |
875 means that the maximum size is 250K for buffers in `c++-mode' or `c-mode', one | |
876 megabyte for buffers in `rmail-mode', and size is irrelevant otherwise.") | |
877 | |
878 (defvar font-lock-keywords nil "\ | |
879 *A list of the keywords to highlight. | |
880 Each element should be of the form: | |
881 | |
882 MATCHER | |
883 (MATCHER . MATCH) | |
884 (MATCHER . FACENAME) | |
885 (MATCHER . HIGHLIGHT) | |
886 (MATCHER HIGHLIGHT ...) | |
887 (eval . FORM) | |
888 | |
889 where HIGHLIGHT should be either MATCH-HIGHLIGHT or MATCH-ANCHORED. | |
890 | |
891 FORM is an expression, whose value should be a keyword element, | |
892 evaluated when the keyword is (first) used in a buffer. This feature | |
893 can be used to provide a keyword that can only be generated when Font | |
894 Lock mode is actually turned on. | |
895 | |
896 For highlighting single items, typically only MATCH-HIGHLIGHT is required. | |
897 However, if an item or (typically) items is to be highlighted following the | |
898 instance of another item (the anchor) then MATCH-ANCHORED may be required. | |
899 | |
900 MATCH-HIGHLIGHT should be of the form: | |
901 | |
902 (MATCH FACENAME OVERRIDE LAXMATCH) | |
903 | |
904 Where MATCHER can be either the regexp to search for, a variable | |
905 containing the regexp to search for, or the function to call to make | |
906 the search (called with one argument, the limit of the search). MATCH | |
907 is the subexpression of MATCHER to be highlighted. FACENAME is either | |
908 a symbol naming a face, or an expression whose value is the face name | |
909 to use. If you want FACENAME to be a symbol that evaluates to a face, | |
910 use a form like \"(progn sym)\". | |
911 | |
912 OVERRIDE and LAXMATCH are flags. If OVERRIDE is t, existing fontification may | |
913 be overwritten. If `keep', only parts not already fontified are highlighted. | |
914 If `prepend' or `append', existing fontification is merged with the new, in | |
915 which the new or existing fontification, respectively, takes precedence. | |
916 If LAXMATCH is non-nil, no error is signalled if there is no MATCH in MATCHER. | |
917 | |
918 For example, an element of the form highlights (if not already highlighted): | |
919 | |
920 \"\\\\\\=<foo\\\\\\=>\" Discrete occurrences of \"foo\" in the value of the | |
921 variable `font-lock-keyword-face'. | |
922 (\"fu\\\\(bar\\\\)\" . 1) Substring \"bar\" within all occurrences of \"fubar\" in | |
923 the value of `font-lock-keyword-face'. | |
924 (\"fubar\" . fubar-face) Occurrences of \"fubar\" in the value of `fubar-face'. | |
925 (\"foo\\\\|bar\" 0 foo-bar-face t) | |
926 Occurrences of either \"foo\" or \"bar\" in the value | |
927 of `foo-bar-face', even if already highlighted. | |
928 | |
929 MATCH-ANCHORED should be of the form: | |
930 | |
931 (MATCHER PRE-MATCH-FORM POST-MATCH-FORM MATCH-HIGHLIGHT ...) | |
932 | |
933 Where MATCHER is as for MATCH-HIGHLIGHT with one exception; see below. | |
934 PRE-MATCH-FORM and POST-MATCH-FORM are evaluated before the first, and after | |
935 the last, instance MATCH-ANCHORED's MATCHER is used. Therefore they can be | |
936 used to initialise before, and cleanup after, MATCHER is used. Typically, | |
937 PRE-MATCH-FORM is used to move to some position relative to the original | |
938 MATCHER, before starting with MATCH-ANCHORED's MATCHER. POST-MATCH-FORM might | |
939 be used to move, before resuming with MATCH-ANCHORED's parent's MATCHER. | |
940 | |
941 For example, an element of the form highlights (if not already highlighted): | |
942 | |
943 (\"\\\\\\=<anchor\\\\\\=>\" (0 anchor-face) (\"\\\\\\=<item\\\\\\=>\" nil nil (0 item-face))) | |
944 | |
945 Discrete occurrences of \"anchor\" in the value of `anchor-face', and subsequent | |
946 discrete occurrences of \"item\" (on the same line) in the value of `item-face'. | |
947 (Here PRE-MATCH-FORM and POST-MATCH-FORM are nil. Therefore \"item\" is | |
948 initially searched for starting from the end of the match of \"anchor\", and | |
949 searching for subsequent instance of \"anchor\" resumes from where searching | |
950 for \"item\" concluded.) | |
951 | |
952 The above-mentioned exception is as follows. The limit of the MATCHER search | |
953 defaults to the end of the line after PRE-MATCH-FORM is evaluated. | |
954 However, if PRE-MATCH-FORM returns a position greater than the position after | |
955 PRE-MATCH-FORM is evaluated, that position is used as the limit of the search. | |
956 It is generally a bad idea to return a position greater than the end of the | |
957 line, i.e., cause the MATCHER search to span lines. | |
958 | |
959 Note that the MATCH-ANCHORED feature is experimental; in the future, we may | |
960 replace it with other ways of providing this functionality. | |
961 | |
962 These regular expressions should not match text which spans lines. While | |
963 \\[font-lock-fontify-buffer] handles multi-line patterns correctly, updating | |
964 when you edit the buffer does not, since it considers text one line at a time. | |
965 | |
966 Be very careful composing regexps for this list; | |
967 the wrong pattern can dramatically slow things down!") | |
968 | |
969 (make-variable-buffer-local 'font-lock-keywords) | |
970 | |
971 (defvar font-lock-mode nil) | |
972 | |
973 (defvar font-lock-mode-hook nil "\ | |
974 Function or functions to run on entry to font-lock-mode.") | |
975 | |
976 (autoload 'font-lock-mode "font-lock" "\ | |
977 Toggle Font Lock Mode. | |
978 With arg, turn font-lock mode on if and only if arg is positive. | |
979 | |
980 When Font Lock mode is enabled, text is fontified as you type it: | |
981 | |
982 - Comments are displayed in `font-lock-comment-face'; | |
983 - Strings are displayed in `font-lock-string-face'; | |
984 - Documentation strings (in Lisp-like languages) are displayed in | |
985 `font-lock-doc-string-face'; | |
986 - Language keywords (\"reserved words\") are displayed in | |
987 `font-lock-keyword-face'; | |
988 - Function names in their defining form are displayed in | |
989 `font-lock-function-name-face'; | |
990 - Variable names in their defining form are displayed in | |
991 `font-lock-variable-name-face'; | |
992 - Type names are displayed in `font-lock-type-face'; | |
993 - References appearing in help files and the like are displayed | |
994 in `font-lock-reference-face'; | |
995 - Preprocessor declarations are displayed in | |
996 `font-lock-preprocessor-face'; | |
997 | |
998 and | |
999 | |
1000 - Certain other expressions are displayed in other faces according | |
1001 to the value of the variable `font-lock-keywords'. | |
1002 | |
1003 Where modes support different levels of fontification, you can use the variable | |
1004 `font-lock-maximum-decoration' to specify which level you generally prefer. | |
1005 When you turn Font Lock mode on/off the buffer is fontified/defontified, though | |
1006 fontification occurs only if the buffer is less than `font-lock-maximum-size'. | |
1007 To fontify a buffer without turning on Font Lock mode, and regardless of buffer | |
1008 size, you can use \\[font-lock-fontify-buffer]. | |
1009 | |
1010 See the variable `font-lock-keywords' for customization." t nil) | |
1011 | |
1012 (autoload 'turn-on-font-lock "font-lock" "\ | |
1013 Unconditionally turn on Font Lock mode." nil nil) | |
1014 | |
1015 (autoload 'turn-off-font-lock "font-lock" "\ | |
1016 Unconditionally turn off Font Lock mode." nil nil) | |
1017 | |
1018 (autoload 'font-lock-fontify-buffer "font-lock" "\ | |
1019 Fontify the current buffer the way `font-lock-mode' would. | |
1020 See `font-lock-mode' for details. | |
1021 | |
1022 This can take a while for large buffers." t nil) | |
1023 | |
1024 (autoload 'font-lock-set-defaults-1 "font-lock" nil nil nil) | |
1025 | |
1026 (add-minor-mode 'font-lock-mode " Font") | |
1027 | |
1028 ;;;*** | |
1029 | |
1030 ;;;### (autoloads (x-font-build-cache font-default-size-for-device font-default-encoding-for-device font-default-registry-for-device font-default-family-for-device font-default-object-for-device font-default-font-for-device font-create-object) "font" "lisp/font.el") | |
1031 | |
1032 (autoload 'font-create-object "font" nil nil nil) | |
1033 | |
1034 (autoload 'font-default-font-for-device "font" nil nil nil) | |
1035 | |
1036 (autoload 'font-default-object-for-device "font" nil nil nil) | |
1037 | |
1038 (autoload 'font-default-family-for-device "font" nil nil nil) | |
1039 | |
1040 (autoload 'font-default-registry-for-device "font" nil nil nil) | |
1041 | |
1042 (autoload 'font-default-encoding-for-device "font" nil nil nil) | |
1043 | |
1044 (autoload 'font-default-size-for-device "font" nil nil nil) | |
1045 | |
1046 (autoload 'x-font-build-cache "font" nil nil nil) | |
1047 | |
1048 ;;;*** | |
1049 | |
1050 ;;;### (autoloads (gnuserv-start gnuserv-running-p) "gnuserv" "lisp/gnuserv.el") | |
1051 | |
1052 (defcustom gnuserv-frame nil "*The frame to be used to display all edited files.\nIf nil, then a new frame is created for each file edited.\nIf t, then the currently selected frame will be used.\nIf a function, then this will be called with a symbol `x' or `tty' as the\nonly argument, and its return value will be interpreted as above." :tag "Gnuserv Frame" :type '(radio (const :tag "Create new frame each time" nil) (const :tag "Use selected frame" t) (function-item :tag "Use main Emacs frame" gnuserv-main-frame-function) (function-item :tag "Use visible frame, otherwise create new" gnuserv-visible-frame-function) (function-item :tag "Create special Gnuserv frame and use it" gnuserv-special-frame-function) (function :tag "Other")) :group 'gnuserv :group 'frames) | |
1053 | |
1054 (autoload 'gnuserv-running-p "gnuserv" "\ | |
1055 Return non-nil if a gnuserv process is running from this XEmacs session." nil nil) | |
1056 | |
1057 (autoload 'gnuserv-start "gnuserv" "\ | |
1058 Allow this Emacs process to be a server for client processes. | |
1059 This starts a gnuserv communications subprocess through which | |
1060 client \"editors\" (gnuclient and gnudoit) can send editing commands to | |
1061 this Emacs job. See the gnuserv(1) manual page for more details. | |
1062 | |
1063 Prefix arg means just kill any existing server communications subprocess." t nil) | |
1064 | |
1065 ;;;*** | |
1066 | |
1067 ;;;### (autoloads nil "help-macro" "lisp/help-macro.el") | |
1068 | |
1069 (defcustom three-step-help t "*Non-nil means give more info about Help command in three steps.\nThe three steps are simple prompt, prompt with all options,\nand window listing and describing the options.\nA value of nil means skip the middle step, so that\n\\[help-command] \\[help-command] gives the window that lists the options." :type 'boolean :group 'help-appearance) | |
1070 | |
1071 ;;;*** | |
1072 | |
1073 ;;;### (autoloads (hyper-apropos-popup-menu hyper-apropos-set-variable hyper-set-variable hyper-apropos-read-variable-symbol hyper-describe-function hyper-describe-variable hyper-describe-face hyper-describe-key-briefly hyper-describe-key hyper-apropos) "hyper-apropos" "lisp/hyper-apropos.el") | |
1074 | |
1075 (autoload 'hyper-apropos "hyper-apropos" "\ | |
1076 Display lists of functions and variables matching REGEXP | |
1077 in buffer \"*Hyper Apropos*\". If optional prefix arg is given, then the | |
1078 value of `hyper-apropos-programming-apropos' is toggled for this search. | |
1079 See also `hyper-apropos-mode'." t nil) | |
1080 | |
1081 (autoload 'hyper-describe-key "hyper-apropos" nil t nil) | |
1082 | |
1083 (autoload 'hyper-describe-key-briefly "hyper-apropos" nil t nil) | |
1084 | |
1085 (autoload 'hyper-describe-face "hyper-apropos" "\ | |
1086 Describe face.. | |
1087 See also `hyper-apropos' and `hyper-describe-function'." t nil) | |
1088 | |
1089 (autoload 'hyper-describe-variable "hyper-apropos" "\ | |
1090 Hypertext drop-in replacement for `describe-variable'. | |
1091 See also `hyper-apropos' and `hyper-describe-function'." t nil) | |
1092 | |
1093 (autoload 'hyper-describe-function "hyper-apropos" "\ | |
1094 Hypertext replacement for `describe-function'. Unlike `describe-function' | |
1095 in that the symbol under the cursor is the default if it is a function. | |
1096 See also `hyper-apropos' and `hyper-describe-variable'." t nil) | |
1097 | |
1098 (autoload 'hyper-apropos-read-variable-symbol "hyper-apropos" "\ | |
1099 Hypertext drop-in replacement for `describe-variable'. | |
1100 See also `hyper-apropos' and `hyper-describe-function'." nil nil) | |
1101 | |
1102 (define-obsolete-function-alias 'hypropos-read-variable-symbol 'hyper-apropos-read-variable-symbol) | |
1103 | |
1104 (define-obsolete-function-alias 'hypropos-get-doc 'hyper-apropos-get-doc) | |
1105 | |
1106 (autoload 'hyper-set-variable "hyper-apropos" nil t nil) | |
1107 | |
1108 (autoload 'hyper-apropos-set-variable "hyper-apropos" "\ | |
1109 Interactively set the variable on the current line." t nil) | |
1110 | |
1111 (define-obsolete-function-alias 'hypropos-set-variable 'hyper-apropos-set-variable) | |
1112 | |
1113 (autoload 'hyper-apropos-popup-menu "hyper-apropos" nil t nil) | |
1114 | |
1115 (define-obsolete-function-alias 'hypropos-popup-menu 'hyper-apropos-popup-menu) | |
1116 | |
1117 ;;;*** | |
1118 | |
1119 ;;;### (autoloads (Info-elisp-ref Info-emacs-key Info-goto-emacs-key-command-node Info-goto-emacs-command-node Info-emacs-command Info-search Info-visit-file Info-goto-node Info-query info) "info" "lisp/info.el") | |
1120 | |
1121 (autoload 'info "info" "\ | |
1122 Enter Info, the documentation browser. | |
1123 Optional argument FILE specifies the file to examine; | |
1124 the default is the top-level directory of Info. | |
1125 | |
1126 In interactive use, a prefix argument directs this command | |
1127 to read a file name from the minibuffer." t nil) | |
1128 | |
1129 (autoload 'Info-query "info" "\ | |
1130 Enter Info, the documentation browser. Prompt for name of Info file." t nil) | |
1131 | |
1132 (autoload 'Info-goto-node "info" "\ | |
1133 Go to info node named NAME. Give just NODENAME or (FILENAME)NODENAME. | |
1134 Actually, the following interpretations of NAME are tried in order: | |
1135 (FILENAME)NODENAME | |
1136 (FILENAME) (using Top node) | |
1137 NODENAME (in current file) | |
1138 TAGNAME (see below) | |
1139 FILENAME (using Top node) | |
1140 where TAGNAME is a string that appears in quotes: \"TAGNAME\", in an | |
1141 annotation for any node of any file. (See `a' and `x' commands.)" t nil) | |
1142 | |
1143 (autoload 'Info-visit-file "info" "\ | |
1144 Directly visit an info file." t nil) | |
1145 | |
1146 (autoload 'Info-search "info" "\ | |
1147 Search for REGEXP, starting from point, and select node it's found in." t nil) | |
1148 | |
1149 (autoload 'Info-emacs-command "info" "\ | |
1150 Look up an Emacs command in the Emacs manual in the Info system. | |
1151 This command is designed to be used whether you are already in Info or not." t nil) | |
1152 | |
1153 (autoload 'Info-goto-emacs-command-node "info" "\ | |
1154 Look up an Emacs command in the Emacs manual in the Info system. | |
1155 This command is designed to be used whether you are already in Info or not." t nil) | |
1156 | |
1157 (autoload 'Info-goto-emacs-key-command-node "info" "\ | |
1158 Look up an Emacs key sequence in the Emacs manual in the Info system. | |
1159 This command is designed to be used whether you are already in Info or not." t nil) | |
1160 | |
1161 (autoload 'Info-emacs-key "info" "\ | |
1162 Look up an Emacs key sequence in the Emacs manual in the Info system. | |
1163 This command is designed to be used whether you are already in Info or not." t nil) | |
1164 | |
1165 (autoload 'Info-elisp-ref "info" "\ | |
1166 Look up an Emacs Lisp function in the Elisp manual in the Info system. | |
1167 This command is designed to be used whether you are already in Info or not." t nil) | |
1168 | |
1169 ;;;*** | |
1170 | |
1171 ;;;### (autoloads nil "itimer-autosave" "lisp/itimer-autosave.el") | |
1172 | |
1173 ;;;*** | |
1174 | |
1175 ;;;### (autoloads nil "loaddefs" "lisp/loaddefs.el") | |
1176 | |
1177 ;;;*** | |
1178 | |
1179 ;;;### (autoloads (package-admin-add-binary-package package-admin-add-single-file-package) "package-admin" "lisp/package-admin.el") | |
1180 | |
1181 (autoload 'package-admin-add-single-file-package "package-admin" "\ | |
1182 Install a single file Lisp package into XEmacs package hierarchy. | |
1183 `file' should be the full path to the lisp file to install. | |
1184 `destdir' should be a simple directory name. | |
1185 The optional `pkg-dir' can be used to override the default package hiearchy | |
1186 \(last package-path)." t nil) | |
1187 | |
1188 (autoload 'package-admin-add-binary-package "package-admin" "\ | |
1189 Install a pre-bytecompiled XEmacs package into package hierarchy." t nil) | |
1190 | |
1191 ;;;*** | |
1192 | |
1193 ;;;### (autoloads (list-load-path-shadows) "shadow" "lisp/shadow.el") | |
1194 | |
1195 (autoload 'list-load-path-shadows "shadow" "\ | |
1196 Display a list of Emacs Lisp files that shadow other files. | |
1197 | |
1198 This function lists potential load-path problems. Directories in the | |
1199 `load-path' variable are searched, in order, for Emacs Lisp | |
1200 files. When a previously encountered file name is found again, a | |
1201 message is displayed indicating that the later file is \"hidden\" by | |
1202 the earlier. | |
1203 | |
1204 For example, suppose `load-path' is set to | |
1205 | |
1206 \(\"/usr/gnu/emacs/site-lisp\" \"/usr/gnu/emacs/share/emacs/19.30/lisp\") | |
1207 | |
1208 and that each of these directories contains a file called XXX.el. Then | |
1209 XXX.el in the site-lisp directory is referred to by all of: | |
1210 \(require 'XXX), (autoload .... \"XXX\"), (load-library \"XXX\") etc. | |
1211 | |
1212 The first XXX.el file prevents emacs from seeing the second (unless | |
1213 the second is loaded explicitly via load-file). | |
1214 | |
1215 When not intended, such shadowings can be the source of subtle | |
1216 problems. For example, the above situation may have arisen because the | |
1217 XXX package was not distributed with versions of emacs prior to | |
1218 19.30. An emacs maintainer downloaded XXX from elsewhere and installed | |
1219 it. Later, XXX was updated and included in the emacs distribution. | |
1220 Unless the emacs maintainer checks for this, the new version of XXX | |
1221 will be hidden behind the old (which may no longer work with the new | |
1222 emacs version). | |
1223 | |
1224 This function performs these checks and flags all possible | |
1225 shadowings. Because a .el file may exist without a corresponding .elc | |
1226 \(or vice-versa), these suffixes are essentially ignored. A file | |
1227 XXX.elc in an early directory (that does not contain XXX.el) is | |
1228 considered to shadow a later file XXX.el, and vice-versa. | |
1229 | |
1230 When run interactively, the shadowings (if any) are displayed in a | |
1231 buffer called `*Shadows*'. Shadowings are located by calling the | |
1232 \(non-interactive) companion function, `find-emacs-lisp-shadows'." t nil) | |
1233 | |
1234 ;;;*** | |
1235 | |
1236 ;;;### (autoloads (load-default-sounds load-sound-file) "sound" "lisp/sound.el") | |
1237 | |
1238 (or sound-alist (setq sound-alist '((ready nil) (warp nil)))) | |
1239 | |
1240 (autoload 'load-sound-file "sound" "\ | |
1241 Read in an audio-file and add it to the sound-alist. | |
1242 | |
1243 You can only play sound files if you are running on display 0 of the | |
1244 console of a machine with native sound support or running a NetAudio | |
1245 server and XEmacs has the necessary sound support compiled in. | |
1246 | |
1247 The sound file must be in the Sun/NeXT U-LAW format, except on Linux, | |
1248 where .wav files are also supported by the sound card drivers." t nil) | |
1249 | |
1250 (autoload 'load-default-sounds "sound" "\ | |
1251 Load and install some sound files as beep-types, using | |
1252 `load-sound-file'. This only works if you're on display 0 of the | |
1253 console of a machine with native sound support or running a NetAudio | |
1254 server and XEmacs has the necessary sound support compiled in." t nil) | |
1255 | |
1256 ;;;*** | |
1257 | |
1258 ;;;### (autoloads (auto-view-mode view-major-mode view-mode view-minor-mode view-buffer-other-window view-file-other-window view-buffer view-file) "view-less" "lisp/view-less.el") | |
1259 | |
1260 (defvar view-minor-mode-map (let ((map (make-keymap))) (set-keymap-name map 'view-minor-mode-map) (suppress-keymap map) (define-key map "-" 'negative-argument) (define-key map " " 'scroll-up) (define-key map "f" 'scroll-up) (define-key map "b" 'scroll-down) (define-key map 'backspace 'scroll-down) (define-key map 'delete 'scroll-down) (define-key map " | |
1261 " 'view-scroll-lines-up) (define-key map "\n" 'view-scroll-lines-up) (define-key map "e" 'view-scroll-lines-up) (define-key map "j" 'view-scroll-lines-up) (define-key map "y" 'view-scroll-lines-down) (define-key map "k" 'view-scroll-lines-down) (define-key map "d" 'view-scroll-some-lines-up) (define-key map "u" 'view-scroll-some-lines-down) (define-key map "r" 'recenter) (define-key map "t" 'toggle-truncate-lines) (define-key map "N" 'view-buffer) (define-key map "E" 'view-file) (define-key map "P" 'view-buffer) (define-key map "!" 'shell-command) (define-key map "|" 'shell-command-on-region) (define-key map "=" 'what-line) (define-key map "?" 'view-search-backward) (define-key map "h" 'view-mode-describe) (define-key map "s" 'view-repeat-search) (define-key map "n" 'view-repeat-search) (define-key map "/" 'view-search-forward) (define-key map "\\" 'view-search-backward) (define-key map "g" 'view-goto-line) (define-key map "G" 'view-last-windowful) (define-key map "%" 'view-goto-percent) (define-key map "p" 'view-goto-percent) (define-key map "m" 'point-to-register) (define-key map "'" 'register-to-point) (define-key map "C" 'view-cleanup-backspaces) (define-key map "" 'view-quit) (define-key map "" 'view-quit-toggle-ro) (define-key map "q" 'view-quit) map)) | |
1262 | |
1263 (defvar view-mode-map (let ((map (copy-keymap view-minor-mode-map))) (set-keymap-name map 'view-mode-map) map)) | |
1264 | |
1265 (autoload 'view-file "view-less" "\ | |
1266 Find FILE, enter view mode. With prefix arg OTHER-P, use other window." t nil) | |
1267 | |
1268 (autoload 'view-buffer "view-less" "\ | |
1269 Switch to BUF, enter view mode. With prefix arg use other window." t nil) | |
1270 | |
1271 (autoload 'view-file-other-window "view-less" "\ | |
1272 Find FILE in other window, and enter view mode." t nil) | |
1273 | |
1274 (autoload 'view-buffer-other-window "view-less" "\ | |
1275 Switch to BUFFER in another window, and enter view mode." t nil) | |
1276 | |
1277 (autoload 'view-minor-mode "view-less" "\ | |
1278 Minor mode for viewing text, with bindings like `less'. | |
1279 Commands are: | |
1280 \\<view-minor-mode-map> | |
1281 0..9 prefix args | |
1282 - prefix minus | |
1283 \\[scroll-up] page forward | |
1284 \\[scroll-down] page back | |
1285 \\[view-scroll-lines-up] scroll prefix-arg lines forward, default 1. | |
1286 \\[view-scroll-lines-down] scroll prefix-arg lines backward, default 1. | |
1287 \\[view-scroll-some-lines-down] scroll prefix-arg lines backward, default 10. | |
1288 \\[view-scroll-some-lines-up] scroll prefix-arg lines forward, default 10. | |
1289 \\[what-line] print line number | |
1290 \\[view-mode-describe] print this help message | |
1291 \\[view-search-forward] regexp search, uses previous string if you just hit RET | |
1292 \\[view-search-backward] as above but searches backward | |
1293 \\[view-repeat-search] repeat last search | |
1294 \\[view-goto-line] goto line prefix-arg, default 1 | |
1295 \\[view-last-windowful] goto line prefix-arg, default last line | |
1296 \\[view-goto-percent] goto a position by percentage | |
1297 \\[toggle-truncate-lines] toggle truncate-lines | |
1298 \\[view-file] view another file | |
1299 \\[view-buffer] view another buffer | |
1300 \\[view-cleanup-backspaces] cleanup backspace constructions | |
1301 \\[shell-command] execute a shell command | |
1302 \\[shell-command-on-region] execute a shell command with the region as input | |
1303 \\[view-quit] exit view-mode, and bury the current buffer. | |
1304 | |
1305 If invoked with the optional (prefix) arg non-nil, view-mode cleans up | |
1306 backspace constructions. | |
1307 | |
1308 More precisely: | |
1309 \\{view-minor-mode-map}" t nil) | |
1310 | |
1311 (autoload 'view-mode "view-less" "\ | |
1312 View the current buffer using view-minor-mode. This exists to be 99.9% | |
1313 compatible with the implementations of `view-mode' in view.el and older | |
1314 versions of view-less.el." t nil) | |
1315 | |
1316 (autoload 'view-major-mode "view-less" "\ | |
1317 View the current buffer using view-mode, as a major mode. | |
1318 This function has a nonstandard name because `view-mode' is wrongly | |
1319 named but is like this for compatibility reasons." t nil) | |
1320 | |
1321 (autoload 'auto-view-mode "view-less" "\ | |
1322 If the file of the current buffer is not writable, call view-mode. | |
1323 This is meant to be added to `find-file-hooks'." nil nil) | |
579 | 1324 |
580 ;;;*** | 1325 ;;;*** |
581 | 1326 |
582 ;;;### (autoloads (widget-minor-mode widget-browse-other-window widget-browse widget-browse-at) "wid-browse" "lisp/wid-browse.el") | 1327 ;;;### (autoloads (widget-minor-mode widget-browse-other-window widget-browse widget-browse-at) "wid-browse" "lisp/wid-browse.el") |
583 | 1328 |
633 | 1378 |
634 (autoload 'font-menu-weight-constructor "x-font-menu" nil nil nil) | 1379 (autoload 'font-menu-weight-constructor "x-font-menu" nil nil nil) |
635 | 1380 |
636 ;;;*** | 1381 ;;;*** |
637 | 1382 |
638 (provide 'TopLevel-autoloads) | 1383 (provide 'Standard-autoloads) |