Mercurial > hg > xemacs-beta

comparison lisp/auto-autoloads.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children 3d3049ae1304
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
129 ;;;*** 129 ;;;***
130 130
131 ;;;### (autoloads (build-report) "build-report" "lisp/build-report.el") 131 ;;;### (autoloads (build-report) "build-report" "lisp/build-report.el")
132 132
133 (autoload 'build-report "build-report" "\ 133 (autoload 'build-report "build-report" "\
134 Initializes a fresh mail composition buffer using `compose-mail' 134 Composes a fresh mail message with the contents of the built XEmacs
135 with the contents of XEmacs Installation file and excerpts from XEmacs 135 Installation file and excerpts from XEmacs make output.
136 make output and errors and leaves point at the beginning of the mail text. 136 `compose-mail' is used to create the mail message. Point is left at
137 See also 137 the beginning of the mail text. You may add some personal notes if
138 `compose-mail', `mail-user-agent', 138 you like and send the report.
139 `build-report-destination', 139 See also
140 `build-report-keep-regexp', 140 `compose-mail', `mail-user-agent',
141 `build-report-delete-regexp', 141 `build-report-destination',
142 `build-report-make-output-file' and 142 `build-report-keep-regexp',
143 `build-report-installation-file'." t nil) 143 `build-report-delete-regexp',
144 `build-report-make-output-dir',
145 `build-report-make-output-files', and
146 `build-report-installation-file'." t nil)
144 147
145 ;;;*** 148 ;;;***
146 149
147 ;;;### (autoloads (batch-byte-recompile-directory batch-byte-recompile-directory-norecurse batch-byte-compile-one-file batch-byte-compile display-call-tree byte-compile-sexp byte-compile compile-defun byte-compile-buffer byte-compile-and-load-file byte-compile-file byte-recompile-file byte-recompile-directory byte-force-recompile) "bytecomp" "lisp/bytecomp.el") 150 ;;;### (autoloads (batch-byte-recompile-directory batch-byte-recompile-directory-norecurse batch-byte-compile-one-file batch-byte-compile display-call-tree byte-compile-sexp byte-compile compile-defun byte-compile-buffer byte-compile-and-load-file byte-compile-file byte-recompile-file byte-recompile-directory byte-force-recompile) "bytecomp" "lisp/bytecomp.el")
148 151
151 Files in subdirectories of DIRECTORY are processed also." t nil) 154 Files in subdirectories of DIRECTORY are processed also." t nil)
152 155
153 (autoload 'byte-recompile-directory "bytecomp" "\ 156 (autoload 'byte-recompile-directory "bytecomp" "\
154 Recompile every `.el' file in DIRECTORY that needs recompilation. 157 Recompile every `.el' file in DIRECTORY that needs recompilation.
155 This is if a `.elc' file exists but is older than the `.el' file. 158 This is if a `.elc' file exists but is older than the `.el' file.
156 Files in subdirectories of DIRECTORY are processed also unless argument 159 Files in subdirectories of DIRECTORY are also processed unless
157 NORECURSION is non-nil. 160 optional argument NORECURSION is non-nil.
158 161
159 If the `.elc' file does not exist, normally the `.el' file is *not* compiled. 162 If the `.elc' file does not exist, normally the `.el' file is *not* compiled.
160 But a prefix argument (optional second arg) means ask user, 163 But a prefix argument (optional second arg) means ask user,
161 for each such `.el' file, whether to compile it. Prefix argument 0 means 164 for each such `.el' file, whether to compile it. Prefix argument 0 means
162 don't ask and compile the file anyway. 165 don't ask and compile the file anyway.
163 166
164 A nonzero prefix argument also means ask about each subdirectory. 167 A nonzero prefix argument also means ask about each subdirectory.
165 168
166 If the fourth argument FORCE is non-nil, 169 If the fourth optional argument FORCE is non-nil,
167 recompile every `.el' file that already has a `.elc' file." t nil) 170 recompile every `.el' file that already has a `.elc' file." t nil)
168 171
169 (autoload 'byte-recompile-file "bytecomp" "\ 172 (autoload 'byte-recompile-file "bytecomp" "\
170 Recompile a file of Lisp code named FILENAME if it needs recompilation. 173 Recompile a file of Lisp code named FILENAME if it needs recompilation.
171 This is if the `.elc' file exists but is older than the `.el' file. 174 This is if the `.elc' file exists but is older than the `.el' file.
217 (autoload 'batch-byte-compile "bytecomp" "\ 220 (autoload 'batch-byte-compile "bytecomp" "\
218 Run `byte-compile-file' on the files remaining on the command line. 221 Run `byte-compile-file' on the files remaining on the command line.
219 Use this from the command line, with `-batch'; 222 Use this from the command line, with `-batch';
220 it won't work in an interactive Emacs. 223 it won't work in an interactive Emacs.
221 Each file is processed even if an error occurred previously. 224 Each file is processed even if an error occurred previously.
222 For example, invoke \"xemacs -batch -f batch-byte-compile $emacs/ ~/*.el\"" nil nil) 225 For example, invoke \"xemacs -batch -f batch-byte-compile $emacs/ ~/*.el\"." nil nil)
223 226
224 (autoload 'batch-byte-compile-one-file "bytecomp" "\ 227 (autoload 'batch-byte-compile-one-file "bytecomp" "\
225 Run `byte-compile-file' on a single file remaining on the command line. 228 Run `byte-compile-file' on a single file remaining on the command line.
226 Use this from the command line, with `-batch'; 229 Use this from the command line, with `-batch';
227 it won't work in an interactive Emacs." nil nil) 230 it won't work in an interactive Emacs." nil nil)
593 `:prompt-value' property of that widget will be used for reading the value. 596 `:prompt-value' property of that widget will be used for reading the value.
594 597
595 If given a prefix (or a COMMENT argument), also prompt for a comment." t nil) 598 If given a prefix (or a COMMENT argument), also prompt for a comment." t nil)
596 599
597 (autoload 'customize-set-variable "cus-edit" "\ 600 (autoload 'customize-set-variable "cus-edit" "\
598 Set the default for VARIABLE to VALUE. VALUE is a Lisp object. 601 Set the default for VARIABLE to VALUE. VALUE is any Lisp object.
599 602
600 If VARIABLE has a `custom-set' property, that is used for setting 603 If VARIABLE has a `custom-set' property, that is used for setting
601 VARIABLE, otherwise `set-default' is used. 604 VARIABLE, otherwise `set-default' is used.
602 605
603 The `customized-value' property of the VARIABLE will be set to a list 606 The `customized-value' property of the VARIABLE will be set to a list
728 (autoload 'custom-declare-face "cus-face" "\ 731 (autoload 'custom-declare-face "cus-face" "\
729 Like `defface', but FACE is evaluated as a normal argument." nil nil) 732 Like `defface', but FACE is evaluated as a normal argument." nil nil)
730 733
731 (autoload 'custom-set-face-update-spec "cus-face" "\ 734 (autoload 'custom-set-face-update-spec "cus-face" "\
732 Customize the FACE for display types matching DISPLAY, merging 735 Customize the FACE for display types matching DISPLAY, merging
733 in the new items from PLIST" nil nil) 736 in the new items from PLIST." nil nil)
734 737
735 (autoload 'custom-set-faces "cus-face" "\ 738 (autoload 'custom-set-faces "cus-face" "\
736 Initialize faces according to user preferences. 739 Initialize faces according to user preferences.
737 This asociates the setting with the USER theme. 740 This asociates the setting with the USER theme.
738 The arguments should be a list where each entry has the form: 741 The arguments should be a list where each entry has the form:
759 762
760 (autoload 'custom-reset-faces "cus-face" "\ 763 (autoload 'custom-reset-faces "cus-face" "\
761 Reset the value of the face to values previously defined. 764 Reset the value of the face to values previously defined.
762 Associate this setting with the 'user' theme. 765 Associate this setting with the 'user' theme.
763 766
764 ARGS is defined as for `custom-theme-reset-faces'" nil nil) 767 ARGS is defined as for `custom-theme-reset-faces'." nil nil)
765 768
766 ;;;*** 769 ;;;***
767 770
768 ;;;### (autoloads (make-custom-file-name) "cus-file" "lisp/cus-file.el") 771 ;;;### (autoloads (make-custom-file-name) "cus-file" "lisp/cus-file.el")
769 772
1046 ANCHOR-MATCHER. It might be used to move, before 1049 ANCHOR-MATCHER. It might be used to move, before
1047 resuming with MATCH-ANCHORED's parent's MATCHER. 1050 resuming with MATCH-ANCHORED's parent's MATCHER.
1048 1051
1049 For example, an element of the first form highlights (if not already highlighted): 1052 For example, an element of the first form highlights (if not already highlighted):
1050 1053
1051 \"\\\\<foo\\\\>\" Discrete occurrences of \"foo\" in the value 1054 \"\\\\\\=<foo\\\\\\=>\" Discrete occurrences of \"foo\" in the value
1052 of the variable `font-lock-keyword-face'. 1055 of the variable `font-lock-keyword-face'.
1053 1056
1054 (\"fu\\\\(bar\\\\)\" . 1) Substring \"bar\" within all occurrences of 1057 (\"fu\\\\(bar\\\\)\" . 1) Substring \"bar\" within all occurrences of
1055 \"fubar\" in the value of 1058 \"fubar\" in the value of
1056 `font-lock-keyword-face'. 1059 `font-lock-keyword-face'.
1065 (fubar-match 1 fubar-face) The first subexpression within all 1068 (fubar-match 1 fubar-face) The first subexpression within all
1066 occurrences of whatever the function 1069 occurrences of whatever the function
1067 `fubar-match' finds and matches in the value 1070 `fubar-match' finds and matches in the value
1068 of `fubar-face'. 1071 of `fubar-face'.
1069 1072
1070 (\"\\\\<anchor\\\\>\" (0 anchor-face) (\"\\\\<item\\\\>\" nil nil (0 item-face))) 1073 (\"\\\\\\=<anchor\\\\\\=>\" (0 anchor-face) (\"\\\\\\=<item\\\\\\=>\" nil nil (0 item-face)))
1071 -------------- --------------- ------------ --- --- ------------- 1074 -------------- --------------- ------------ --- --- -------------
1072 | | | | | | 1075 | | | | | |
1073 MATCHER | ANCHOR-MATCHER | +------+ MATCH-HIGHLIGHT 1076 MATCHER | ANCHOR-MATCHER | +------+ MATCH-HIGHLIGHT
1074 MATCH-HIGHLIGHT PRE-MATCH-FORM | 1077 MATCH-HIGHLIGHT PRE-MATCH-FORM |
1075 POST-MATCH-FORM 1078 POST-MATCH-FORM
1136 size, you can use \\[font-lock-fontify-buffer]. 1139 size, you can use \\[font-lock-fontify-buffer].
1137 1140
1138 See the variable `font-lock-keywords' for customization." t nil) 1141 See the variable `font-lock-keywords' for customization." t nil)
1139 1142
1140 (autoload 'turn-on-font-lock "font-lock" "\ 1143 (autoload 'turn-on-font-lock "font-lock" "\
1141 Unconditionally turn on Font Lock mode." nil nil) 1144 Unconditionally turn on Font Lock mode." t nil)
1142 1145
1143 (autoload 'turn-off-font-lock "font-lock" "\ 1146 (autoload 'turn-off-font-lock "font-lock" "\
1144 Unconditionally turn off Font Lock mode." nil nil) 1147 Unconditionally turn off Font Lock mode." t nil)
1145 1148
1146 (autoload 'font-lock-fontify-buffer "font-lock" "\ 1149 (autoload 'font-lock-fontify-buffer "font-lock" "\
1147 Fontify the current buffer the way `font-lock-mode' would. 1150 Fontify the current buffer the way `font-lock-mode' would.
1148 See `font-lock-mode' for details. 1151 See `font-lock-mode' for details.
1149 1152
1166 (autoload 'reset-device-font-menus "font-menu" "\ 1169 (autoload 'reset-device-font-menus "font-menu" "\
1167 Generates the `Font', `Size', and `Weight' submenus for the Options menu. 1170 Generates the `Font', `Size', and `Weight' submenus for the Options menu.
1168 This is run the first time that a font-menu is needed for each device. 1171 This is run the first time that a font-menu is needed for each device.
1169 If you don't like the lazy invocation of this function, you can add it to 1172 If you don't like the lazy invocation of this function, you can add it to
1170 `create-device-hook' and that will make the font menus respond more quickly 1173 `create-device-hook' and that will make the font menus respond more quickly
1171 when they are selected for the first time. If you add fonts to your system, 1174 when they are selected for the first time. If you add fonts to your system,
1172 or if you change your font path, you can call this to re-initialize the menus." nil nil) 1175 or if you change your font path, you can call this to re-initialize the menus." nil nil)
1173 1176
1174 (autoload 'font-menu-family-constructor "font-menu" nil nil nil) 1177 (autoload 'font-menu-family-constructor "font-menu" nil nil nil)
1175 1178
1176 (autoload 'font-menu-size-constructor "font-menu" nil nil nil) 1179 (autoload 'font-menu-size-constructor "font-menu" nil nil nil)
1304 dispatch to the appropriate fn. NO-GOING-BACK is non-nil if 1307 dispatch to the appropriate fn. NO-GOING-BACK is non-nil if
1305 recovering from an error in this function; it says do not attempt 1308 recovering from an error in this function; it says do not attempt
1306 further (recursive) error recovery. TRYFILE is ??" nil nil) 1309 further (recursive) error recovery. TRYFILE is ??" nil nil)
1307 1310
1308 (autoload 'Info-batch-rebuild-dir "info" "\ 1311 (autoload 'Info-batch-rebuild-dir "info" "\
1309 (Re)build info `dir' files in the directories remaining on the command line. 1312 (Re)build `dir' files in the directories remaining on the command line.
1310 Use this from the command line, with `-batch'; 1313 Use this from the command line, with `-batch', it won't work in an
1311 it won't work in an interactive Emacs. 1314 interactive XEmacs.
1312 Each file is processed even if an error occurred previously. 1315
1313 For example, invoke \"xemacs -batch -f Info-batch-rebuild-dir /usr/local/info\"" nil nil) 1316 Each file is processed even if an error occurred previously. For example,
1317 invoke \"xemacs -batch -f Info-batch-rebuild-dir /usr/local/info\"." nil nil)
1314 1318
1315 (autoload 'Info-goto-node "info" "\ 1319 (autoload 'Info-goto-node "info" "\
1316 Go to info node named NAME. Give just NODENAME or (FILENAME)NODENAME. 1320 Go to info node named NAME. Give just NODENAME or (FILENAME)NODENAME.
1317 Actually, the following interpretations of NAME are tried in order: 1321 Actually, the following interpretations of NAME are tried in order:
1318 (FILENAME)NODENAME 1322 (FILENAME)NODENAME
1378 ;;;*** 1382 ;;;***
1379 1383
1380 ;;;### (autoloads (mwheel-install) "mwheel" "lisp/mwheel.el") 1384 ;;;### (autoloads (mwheel-install) "mwheel" "lisp/mwheel.el")
1381 1385
1382 (autoload 'mwheel-install "mwheel" "\ 1386 (autoload 'mwheel-install "mwheel" "\
1383 Enable mouse wheel support." nil nil) 1387 Enable mouse wheel support." t nil)
1384 1388
1385 ;;;*** 1389 ;;;***
1386 1390
1387 ;;;### (autoloads (package-admin-add-binary-package package-admin-add-single-file-package) "package-admin" "lisp/package-admin.el") 1391 ;;;### (autoloads (package-admin-add-binary-package package-admin-add-single-file-package) "package-admin" "lisp/package-admin.el")
1388 1392
1444 For version information, it is assumed things are listed in most 1448 For version information, it is assumed things are listed in most
1445 recent to least recent -- in other words, the version names don't have to 1449 recent to least recent -- in other words, the version names don't have to
1446 be lexically ordered. It is debatable if it makes sense to have more than 1450 be lexically ordered. It is debatable if it makes sense to have more than
1447 one version of a package available.") 1451 one version of a package available.")
1448 1452
1449 (defcustom package-get-download-sites '(("xemacs.org" "ftp.xemacs.org" "pub/xemacs/packages") ("crc.ca (Canada)" "ftp.crc.ca" "pub/packages/editors/xemacs/packages") ("ualberta.ca (Canada)" "sunsite.ualberta.ca" "pub/Mirror/xemacs/packages") ("uiuc.edu (United States)" "uiarchive.uiuc.edu" "pub/packages/xemacs/packages") ("unc.edu (United States)" "metalab.unc.edu" "pub/packages/editors/xemacs/packages") ("utk.edu (United States)" "ftp.sunsite.utk.edu" "pub/xemacs/packages") ("unicamp.br (Brazil)" "ftp.unicamp.br" "pub/xemacs/packages") ("tuwien.ac.at (Austria)" "gd.tuwien.ac.at" "editors/xemacs/packages") ("auc.dk (Denmark)" "sunsite.auc.dk" "pub/emacs/xemacs/packages") ("doc.ic.ac.uk (England)" "sunsite.doc.ic.ac.uk" "packages/xemacs/packages") ("funet.fi (Finland)" "ftp.funet.fi" "pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/packages") ("cenatls.cena.dgac.fr (France)" "ftp.cenatls.cena.dgac.fr" "Emacs/xemacs/packages") ("pasteur.fr (France)" "ftp.pasteur.fr" "pub/computing/xemacs/packages") ("tu-darmstadt.de (Germany)" "ftp.tu-darmstadt.de" "pub/editors/xemacs/packages") ("kfki.hu (Hungary)" "ftp.kfki.hu" "pub/packages/xemacs/packages") ("eunet.ie (Ireland)" "ftp.eunet.ie" "mirrors/ftp.xemacs.org/pub/xemacs/packages") ("uniroma2.it (Italy)" "ftp.uniroma2.it" "unix/misc/dist/XEMACS/packages") ("uio.no (Norway)" "sunsite.uio.no" "pub/xemacs/packages") ("icm.edu.pl (Poland)" "ftp.icm.edu.pl" "pub/unix/editors/xemacs/packages") ("srcc.msu.su (Russia)" "ftp.srcc.msu.su" "mirror/ftp.xemacs.org/packages") ("sunet.se (Sweden)" "ftp.sunet.se" "pub/gnu/xemacs/packages") ("cnlab-switch.ch (Switzerland)" "sunsite.cnlab-switch.ch" "mirror/xemacs/packages") ("aist.go.jp (Japan)" "ring.aist.go.jp" "pub/text/xemacs/packages") ("asahi-net.or.jp (Japan)" "ring.asahi-net.or.jp" "pub/text/xemacs/packages") ("dti.ad.jp (Japan)" "ftp.dti.ad.jp" "pub/unix/editor/xemacs/packages") ("jaist.ac.jp (Japan)" "ftp.jaist.ac.jp" "pub/GNU/xemacs/packages") ("nucba.ac.jp (Japan)" "mirror.nucba.ac.jp" "mirror/xemacs/packages") ("sut.ac.jp (Japan)" "sunsite.sut.ac.jp" "pub/archives/packages/xemacs/packages") ("tsukuba.ac.jp (Japan)" "ftp.netlab.is.tsukuba.ac.jp" "pub/GNU/xemacs/packages") ("kreonet.re.kr (Korea)" "ftp.kreonet.re.kr" "pub/tools/emacs/xemacs/packages") ("nctu.edu.tw (Taiwan)" "coda.nctu.edu.tw" "Editors/xemacs/packages") ("sun.ac.za (South Africa)" "ftp.sun.ac.za" "xemacs/packages") ("isu.net.sa (Saudi Arabia)" "ftp.isu.net.sa" "pub/mirrors/ftp.xemacs.org/packages") ("aarnet.edu.au (Australia)" "mirror.aarnet.edu.au" "pub/xemacs/packages")) "*List of remote sites available for downloading packages.\nList format is '(site-description site-name directory-on-site).\nSITE-DESCRIPTION is a textual description of the site. SITE-NAME\nis the internet address of the download site. DIRECTORY-ON-SITE\nis the directory on the site in which packages may be found.\nThis variable is used to initialize `package-get-remote', the\nvariable actually used to specify package download sites." :tag "Package download sites" :type '(repeat (list (string :tag "Name") host-name directory)) :group 'package-get) 1453 (defcustom package-get-download-sites '(("Pre-Releases" "ftp.xemacs.org" "pub/xemacs/beta/experimental/packages") ("xemacs.org" "ftp.xemacs.org" "pub/xemacs/packages") ("crc.ca (Canada)" "ftp.crc.ca" "pub/packages/editors/xemacs/packages") ("ualberta.ca (Canada)" "sunsite.ualberta.ca" "pub/Mirror/xemacs/packages") ("uiuc.edu (United States)" "uiarchive.uiuc.edu" "pub/packages/xemacs/packages") ("unc.edu (United States)" "metalab.unc.edu" "pub/packages/editors/xemacs/packages") ("utk.edu (United States)" "ftp.sunsite.utk.edu" "pub/xemacs/packages") ("unicamp.br (Brazil)" "ftp.unicamp.br" "pub/xemacs/packages") ("tuwien.ac.at (Austria)" "gd.tuwien.ac.at" "editors/xemacs/packages") ("auc.dk (Denmark)" "sunsite.auc.dk" "pub/emacs/xemacs/packages") ("doc.ic.ac.uk (England)" "sunsite.doc.ic.ac.uk" "packages/xemacs/packages") ("funet.fi (Finland)" "ftp.funet.fi" "pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/packages") ("cenatls.cena.dgac.fr (France)" "ftp.cenatls.cena.dgac.fr" "Emacs/xemacs/packages") ("pasteur.fr (France)" "ftp.pasteur.fr" "pub/computing/xemacs/packages") ("tu-darmstadt.de (Germany)" "ftp.tu-darmstadt.de" "pub/editors/xemacs/packages") ("kfki.hu (Hungary)" "ftp.kfki.hu" "pub/packages/xemacs/packages") ("eunet.ie (Ireland)" "ftp.eunet.ie" "mirrors/ftp.xemacs.org/pub/xemacs/packages") ("uniroma2.it (Italy)" "ftp.uniroma2.it" "unix/misc/dist/XEMACS/packages") ("uio.no (Norway)" "sunsite.uio.no" "pub/xemacs/packages") ("icm.edu.pl (Poland)" "ftp.icm.edu.pl" "pub/unix/editors/xemacs/packages") ("srcc.msu.su (Russia)" "ftp.srcc.msu.su" "mirror/ftp.xemacs.org/packages") ("sunet.se (Sweden)" "ftp.sunet.se" "pub/gnu/xemacs/packages") ("cnlab-switch.ch (Switzerland)" "sunsite.cnlab-switch.ch" "mirror/xemacs/packages") ("aist.go.jp (Japan)" "ring.aist.go.jp" "pub/text/xemacs/packages") ("asahi-net.or.jp (Japan)" "ring.asahi-net.or.jp" "pub/text/xemacs/packages") ("dti.ad.jp (Japan)" "ftp.dti.ad.jp" "pub/unix/editor/xemacs/packages") ("jaist.ac.jp (Japan)" "ftp.jaist.ac.jp" "pub/GNU/xemacs/packages") ("nucba.ac.jp (Japan)" "mirror.nucba.ac.jp" "mirror/xemacs/packages") ("sut.ac.jp (Japan)" "sunsite.sut.ac.jp" "pub/archives/packages/xemacs/packages") ("tsukuba.ac.jp (Japan)" "ftp.netlab.is.tsukuba.ac.jp" "pub/GNU/xemacs/packages") ("kreonet.re.kr (Korea)" "ftp.kreonet.re.kr" "pub/tools/emacs/xemacs/packages") ("nctu.edu.tw (Taiwan)" "coda.nctu.edu.tw" "Editors/xemacs/packages") ("sun.ac.za (South Africa)" "ftp.sun.ac.za" "xemacs/packages") ("isu.net.sa (Saudi Arabia)" "ftp.isu.net.sa" "pub/mirrors/ftp.xemacs.org/packages") ("aarnet.edu.au (Australia)" "mirror.aarnet.edu.au" "pub/xemacs/packages")) "*List of remote sites available for downloading packages.\nList format is '(site-description site-name directory-on-site).\nSITE-DESCRIPTION is a textual description of the site. SITE-NAME\nis the internet address of the download site. DIRECTORY-ON-SITE\nis the directory on the site in which packages may be found.\nThis variable is used to initialize `package-get-remote', the\nvariable actually used to specify package download sites." :tag "Package download sites" :type '(repeat (list (string :tag "Name") host-name directory)) :group 'package-get)
1450 1454
1451 (autoload 'package-get-download-menu "package-get" "\ 1455 (autoload 'package-get-download-menu "package-get" "\
1452 Build the `Add Download Site' menu." nil nil) 1456 Build the `Add Download Site' menu." nil nil)
1453 1457
1454 (autoload 'package-get-require-base "package-get" "\ 1458 (autoload 'package-get-require-base "package-get" "\
1761 ;;;*** 1765 ;;;***
1762 1766
1763 ;;;### (autoloads (ask-user-about-supersession-threat ask-user-about-lock) "userlock" "lisp/userlock.el") 1767 ;;;### (autoloads (ask-user-about-supersession-threat ask-user-about-lock) "userlock" "lisp/userlock.el")
1764 1768
1765 (autoload 'ask-user-about-lock "userlock" "\ 1769 (autoload 'ask-user-about-lock "userlock" "\
1766 Ask user what to do when he wants to edit FILE but it is locked by USER. 1770 Ask user wanting to edit FILENAME, locked by OTHER-USER, what to do.
1767 This function has a choice of three things to do: 1771 This function has a choice of three things to do:
1768 do (signal 'file-locked (list FILE USER)) 1772 do (signal 'file-locked (list FILENAME OTHER-USER))
1769 to refrain from editing the file 1773 to refrain from editing the file
1770 return t (grab the lock on the file) 1774 return t (grab the lock on the file)
1771 return nil (edit the file even though it is locked). 1775 return nil (edit the file even though it is locked).
1772 You can rewrite it to use any criterion you like to choose which one to do." nil nil) 1776 You can rewrite it to use any criteria you like to choose which one to do." nil nil)
1773 1777
1774 (autoload 'ask-user-about-supersession-threat "userlock" "\ 1778 (autoload 'ask-user-about-supersession-threat "userlock" "\
1775 Ask a user who is about to modify an obsolete buffer what to do. 1779 Ask user who is about to modify an obsolete buffer what to do.
1776 This function has two choices: it can return, in which case the modification 1780 This function has two choices: it can return, in which case the modification
1777 of the buffer will proceed, or it can (signal 'file-supersession (file)), 1781 of the buffer will proceed, or it can (signal 'file-supersession (FILENAME)),
1778 in which case the proposed buffer modification will not be made. 1782 in which case the proposed buffer modification will not be made.
1779 1783
1780 You can rewrite this to use any criterion you like to choose which one to do. 1784 You can rewrite this to use any criteria you like to choose which one to do.
1781 The buffer in question is current when this function is called." nil nil) 1785 The buffer in question is current when this function is called." nil nil)
1782 1786
1783 ;;;*** 1787 ;;;***
1784 1788
1785 ;;;### (autoloads (toggle-truncate-lines 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") 1789 ;;;### (autoloads (toggle-truncate-lines 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")
1788 " '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)) 1792 " '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))
1789 1793
1790 (defvar view-mode-map (let ((map (copy-keymap view-minor-mode-map))) (set-keymap-name map 'view-mode-map) map)) 1794 (defvar view-mode-map (let ((map (copy-keymap view-minor-mode-map))) (set-keymap-name map 'view-mode-map) map))
1791 1795
1792 (autoload 'view-file "view-less" "\ 1796 (autoload 'view-file "view-less" "\
1793 Find FILE, enter view mode. With prefix arg OTHER-P, use other window." t nil) 1797 Find FILENAME, enter view mode. With prefix arg OTHER-WINDOW-P, use other window." t nil)
1794 1798
1795 (autoload 'view-buffer "view-less" "\ 1799 (autoload 'view-buffer "view-less" "\
1796 Switch to BUF, enter view mode. With prefix arg use other window." t nil) 1800 Switch to BUFFER, enter view mode. With prefix arg use other window." t nil)
1797 1801
1798 (autoload 'view-file-other-window "view-less" "\ 1802 (autoload 'view-file-other-window "view-less" "\
1799 Find FILE in other window, and enter view mode." t nil) 1803 Find FILENAME in other window, and enter view mode." t nil)
1800 1804
1801 (autoload 'view-buffer-other-window "view-less" "\ 1805 (autoload 'view-buffer-other-window "view-less" "\
1802 Switch to BUFFER in another window, and enter view mode." t nil) 1806 Switch to BUFFER in another window, and enter view mode." t nil)
1803 1807
1804 (autoload 'view-minor-mode "view-less" "\ 1808 (autoload 'view-minor-mode "view-less" "\