diff options
| author | Miles Bader <miles@gnu.org> | 2007-01-01 03:21:06 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-01-01 03:21:06 +0000 |
| commit | 4c34eeeee5886d14f3e60b77fb563cb549c8896f (patch) | |
| tree | af17010f0864173dd6416585f08d686377791412 /lisp | |
| parent | 76acf92ebe73e35528c5966a21328305ba7b5aef (diff) | |
| parent | db6292445840e2795f35ebad62a14314fc3c7c21 (diff) | |
| download | emacs-4c34eeeee5886d14f3e60b77fb563cb549c8896f.tar.gz | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 563-582)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 177-185)
- Merge from emacs--devo--0
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-158
Diffstat (limited to 'lisp')
67 files changed, 2710 insertions, 1670 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a57b4d5655d..51f8114feab 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,10 +1,404 @@ +2006-12-31 Romain Francoise <romain@orebokech.com> + + * net/tramp.el (tramp-default-method): Don't use `symbol-function'. + +2006-12-31 Kim F. Storm <storm@cua.dk> + + * files.el (auto-mode-case-fold): New defcustom. + (set-auto-mode): If non-nil, perform second case-sensitive pass + through auto-mode-alist if first pass failed. + +2006-12-30 Richard Stallman <rms@gnu.org> + + * emacs-lisp/easy-mmode.el (define-global-minor-mode): Doc fix. + +2006-12-30 Ken Manheimer <ken.manheimer@gmail.com> + + * allout.el (allout-encrypt-string): Handle symmetric-key + passphrase caching but leave keypair caching to pgg. + +2006-12-30 Michael Albinus <michael.albinus@gmx.de> + + Sync with Tramp 2.0.55. + + * net/tramp.el (tramp-completion-mode): Use `wholenump' instead of + `integerp'. `char-equal' could fail else in case of negative + numbers. Reported by Toby Speight <T.M.Speight.90@cantab.net>. + (top): Check for `font-lock-add-keywords' before calling; it + doesn't exist under XEmacs. + (tramp-yn-prompt-regexp): Fix regexp. Add question from plink. + (tramp-completion-mode): Remove clause (not + tramp-unified-filenames), because the function is called in other + context too, where this check results in wrong results in the + XEmacs case on Windows. + (tramp-touch): UTC handling is not possible for XEmacs. + +2006-12-30 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> + + * scroll-bar.el (previous-scroll-bar-mode): New variable + (set-scroll-bar-mode): Set previous-scroll-bar-mode. + (scroll-bar-mode): Use previous-scroll-bar-mode if set. + + * term/x-win.el: Set scroll bar mode to right if set by X resources. + +2006-12-30 Richard Stallman <rms@gnu.org> + + * files.el (make-backup-file-name-1): Precompute abs name + but don't lose the relative name. + + * international/mule-cmds.el (select-safe-coding-system-interactively): + Fix message. + +2006-12-30 Kevin Rodgers <kevin.d.rodgers@gmail.com> + + * files.el (backup-buffer): Show entire backup file name in msg. + +2006-12-30 Juanma Barranquero <lekktu@gmail.com> + + * image.el (image-type-header-regexps, image-type-from-data) + (image-type-from-buffer, image-type-from-file-header): + Revert changes from 2006-12-26. + (image-type-auto-detectable): New variable. + (image-type-auto-detected-p): New function. + + * files.el (magic-mode-alist): Detect image files with + `image-type-auto-detected-p' instead of `image-type-from-buffer'. + +2006-12-29 Nick Roberts <nickrob@snap.net.nz> + + * dired.el (dired-sort-other): Move test for dired-mode... + (dired-sort-set-modeline): ...to here. + +2006-12-29 Micha,Ak(Bl Cadilhac <michael.cadilhac@lrde.org> + + * textmodes/fill.el (fill-comment-paragraph): Document 2006-12-24 + change. Suggested by Stefan Monnier. + +2006-12-29 Kim F. Storm <storm@cua.dk> + + * emacs-lisp/bindat.el (bindat--unpack-group, bindat--length-group) + (bindat--pack-group): Let-bind COUNT during repeat block evaluation. + +2006-12-27 Kim F. Storm <storm@cua.dk> + + * emacs-lisp/authors.el (authors-aliases): Anchor FSF alias regexp, + so it doesn't accidentally match an fsf.org mail address. + (authors-renamed-files-alist): Add tcover-*.el. + +2006-12-27 Stefan Monnier <monnier@iro.umontreal.ca> + + * vc-arch.el (vc-arch-find-version): New function. + + * vc-hooks.el (vc-version-backup-file-name): Revision names may be + composed of arbitrary characters (even /) in some systems. + +2006-12-27 Eli Zaretskii <eliz@gnu.org> + + * international/mule-cmds.el (select-safe-coding-system-interactively): + Improve the message in the *Warning* buffer. + +2006-12-27 Kim F. Storm <storm@cua.dk> + + * ido.el (ido-set-matches-1): Fix last change. If default item is + current buffer, it is ok to be first. + +2006-12-27 Kenichi Handa <handa@m17n.org> + + * international/mule-cmds.el (select-safe-coding-system-interactively): + Improve the message in *Warning* buffer. + +2006-12-27 Kim F. Storm <storm@cua.dk> + + * ido.el (ido-set-matches-1): Never put current buffer first if + there are other matches. + +2006-12-26 Nick Roberts <nickrob@snap.net.nz> + + * progmodes/gdb-ui.el (gud-watch): Allow duplicate names for watch + expressions. + (gdb-var-delete): Handle duplicate names. Print message for non + root expressions. + (gdb-partial-output-name): Start buffer name with a space. + (gdb-info-breakpoints-custom, gdb-reset): Handle space in above + buffer name. + +2006-12-26 Micha,Ak(Bl Cadilhac <michael.cadilhac@lrde.org> + + * mail/footnote.el (Footnote-insert-footnote): Fix the search of the + last footnote when `footnote-spaced-footnotes' is nil. + +2006-12-26 Richard Stallman <rms@gnu.org> + + * cus-edit.el (custom-browse-sort-alphabetically) + (custom-buffer-sort-alphabetically) + (custom-menu-sort-alphabetically): Doc fixes. Add autoloads. + + * image.el (image-type-header-regexps): Change element format + to include third item NOT-ALWAYS. + (image-type-from-data): Handle new format. + (image-type-from-buffer): Handle new format. New arg INCLUDE-MAYBES. + (image-type-from-file-header): Pass t for INCLUDE-MAYBES. + +2006-12-26 Guanpeng Xu <herberteuler@hotmail.com> (tiny change) + + * add-log.el (add-log-current-defun): Call `forward-sexp' + multiple times to pick a member function name defined as + part of nested classes/namespaces. + +2006-12-26 Vinicius Jose Latorre <viniciusjl@ig.com.br> + + * emacs-lisp/easymenu.el (easy-menu-change): New arg MAP to indicate + which keymap should be used to change menu. It does not affect any + existent code. + +2006-12-26 Richard Stallman <rms@gnu.org> + + * textmodes/fill.el (fill-paragraph): Check for a minibuffer + rather than for being in a minibuffer window. + +2006-12-25 Daiki Ueno <ueno@unixuser.org> + + * pgg-def.el (pgg-passphrase-coding-system): Default to nil instead of + locale-coding-system. + * pgg-gpg.el (pgg-gpg-process-region): Encode passphrase with eol-type + LF. + +2006-12-25 Michael R. Mauger <mmaug@yahoo.com> + + * progmodes/sql.el (sql-mode-abbrev-table): Corrected initialization. + (sql-mode-syntax-table): Disable double quoted strings. + (sql-mode-font-lock-object-name): Added TYPE and TYPE BODY. + +2006-12-25 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> + + * startup.el (fancy-splash-last-input-event): New variable. + (fancy-splash-special-event-action): New function. + (fancy-splash-screens): Temporarily bind special events to it. + Execute command for saved special event before exiting from + recursive editing. + + * term/mac-win.el (mac-keyboard-translate-char, mac-unread-string): + New functions. + (mac-ts-update-active-input-area, mac-ts-unicode-for-key-event): + Use mac-unread-string. + +2006-12-24 Micha,Ak(Bl Cadilhac <michael.cadilhac@lrde.org> + + * textmodes/fill.el (fill-comment-paragraph): Prevent the use of + an optimized comment regexp if `comment-start-skip' uses a ^. + * bs.el (bs--up): Remove interactive spec. + +2006-12-24 Chong Yidong <cyd@stupidchicken.com> + + * woman.el (woman-decode-buffer): Signal error for alien macro sets. + Suggested by James Cloos. + +2006-12-24 Kevin Ryde <user42@zip.com.au> + + * calendar/cal-dst.el (calendar-dst-starts): Default to second Sunday + in March. + (calendar-dst-ends): Default to first Sunday in November. + +2006-12-24 Ken Manheimer <ken.manheimer@gmail.com> + + * allout.el (allout-encrypt-string): Inhibit use of agent within + body of let form where encryption happens. Acknowledge non-use of + gpg-agent in docstring. + (allout-toggle-subtree-encryption): Acknowledge non-use of + gpg-agent in docstring. + +2006-12-24 Chong Yidong <cyd@stupidchicken.com> + + * custom.el (custom-add-frequent-value): Alias for custom-add-option. + +2006-12-23 Michael Kifer <kifer@cs.stonybrook.edu> + + * ediff-diff.el (ediff-diff-options): Clarify docstring. + (ediff-setup-diff-regions): Disallow -u in ediff-diff-options. + + * viper-cmd.el (viper-post-command-sentinel): Protect against errors + in hooks. + (viper-add-newline-at-eob-if-necessary): Add newline only if we + actually modify buffer; ignore errors if occur. + +2006-12-23 Chong Yidong <cyd@stupidchicken.com> + + * calendar/calendar.el (calendar-mode-map): Switch < and >. + (calendar-mode-line-format): Use mouse-1 bindings, and tweak + formatting. + +2006-12-23 Richard Stallman <rms@gnu.org> + + * simple.el (delete-horizontal-space): Doc fix. + +2006-12-23 Eli Zaretskii <eliz@gnu.org> + + * makefile.w32-in (bootstrap-clean): Run bootstrap-clean-$(SHELLTYPE) + explicitly in a recursive Make, not implicitly through prerequisites, + since the latter is wrong under parallel builds. + +2006-12-22 Eli Zaretskii <eliz@gnu.org> + + * w32-fns.el (convert-standard-filename): Wrap in save-match-data. + +2006-12-22 Kevin Rodgers <kevin.d.rodgers@gmail.com> (tiny change) + + * progmodes/sh-script.el (sh-make-vars-local): Fix a typo in + message string. + +2006-12-22 Ben North <ben@redfrontdoor.org> (tiny change) + + * outline.el (outline-next-visible-heading): Fix the case with a + header at end-of-file with no final newline. + +2006-12-22 Robert Thorpe <rthorpe@realworldtech.com> (tiny change) + + * indent.el (tab-always-indent): Doc fix. + +2006-12-22 Chong Yidong <cyd@stupidchicken.com> + + * info.el (Info-fontify-maximum-menu-size): Bump to 1000000. + (Info-fontify-node): Do fontify indices. + + * tutorial.el (tutorial--detailed-help): Remove unnecessary link + to the Emacs Lisp reference manual. + (tutorial--tab-map): Remove. All callers changed. + (tutorial--find-changed-keys): New elt QUIET, used to... + (tutorial--display-changes): ...ensure that warning messages are + only issued once per changed key. + (tutorial--remove-remarks): Delete unused code-path. + (lang-strings): Remove extraneous formatting. + (tutorial--save-tutorial): Prompt before saving tutorial state. + +2006-12-21 Chong Yidong <cyd@stupidchicken.com> + + * tutorial.el: Remove `cl' requirement. Clean up whitespace. + Replace '?\ ' by '?\s' throughout. + (tutorial-warning-face): Inherit font-lock-warning-face. Move to + `help' custom group. + (tutorial--key-description): New function. + (tutorial--display-changes): Remove redundant arg. Scan for all + key sequences to avoid false matches. Cleanup. + (tutorial--saved-dir): Save to a subdirectory in .emacs.d to + reduce homedir pollution. + (help-with-tutorial): Call tutorial--display-changes with no arg. + +2006-12-21 Carsten Dominik <dominik@science.uva.nl> + + * textmodes/org.el (org-mode-map): Bind org-complete also to M-\t. + +2006-12-20 Michael Albinus <michael.albinus@gmx.de> + + * net/tramp.el (tramp-default-method): We still need to check for + `executable-find', because it is not bound under Emacs 20. + (tramp-handle-file-name-completion) + (tramp-completion-handle-file-name-completion): Handle optional + parameter PREDICATE. + (tramp-find-default-method): Add code for default values. + +2006-12-20 Nick Roberts <nickrob@snap.net.nz> + + * progmodes/gdb-ui.el (gdb-stopped): After attaching to a process + make gud-go send "continue". + +2006-12-19 Juanma Barranquero <lekktu@gmail.com> + + * image.el (image-type-header-regexps): Be more specific detecting `pbm' + and `png' files. Use non-capturing parenthesis for `tiff' regexp. + +2006-12-19 Kim F. Storm <storm@cua.dk> + + * bindings.el: Bind sigusr1 and sigusr2 in special-event-map + instead of global-map. + + * files.el (magic-mode-alist): Allow matching file type by + calling a function at bob. Check for image types by calling + image-type-from-buffer. Suggested by Juanma Barranquero. + (set-auto-mode): Do it. + +2006-12-19 Michael Albinus <michael.albinus@gmx.de> + + * net/tramp.el (tramp-methods): Introduce new method `scpc'. + Remove "ControlMaster" option from the other `scp*' methods. + (tramp-default-method): Check for ssh-agent before setting to `scp'. + +2006-12-18 Carsten Dominik <dominik@science.uva.nl> + + * textmodes/org.el (org-mode): Show context after isearch. + (org-show-siblings): New function. + (org-show-context): Use `org-show-siblings'. + +2006-12-18 Stefan Monnier <monnier@iro.umontreal.ca> + + * emacs-lisp/syntax.el (syntax-ppss-flush-cache, syntax-ppss): + Use syntax-ppss-toplevel-pos. + +2006-12-18 Carsten Dominik <dominik@science.uva.nl> + + * textmodes/org.el (org-current-line): Make sure that lines are + counted from beginning of buffer. + (org-table-copy-region, org-table-paste-rectangle): Make sure that + lines are counted from beginning of buffer. + +2006-12-17 Chong Yidong <cyd@stupidchicken.com> + + * info.el (Info-build-node-completions): Signal error if tag-table + marker is not found. + + * pgg-gpg.el (pgg-gpg-use-agent): Default to t. + +2006-12-17 Alan Mackenzie <acm@muc.de> + + * emacs-lisp/lisp.el (beginning-of-defun-raw): Optimise (for + speed) the case when open-paren-in-column-0-is-defun-start is nil. + Based on code by Martin Rudalics. + + * progmodes/cc-mode.el (c-basic-common-init): Don't set + open-paren-in-column-0-is-defun-start to nil any more. + +2006-12-17 Richard Stallman <rms@gnu.org> + + * simple.el (delete-horizontal-space): Use prefix arg. + + * help-fns.el (describe-variable): Improve blank separator lines. + + * files.el (magic-mode-alist): Mark as risky. + + * files.el (make-backup-file-name-1): + Expand backup-directory explicitly. + +2006-12-17 Michael Albinus <michael.albinus@gmx.de> + + * net/tramp.el (tramp-default-method): Before setting to "pscp", + check whether package password.el is loaded, or Pageant is running. + +2006-12-17 Ulf Jasper <ulf.jasper@web.de> + + * calendar/icalendar.el (icalendar-version): Increase to "0.14". + (icalendar--rris): First try Emacs, then XEmacs. + (icalendar--convert-ical-to-diary): Doc fix. + Insert newline at end of target file. + +2006-12-17 Kim F. Storm <storm@cua.dk> + + * outline.el (outline-isearch-open-invisible-function): New defvar. + (outline-flag-region): Use it if non-nil for isearch-open-invisible + overlay property instead of outline-isearch-open-invisible. + +2006-12-16 Kim F. Storm <storm@cua.dk> + + * ido.el (ido-completion-help): Build ido-cur-list and ido-matches + if ido-directory-too-big is set on entry. + (ido-toggle-ignore, ido-completion-help): Print message while + reading big directory. + 2006-12-15 Richard Stallman <rms@gnu.org> * shell.el (shell): Doc fix. 2006-12-15 Kevin Gallagher <Kevin.Gallagher@boeing.com> - * emulation/edt.el (edt-xserver): + * emulation/edt.el (edt-xserver): * emulation/edt-mapper.el (edt-xserver): Replace `/' with a `-', to fix a problem on Cygwin. @@ -2706,7 +3100,7 @@ * add-log.el (add-log-current-defun): Use `forward-sexp' instead of `forward-word' to pick c++::symbol. - Reported by Herbert Euler <herberteuler@hotmail.com>. + Reported by Guanpeng Xu <herberteuler@hotmail.com>. 2006-09-22 Kenichi Handa <handa@m17n.org> @@ -3335,7 +3729,7 @@ 2006-09-08 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> - * term/mac-win.el: (show-hide-font-panel): New HI command ID symbol. + * term/mac-win.el (show-hide-font-panel): New HI command ID symbol. (mac-apple-event-map): Define its handler. 2006-09-07 Toby Allsopp <Toby.Allsopp@navman.com> (tiny change) @@ -4547,7 +4941,7 @@ 2006-07-20 Jay Belanger <belanger@truman.edu> - * calc.el (calc-previous-alg-entry): Remove variable. + * calc.el (calc-previous-alg-entry): Remove variable. * calc-aent.el (calc-alg-entry-history, calc-quick-calc-history): New variables. @@ -6085,8 +6479,8 @@ load-path. Put a regexp matching the file name into after-load-alist, rather than the name itself. - * subr.el: New functions load-history-regexp, - load-history-filename-element, do-after-load-evaluation. + * subr.el (load-history-regexp, load-history-filename-element) + (do-after-load-evaluation): New functions. * international/mule.el (load-with-code-conversion): Do the eval-after-load stuff by calling do-after-load-evaluation. diff --git a/lisp/ChangeLog.10 b/lisp/ChangeLog.10 index 2547ce63f5b..b626a61c8d3 100644 --- a/lisp/ChangeLog.10 +++ b/lisp/ChangeLog.10 @@ -68,9 +68,9 @@ superseding the old separate derived mode in awk-mode.el. * progmodes/cc-vars.el, cc-mode-19.el, progmodes/cc-langs.el, - progmodes/cc-mode.el, progmodes/cc-defs.el, - progmodes/cc-engine.el, progmodes/cc-fonts.el: Changes for the - new AWK support. + * progmodes/cc-mode.el, progmodes/cc-defs.el, + * progmodes/cc-engine.el, progmodes/cc-fonts.el: + Changes for the new AWK support. 2003-07-03 Martin Stjernholm <bug-cc-mode@gnu.org> @@ -101,7 +101,7 @@ emacsen that doesn't have it. * progmodes/cc-styles.el, progmodes/cc-vars.el, - progmodes/cc-cmds.el: Fixes for the syntactic symbols for + * progmodes/cc-cmds.el: Fixes for the syntactic symbols for module and composition blocks. * progmodes/cc-mode.el (c-basic-common-init): @@ -122,8 +122,8 @@ macros in C99. * progmodes/cc-menus.el, progmodes/cc-langs.el, - progmodes/cc-engine.el, progmodes/cc-fonts.el, - progmodes/cc-cmds.el: Fixed various regexps to use POSIX char + * progmodes/cc-engine.el, progmodes/cc-fonts.el, + * progmodes/cc-cmds.el: Fixed various regexps to use POSIX char classes when that is supported. * progmodes/cc-defs.el (c-alpha, c-alnum, c-digit, c-upper, c-lower): @@ -170,7 +170,6 @@ * progmodes/cc-engine.el: Fixes in face handling to cope with doc comments. - (c-find-decl-spots): More failsafe skipping of comments and strings that only have been partially fontified. @@ -494,7 +493,6 @@ * progmodes/cc-defs.el (c-(up|down)-list-(forward|backward)): Make the position optional and added docstrings. - (c-go-(up|down)-list-(forward|backward)): Add variants of the above that move point and return successfulness instead. @@ -668,10 +666,9 @@ each (X)Emacs flavor. * progmodes/cc-vars.el, progmodes/cc-defs.el, - progmodes/cc-engine.el, progmodes/cc-mode.el: + * progmodes/cc-engine.el, progmodes/cc-mode.el: Use `lookup-syntax-properties' in XEmacs to control whether the syntax-table property has any effect or not. - (c-parse-sexp-lookup-properties): New macro that expands to either `parse-sexp-lookup-properties' or `lookup-syntax-properties'. @@ -750,12 +747,12 @@ in progmodes/cc-engine.el. * progmodes/cc-engine.el, progmodes/cc-fonts.el, - progmodes/cc-langs.el: Fix the names on a number of regexp + * progmodes/cc-langs.el: Fix the names on a number of regexp language variables to conform to the nomenclature and shortened some names. * progmodes/cc-align.el, progmodes/cc-cmds.el, - progmodes/cc-fonts.el, progmodes/cc-engine.el + * progmodes/cc-fonts.el, progmodes/cc-engine.el (c-syntactic-re-search-forward): Remove the COUNT argument since it's never used. Add an argument to tell which subexpression whose end should be tested for syntactic @@ -803,7 +800,6 @@ This fixes a performance problem that could occur when `fill-paragraph' is used in font lock mode on a comment at the end of a large class or function. - (c-state-cache-start): Fix buffer localness. * progmodes/cc-langs.el: Updates from the C99 standard (or @@ -842,7 +838,6 @@ table for types: If a name is recognized as a type in a declaration it's added in an obarray to be able to recognize it in other ambiguous declarations. - (c-remove-ws): New helper function to canonicalize fully qualified identifiers for `c-found-types'. @@ -851,14 +846,12 @@ * progmodes/cc-align.el (c-lineup-arglist-close-under-paren): Work correctly with nested arglist-cont-nonempty symbols. - (c-lineup-arglist-operators): New lineup function to line up infix operators under the open paren of the surrounding sexp. * progmodes/cc-engine.el (c-forward-syntactic-ws): Fix a bug that could cause an infinite loop if something that looks like a macro begins in the middle of a line. - (c-parse-state): Fix a bug that could cause `c-state-cache' to contain two conses in sequence when there's an unbalanced open paren in a macro. @@ -874,13 +867,11 @@ string, or a macro. * progmodes/cc-align.el, progmodes/cc-cmds.el, - progmodes/cc-engine.el (c-forward-single-comment, - c-forward-comments, c-backward-single-comment, - c-backward-comments): New replacements for `c-forward-comment' - that wraps `forward-comment' more efficiently in each of the - four different cases it's actually used. These replacements - also treats line continuations as whitespace. - + * progmodes/cc-engine.el (c-forward-single-comment) + (c-forward-comments, c-backward-single-comment, c-backward-comments): + New replacements for `c-forward-comment' that wraps `forward-comment' + more efficiently in each of the four different cases it's actually + used. These replacements also treats line continuations as whitespace. (c-forward-comment): Remove. The four different cases above are basically different, so it's better to make them into separate functions than choose between them at runtime using @@ -936,7 +927,7 @@ matter. * progmodes/cc-align.el, progmodes/cc-defs.el, - progmodes/cc-engine.el, progmodes/cc-vars.el + * progmodes/cc-engine.el, progmodes/cc-vars.el (c-guess-basic-syntax, c-calc-offset) (c-get-syntactic-indentation, c-syntactic-context): Extend the representation of the syntactic context: Previously it was @@ -990,16 +981,13 @@ position for defun-open in K&R style functions. * progmodes/cc-engine.el (c-in-knr-argdecl): Don't trip up on macros. - (c-search-decl-header-end): Handle C++ template arguments more correctly. - (c-beginning-of-decl-1): Fix when the declaration is first in a macro. * progmodes/cc-engine.el (c-beginning-of-decl-1): Better way to handle protection labels, one which doesn't get confused by inherit colons. - (c-end-of-decl-1): Don't treat functions that have "class" or "struct" in the return type as classes or structs. @@ -1230,7 +1218,7 @@ (tramp-file-name-handler): Do not invoke the old remote-shell handler. (tramp-find-foreign-file-name-handler): Return after first match is found. From Francis Litterio <franl@world.std.com>. - (tramp-handle-file-newer-than-file-p): `tramp-time-diff' returns + (tramp-handle-file-newer-than-file-p): `tramp-time-diff' returns integer, not list. Do not apply `car' to the return value of `tramp-time-diff'. Reported by David D. Smith <ultrasoul@ultrasoul.com>. @@ -1460,7 +1448,7 @@ * info.el (Info-fontify-node): Don't refill over lines ending in a period; this should fix problems with lists like one in the - (emacs)Library Keywords section. + "(emacs)Library Keywords" section. 2003-06-05 Markus Rost <rost@math.ohio-state.edu> @@ -1652,7 +1640,7 @@ * textmodes/bibtex.el: Long overdue merge. Don't require `compile' since it seems unnecessary. For all internal variables and functions the docstring comments have - been converted into proper docstrings + been converted into proper docstrings. (bibtex-maintainer-address, bibtex-maintainer-salutation) (bibtex-version): Remove support for bug reporting. (bibtex-field-delimiters, bibtex-entry-delimiters) @@ -2012,7 +2000,7 @@ * international/mule.el (ctext-non-standard-encodings-alist): Rename from non-standard-icccm-encodings-alist. - (ctext-non-standard-encodings-regexp): New variable + (ctext-non-standard-encodings-regexp): New variable. (ctext-post-read-conversion): Full rewrite. (ctext-non-standard-designations-alist): Rename from non-standard-designations-alist. @@ -2182,7 +2170,7 @@ (gdb-display-source-buffer): Display assembler during execution, when requested. (gud-menu-map): Add a toggle button to menubar for gdb-many-windows. - (gdb-many-windows): Define explicitly as a function and a variable + (gdb-many-windows): Define explicitly as a function and a variable. (formerly as a minor mode). These need to be global so layout can be reset from any buffer. (gdb-assembler-mode): Keep fringe outside margin as the overlay @@ -2674,7 +2662,7 @@ (gdb-invalidate-breakpoints-and-assembler): Remove. (gdb-current-address): Remove. (gdb-previous-address): New variable. - (gud-until): Extend to work in Assembler buffer + (gud-until): Extend to work in Assembler buffer. (gdb-append-to-inferior-io): Select IO buffer when there is output. (gdb-assembler-custom): Try to get line marker (arrow) to display in window. Correct parsing for OS dependent output syntax of Gdb @@ -3343,7 +3331,7 @@ (ada-prj-find-prj-file): New parameter FILE. (ada-parse-prj-file): Take into account the ADA_INCLUDE_PATH and ADA_OBJECTS_PATH environment variables. Minor reorganization of the - code + code. (ada-get-all-references): Add support for GNAT 3.16 cross-references. * progmodes/ada-prj.el (ada-prj-add-keymap): Move to ada-mode.el @@ -3448,7 +3436,7 @@ (recentf-sort-directories-ascending) (recentf-sort-directories-descending) (recentf-show-basenames-ascending) - (recentf-show-basenames-descending: In-line. Better code. Doc fix. + (recentf-show-basenames-descending): In-line. Better code. Doc fix. (recentf-show-basenames) (recentf-relative-filter): Better code. Doc fix. (recentf-arrange-by-rule-subfilter): Doc fix. Improve :set code. @@ -3768,7 +3756,7 @@ * font-core.el (font-lock-maximum-size, font-lock-verbose): Remove. (font-lock-multiline, font-lock-fontified, font-lock-set-defaults): - Move back to font-lock.el + Move back to font-lock.el. (font-lock-default-function): Use font-lock-mode-internal. * files.el (auto-mode-alist): Add entries for *.ins and *.dtx. @@ -3935,7 +3923,7 @@ * progmodes/etags.el (select-tags-table-mode-map): Don't create new keymap. Instead copy from button-buffer-map. Bind push-button to `t' instead of binding - select-tags-table-select directly + select-tags-table-select directly. (tags-select-tags-table): New button. (select-tags-table): Put a button for each selections. @@ -4070,14 +4058,14 @@ * international/utf-16.el (utf-16-le-decode-loop) (utf-16-be-decode-loop): New temporary variables. (ccl-decode-mule-utf-16-le): Use utf-16-le-decode-loop. - (ccl-decode-mule-utf-16-be): Use utf-16-be-decode-loop + (ccl-decode-mule-utf-16-be): Use utf-16-be-decode-loop. (ccl-decode-mule-utf-16-le-with-signature) (ccl-decode-mule-utf-16-be-with-signature) (ccl-decode-mule-utf-16): New CCL programs. (utf-16-le-encode-loop, utf-16-be-encode-loop): New temporary variables. (ccl-encode-mule-utf-16-le): Use utf-16-le-encode-loop. - (ccl-encode-mule-utf-16-be): Use utf-16-be-encode-loop + (ccl-encode-mule-utf-16-be): Use utf-16-be-encode-loop. (ccl-encode-mule-utf-16-le-with-signature) (ccl-encode-mule-utf-16-be-with-signature): New CCL programs. (mule-utf-16-post-read-conversion): New function. @@ -4141,7 +4129,7 @@ pt -> desktop-buffer-point mk -> desktop-buffer-mark ro -> desktop-buffer-read-only - locals -> desktop-buffer-locals + locals -> desktop-buffer-locals. (desktop-buffer-major-mode, desktop-buffer-file-name) (desktop-buffer-name): Delete unused customizable variables. (desktop-buffer-misc): Delete unused variable. @@ -5354,8 +5342,8 @@ of buffer. This enables recognition of end of HERE-doc "as one types". Require "\n" after trailing tag of HERE-doc. \( made non-quoting outside of string/comment (gdj-contributed). - Likewise for \$. Remove `here-doc-group' text property at start - (makes this property reliable). + Likewise for \$. Remove `here-doc-group' text property at + start (makes this property reliable). Text property `first-format-line' ==> t. Do not recognize $opt_s and $opt::s as s///. (cperl-after-block-p): Optional arg pre-block to check for a pre-block @@ -5919,7 +5907,7 @@ I did it accidently. Infinite loop ... (tramp-get-device): `tramp-make-tramp-file-name' must not be called with NIL path. It fails in case of multi-method. - (tramp-file-name-for-operation): Apply `expand-file-name' for + (tramp-file-name-for-operation): Apply `expand-file-name' for relative file names only. Otherwise there might be problems if the default directory is another Tramp directory as the directory the file is based on. @@ -5968,7 +5956,7 @@ * net/tramp-smb.el (tramp-smb-file-name-handler-alist): Apply `tramp-handle-directory-file-name'. - (tramp-smb-handle-file-attributes): Apply `tramp-get-device'. + (tramp-smb-handle-file-attributes): Apply `tramp-get-device'. ATIME and CTIME are (0 0) now (= "don't know"), which is more honest. (tramp-smb-handle-make-directory): Use Emacs file name primitives instead of calling tramp-smb-handle-* equivalents directly. @@ -6072,7 +6060,7 @@ regexp subpattern 5) (time-stamp-pattern): Initialize to nil to avoid regexp work in default case. - (time-stamp-string): Call set-time-zone-rule instead of setenv + (time-stamp-string): Call set-time-zone-rule instead of setenv. (time-stamp-hhmmss): Remove (not needed after all). (time-stamp-month-dd-yyyy, time-stamp-dd/mm/yyyy) (time-stamp-mon-dd-yyyy, time-stamp-dd-mon-yy, time-stamp-yy/mm/dd) @@ -6735,10 +6723,10 @@ 2003-01-13 Markus Rost <rost@math.ohio-state.edu> - * cus-dep.el (custom-make-dependencies): Don't set standard-value + * cus-dep.el (custom-make-dependencies): Don't set standard-value and version numbers for variables. Handle faces. - * cus-edit.el (customize-changed-options): Doc addition. Load the + * cus-edit.el (customize-changed-options): Doc addition. Load the version deps earlier. Use other tests for groups and variables. Handle faces. @@ -6960,7 +6948,7 @@ * cus-edit.el (custom-variable-prompt): Doc change. Use custom-variable-p. (customize-option): Remove search in loaddefs.el. - (customize-apropos): Use custom-variable-p. + (customize-apropos): Use custom-variable-p. (custom-save-variables): Use custom-variable-p to detect non-rogue variables. @@ -7972,7 +7960,7 @@ 2002-12-02 Fran,Ag(Bois Pinard <pinard@iro.umontreal.ca> * progmodes/make-mode.el (makefile-font-lock-keywords): Highlight - more make keywords: defined, endef, override, export, unexport + more make keywords: defined, endef, override, export, unexport and vpath. 2002-12-02 Dave Love <fx@gnu.org> @@ -8028,7 +8016,7 @@ Make search for message delimiter case-sensitive. * simple.el (yank-window-start): New variable. - (yank): Record yank-window-start + (yank): Record yank-window-start. (yank-pop): Use yank-window-start. * info.el (Info-additional-directory-list): Doc fix. @@ -9441,8 +9429,8 @@ menu pseudo-keys generated by easymenu which are lowercase in Emacs 22.1. - * progmodes/ada-xref.el - (ada-xref-update-project-menu,ada-add-ada-menu): Ditto. + * progmodes/ada-xref.el (ada-xref-update-project-menu) + (ada-add-ada-menu): Ditto. 2002-10-03 John Paul Wallington <jpw@shootybangbang.com> @@ -12757,8 +12745,8 @@ * textmodes/reftex-vars.el (reftex-index-verify-function): New option. (reftex-bibliography-commands): New option. - (reftex-toc-split-windows-horizontally): New option - (reftex-toc-split-windows-horizontally-fraction): New option + (reftex-toc-split-windows-horizontally): New option. + (reftex-toc-split-windows-horizontally-fraction): New option. (reftex-include-file-commands): New option. (reftex-cite-format-builtin): Added ?n for nocite. @@ -12767,7 +12755,7 @@ * textmodes/reftex-toc.el (reftex-re-enlarge): Handle horizontal splitting. - (reftex-toc): Handle horizontal splitting + (reftex-toc): Handle horizontal splitting. (reftex-last-window-width): New variable. * textmodes/reftex-parse.el (reftex-locate-bibliography-files): @@ -14168,7 +14156,7 @@ (comint-send-input, comint-output-filter): Use text properties instead of overlays. (comint-insert-clicked-input): Rewrite to work with text - properties as well as overlays + properties as well as overlays. (comint-snapshot-last-prompt): Snapshot using text properties. (comint-get-old-input-default, comint-extract-string): Don't copy text properties. @@ -15672,9 +15660,9 @@ (sendmail-send-it): Use it. * mail/smtpmail.el (smtpmail-queue-counter): New variable. - (smtpmail-send-it): Use it to construct new queue filenames - (needed if you send more than one message per second, which is - possible if you use Gnus Agent). + (smtpmail-send-it): Use it to construct new queue filenames (needed + if you send more than one message per second, which is possible if + you use Gnus Agent). * mail/smtpmail.el (smtpmail-auth-credentials): Support netrc files as well. @@ -15949,8 +15937,8 @@ 2002-04-22 Pavel Jan,Am(Bk <Pavel@Janik.cz> - * international/mule-diag.el (list-input-methods-1): Doc fix - (LEIM is now part of the standard distribution). + * international/mule-diag.el (list-input-methods-1): Doc fix (LEIM is + now part of the standard distribution). * tmm.el (tmm-completion-prompt): Doc fix. @@ -15970,7 +15958,7 @@ 2002-04-22 Martin Stjernholm <bug-cc-mode@gnu.org> * progmodes/cc-align.el, progmodes/cc-engine.el, - progmodes/cc-styles.el, progmodes/cc-vars.el + * progmodes/cc-styles.el, progmodes/cc-vars.el (c-guess-basic-syntax, c-lineup-topmost-intro-cont): Find correct anchor for statement-cont in top level constructs. Analyze variable initializations in top level constructs as @@ -16667,9 +16655,9 @@ (c-least-enclosing-brace): Added optional second arg to limit the search to before a certain point. - * progmodes/cc-engine.el (c-guess-basic-syntax): Fixed bug - which could cause incorrect analysis if a cached state is used - (usually only happens when an electric key reindents a line). + * progmodes/cc-engine.el (c-guess-basic-syntax): Fixed bug which + could cause incorrect analysis if a cached state is used (usually + only happens when an electric key reindents a line). 2002-04-22 Martin Stjernholm <bug-cc-mode@gnu.org> @@ -18376,7 +18364,7 @@ (ediff-draw-dir-diffs): Now supports the "C" command in directory difference buffer. (ediff-dir-diff-copy-file): New function that implements copying - of files from one Ediff dir to another + of files from one Ediff dir to another. (ediff-bury-dir-diffs-buffer): Kills the buffer instead. (ediff-append-custom-diff): Better error msgs. @@ -18734,7 +18722,7 @@ 2002-02-22 Eli Zaretskii <eliz@is.elta.co.il> - Support for ICCCM Extended Segments in X selections: + Support for ICCCM Extended Segments in X selections: * international/mule-conf.el (ctext-no-compositions): New coding system. @@ -19059,8 +19047,7 @@ `current-language-environment' and `default-input-method' when marked as customized. - * international/mule-cmds.el - (setup-specified-language-environment): + * international/mule-cmds.el (setup-specified-language-environment): Mark `current-language-environment' as customized. (set-input-method): Mark `default-input-method' as customized when called interactively. @@ -19139,7 +19126,7 @@ 2002-02-10 Michael Kifer <kifer@cs.stonybrook.edu> * viper-util.el (viper-read-key-sequence): Fix so it'll read - fast key sequences in Emacs native mode + fast key sequences in Emacs native mode. (viper-events-to-keys): Delete. * viper.el (describe-key, describe-key-briefly): Get rid of @@ -19149,7 +19136,7 @@ Use ediff-has-gutter-support. * ediff-util.el (ediff-dispose-of-variant-according-to-user): - check if buff is alive. + Check if buff is alive. * ediff.el: Typo in comment. @@ -19397,7 +19384,7 @@ * textmodes/flyspell.el (flyspell-issue-message-flag): New user option. (flyspell-mode-on, flyspell-notify-misspell) (flyspell-small-region, flyspell-external-point-words) - (flyspell-large-region): Use it + (flyspell-large-region): Use it. (flyspell-before-incorrect-word-string) (flyspell-after-incorrect-word-string): New user options. (make-flyspell-overlay): Use them. @@ -19883,7 +19870,7 @@ Move view-emacs-FAQ from F to C-f. Move view-emacs-problems from P to C-e. Bindings moved here from mule-cmds.el. - C-l binding for describe-language-environment deleted + C-l binding for describe-language-environment deleted. (help-for-help): Update for all these changes. * emacs-lisp/copyright.el (copyright-regexp): Make (C) optional. @@ -20048,12 +20035,12 @@ 2002-01-07 Michael Kifer <kifer@cs.stonybrook.edu> * viper-init.el (viper-cond-compile-for-xemacs-or-emacs): - new macro that replaces viper-emacs-p and viper-xemacs-p in many + New macro that replaces viper-emacs-p and viper-xemacs-p in many cases. Used to reduce the number of warnings. * viper-cmd.el: Use viper-cond-compile-for-xemacs-or-emacs. (viper-standard-value): Move here from viper.el. - (viper-set-unread-command-events): Move to viper-util.el + (viper-set-unread-command-events): Move to viper-util.el. (viper-check-minibuffer-overlay): Make sure viper-minibuffer-overlay is moved to cover the entire input field. @@ -20264,8 +20251,8 @@ 2002-01-03 Pavel Jan,Am(Bk <Pavel@Janik.cz> - * time.el (display-time-load-average-threshold): Fix defcustom - (add type and group). + * time.el (display-time-load-average-threshold): + Fix defcustom (add type and group). * net/ange-ftp.el (ange-ftp-shell-command): Remove port specification from the hostname. @@ -21002,7 +20989,7 @@ * language/ind-util.el: Don't require cl. (indian-glyph-char, indian-glyph-max-char) - (indian-char-glyph): Moved from indian.el + (indian-char-glyph): Moved from indian.el. (indian--puthash-char, mapthread): Don't quote lambda. (indian--map): New function. (indian--puthash-v, indian--puthash-c, indian--puthash-m) @@ -21887,8 +21874,8 @@ 2001-11-22 Colin Walters <walters@debian.org> - * calc/calc-misc.el (calc-info): Don't perform voodoo, just - (info "Calc"). + * calc/calc-misc.el (calc-info): Don't perform voodoo, + just (info "Calc"). (report-calc-bug): Use reporter.el. * mail/reporter.el (reporter-submit-bug-report): Doc fixes. @@ -23266,7 +23253,7 @@ (ps-mode-menu-main): Submenu with options on/off was replaced with a toggle button. (ps-mode, ps-run-mode): Define with `define-derived-mode' - (ps-mode): Autoload cookie added on same line as comment + (ps-mode): Autoload cookie added on same line as comment. (ps-mode-tabkey, ps-mode-backward-delete-char): (ps-mode-r-balance): Replace `delete-horizontal-space' and `indent-to' with `indent-line-to' diff --git a/lisp/add-log.el b/lisp/add-log.el index 70345a122e1..2ecb274b4de 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -916,7 +916,19 @@ Has a preference of looking backwards." ;; Include certain keywords if they ;; precede the name. (setq middle (point)) - (forward-sexp -1) + ;; Single (forward-sexp -1) invocation is + ;; not enough for C++ member function defined + ;; as part of nested class and/or namespace + ;; like: + ;; + ;; void + ;; foo::bar::baz::bazz () + ;; { ... + ;; + ;; Here we have to move the point to + ;; the beginning of foo, not bazz. + (while (not (looking-back "\\(^\\|[ \t]\\)")) + (forward-sexp -1)) ;; Is this C++ method? (when (and (< 2 middle) (string= (buffer-substring (- middle 2) diff --git a/lisp/allout.el b/lisp/allout.el index 954faa40232..02d67671008 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -45,7 +45,9 @@ ;; - Symmetric-key and key-pair topic encryption, plus symmetric passphrase ;; mnemonic support, with verification against an established passphrase ;; (using a stashed encrypted dummy string) and user-supplied hint -;; maintenance. (See allout-toggle-current-subtree-encryption docstring.) +;; maintenance. (See allout-toggle-current-subtree-encryption docstring. +;; Currently only GnuPG encryption is supported, and integration +;; with gpg-agent is not yet implemented.) ;; - Automatic topic-number maintenance ;; - "Hot-spot" operation, for single-keystroke maneuvering and ;; exposure control (see the allout-mode docstring) @@ -5748,9 +5750,9 @@ it forces prompting for the passphrase regardless of availability from the passphrase cache. With no universal argument, the appropriate passphrase is obtained from the cache, if available, else from the user. -Currently only GnuPG encryption is supported. +Only GnuPG encryption is supported. -\**NOTE WELL** that the encrypted text must be ascii-armored. For gnupg +\*NOTE WELL* that the encrypted text must be ascii-armored. For gnupg encryption, include the option ``armor'' in your ~/.gnupg/gpg.conf file. Both symmetric-key and key-pair encryption is implemented. Symmetric is @@ -5764,8 +5766,8 @@ not. When a file with topics pending encryption is saved, topics pending encryption are encrypted. See allout-encrypt-unencrypted-on-saves for auto-encryption specifics. -\**NOTE WELL** that automatic encryption that happens during saves will -default to symmetric encryption - you must manually (re)encrypt key-pair +\*NOTE WELL* that automatic encryption that happens during saves will +default to symmetric encryption - you must deliberately (re)encrypt key-pair encrypted topics if you want them to continue to use the key-pair cipher. Level-one topics, with prefix consisting solely of an `*' asterisk, cannot be @@ -5777,10 +5779,8 @@ encrypted. If you want to encrypt the contents of a top-level topic, use The encryption passphrase is solicited if not currently available in the passphrase cache from a recent encryption action. -The solicited passphrase is retained for reuse in a buffer-specific cache -for some set period of time (default, 60 seconds), after which the string -is nulled. The passphrase cache timeout is customized by setting -`pgg-passphrase-cache-expiry'. +The solicited passphrase is retained for reuse in a cache, if enabled. See +`pgg-cache-passphrase' and `pgg-passphrase-cache-expiry' for details. Symmetric Passphrase Hinting and Verification @@ -5820,7 +5820,8 @@ it forces prompting for the passphrase regardless of availability from the passphrase cache. With no universal argument, the appropriate passphrase is obtained from the cache, if available, else from the user. -Currently only GnuPG encryption is supported. +Currently only GnuPG encryption is supported, and integration +with gpg-agent is not yet implemented. \**NOTE WELL** that the encrypted text must be ascii-armored. For gnupg encryption, include the option ``armor'' in your ~/.gnupg/gpg.conf file. @@ -5996,7 +5997,11 @@ Returns the resulting string, or nil if the transformation fails." (rejected (or rejected 0)) (rejections-left (- allout-encryption-ciphertext-rejection-ceiling rejected)) - result-text status) + result-text status + ;; Inhibit gpg-agent use for symmetric keys in the scope of this let: + (pgg-gpg-use-agent (if (equal key-type 'keypair) + pgg-gpg-use-agent + nil))) (if (and fetch-pass (not passphrase)) ;; Force later fetch by evicting passphrase from the cache. @@ -6004,12 +6009,9 @@ Returns the resulting string, or nil if the transformation fails." (catch 'encryption-failed - ;; Obtain the passphrase if we don't already have one and we're not - ;; doing a keypair encryption: - (if (not (or passphrase - (and (equal key-type 'keypair) - (not decrypt)))) - + ;; We handle only symmetric-key passphrase caching. + (if (and (not passphrase) + (not (equal key-type 'keypair))) (setq passphrase (allout-obtain-passphrase for-key target-cache-id target-prompt-id diff --git a/lisp/bindings.el b/lisp/bindings.el index f6e593bfa74..591e8aad122 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -1059,8 +1059,8 @@ language you are using." (define-key ctl-x-4-map "c" 'clone-indirect-buffer-other-window) ;; Signal handlers -(define-key global-map [signal] (make-sparse-keymap)) -(define-key global-map [signal t] 'ignore) +(define-key special-event-map [sigusr1] 'ignore) +(define-key special-event-map [sigusr2] 'ignore) ;; Don't look for autoload cookies in this file. ;; Local Variables: diff --git a/lisp/bs.el b/lisp/bs.el index d0b929b2d85..a42b22e8436 100644 --- a/lisp/bs.el +++ b/lisp/bs.el @@ -999,7 +999,6 @@ Uses function `vc-toggle-read-only'." (defun bs--up () "Move cursor vertically up one line. If on top of buffer list go to last line." - (interactive "p") (if (> (count-lines 1 (point)) bs-header-lines-length) (forward-line -1) (goto-char (point-max)) diff --git a/lisp/calendar/cal-dst.el b/lisp/calendar/cal-dst.el index aed4c32e3db..ddd317de106 100644 --- a/lisp/calendar/cal-dst.el +++ b/lisp/calendar/cal-dst.el @@ -53,7 +53,8 @@ change." :group 'calendar) (defvar calendar-current-time-zone-cache nil - "Cache for result of calendar-current-time-zone.") + "Cache for result of `calendar-current-time-zone'.") +(put 'calendar-current-time-zone-cache 'risky-local-variable t) (defvar calendar-system-time-basis (calendar-absolute-from-gregorian '(1 1 1970)) @@ -345,8 +346,9 @@ This function respects the value of `calendar-dst-check-each-year-flag'." (cadr (calendar-dst-find-startend year)) (nth 4 calendar-current-time-zone-cache)))) (if expr (eval expr))) + ;; New US rules commencing 2007. ftp://elsie.nci.nih.gov/pub/. (and (not (zerop calendar-daylight-time-offset)) - (calendar-nth-named-day 1 0 4 year)))) + (calendar-nth-named-day 2 0 3 year)))) (defun calendar-dst-ends (year) "Return the date of YEAR on which Daylight Saving Time ends. @@ -355,8 +357,9 @@ This function respects the value of `calendar-dst-check-each-year-flag'." (nth 2 (calendar-dst-find-startend year)) (nth 5 calendar-current-time-zone-cache)))) (if expr (eval expr))) + ;; New US rules commencing 2007. ftp://elsie.nci.nih.gov/pub/. (and (not (zerop calendar-daylight-time-offset)) - (calendar-nth-named-day -1 0 10 year)))) + (calendar-nth-named-day 1 0 11 year)))) ;;;###autoload diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index c5e7f85f51b..c0249223a06 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -2199,12 +2199,12 @@ movement commands will not work correctly." downcase-region upcase-region kill-region copy-region-as-kill capitalize-region write-region)) (define-key map (vector 'remap c) 'calendar-not-implemented)) - (define-key map ">" 'scroll-calendar-right) - (define-key map "\C-x>" 'scroll-calendar-right) + (define-key map "<" 'scroll-calendar-right) + (define-key map "\C-x<" 'scroll-calendar-right) (define-key map [prior] 'scroll-calendar-right-three-months) (define-key map "\ev" 'scroll-calendar-right-three-months) - (define-key map "<" 'scroll-calendar-left) - (define-key map "\C-x<" 'scroll-calendar-left) + (define-key map ">" 'scroll-calendar-left) + (define-key map "\C-x>" 'scroll-calendar-left) (define-key map [next] 'scroll-calendar-left-three-months) (define-key map "\C-v" 'scroll-calendar-left-three-months) (define-key map "\C-b" 'calendar-backward-day) @@ -2337,42 +2337,40 @@ movement commands will not work correctly." (defvar calendar-mode-line-format (list - (propertize (substitute-command-keys - "\\<calendar-mode-map>\\[scroll-calendar-left]") - 'help-echo "mouse-2: scroll left" + (propertize "<" + 'help-echo "mouse-1: previous month" 'mouse-face 'mode-line-highlight - 'keymap (make-mode-line-mouse-map 'mouse-2 - 'mouse-scroll-calendar-left)) + 'keymap (make-mode-line-mouse-map 'mouse-1 + 'mouse-scroll-calendar-right)) "Calendar" (concat (propertize (substitute-command-keys "\\<calendar-mode-map>\\[calendar-goto-info-node] info") - 'help-echo "mouse-2: read Info on Calendar" + 'help-echo "mouse-1: read Info on Calendar" 'mouse-face 'mode-line-highlight - 'keymap (make-mode-line-mouse-map 'mouse-2 'calendar-goto-info-node)) - "/" + 'keymap (make-mode-line-mouse-map 'mouse-1 'calendar-goto-info-node)) + " / " (propertize (substitute-command-keys - "\\<calendar-mode-map>\\[calendar-other-month] other") - 'help-echo "mouse-2: choose another month" + " \\<calendar-mode-map>\\[calendar-other-month] other") + 'help-echo "mouse-1: choose another month" 'mouse-face 'mode-line-highlight 'keymap (make-mode-line-mouse-map - 'mouse-2 'mouse-calendar-other-month)) - "/" + 'mouse-1 'mouse-calendar-other-month)) + " / " (propertize (substitute-command-keys "\\<calendar-mode-map>\\[calendar-goto-today] today") - 'help-echo "mouse-2: go to today's date" + 'help-echo "mouse-1: go to today's date" 'mouse-face 'mode-line-highlight - 'keymap (make-mode-line-mouse-map 'mouse-2 #'calendar-goto-today))) + 'keymap (make-mode-line-mouse-map 'mouse-1 #'calendar-goto-today))) '(calendar-date-string (calendar-current-date) t) - (propertize (substitute-command-keys - "\\<calendar-mode-map>\\[scroll-calendar-right]") - 'help-echo "mouse-2: scroll right" + (propertize ">" + 'help-echo "mouse-1: next month" 'mouse-face 'mode-line-highlight 'keymap (make-mode-line-mouse-map - 'mouse-2 'mouse-scroll-calendar-right))) + 'mouse-1 'mouse-scroll-calendar-left))) "The mode line of the calendar buffer. This must be a list of items that evaluate to strings--those strings are diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el index 570fb626747..6fecc86bf34 100644 --- a/lisp/calendar/icalendar.el +++ b/lisp/calendar/icalendar.el @@ -73,6 +73,10 @@ ;; * Import from ical to diary: ;; + Need more properties for icalendar-import-format +;; (added all that Mozilla Calendar uses) +;; From iCal specifications (RFC2445: 4.8.1), icalendar.el lacks +;; ATTACH, CATEGORIES, COMMENT, GEO, PERCENT-COMPLETE (VTODO), +;; PRIORITY, RESOURCES) not considering date/time and time-zone ;; + check vcalendar version ;; + check (unknown) elements ;; + recurring events! @@ -97,7 +101,7 @@ ;;; Code: -(defconst icalendar-version "0.13" +(defconst icalendar-version "0.14" "Version number of icalendar.el.") ;; ====================================================================== @@ -226,12 +230,12 @@ buffer." "Replace regular expression in string. Pass ARGS to `replace-regexp-in-string' (Emacs) or to `replace-in-string' (XEmacs)." + (if (fboundp 'replace-regexp-in-string) + ;; Emacs: + (apply 'replace-regexp-in-string args) ;; XEmacs: - (if (fboundp 'replace-in-string) - (save-match-data ;; apparently XEmacs needs save-match-data - (apply 'replace-in-string args)) - ;; Emacs: - (apply 'replace-regexp-in-string args))) + (save-match-data ;; apparently XEmacs needs save-match-data + (apply 'replace-in-string args)))) (defun icalendar--read-element (invalue inparams) "Recursively read the next iCalendar element in the current buffer. @@ -1549,7 +1553,7 @@ buffer `*icalendar-errors*'." (defun icalendar--convert-ical-to-diary (ical-list diary-file &optional do-not-ask non-marking) - "Convert Calendar data to an Emacs diary file. + "Convert iCalendar data to an Emacs diary file. Import VEVENTS from the iCalendar object ICAL-LIST and saves them to a DIARY-FILE. If DO-NOT-ASK is nil the user is asked for each event whether to actually import it. NON-MARKING determines whether diary @@ -1680,6 +1684,13 @@ written into the buffer `*icalendar-errors*'." (setq error-string (format "%s\n%s\nCannot handle this event: %s" error-val error-string e)) (message "%s" error-string)))) + ;; insert final newline + (let ((b (find-buffer-visiting diary-file))) + (when b + (save-current-buffer + (set-buffer b) + (goto-char (point-max)) + (insert "\n")))) (if found-error (save-current-buffer (set-buffer (get-buffer-create "*icalendar-errors*")) diff --git a/lisp/comint.el b/lisp/comint.el index b32f129c679..1ab285c9af4 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -132,7 +132,7 @@ ;; comint-eol-on-send boolean ... ;; comint-process-echoes boolean ... ;; comint-scroll-to-bottom-on-input symbol For scroll behavior -;; comint-scroll-to-bottom-on-output symbol ... +;; comint-move-point-for-output symbol ... ;; comint-scroll-show-maximum-output boolean ... ;; comint-accum-marker maker For comint-accumulate ;; diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index d698aaeecc3..59026942281 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -679,8 +679,9 @@ if that fails, the doc string with `custom-guess-doc-alist'." ;;; Sorting. +;;;###autoload (defcustom custom-browse-sort-alphabetically nil - "If non-nil, sort members of each customization group alphabetically." + "If non-nil, sort customization group alphabetically in `custom-browse'." :type 'boolean :group 'custom-browse) @@ -698,8 +699,9 @@ If `last', order groups after non-groups." :type 'boolean :group 'custom-browse) +;;;###autoload (defcustom custom-buffer-sort-alphabetically nil - "If non-nil, sort members of each customization group alphabetically." + "If non-nil, sort each customization group alphabetically in Custom buffer." :type 'boolean :group 'custom-buffer) @@ -712,8 +714,9 @@ If `last', order groups after non-groups." (const :tag "none" nil)) :group 'custom-buffer) +;;;###autoload (defcustom custom-menu-sort-alphabetically nil - "If non-nil, sort members of each customization group alphabetically." + "If non-nil, sort each customization group alphabetically in menus." :type 'boolean :group 'custom-menu) diff --git a/lisp/custom.el b/lisp/custom.el index e69e233614a..699d432fb70 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -536,6 +536,7 @@ For other custom types, this has no effect." (let ((options (get symbol 'custom-options))) (unless (member option options) (put symbol 'custom-options (cons option options))))) +(defalias 'custom-add-frequent-value 'custom-add-option) (defun custom-add-link (symbol widget) "To the custom option SYMBOL add the link WIDGET." diff --git a/lisp/dired.el b/lisp/dired.el index 09f4dc8425a..4f2e1b74b10 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -3098,15 +3098,18 @@ The idea is to set this buffer-locally in special dired buffers.") ;; Modeline display of "by name" or "by date" guarantees the user a ;; match with the corresponding regexps. Non-matching switches are ;; shown literally. - (setq mode-name - (let (case-fold-search) - (cond ((string-match dired-sort-by-name-regexp dired-actual-switches) - "Dired by name") - ((string-match dired-sort-by-date-regexp dired-actual-switches) - "Dired by date") - (t - (concat "Dired " dired-actual-switches))))) - (force-mode-line-update)) + (when (eq major-mode 'dired-mode) + (setq mode-name + (let (case-fold-search) + (cond ((string-match + dired-sort-by-name-regexp dired-actual-switches) + "Dired by name") + ((string-match + dired-sort-by-date-regexp dired-actual-switches) + "Dired by date") + (t + (concat "Dired " dired-actual-switches))))) + (force-mode-line-update))) (defun dired-sort-toggle-or-edit (&optional arg) "Toggle between sort by date/name and refresh the dired buffer. @@ -3162,7 +3165,7 @@ set the minor mode accordingly, others appear literally in the mode line. With optional second arg NO-REVERT, don't refresh the listing afterwards." (dired-sort-R-check switches) (setq dired-actual-switches switches) - (if (eq major-mode 'dired-mode) (dired-sort-set-modeline)) + (dired-sort-set-modeline) (or no-revert (revert-buffer))) (defvar dired-subdir-alist-pre-R nil diff --git a/lisp/ediff-diff.el b/lisp/ediff-diff.el index 7786326bea9..34a1ceda254 100644 --- a/lisp/ediff-diff.el +++ b/lisp/ediff-diff.el @@ -133,9 +133,13 @@ are `-I REGEXP', to ignore changes whose lines match the REGEXP." (defcustom ediff-diff-options "" "*Options to pass to `ediff-diff-program'. If Unix diff is used as `ediff-diff-program', - then a useful option is `-w', to ignore space. -Options `-c' and `-i' are not allowed. Case sensitivity can be - toggled interactively using \\[ediff-toggle-ignore-case]." +then a useful option is `-w', to ignore space. +Options `-c', `-u', and `-i' are not allowed. Case sensitivity can be +toggled interactively using \\[ediff-toggle-ignore-case]. + +This variable is not for customizing the look of the differences produced by +the command \\[ediff-show-diff-output]. Use the variable +`ediff-custom-diff-options' for that." :set 'ediff-reset-diff-options :type 'string :group 'ediff-diff) @@ -254,10 +258,10 @@ one optional arguments, diff-number to refine.") ;; ediff-setup-diff-regions-function, which can also have the value ;; ediff-setup-diff-regions3, which takes 4 arguments. (defun ediff-setup-diff-regions (file-A file-B file-C) - ;; looking for '-c', '-i', or a 'c', 'i' among clustered non-long options - (if (string-match "^-[ci]\\| -[ci]\\|\\(^\\| \\)-[^- ]+[ci]" + ;; looking for '-c', '-i', '-u', or 'c', 'i', 'u' among clustered non-long options + (if (string-match "^-[ciu]\\| -[ciu]\\|\\(^\\| \\)-[^- ]+[ciu]" ediff-diff-options) - (error "Options `-c' and `-i' are not allowed in `ediff-diff-options'")) + (error "Options `-c', `-u', and `-i' are not allowed in `ediff-diff-options'")) ;; create, if it doesn't exist (or (ediff-buffer-live-p ediff-diff-buffer) diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el index b9afebcb3ef..a19f054a468 100644 --- a/lisp/emacs-lisp/authors.el +++ b/lisp/emacs-lisp/authors.el @@ -75,7 +75,7 @@ files.") (nil "(afs@hplb.hpl.hp.com)") (nil "<Use-Author-Address-Header@\\[127.1\\]>") (nil "Code Extracted") - (nil "Fsf") + (nil "\\`FSF") (nil "ISO-2022-JP") ("Jaeyoun Chung" "Jae-youn Chung" "Jae-you Chung" "Chung Jae-youn") ("Jan Dj,Ad(Brv" "Jan D." "Jan Djarv") @@ -300,6 +300,8 @@ found) in the repository.") ("GETTING.GNU.SOFTWARE" . "FTP") ("leim-Makefile" . "leim/Makefile") ("leim-Makefile.in" . "leim/Makefile.in") + ("emacs-lisp/testcover-ses.el" . "tcover-ses.el") + ("emacs-lisp/testcover-unsafep.el" . "tcover-unsafep.el") ("INSTALL-CVS" . "INSTALL.CVS") ) "Alist of files which have been renamed during their lifetime. diff --git a/lisp/emacs-lisp/bindat.el b/lisp/emacs-lisp/bindat.el index 792272ef88a..6053fb3cf09 100644 --- a/lisp/emacs-lisp/bindat.el +++ b/lisp/emacs-lisp/bindat.el @@ -319,8 +319,8 @@ ((eq type 'struct) (setq data (bindat--unpack-group (eval len)))) ((eq type 'repeat) - (let ((index 0)) - (while (< index len) + (let ((index 0) (count len)) + (while (< index count) (setq data (cons (bindat--unpack-group (nthcdr tail item)) data)) (setq index (1+ index))) (setq data (nreverse data)))) @@ -415,8 +415,8 @@ e.g. corresponding to STRUCT.FIELD1[INDEX2].FIELD3..." (bindat--length-group (if field (bindat-get-field struct field) struct) (eval len))) ((eq type 'repeat) - (let ((index 0)) - (while (< index len) + (let ((index 0) (count len)) + (while (< index count) (bindat--length-group (nth index (bindat-get-field struct field)) (nthcdr tail item)) @@ -559,8 +559,8 @@ e.g. corresponding to STRUCT.FIELD1[INDEX2].FIELD3..." (bindat--pack-group (if field (bindat-get-field struct field) struct) (eval len))) ((eq type 'repeat) - (let ((index 0)) - (while (< index len) + (let ((index 0) (count len)) + (while (< index count) (bindat--pack-group (nth index (bindat-get-field struct field)) (nthcdr tail item)) diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index de8f0a91af4..213854edb54 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -274,7 +274,7 @@ With zero or negative ARG turn mode off. (defalias 'easy-mmode-define-global-mode 'define-global-minor-mode) ;;;###autoload (defmacro define-global-minor-mode (global-mode mode turn-on &rest keys) - "Make GLOBAL-MODE out of the buffer-local minor MODE. + "Make a global mode GLOBAL-MODE corresponding to buffer-local minor MODE. TURN-ON is a function that will be called with no args in every buffer and that should try to turn MODE on if applicable for that buffer. KEYS is a list of CL-style keyword arguments. As the minor mode diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index a2153beebd9..06cafb17e61 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el @@ -443,20 +443,24 @@ When non-nil, NOEXP indicates that CALLBACK cannot be an expression command)) ;;;###autoload -(defun easy-menu-change (path name items &optional before) +(defun easy-menu-change (path name items &optional before map) "Change menu found at PATH as item NAME to contain ITEMS. PATH is a list of strings for locating the menu that should contain a submenu named NAME. ITEMS is a list of menu items, as in `easy-menu-define'. These items entirely replace the previous items in that submenu. +If MAP is specified, it should normally be a keymap; nil stands for the local +menu-bar keymap. It can also be a symbol, which has earlier been used as the +first argument in a call to `easy-menu-define', or the value of such a symbol. + If the menu located by PATH has no submenu named NAME, add one. If the optional argument BEFORE is present, add it just before the submenu named BEFORE, otherwise add it at the end of the menu. To implement dynamic menus, either call this from `menu-bar-update-hook' or use a menu filter." - (easy-menu-add-item nil path (easy-menu-create-menu name items) before)) + (easy-menu-add-item map path (easy-menu-create-menu name items) before)) ;; XEmacs needs the following two functions to add and remove menus. ;; In Emacs this is done automatically when switching keymaps, so diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index 6e06e4a067b..895bec256d4 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el @@ -185,13 +185,18 @@ With ARG, do it that many times. Negative arg -N means move forward to Nth following beginning of defun. Returns t unless search stops due to beginning or end of buffer. -Normally a defun starts when there is a char with open-parenthesis -syntax at the beginning of a line. If `defun-prompt-regexp' is -non-nil, then a string which matches that regexp may precede the -open-parenthesis, and point ends up at the beginning of the line. - If variable `beginning-of-defun-function' is non-nil, its value -is called as a function to find the defun's beginning." +is called as a function to find the defun's beginning. + +Normally a defun is assumed to start where there is a char with +open-parenthesis syntax at the beginning of a line. If +`defun-prompt-regexp' is non-nil, then a string which matches +that regexp may precede the open-parenthesis, and point ends up +at the beginning of the line. + +If `defun-prompt-regexp' and `open-paren-in-column-0-is-defun-start' +are both nil, the function instead finds an open-paren at the +outermost level." (interactive "p") (or (not (eq this-command 'beginning-of-defun)) (eq last-command 'beginning-of-defun) @@ -208,9 +213,9 @@ is non-nil. If variable `beginning-of-defun-function' is non-nil, its value is called as a function to find the defun's beginning." - (interactive "p") ; change this to "P", maybe, if we ever come to pass ARG - ; to beginning-of-defun-function. - (unless arg (setq arg 1)) ; The call might not be interactive. + (interactive "p") ; change this to "P", maybe, if we ever come to pass ARG + ; to beginning-of-defun-function. + (unless arg (setq arg 1)) (cond (beginning-of-defun-function (if (> arg 0) @@ -230,42 +235,56 @@ is called as a function to find the defun's beginning." nil 'move arg) (progn (goto-char (1- (match-end 0)))) t)) + ;; If open-paren-in-column-0-is-defun-start and defun-prompt-regexp + ;; are both nil, column 0 has no significance - so scan forward + ;; from BOB to see how nested point is, then carry on from there. + ;; + ;; It is generally not a good idea to land up here, because the + ;; call to scan-lists below can be extremely slow. This is because + ;; back_comment in syntax.c may have to scan from bob to find the + ;; beginning of each comment. Fixing this is not trivial -- cyd. + + ((eq arg 0)) (t - ;; Column 0 has no significance - so scan forward from BOB to see how - ;; nested point is, then carry on from there. - (let* ((floor (point-min)) - (ceiling (point-max)) - (pps-state (let (syntax-begin-function - font-lock-beginning-of-syntax-function) - (syntax-ppss))) - (nesting-depth (nth 0 pps-state))) + (let ((floor (point-min)) + (ceiling (point-max)) + (arg-+ve (> arg 0))) (save-restriction (widen) - ;; Get outside of any string or comment. - (if (nth 8 pps-state) - (goto-char (nth 8 pps-state))) - - (cond - ((> arg 0) - (when (> nesting-depth 0) - (up-list (- nesting-depth)) - (setq arg (1- arg))) - ;; We're now outside of any defun. - (backward-list arg) - (if (< (point) floor) (goto-char floor))) - - ((< arg 0) - (cond - ((> nesting-depth 0) - (up-list nesting-depth) - (setq arg (1+ arg))) - ((not (looking-at "\\s(")) - ;; We're between defuns, and not at the start of one. - (setq arg (1+ arg)))) - (forward-list (- arg)) - (down-list) - (backward-char) - (if (> (point) ceiling) (goto-char ceiling))))))))) + (let ((ppss (let (syntax-begin-function + font-lock-beginning-of-syntax-function) + (syntax-ppss))) + ;; position of least enclosing paren, or nil. + encl-pos) + ;; Back out of any comment/string, so that encl-pos will always + ;; become nil if we're at top-level. + (when (nth 8 ppss) + (goto-char (nth 8 ppss)) + (setq ppss (syntax-ppss))) ; should be fast, due to cache. + (setq encl-pos (syntax-ppss-toplevel-pos ppss)) + (if encl-pos (goto-char encl-pos)) + + (and encl-pos arg-+ve (setq arg (1- arg))) + (and (not encl-pos) (not arg-+ve) (not (looking-at "\\s(")) + (setq arg (1+ arg))) + + (condition-case nil ; to catch crazy parens. + (progn + (goto-char (scan-lists (point) (- arg) 0)) + (if arg-+ve + (if (>= (point) floor) + t + (goto-char floor) + nil) + ;; forward to next (, or trigger the c-c + (goto-char (1- (scan-lists (point) 1 -1))) + (if (<= (point) ceiling) + t + (goto-char ceiling) + nil))) + (error + (goto-char (if arg-+ve floor ceiling)) + nil)))))))) (defvar end-of-defun-function nil "If non-nil, function for function `end-of-defun' to call. diff --git a/lisp/emacs-lisp/syntax.el b/lisp/emacs-lisp/syntax.el index f290db42c04..0937076a7f4 100644 --- a/lisp/emacs-lisp/syntax.el +++ b/lisp/emacs-lisp/syntax.el @@ -53,12 +53,20 @@ (nth 0 ppss)) (defun syntax-ppss-toplevel-pos (ppss) - "Return the last preceding position at toplevel. -\"At toplevel\" means that it is outside of any syntactic entity: -outside of any parentheses, or comments, or strings. -Returns nil iff PPSS itself corresponds to a toplevel position." + "Get the latest syntactically outermost position found in a syntactic scan. +PPSS is a scan state, as returned by `partial-parse-sexp' or `syntax-ppss'. +An \"outermost position\" means one that it is outside of any syntactic entity: +outside of any parentheses, comments, or strings encountered in the scan. +If no such position is recorded in PPSS (because the end of the scan was +itself at the outermost level), return nil." + ;; BEWARE! We rely on the undocumented 9th field. The 9th field currently + ;; contains the list of positions of the enclosing open-parens. + ;; I.e. those positions are outside of any string/comment and the first of + ;; those is outside of any paren (i.e. corresponds to a nil ppss). + ;; If this list is empty but we are in a string or comment, then the 8th + ;; field contains a similar "toplevel" position. (or (car (nth 9 ppss)) - (nth 8 ppss))) + (nth 8 ppss))) (defsubst syntax-ppss-context (ppss) (cond @@ -95,8 +103,7 @@ point (where the PPSS is equivalent to nil).") ;; depend on the text after BEG (which is presumably changed). So if ;; BEG=(car (nth 10 syntax-ppss-last)) don't reuse that data because the ;; assumed nil state at BEG may not be valid any more. - (if (<= beg (or (car (nth 10 syntax-ppss-last)) - (nth 9 syntax-ppss-last) + (if (<= beg (or (syntax-ppss-toplevel-pos (cdr syntax-ppss-last)) (nth 3 syntax-ppss-last) 0)) (setq syntax-ppss-last nil) @@ -144,22 +151,14 @@ Point is at POS when this function returns." (cond ;; Use OLD-PPSS if possible and close enough. ((and (not old-pos) old-ppss - ;; BEWARE! We rely on the undocumented 9th field. The 9th - ;; field currently contains the list of positions of - ;; open-parens of the enclosing parens. I.e. those - ;; positions are outside of any string/comment - ;; and the first of those is outside of any paren - ;; (i.e. corresponds to a nil ppss). If this list is empty - ;; but we are in a string or comment, then the 8th field - ;; contains a similar "toplevel" position. If `pt-min' is - ;; too far from `pos', we could try to use other positions - ;; in (nth 9 old-ppss), but that doesn't seem to happen in - ;; practice and it would complicate this code (and the - ;; before-change-function code even more). But maybe it - ;; would be useful in "degenerate" cases such as when the - ;; whole file is wrapped in a set of parenthesis. - (setq pt-min (or (car (nth 9 old-ppss)) - (nth 8 old-ppss) + ;; If `pt-min' is too far from `pos', we could try to use + ;; other positions in (nth 9 old-ppss), but that doesn't + ;; seem to happen in practice and it would complicate this + ;; code (and the before-change-function code even more). + ;; But maybe it would be useful in "degenerate" cases such + ;; as when the whole file is wrapped in a set + ;; of parentheses. + (setq pt-min (or (syntax-ppss-toplevel-pos old-ppss) (nth 2 old-ppss))) (<= pt-min pos) (< (- pos pt-min) syntax-ppss-max-span)) (incf (car (aref syntax-ppss-stats 1))) diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el index ac3ef55d6e4..d3dae72d13e 100644 --- a/lisp/emulation/viper-cmd.el +++ b/lisp/emulation/viper-cmd.el @@ -171,7 +171,9 @@ (run-hook-with-args 'viper-before-change-functions beg end)) (defsubst viper-post-command-sentinel () - (run-hooks 'viper-post-command-hooks) + (condition-case conds + (run-hooks 'viper-post-command-hooks) + (error (viper-message-conditions conds))) (if (eq viper-current-state 'vi-state) (viper-restore-cursor-color 'after-insert-mode))) @@ -926,8 +928,7 @@ Vi's prefix argument will be used. Otherwise, the prefix argument passed to (condition-case nil (let (viper-vi-kbd-minor-mode) ; execute without kbd macros - (setq result (eval form)) - ) + (setq result (eval form))) (error (signal 'quit nil))) @@ -1971,9 +1972,16 @@ Undo previous insertion and inserts new." (if (and (eobp) (not (bolp)) require-final-newline + ;; add newline only if we actually edited buffer. otherwise it + ;; might unintentionally modify binary buffers + (buffer-modified-p) (not (viper-is-in-minibuffer)) (not buffer-read-only)) - (insert "\n"))) + ;; text property may be read-only + (condition-case nil + (insert "\n") + (error nil)) + )) )) (defun viper-yank-defun () diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog index c8c1cb56b54..b356f83b0b2 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog @@ -1,4 +1,4 @@ -2006-12-13 Leo <sdl.web@gmail.com> +2006-12-13 Leo <sdl.web@gmail.com> (tiny change) * erc.el (erc-iswitchb): Temporarily enable iswitchb mode if it isn't active already, instead of leaving it on. diff --git a/lisp/files.el b/lisp/files.el index 141fe9f26c9..c462e5cce9d 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1876,6 +1876,16 @@ in that case, this function acts as if `enable-local-variables' were t." (if (fboundp 'ucs-set-table-for-input) ; don't lose when building (ucs-set-table-for-input))) +(defcustom auto-mode-case-fold nil + "Non-nil means to try second pass through `auto-mode-alist'. +This means that if the first case-sensitive search through the alist fails +to find a matching major mode, a second case-insensitive search is made. +On systems with case-insensitive file names, this variable is ignored, +since only a single case-insensitive search through the alist is made." + :group 'files + :version "22.1" + :type 'boolean) + (defvar auto-mode-alist ;; Note: The entries for the modes defined in cc-mode.el (c-mode, ;; c++-mode, java-mode and more) are added through autoload @@ -2115,7 +2125,8 @@ of the regular expression. The mode is then determined as the mode associated with that interpreter in `interpreter-mode-alist'.") (defvar magic-mode-alist - `(;; The < comes before the groups (but the first) to reduce backtracking. + `((image-type-auto-detected-p . image-mode) + ;; The < comes before the groups (but the first) to reduce backtracking. ;; TODO: UTF-16 <?xml may be preceded by a BOM 0xff 0xfe or 0xfe 0xff. ;; We use [ \t\n] instead of `\\s ' to make regex overflow less likely. (,(let* ((incomment-re "\\(?:[^-]\\|-[^-]\\)") @@ -2134,13 +2145,15 @@ associated with that interpreter in `interpreter-mode-alist'.") ("%![^V]" . ps-mode) ("# xmcd " . conf-unix-mode)) "Alist of buffer beginnings vs. corresponding major mode functions. -Each element looks like (REGEXP . FUNCTION). After visiting a file, -if REGEXP matches the text at the beginning of the buffer, -`normal-mode' will call FUNCTION rather than allowing `auto-mode-alist' -to decide the buffer's major mode. +Each element looks like (REGEXP . FUNCTION) or (MATCH-FUNCTION . FUNCTION). +After visiting a file, if REGEXP matches the text at the beginning of the +buffer, or calling MATCH-FUNCTION returns non-nil, `normal-mode' will +call FUNCTION rather than allowing `auto-mode-alist' to decide the buffer's +major mode. If FUNCTION is nil, then it is not called. (That is a way of saying \"allow `auto-mode-alist' to decide for these files.\")") +(put 'magic-mode-alist 'risky-local-variable t) (defvar magic-mode-regexp-match-limit 4000 "Upper limit on `magic-mode-alist' regexp matches.") @@ -2224,7 +2237,9 @@ only set the major mode, if that would change it." (+ (point-min) magic-mode-regexp-match-limit))) (assoc-default nil magic-mode-alist (lambda (re dummy) - (looking-at re)))))) + (if (functionp re) + (funcall re) + (looking-at re))))))) (set-auto-mode-0 done keep-mode-if-same) ;; Compare the filename against the entries in auto-mode-alist. (if buffer-file-name @@ -2233,15 +2248,29 @@ only set the major mode, if that would change it." (setq name (file-name-sans-versions name)) (while name ;; Find first matching alist entry. - (let ((case-fold-search - (memq system-type '(vax-vms windows-nt cygwin)))) - (if (and (setq mode (assoc-default name auto-mode-alist - 'string-match)) - (consp mode) - (cadr mode)) - (setq mode (car mode) - name (substring name 0 (match-beginning 0))) - (setq name))) + (setq mode + (if (memq system-type '(vax-vms windows-nt cygwin)) + ;; System is case-insensitive. + (let ((case-fold-search t)) + (assoc-default name auto-mode-alist + 'string-match)) + ;; System is case-sensitive. + (or + ;; First match case-sensitively. + (let ((case-fold-search nil)) + (assoc-default name auto-mode-alist + 'string-match)) + ;; Fallback to case-insensitive match. + (and auto-mode-case-fold + (let ((case-fold-search t)) + (assoc-default name auto-mode-alist + 'string-match)))))) + (if (and mode + (consp mode) + (cadr mode)) + (setq mode (car mode) + name (substring name 0 (match-beginning 0))) + (setq name)) (when mode (set-auto-mode-0 mode keep-mode-if-same))))))))) @@ -3026,7 +3055,7 @@ BACKUPNAME is the backup file name, which is the old file renamed." (convert-standard-filename "~/%backup%~"))) (message "Cannot write backup file; backing up in %s" - (file-name-nondirectory backupname)) + backupname) (sleep-for 1) (backup-buffer-copy real-file-name backupname modes))) (setq buffer-backed-up t) @@ -3222,16 +3251,24 @@ doesn't exist, it is created." (defun make-backup-file-name-1 (file) "Subroutine of `make-backup-file-name' and `find-backup-file-name'." (let ((alist backup-directory-alist) - elt backup-directory) + elt backup-directory abs-backup-directory) (while alist (setq elt (pop alist)) (if (string-match (car elt) file) (setq backup-directory (cdr elt) alist nil))) - (if (and backup-directory (not (file-exists-p backup-directory))) + ;; If backup-directory is relative, it should be relative to the + ;; file's directory. By expanding explicitly here, we avoid + ;; depending on default-directory. + (if backup-directory + (setq abs-backup-directory + (expand-file-name backup-directory + (file-name-directory file)))) + (if (and abs-backup-directory (not (file-exists-p abs-backup-directory))) (condition-case nil - (make-directory backup-directory 'parents) - (file-error (setq backup-directory nil)))) + (make-directory abs-backup-directory 'parents) + (file-error (setq backup-directory nil + abs-backup-directory nil)))) (if (null backup-directory) file (if (file-name-absolute-p backup-directory) @@ -3262,9 +3299,7 @@ doesn't exist, it is created." (replace-regexp-in-string "!" "!!" file)) backup-directory)) (expand-file-name (file-name-nondirectory file) - (file-name-as-directory - (expand-file-name backup-directory - (file-name-directory file)))))))) + (file-name-as-directory abs-backup-directory)))))) (defun backup-file-name-p (file) "Return non-nil if FILE is a backup file name (numeric or not). diff --git a/lisp/forms-d2.el b/lisp/forms-d2.el index 63b47fc028d..883cfe14d7c 100644 --- a/lisp/forms-d2.el +++ b/lisp/forms-d2.el @@ -1,5 +1,8 @@ ;;; forms-d2.el --- demo forms-mode -*- no-byte-compile: t -*- +;; Copyright (C) 1991, 1994, 1995, 1996, 1997, 2001, 2002, 2003, +;; 2004, 2005, 2006 Free Software Foundation, Inc. + ;; Author: Johan Vromans <jvromans@squirrel.nl> ;; Created: 1989 diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 047bac04076..b6b8b1b9bac 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,63 @@ +2006-12-30 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de> + + * gnus-sum.el (gnus-summary-insert-dormant-articles): Fix typo in + message. + +2006-12-29 Jouni K. Sepp,Ad(Bnen <jks@iki.fi> + + * nnimap.el (nnimap-expunge-search-string): Mention + nnimap-search-uids-not-since-is-evil in docstring. + +2006-12-28 Reiner Steib <Reiner.Steib@gmx.de> + + * spam.el: Revert to make-obsolete-variable because + define-obsolete-variable-alias is not supported in Emacs 21. + +2006-12-28 Daiki Ueno <ueno@unixuser.org> + + * gnus-sum.el (gnus-summary-next-article): Make sure we are in the + summary buffer. + +2006-12-27 Reiner Steib <Reiner.Steib@gmx.de> + + * spam.el (spam-ifile-path, spam-ifile-database-path) + (spam-bogofilter-path): Use define-obsolete-variable-alias instead of + make-obsolete-variable. + +2006-12-26 Reiner Steib <Reiner.Steib@gmx.de> + + * message.el (message-make-fqdn): Fix comment. + (message-bogus-system-names): Add ".local". + + * spam.el (spam-ifile-path, spam-ifile-program) + (spam-ifile-database-path, spam-ifile-database) + (spam-bogofilter-path, spam-bogofilter-program): Rename variables. + Don't use "path" inappropriately. + (spam-spamoracle-database, spam-get-ifile-database-parameter): Fix doc + strings. + (spam-check-ifile, spam-ifile-register-with-ifile) + (spam-check-bogofilter, spam-bogofilter-register-with-bogofilter): Use + new variable names. + + * gnus-art.el (gnus-treat-display-x-face, gnus-treat-display-face) + (gnus-treat-display-smileys): Simplify using + gnus-image-type-available-p. + + * gnus-ems.el (gnus-image-type-available-p): Use display-images-p if + available. + +2006-12-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * nnrss.el (nnrss-fetch): Replace buffer's contents with the decoded + one after turning on the buffer's multibyteness instead of decoding + them directly in the unibyte buffer that causes unexpected conversion + in Emacs 23 (unicode). + +2006-12-20 Reiner Steib <Reiner.Steib@gmx.de> + + * gnus-group.el (gnus-group-tool-bar-gnome): Exchange connect and + disconnect icons. Add help text. + 2006-12-13 Reiner Steib <Reiner.Steib@gmx.de> * legacy-gnus-agent.el: Add Copyright notice. @@ -20,7 +80,7 @@ * gnus-sum.el (gnus-sort-threads, gnus-summary-limit-children): Use `max' to avoid the value of `max-lisp-eval-depth' decreasing. -2006-12-04 Jouni K. Sepp,Ad(Bnen <jks@iki.fi> (tiny change) +2006-12-04 Jouni K. Sepp,Ad(Bnen <jks@iki.fi> * mm-url.el (mm-url-predefined-programs): Call curl with correct options. @@ -1649,7 +1709,7 @@ whitespace removed in revision 7.8. Use concatenated string to protect trailing whitespace. -2005-10-27 Jouni K Seppanen <jks@iki.fi> (tiny change) +2005-10-27 Jouni K. Sepp,Ad(Bnen <jks@iki.fi> * nnimap.el (nnimap-search-uids-not-since-is-evil): Add variable. (nnimap-request-expire-articles): Use it to avoid sending 'UID diff --git a/lisp/gnus/deuglify.el b/lisp/gnus/deuglify.el index 404aebbd921..53439d17091 100644 --- a/lisp/gnus/deuglify.el +++ b/lisp/gnus/deuglify.el @@ -1,7 +1,7 @@ ;;; deuglify.el --- deuglify broken Outlook (Express) articles -;; Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. -;; Copyright (C) 2001, 2002 Raymond Scholz +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 +;; Free Software Foundation, Inc. ;; Author: Raymond Scholz <rscholz@zonix.de> ;; Thomas Steffen (unwrapping algorithm, diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index cdb3c8950cc..9160f6f5002 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -1325,12 +1325,11 @@ See Info node `(gnus)Customizing Articles' for details." (defcustom gnus-treat-display-x-face (and (not noninteractive) - (or (and (fboundp 'image-type-available-p) - (image-type-available-p 'xbm) - (string-match "^0x" (shell-command-to-string "uncompface")) - (executable-find "icontopbm")) - (and (featurep 'xemacs) - (featurep 'xface))) + (gnus-image-type-available-p 'xbm) + (if (featurep 'xemacs) + (featurep 'xface) + (and (string-match "^0x" (shell-command-to-string "uncompface")) + (executable-find "icontopbm"))) 'head) "Display X-Face headers. Valid values are nil, t, `head', `last', an integer or a predicate. @@ -1362,10 +1361,7 @@ See Info node `(gnus)Customizing Articles' and Info node (defcustom gnus-treat-display-face (and (not noninteractive) - (or (and (fboundp 'image-type-available-p) - (image-type-available-p 'png)) - (and (featurep 'xemacs) - (featurep 'png))) + (gnus-image-type-available-p 'png) 'head) "Display Face headers. Valid values are nil, t, `head', `last', an integer or a predicate. @@ -1378,12 +1374,7 @@ See Info node `(gnus)Customizing Articles' and Info node :type gnus-article-treat-head-custom) (put 'gnus-treat-display-face 'highlight t) -(defcustom gnus-treat-display-smileys - (if (or (and (featurep 'xemacs) - (featurep 'xpm)) - (and (fboundp 'image-type-available-p) - (image-type-available-p 'pbm))) - t nil) +(defcustom gnus-treat-display-smileys (gnus-image-type-available-p 'xpm) "Display smileys. Valid values are nil, t, `head', `last', an integer or a predicate. See Info node `(gnus)Customizing Articles' and Info node diff --git a/lisp/gnus/gnus-diary.el b/lisp/gnus/gnus-diary.el index bc2f096fd70..06d3d530df7 100644 --- a/lisp/gnus/gnus-diary.el +++ b/lisp/gnus/gnus-diary.el @@ -1,7 +1,7 @@ ;;; gnus-diary.el --- Wrapper around the NNDiary Gnus backend -;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. -;; Copyright (C) 1999, 2000, 2001 Didier Verna. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, +;; 2006 Free Software Foundation, Inc. ;; Author: Didier Verna <didier@xemacs.org> ;; Maintainer: Didier Verna <didier@xemacs.org> diff --git a/lisp/gnus/gnus-ems.el b/lisp/gnus/gnus-ems.el index 44f84237a4b..73bcf09f360 100644 --- a/lisp/gnus/gnus-ems.el +++ b/lisp/gnus/gnus-ems.el @@ -211,7 +211,10 @@ (defun gnus-image-type-available-p (type) (and (fboundp 'image-type-available-p) - (image-type-available-p type))) + (image-type-available-p type) + (if (fboundp 'display-images-p) + (display-images-p) + t))) (defun gnus-create-image (file &optional type data-p &rest props) (let ((face (plist-get props :face))) diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index f004a043834..3fe8d71f512 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -1018,9 +1018,11 @@ Pre-defined symbols include `gnus-group-tool-bar-gnome' and '((gnus-group-post-news "mail/compose") ;; Some useful agent icons? I don't use the agent so agent users should ;; suggest useful commands: - (gnus-agent-toggle-plugged "connect" t - :visible (and gnus-agent (not gnus-plugged))) (gnus-agent-toggle-plugged "disconnect" t + :help "Gnus is currently unplugged. Click to work online." + :visible (and gnus-agent (not gnus-plugged))) + (gnus-agent-toggle-plugged "connect" t + :help "Gnus is currently plugged. Click to work offline." :visible (and gnus-agent gnus-plugged)) ;; FIXME: gnus-agent-toggle-plugged (in gnus-agent-group-make-menu-bar) ;; should have a better help text. diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 29e0067bf9b..54745511129 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -7333,6 +7333,9 @@ If UNREAD, only unread articles are selected. If SUBJECT, only articles with SUBJECT are selected. If BACKWARD, the previous article is selected instead of the next." (interactive "P") + ;; Make sure we are in the summary buffer. + (unless (eq major-mode 'gnus-summary-mode) + (set-buffer gnus-summary-buffer)) (cond ;; Is there such an article? ((and (gnus-summary-search-forward unread subject backward) @@ -7987,7 +7990,7 @@ article." (interactive) (let ((gnus-verbose (max 6 gnus-verbose))) (if (not gnus-newsgroup-dormant) - (gnus-message 3 "No cached articles for this group") + (gnus-message 3 "No dormant articles for this group") (gnus-summary-goto-subjects gnus-newsgroup-dormant)))) (defun gnus-summary-limit-include-dormant () diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index a3d0298ce0e..f7d876c120f 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -1579,7 +1579,7 @@ functionality to work." (defvar message-send-mail-real-function nil "Internal send mail function.") -(defvar message-bogus-system-names "^localhost\\." +(defvar message-bogus-system-names "^localhost\\.\\|\\.local$" "The regexp of bogus system names.") (defcustom message-valid-fqdn-regexp @@ -5000,8 +5000,8 @@ give as trustworthy answer as possible." (stringp message-user-fqdn) (string-match message-valid-fqdn-regexp message-user-fqdn) (not (string-match message-bogus-system-names message-user-fqdn))) + ;; `message-user-fqdn' seems to be valid message-user-fqdn) - ;; `message-user-fqdn' seems to be valid ((and (string-match message-valid-fqdn-regexp system-name) (not (string-match message-bogus-system-names system-name))) ;; `system-name' returned the right result. diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index bada9da6891..5c0777531c5 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el @@ -375,7 +375,10 @@ and the second %s is replaced by a date criterium. One useful (and perhaps the only useful) value to change this to would be `UID %s NOT SENTSINCE %s' to make nnimap use the Date: header instead of the internal date of messages. See section 6.4.4 of RFC -2060 for more information on valid strings.") +2060 for more information on valid strings. + +However, if `nnimap-search-uids-not-since-is-evil' is true, this +variable has no effect since the search logic is reversed.") (defvoo nnimap-importantize-dormant t "If non-nil, mark \"dormant\" articles as \"ticked\" for other IMAP clients. diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el index 318560179f5..f21fd74d138 100644 --- a/lisp/gnus/nnrss.el +++ b/lisp/gnus/nnrss.el @@ -418,8 +418,10 @@ otherwise return nil." (nnheader-remove-cr-followed-by-lf) ;; Decode text according to the encoding attribute. (when (setq cs (nnrss-get-encoding)) - (mm-decode-coding-region (point-min) (point-max) cs) - (mm-enable-multibyte)) + (insert (prog1 + (mm-decode-coding-string (buffer-string) cs) + (erase-buffer) + (mm-enable-multibyte)))) (goto-char (point-min)) ;; Because xml-parse-region can't deal with anything that isn't diff --git a/lisp/gnus/spam.el b/lisp/gnus/spam.el index 047035536f2..589b2b0a619 100644 --- a/lisp/gnus/spam.el +++ b/lisp/gnus/spam.el @@ -351,14 +351,18 @@ All unmarked article in such group receive the spam mark on group entry." "Spam ifile configuration." :group 'spam) -(defcustom spam-ifile-path (executable-find "ifile") - "File path of the ifile executable program." +(make-obsolete-variable 'spam-ifile-path 'spam-ifile-program) +;; "22.1" ;; Gnus 5.10.9 +(defcustom spam-ifile-program (executable-find "ifile") + "Name of the ifile program." :type '(choice (file :tag "Location of ifile") (const :tag "ifile is not installed")) :group 'spam-ifile) -(defcustom spam-ifile-database-path nil - "File path of the ifile database." +(make-obsolete-variable 'spam-ifile-database-path 'spam-ifile-database) +;; "22.1" ;; Gnus 5.10.9 +(defcustom spam-ifile-database nil + "File name of the ifile database." :type '(choice (file :tag "Location of the ifile database") (const :tag "Use the default")) :group 'spam-ifile) @@ -386,8 +390,10 @@ your main source of newsgroup names." "Spam bogofilter configuration." :group 'spam) -(defcustom spam-bogofilter-path (executable-find "bogofilter") - "File path of the Bogofilter executable program." +(make-obsolete-variable 'spam-bogofilter-path 'spam-bogofilter-program) +;; "22.1" ;; Gnus 5.10.9 +(defcustom spam-bogofilter-program (executable-find "bogofilter") + "Name of the Bogofilter program." :type '(choice (file :tag "Location of bogofilter") (const :tag "Bogofilter is not installed")) :group 'spam-bogofilter) @@ -423,7 +429,8 @@ your main source of newsgroup names." :group 'spam-bogofilter) (defcustom spam-bogofilter-database-directory nil - "Directory path of the Bogofilter databases." + "Location of the Bogofilter database. +When nil, use the default location." :type '(choice (directory :tag "Location of the Bogofilter database directory") (const :tag "Use the default")) @@ -434,8 +441,8 @@ your main source of newsgroup names." :group 'spam) (defcustom spam-spamoracle-database nil - "Location of spamoracle database file. When nil, use the default -spamoracle database." + "Location of spamoracle database file. +When nil, use the default spamoracle database." :type '(choice (directory :tag "Location of spamoracle database file.") (const :tag "Use the default")) :group 'spam-spamoracle) @@ -1370,11 +1377,12 @@ functions") ;;; check the ifile backend; return nil if the mail was NOT classified ;;; as spam + (defun spam-get-ifile-database-parameter () - "Get the command-line parameter for ifile's database from - spam-ifile-database-path." - (if spam-ifile-database-path - (format "--db-file=%s" spam-ifile-database-path) + "Return the command-line parameter for ifile's database. +See `spam-ifile-database'." + (if spam-ifile-database + (format "--db-file=%s" spam-ifile-database) nil)) (defun spam-check-ifile () @@ -1390,7 +1398,7 @@ functions") (save-excursion (set-buffer article-buffer-name) (apply 'call-process-region - (point-min) (point-max) spam-ifile-path + (point-min) (point-max) spam-ifile-program nil temp-buffer-name nil "-c" (if db-param `(,db-param "-q") `("-q")))) ;; check the return now (we're back in the temp buffer) @@ -1418,7 +1426,7 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)." (when (stringp article-string) (insert article-string)))) (apply 'call-process-region - (point-min) (point-max) spam-ifile-path + (point-min) (point-max) spam-ifile-program nil nil nil add-or-delete-option category (if db `(,db "-h") `("-h")))))) @@ -1702,7 +1710,7 @@ REMOVE not nil, remove the ADDRESSES." (set-buffer article-buffer-name) (apply 'call-process-region (point-min) (point-max) - spam-bogofilter-path + spam-bogofilter-program nil temp-buffer-name nil (if db `("-d" ,db "-v") `("-v")))) (setq return (spam-check-bogofilter-headers score)))) @@ -1728,7 +1736,7 @@ REMOVE not nil, remove the ADDRESSES." (apply 'call-process-region (point-min) (point-max) - spam-bogofilter-path + spam-bogofilter-program nil nil nil switch (if db `("-d" ,db "-v") `("-v")))))))) diff --git a/lisp/help-fns.el b/lisp/help-fns.el index e4d77e3447c..740504c95a6 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -575,8 +575,11 @@ it is displayed along with the global value." (documentation-property alias 'variable-documentation)))) (unless (eq alias variable) (princ (format "\nThis variable is an alias for `%s'.\n" alias))) + (if (or obsolete safe-var) + (terpri)) + (when obsolete - (princ "\nThis variable is obsolete") + (princ "This variable is obsolete") (if (cdr obsolete) (princ (format " since %s" (cdr obsolete)))) (princ ";") (terpri) (princ (if (stringp (car obsolete)) (car obsolete) @@ -587,9 +590,8 @@ it is displayed along with the global value." (princ "if its value\nsatisfies the predicate ") (princ (if (byte-code-function-p safe-var) "which is byte-compiled expression.\n" - (format "`%s'.\n" safe-var))) - (terpri)) - (princ "Documentation:\n") + (format "`%s'.\n" safe-var)))) + (princ "\nDocumentation:\n") (princ (or doc "Not documented as a variable."))) ;; Make a link to customize if this variable can be customized. (if (custom-variable-p variable) diff --git a/lisp/ido.el b/lisp/ido.el index 796c377571c..e02028e526c 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -1046,6 +1046,9 @@ so that it doesn't interfere with other minibuffer usage.") ;; Stores the current ido item type ('file, 'dir, 'buffer, or 'list). (defvar ido-cur-item) +;;; Stores the current default item +(defvar ido-default-item) + ;; Stores the current list of items that will be searched through. ;; The list is ordered, so that the most interesting item comes first, ;; although by default, the files visible in the current frame are put @@ -2589,7 +2592,9 @@ C-x C-f ... C-d enter dired on current directory." "Toggle ignoring files specified with `ido-ignore-files'." (interactive) (if ido-directory-too-big - (setq ido-directory-too-big nil) + (progn + (message "Reading directory...") + (setq ido-directory-too-big nil)) (setq ido-process-ignore-lists (not ido-process-ignore-lists))) (setq ido-text-init ido-text) (setq ido-exit 'refresh) @@ -3577,6 +3582,11 @@ for first matching file." (/= (aref name 0) ?.))) (string-match re name)) (cond + ((and (eq ido-cur-item 'buffer) + (or (not (stringp ido-default-item)) + (not (string= name ido-default-item))) + (string= name (buffer-name ido-entry-buffer))) + (setq matches (cons item matches))) ((and full-re (string-match full-re name)) (setq full-matches (cons item full-matches))) ((and suffix-re (string-match suffix-re name)) @@ -3729,7 +3739,8 @@ for first matching file." (set-buffer temp-buf) (setq win (get-buffer-window temp-buf)) (if (pos-visible-in-window-p (point-max) win) - (if (or ido-completion-buffer-all-completions (boundp 'ido-completion-buffer-full)) + (if (or ido-completion-buffer-all-completions + (boundp 'ido-completion-buffer-full)) (set-window-start win (point-min)) (with-no-warnings (set (make-local-variable 'ido-completion-buffer-full) t)) @@ -3742,6 +3753,14 @@ for first matching file." (with-output-to-temp-buffer ido-completion-buffer (let ((completion-list (sort (cond + (ido-directory-too-big + (message "Reading directory...") + (setq ido-directory-too-big nil + ido-ignored-list nil + ido-cur-list (ido-all-completions) + ido-rescan t) + (ido-set-matches) + (or ido-matches ido-cur-list)) (ido-use-merged-list (ido-flatten-merged-list (or ido-matches ido-cur-list))) ((or full-list ido-completion-buffer-all-completions) diff --git a/lisp/image.el b/lisp/image.el index b388396ded7..e70b9ec539e 100644 --- a/lisp/image.el +++ b/lisp/image.el @@ -35,11 +35,11 @@ (defconst image-type-header-regexps '(("\\`/[\t\n\r ]*\\*.*XPM.\\*/" . xpm) - ("\\`P[1-6]" . pbm) + ("\\`P[1-6][[:space:]]+\\(?:#.*[[:space:]]+\\)*[0-9]+[[:space:]]+[0-9]+" . pbm) ("\\`GIF8" . gif) - ("\\`\211PNG\r\n" . png) + ("\\`\x89PNG\r\n\x1a\n" . png) ("\\`[\t\n\r ]*#define" . xbm) - ("\\`\\(MM\0\\*\\|II\\*\0\\)" . tiff) + ("\\`\\(?:MM\0\\*\\|II\\*\0\\)" . tiff) ("\\`[\t\n\r ]*%!PS" . postscript) ("\\`\xff\xd8" . (image-jpeg-p . jpeg))) "Alist of (REGEXP . IMAGE-TYPE) pairs used to auto-detect image types. @@ -63,6 +63,24 @@ a non-nil value, TYPE is the image's type.") When the name of an image file match REGEXP, it is assumed to be of image type IMAGE-TYPE.") +(defvar image-type-auto-detectable + '((pbm . t) + (xbm . t) + (bmp . maybe) + (gif . maybe) + (png . maybe) + (xpm . maybe) + (jpeg . maybe) + (tiff . maybe) + (postscript . nil)) + "Alist of (IMAGE-TYPE . AUTODETECT) pairs used to auto-detect image files. +\(See `image-type-auto-detected-p'). + +AUTODETECT can be + - t always auto-detect. + - nil never auto-detect. + - maybe auto-detect only if the image type is available + (see `image-type-available-p').") (defvar image-load-path nil "List of locations in which to search for image files. @@ -308,6 +326,7 @@ Optional DATA-P non-nil means FILE-OR-DATA is a string containing image data." (error "Invalid image type `%s'" type)) type) + ;;;###autoload (defun image-type-available-p (type) "Return non-nil if image type TYPE is available. @@ -317,6 +336,20 @@ Image types are symbols like `xbm' or `jpeg'." ;;;###autoload +(defun image-type-auto-detected-p () + "Return t iff the current buffer contains an auto-detectable image. +Whether image types are auto-detectable or not depends on the setting +of the variable `image-type-auto-detectable'. + +This function is intended to be used from `magic-mode-alist' (which see)." + (let* ((type (image-type-from-buffer)) + (auto (and type (cdr (assq type image-type-auto-detectable))))) + (and auto + (or (eq auto t) + (image-type-available-p type))))) + + +;;;###autoload (defun create-image (file-or-data &optional type data-p &rest props) "Create an image. FILE-OR-DATA is an image file name or image data. diff --git a/lisp/indent.el b/lisp/indent.el index 38b509b849c..6f715fdba64 100644 --- a/lisp/indent.el +++ b/lisp/indent.el @@ -50,7 +50,9 @@ Don't rebind TAB unless you really need to.") "*Controls the operation of the TAB key. If t, hitting TAB always just indents the current line. If nil, hitting TAB indents the current line if point is at the left margin - or in the line's indentation, otherwise it insert a \"real\" tab character." +or in the line's indentation, otherwise it insert a \"real\" TAB character. +Most programming language modes have their own variable to control this, +e.g., `c-tab-always-indent', and do not respect this variable." :group 'indent :type '(choice (const nil) (const t) (const always))) diff --git a/lisp/info.el b/lisp/info.el index 8b0558d898e..237ca7a968e 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -145,7 +145,7 @@ The Lisp code is executed when the node is selected.") :type 'boolean :group 'info) -(defcustom Info-fontify-maximum-menu-size 100000 +(defcustom Info-fontify-maximum-menu-size 1000000 "*Maximum size of menu to fontify if `font-lock-mode' is non-nil." :type 'integer :group 'info) @@ -1551,6 +1551,8 @@ PATH-AND-SUFFIXES is a pair of lists, (DIRECTORIES . SUFFIXES)." (node-regexp "Node: *\\([^,\n]*\\) *[,\n\t]")) (save-excursion (save-restriction + (or Info-tag-table-marker + (error "No Info tags found")) (if (marker-buffer Info-tag-table-marker) (let ((marker Info-tag-table-marker)) (set-buffer (marker-buffer marker)) @@ -3938,7 +3940,6 @@ the variable `Info-file-list-for-emacs'." (goto-char (point-min)) (when (and (or not-fontified-p fontify-visited-p) (search-forward "\n* Menu:" nil t) - (not (Info-index-node)) ;; Don't take time to annotate huge menus (< (- (point-max) (point)) Info-fontify-maximum-menu-size)) (let ((n 0) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index fbdc0467f00..6c7500ce950 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -719,18 +719,18 @@ DEFAULT is the coding system to use by default in the query." (insert "\n") (fill-region-as-paragraph pos (point))) (when rejected - (insert "These safely encodes the target text, -but it is not recommended for encoding text in this context, + (insert "These safely encode the text in the buffer, +but are not recommended for encoding text in this context, e.g., for sending an email message.\n ") (dolist (x rejected) (princ " ") (princ x)) (insert "\n")) (when unsafe - (insert (if rejected "And the others" + (insert (if rejected "The other coding systems" "However, each of them") - " encountered these problematic characters:\n") + " encountered characters it couldn't encode:\n") (dolist (coding unsafe) - (insert (format " %s:" (car coding))) + (insert (format " %s cannot encode these:" (car coding))) (let ((i 0) (func1 #'(lambda (bufname pos) @@ -754,6 +754,7 @@ e.g., for sending an email message.\n ") (insert-text-button (cdr elt) :type 'help-xref + 'face 'link 'help-echo "mouse-2, RET: jump to this character" 'help-function func1 @@ -761,6 +762,7 @@ e.g., for sending an email message.\n ") (insert-text-button "..." :type 'help-xref + 'face 'link 'help-echo "mouse-2, RET: next unencodable character" 'help-function func2 @@ -769,19 +771,22 @@ e.g., for sending an email message.\n ") (setq i (1+ i)))) (insert "\n")) (insert "\ -The first problematic character is at point in the displayed buffer,\n" + +Click on a character to jump to the place it appears,\n" (substitute-command-keys "\ -and \\[universal-argument] \\[what-cursor-position] will give information about it.\n")))) - (insert "\nSelect \ -one of the following safe coding systems, or edit the buffer:\n") +where `\\[universal-argument] \\[what-cursor-position]' will give information about it.\n")))) + (insert (substitute-command-keys "\nSelect \ +one of the safe coding systems listed below,\n\ +or cancel the writing with \\[keyboard-quit] and edit the buffer\n\ + to remove or modify the problematic characters,\n\ +or specify any other coding system (and risk losing\n\ + the problematic characters).\n\n")) (let ((pos (point)) (fill-prefix " ")) (dolist (x codings) (princ " ") (princ x)) (insert "\n") - (fill-region-as-paragraph pos (point))) - (insert "Or specify any other coding system -at the risk of losing the problematic characters.\n"))) + (fill-region-as-paragraph pos (point))))) ;; Read a coding system. (setq coding-system diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index 6f09c649d25..277e647d16f 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el @@ -4,7 +4,7 @@ ;;;### (autoloads (5x5-crack 5x5-crack-xor-mutate 5x5-crack-mutating-best ;;;;;; 5x5-crack-mutating-current 5x5-crack-randomly 5x5) "5x5" -;;;;;; "play/5x5.el" (17504 41540)) +;;;;;; "play/5x5.el" (17786 56015)) ;;; Generated autoloads from play/5x5.el (autoload (quote 5x5) "5x5" "\ @@ -63,14 +63,14 @@ should return a grid vector array that is the new solution. ;;;*** -;;;### (autoloads nil "abbrev" "abbrev.el" (17504 41540)) +;;;### (autoloads nil "abbrev" "abbrev.el" (17781 39501)) ;;; Generated autoloads from abbrev.el (put 'abbrev-mode 'safe-local-variable 'booleanp) ;;;*** ;;;### (autoloads (list-one-abbrev-table) "abbrevlist" "abbrevlist.el" -;;;;;; (17504 41540)) +;;;;;; (17781 39501)) ;;; Generated autoloads from abbrevlist.el (autoload (quote list-one-abbrev-table) "abbrevlist" "\ @@ -81,7 +81,7 @@ Display alphabetical listing of ABBREV-TABLE in buffer OUTPUT-BUFFER. ;;;*** ;;;### (autoloads (ada-mode ada-add-extensions) "ada-mode" "progmodes/ada-mode.el" -;;;;;; (17759 28871)) +;;;;;; (17770 2412)) ;;; Generated autoloads from progmodes/ada-mode.el (autoload (quote ada-add-extensions) "ada-mode" "\ @@ -142,7 +142,7 @@ If you use ada-xref.el: ;;;*** ;;;### (autoloads (ada-header) "ada-stmt" "progmodes/ada-stmt.el" -;;;;;; (17759 28871)) +;;;;;; (17751 22876)) ;;; Generated autoloads from progmodes/ada-stmt.el (autoload (quote ada-header) "ada-stmt" "\ @@ -153,7 +153,7 @@ Insert a descriptive header at the top of the file. ;;;*** ;;;### (autoloads (ada-find-file) "ada-xref" "progmodes/ada-xref.el" -;;;;;; (17759 28871)) +;;;;;; (17780 18172)) ;;; Generated autoloads from progmodes/ada-xref.el (autoload (quote ada-find-file) "ada-xref" "\ @@ -168,7 +168,7 @@ Completion is available. ;;;;;; change-log-mode add-change-log-entry-other-window add-change-log-entry ;;;;;; find-change-log prompt-for-change-log-name add-log-mailing-address ;;;;;; add-log-full-name add-log-current-defun-function) "add-log" -;;;;;; "add-log.el" (17746 34860)) +;;;;;; "add-log.el" (17781 39501)) ;;; Generated autoloads from add-log.el (defvar add-log-current-defun-function nil "\ @@ -306,7 +306,7 @@ Fix any old-style date entries in the current log file to default format. ;;;### (autoloads (defadvice ad-activate ad-add-advice ad-disable-advice ;;;;;; ad-enable-advice ad-default-compilation-action ad-redefinition-action) -;;;;;; "advice" "emacs-lisp/advice.el" (17701 49518)) +;;;;;; "advice" "emacs-lisp/advice.el" (17785 34467)) ;;; Generated autoloads from emacs-lisp/advice.el (defvar ad-redefinition-action (quote warn) "\ @@ -434,7 +434,7 @@ See Info node `(elisp)Advising Functions' for comprehensive documentation. ;;;### (autoloads (align-newline-and-indent align-unhighlight-rule ;;;;;; align-highlight-rule align-current align-entire align-regexp -;;;;;; align) "align" "align.el" (17504 41540)) +;;;;;; align) "align" "align.el" (17794 48602)) ;;; Generated autoloads from align.el (autoload (quote align) "align" "\ @@ -524,7 +524,7 @@ A replacement function for `newline-and-indent', aligning as it goes. ;;;*** ;;;### (autoloads (outlineify-sticky allout-mode) "allout" "allout.el" -;;;;;; (17759 28868)) +;;;;;; (17780 18171)) ;;; Generated autoloads from allout.el (put (quote allout-show-bodies) (quote safe-local-variable) (if (fboundp (quote booleanp)) (quote booleanp) (quote (lambda (x) (member x (quote (t nil))))))) @@ -573,88 +573,107 @@ accommodating syntax-sensitive text like programming languages. (For an example, see the allout code itself, which is organized as an allout outline.) -In addition to outline navigation and exposure, allout includes: +In addition to typical outline navigation and exposure, allout includes: - - topic-oriented repositioning, promotion/demotion, cut, and paste - - integral outline exposure-layout + - topic-oriented authoring, including keystroke-based topic creation, + repositioning, promotion/demotion, cut, and paste - incremental search with dynamic exposure and reconcealment of hidden text - - automatic topic-number maintenance + - adjustable format, so programming code can be developed in outline-structure - easy topic encryption and decryption - - \"Hot-spot\" operation, for single-keystroke maneuvering and - exposure control. (See the allout-mode docstring.) + - \"Hot-spot\" operation, for single-keystroke maneuvering and exposure control + - integral outline layout, for automatic initial exposure when visiting a file + - independent extensibility, using comprehensive exposure and authoring hooks and many other features. -Below is a description of the bindings, and then explanation of +Below is a description of the key bindings, and then explanation of special `allout-mode' features and terminology. See also the outline menubar additions for quick reference to many of the features, and see the docstring of the function `allout-init' for instructions on priming your emacs session for automatic activation of `allout-mode'. - -The bindings are dictated by the `allout-keybindings-list' and -`allout-command-prefix' variables. - - Navigation: Exposure Control: - ---------- ---------------- -\\[allout-next-visible-heading] allout-next-visible-heading | \\[allout-hide-current-subtree] allout-hide-current-subtree -\\[allout-previous-visible-heading] allout-previous-visible-heading | \\[allout-show-children] allout-show-children -\\[allout-up-current-level] allout-up-current-level | \\[allout-show-current-subtree] allout-show-current-subtree -\\[allout-forward-current-level] allout-forward-current-level | \\[allout-show-current-entry] allout-show-current-entry -\\[allout-backward-current-level] allout-backward-current-level | \\[allout-show-all] allout-show-all -\\[allout-end-of-entry] allout-end-of-entry -\\[allout-beginning-of-current-entry] allout-beginning-of-current-entry, alternately, goes to hot-spot - - Topic Header Production: - ----------------------- -\\[allout-open-sibtopic] allout-open-sibtopic Create a new sibling after current topic. -\\[allout-open-subtopic] allout-open-subtopic ... an offspring of current topic. -\\[allout-open-supertopic] allout-open-supertopic ... a sibling of the current topic's parent. - - Topic Level and Prefix Adjustment: - --------------------------------- -\\[allout-shift-in] allout-shift-in Shift current topic and all offspring deeper. -\\[allout-shift-out] allout-shift-out ... less deep. -\\[allout-rebullet-current-heading] allout-rebullet-current-heading Prompt for alternate bullet for - current topic. -\\[allout-rebullet-topic] allout-rebullet-topic Reconcile bullets of topic and its offspring - - distinctive bullets are not changed, others - alternated according to nesting depth. -\\[allout-number-siblings] allout-number-siblings Number bullets of topic and siblings - the - offspring are not affected. With repeat - count, revoke numbering. - - Topic-oriented Killing and Yanking: - ---------------------------------- -\\[allout-kill-topic] allout-kill-topic Kill current topic, including offspring. -\\[allout-copy-topic-as-kill] allout-copy-topic-as-kill Copy current topic, including offspring. -\\[allout-kill-line] allout-kill-line kill-line, attending to outline structure. -\\[allout-copy-line-as-kill] allout-copy-line-as-kill Copy line but don't delete it. -\\[allout-yank] allout-yank Yank, adjusting depth of yanked topic to - depth of heading if yanking into bare topic - heading (ie, prefix sans text). -\\[allout-yank-pop] allout-yank-pop Is to allout-yank as yank-pop is to yank - - Topic-oriented Encryption: - ------------------------- -\\[allout-toggle-current-subtree-encryption] allout-toggle-current-subtree-encryption Encrypt/Decrypt topic content - - Misc commands: - ------------- -M-x outlineify-sticky Activate outline mode for current buffer, - and establish a default file-var setting - for `allout-layout'. -\\[allout-mark-topic] allout-mark-topic -\\[allout-copy-exposed-to-buffer] allout-copy-exposed-to-buffer - Duplicate outline, sans concealed text, to - buffer with name derived from derived from that - of current buffer - \"*BUFFERNAME exposed*\". -\\[allout-flatten-exposed-to-buffer] allout-flatten-exposed-to-buffer - Like above 'copy-exposed', but convert topic - prefixes to section.subsection... numeric - format. -\\[eval-expression] (allout-init t) Setup Emacs session for outline mode - auto-activation. +The bindings are dictated by the customizable `allout-keybindings-list' +variable. We recommend customizing `allout-command-prefix' to use just +`\\C-c' as the command prefix, if the allout bindings don't conflict with +any personal bindings you have on \\C-c. In any case, outline structure +navigation and authoring is simplified by positioning the cursor on an +item's bullet character, the \"hot-spot\" - then you can invoke allout +commands with just the un-prefixed, un-control-shifted command letters. +This is described further in the HOT-SPOT Operation section. + + Exposure Control: + ---------------- +\\[allout-hide-current-subtree] `allout-hide-current-subtree' +\\[allout-show-children] `allout-show-children' +\\[allout-show-current-subtree] `allout-show-current-subtree' +\\[allout-show-current-entry] `allout-show-current-entry' +\\[allout-show-all] `allout-show-all' + + Navigation: + ---------- +\\[allout-next-visible-heading] `allout-next-visible-heading' +\\[allout-previous-visible-heading] `allout-previous-visible-heading' +\\[allout-up-current-level] `allout-up-current-level' +\\[allout-forward-current-level] `allout-forward-current-level' +\\[allout-backward-current-level] `allout-backward-current-level' +\\[allout-end-of-entry] `allout-end-of-entry' +\\[allout-beginning-of-current-entry] `allout-beginning-of-current-entry' (alternately, goes to hot-spot) +\\[allout-beginning-of-line] `allout-beginning-of-line' - like regular beginning-of-line, but + if immediately repeated cycles to the beginning of the current item + and then to the hot-spot (if `allout-beginning-of-line-cycles' is set). + + + Topic Header Production: + ----------------------- +\\[allout-open-sibtopic] `allout-open-sibtopic' Create a new sibling after current topic. +\\[allout-open-subtopic] `allout-open-subtopic' ... an offspring of current topic. +\\[allout-open-supertopic] `allout-open-supertopic' ... a sibling of the current topic's parent. + + Topic Level and Prefix Adjustment: + --------------------------------- +\\[allout-shift-in] `allout-shift-in' Shift current topic and all offspring deeper +\\[allout-shift-out] `allout-shift-out' ... less deep +\\[allout-rebullet-current-heading] `allout-rebullet-current-heading' Prompt for alternate bullet for + current topic +\\[allout-rebullet-topic] `allout-rebullet-topic' Reconcile bullets of topic and + its' offspring - distinctive bullets are not changed, others + are alternated according to nesting depth. +\\[allout-number-siblings] `allout-number-siblings' Number bullets of topic and siblings - + the offspring are not affected. + With repeat count, revoke numbering. + + Topic-oriented Killing and Yanking: + ---------------------------------- +\\[allout-kill-topic] `allout-kill-topic' Kill current topic, including offspring. +\\[allout-copy-topic-as-kill] `allout-copy-topic-as-kill' Copy current topic, including offspring. +\\[allout-kill-line] `allout-kill-line' kill-line, attending to outline structure. +\\[allout-copy-line-as-kill] `allout-copy-line-as-kill' Copy line but don't delete it. +\\[allout-yank] `allout-yank' Yank, adjusting depth of yanked topic to + depth of heading if yanking into bare topic + heading (ie, prefix sans text). +\\[allout-yank-pop] `allout-yank-pop' Is to allout-yank as yank-pop is to yank + + Topic-oriented Encryption: + ------------------------- +\\[allout-toggle-current-subtree-encryption] `allout-toggle-current-subtree-encryption' + Encrypt/Decrypt topic content + + Misc commands: + ------------- +M-x outlineify-sticky Activate outline mode for current buffer, + and establish a default file-var setting + for `allout-layout'. +\\[allout-mark-topic] `allout-mark-topic' +\\[allout-copy-exposed-to-buffer] `allout-copy-exposed-to-buffer' + Duplicate outline, sans concealed text, to + buffer with name derived from derived from that + of current buffer - \"*BUFFERNAME exposed*\". +\\[allout-flatten-exposed-to-buffer] `allout-flatten-exposed-to-buffer' + Like above 'copy-exposed', but convert topic + prefixes to section.subsection... numeric + format. +\\[eval-expression] (allout-init t) Setup Emacs session for outline mode + auto-activation. Topic Encryption @@ -662,17 +681,22 @@ Outline mode supports gpg encryption of topics, with support for symmetric and key-pair modes, passphrase timeout, passphrase consistency checking, user-provided hinting for symmetric key mode, and auto-encryption of topics pending encryption on save. -\(Topics pending encryption are, by default, automatically -encrypted during file saves; if you're editing the contents of -such a topic, it is automatically decrypted for continued -editing.) The aim is reliable topic privacy while preventing -accidents like neglected encryption before saves, forgetting -which passphrase was used, and other practical pitfalls. -See `allout-toggle-current-subtree-encryption' function docstring and -`allout-encrypt-unencrypted-on-saves' customization variable for details. +Topics pending encryption are, by default, automatically +encrypted during file saves. If the contents of the topic +containing the cursor was encrypted for a save, it is +automatically decrypted for continued editing. + +The aim of these measures is reliable topic privacy while +preventing accidents like neglected encryption before saves, +forgetting which passphrase was used, and other practical +pitfalls. + +See `allout-toggle-current-subtree-encryption' function docstring +and `allout-encrypt-unencrypted-on-saves' customization variable +for details. - HOT-SPOT Operation + HOT-SPOT Operation Hot-spot operation provides a means for easy, single-keystroke outline navigation and exposure control. @@ -685,85 +709,108 @@ would invoke the command typically bound to \"C-c<space>C-f\" Thus, by positioning the cursor on a topic bullet, you can execute the outline navigation and manipulation commands with a -single keystroke. Regular navigation keys (eg, \\[forward-char], \\[next-line]) never get +single keystroke. Regular navigation keys (eg, \\[forward-char], \\[next-line]) don't get this special translation, so you can use them to get out of the -hot-spot and back to normal operation. +hot-spot and back to normal editing operation. + +In allout-mode, the normal beginning-of-line command (\\[allout-beginning-of-line]]) is +replaced with one that makes it easy to get to the hot-spot. If you +repeat it immediately it cycles (if `allout-beginning-of-line-cycles' +is set) to the beginning of the item and then, if you hit it again +immediately, to the hot-spot. Similarly, `allout-beginning-of-current-entry' +\(\\[allout-beginning-of-current-entry]) moves to the hot-spot when the cursor is already located +at the beginning of the current entry. + + Extending Allout -Note that the command `allout-beginning-of-current-entry' (\\[allout-beginning-of-current-entry]) -will move to the hot-spot when the cursor is already located at the -beginning of the current entry, so you usually can hit \\[allout-beginning-of-current-entry] -twice in a row to get to the hot-spot. +Allout exposure and authoring activites all have associated +hooks, by which independent code can cooperate with allout +without changes to the allout core. Here are key ones: - Terminology +`allout-mode-hook' +`allout-mode-deactivate-hook' +`allout-exposure-change-hook' +`allout-structure-added-hook' +`allout-structure-deleted-hook' +`allout-structure-shifted-hook' + + Terminology Topic hierarchy constituents - TOPICS and SUBTOPICS: -TOPIC: A basic, coherent component of an Emacs outline. It can - contain and be contained by other topics. -CURRENT topic: - The visible topic most immediately containing the cursor. -DEPTH: The degree of nesting of a topic; it increases with - containment. Also called the: -LEVEL: The same as DEPTH. +ITEM: A unitary outline element, including the HEADER and ENTRY text. +TOPIC: An ITEM and any ITEMs contained within it, ie having greater DEPTH + and with no intervening items of lower DEPTH than the container. +CURRENT ITEM: + The visible ITEM most immediately containing the cursor. +DEPTH: The degree of nesting of an ITEM; it increases with containment. + The DEPTH is determined by the HEADER PREFIX. The DEPTH is also + called the: +LEVEL: The same as DEPTH. ANCESTORS: - The topics that contain a topic. -PARENT: A topic's immediate ancestor. It has a depth one less than - the topic. + Those ITEMs whose TOPICs contain an ITEM. +PARENT: An ITEM's immediate ANCESTOR. It has a DEPTH one less than that + of the ITEM. OFFSPRING: - The topics contained by a topic; + The ITEMs contained within an ITEM's TOPIC. SUBTOPIC: - An immediate offspring of a topic; -CHILDREN: - The immediate offspring of a topic. + An OFFSPRING of its ANCESTOR TOPICs. +CHILD: + An immediate SUBTOPIC of its PARENT. SIBLINGS: - Topics having the same parent and depth. + TOPICs having the same PARENT and DEPTH. Topic text constituents: -HEADER: The first line of a topic, include the topic PREFIX and header - text. -PREFIX: The leading text of a topic which distinguishes it from normal - text. It has a strict form, which consists of a prefix-lead - string, padding, and a bullet. The bullet may be followed by a +HEADER: The first line of an ITEM, include the ITEM PREFIX and HEADER + text. +ENTRY: The text content of an ITEM, before any OFFSPRING, but including + the HEADER text and distinct from the ITEM PREFIX. +BODY: Same as ENTRY. +PREFIX: The leading text of an ITEM which distinguishes it from normal + ENTRY text. Allout recognizes the outline structure according + to the strict PREFIX format. It consists of a PREFIX-LEAD string, + PREFIX-PADDING, and a BULLET. The BULLET might be followed by a number, indicating the ordinal number of the topic among its - siblings, a space, and then the header text. + siblings, or an asterisk indicating encryption, plus an optional + space. After that is the ITEM HEADER text, which is not part of + the PREFIX. - The relative length of the PREFIX determines the nesting depth - of the topic. + The relative length of the PREFIX determines the nesting DEPTH + of the ITEM. PREFIX-LEAD: - The string at the beginning of a topic prefix, normally a `.'. - It can be customized by changing the setting of - `allout-header-prefix' and then reinitializing `allout-mode'. - - By setting the prefix-lead to the comment-string of a - programming language, you can embed outline structuring in - program code without interfering with the language processing - of that code. See `allout-use-mode-specific-leader' - docstring for more detail. + The string at the beginning of a HEADER PREFIX, by default a `.'. + It can be customized by changing the setting of + `allout-header-prefix' and then reinitializing `allout-mode'. + + When the PREFIX-LEAD is set to the comment-string of a + programming language, outline structuring can be embedded in + program code without interfering with processing of the text + (by emacs or the language processor) as program code. This + setting happens automatically when allout mode is used in + programming-mode buffers. See `allout-use-mode-specific-leader' + docstring for more detail. PREFIX-PADDING: - Spaces or asterisks which separate the prefix-lead and the - bullet, determining the depth of the topic. -BULLET: A character at the end of the topic prefix, it must be one of - the characters listed on `allout-plain-bullets-string' or + Spaces or asterisks which separate the PREFIX-LEAD and the + bullet, determining the ITEM's DEPTH. +BULLET: A character at the end of the ITEM PREFIX, it must be one of + the characters listed on `allout-plain-bullets-string' or `allout-distinctive-bullets-string'. (See the documentation for these variables for more details.) The default choice of - bullet when generating topics varies in a cycle with the depth of - the topic. -ENTRY: The text contained in a topic before any offspring. -BODY: Same as ENTRY. - + BULLET when generating ITEMs varies in a cycle with the DEPTH of + the ITEM. EXPOSURE: - The state of a topic which determines the on-screen visibility - of its offspring and contained text. + The state of a TOPIC which determines the on-screen visibility + of its OFFSPRING and contained ENTRY text. CONCEALED: - Topics and entry text whose display is inhibited. Contiguous - units of concealed text is represented by `...' ellipses. + TOPICs and ENTRY text whose EXPOSURE is inhibited. Concealed + text is represented by \"...\" ellipses. - Concealed topics are effectively collapsed within an ancestor. -CLOSED: A topic whose immediate offspring and body-text is concealed. -OPEN: A topic that is not closed, though its offspring or body may be. + CONCEALED TOPICs are effectively collapsed within an ANCESTOR. +CLOSED: A TOPIC whose immediate OFFSPRING and body-text is CONCEALED. +OPEN: A TOPIC that is not CLOSED, though its OFFSPRING or BODY may be. \(fn &optional TOGGLE)" t nil) @@ -780,7 +827,7 @@ setup for auto-startup. ;;;*** ;;;### (autoloads (ange-ftp-hook-function ange-ftp-reread-dir) "ange-ftp" -;;;;;; "net/ange-ftp.el" (17504 41540)) +;;;;;; "net/ange-ftp.el" (17385 8494)) ;;; Generated autoloads from net/ange-ftp.el (defalias (quote ange-ftp-re-read-dir) (quote ange-ftp-reread-dir)) @@ -802,7 +849,7 @@ Not documented ;;;*** ;;;### (autoloads (animate-birthday-present animate-sequence animate-string) -;;;;;; "animate" "play/animate.el" (17504 41540)) +;;;;;; "animate" "play/animate.el" (17385 8495)) ;;; Generated autoloads from play/animate.el (autoload (quote animate-string) "animate" "\ @@ -830,7 +877,7 @@ You can specify the one's name by NAME; the default value is \"Sarah\". ;;;*** ;;;### (autoloads (ansi-color-process-output ansi-color-for-comint-mode-on) -;;;;;; "ansi-color" "ansi-color.el" (17504 41540)) +;;;;;; "ansi-color" "ansi-color.el" (17385 8481)) ;;; Generated autoloads from ansi-color.el (autoload (quote ansi-color-for-comint-mode-on) "ansi-color" "\ @@ -856,7 +903,7 @@ This is a good function to put in `comint-output-filter-functions'. ;;;*** ;;;### (autoloads (antlr-set-tabs antlr-mode antlr-show-makefile-rules) -;;;;;; "antlr-mode" "progmodes/antlr-mode.el" (17504 41540)) +;;;;;; "antlr-mode" "progmodes/antlr-mode.el" (17485 5461)) ;;; Generated autoloads from progmodes/antlr-mode.el (autoload (quote antlr-show-makefile-rules) "antlr-mode" "\ @@ -895,7 +942,7 @@ Used in `antlr-mode'. Also a useful function in `java-mode-hook'. ;;;### (autoloads (appt-activate appt-make-list appt-delete appt-add ;;;;;; appt-display-diary appt-display-duration appt-display-mode-line ;;;;;; appt-msg-window appt-visible appt-audible appt-message-warning-time -;;;;;; appt-issue-message) "appt" "calendar/appt.el" (17686 53337)) +;;;;;; appt-issue-message) "appt" "calendar/appt.el" (17686 46252)) ;;; Generated autoloads from calendar/appt.el (defvar appt-issue-message t "\ @@ -983,7 +1030,7 @@ ARG is positive, otherwise off. ;;;### (autoloads (apropos-documentation apropos-value apropos apropos-documentation-property ;;;;;; apropos-command apropos-variable apropos-read-pattern) "apropos" -;;;;;; "apropos.el" (17746 34860)) +;;;;;; "apropos.el" (17743 18143)) ;;; Generated autoloads from apropos.el (autoload (quote apropos-read-pattern) "apropos" "\ @@ -1079,8 +1126,8 @@ Returns list of symbols and documentation found. ;;;*** -;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (17604 -;;;;;; 18983)) +;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (17781 +;;;;;; 39501)) ;;; Generated autoloads from arc-mode.el (autoload (quote archive-mode) "arc-mode" "\ @@ -1100,7 +1147,7 @@ archive. ;;;*** -;;;### (autoloads (array-mode) "array" "array.el" (17504 41540)) +;;;### (autoloads (array-mode) "array" "array.el" (17781 39501)) ;;; Generated autoloads from array.el (autoload (quote array-mode) "array" "\ @@ -1171,8 +1218,8 @@ Entering array mode calls the function `array-mode-hook'. ;;;*** -;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (17522 -;;;;;; 22309)) +;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (17520 +;;;;;; 49737)) ;;; Generated autoloads from textmodes/artist.el (autoload (quote artist-mode) "artist" "\ @@ -1377,8 +1424,8 @@ Keymap summary ;;;*** -;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (17495 +;;;;;; 43955)) ;;; Generated autoloads from progmodes/asm-mode.el (autoload (quote asm-mode) "asm-mode" "\ @@ -1405,8 +1452,24 @@ Special commands: ;;;*** +;;;### (autoloads (auto-show-mode auto-show-mode) "auto-show" "obsolete/auto-show.el" +;;;;;; (17075 55468)) +;;; Generated autoloads from obsolete/auto-show.el + +(defvar auto-show-mode nil "\ +Obsolete.") + +(custom-autoload (quote auto-show-mode) "auto-show") + +(autoload (quote auto-show-mode) "auto-show" "\ +This command is obsolete. + +\(fn ARG)" t nil) + +;;;*** + ;;;### (autoloads (autoarg-kp-mode autoarg-mode) "autoarg" "autoarg.el" -;;;;;; (17504 41540)) +;;;;;; (17781 39501)) ;;; Generated autoloads from autoarg.el (defvar autoarg-mode nil "\ @@ -1451,7 +1514,7 @@ Toggle Autoarg-KP minor mode globally. With ARG, turn Autoarg mode on if ARG is positive, off otherwise. \\<autoarg-kp-mode-map> This is similar to \\[autoarg-mode] but rebinds the keypad keys `kp-1' -&c to supply digit arguments. +etc. to supply digit arguments. \\{autoarg-kp-mode-map} @@ -1460,7 +1523,7 @@ This is similar to \\[autoarg-mode] but rebinds the keypad keys `kp-1' ;;;*** ;;;### (autoloads (autoconf-mode) "autoconf" "progmodes/autoconf.el" -;;;;;; (17504 41540)) +;;;;;; (17788 21816)) ;;; Generated autoloads from progmodes/autoconf.el (autoload (quote autoconf-mode) "autoconf" "\ @@ -1471,7 +1534,7 @@ Major mode for editing Autoconf configure.in files. ;;;*** ;;;### (autoloads (auto-insert-mode define-auto-insert auto-insert) -;;;;;; "autoinsert" "autoinsert.el" (17704 3960)) +;;;;;; "autoinsert" "autoinsert.el" (17781 39501)) ;;; Generated autoloads from autoinsert.el (autoload (quote auto-insert) "autoinsert" "\ @@ -1510,7 +1573,7 @@ insert a template for the file depending on the mode of the buffer. ;;;### (autoloads (batch-update-autoloads update-directory-autoloads ;;;;;; update-file-autoloads) "autoload" "emacs-lisp/autoload.el" -;;;;;; (17596 14703)) +;;;;;; (17601 9092)) ;;; Generated autoloads from emacs-lisp/autoload.el (autoload (quote update-file-autoloads) "autoload" "\ @@ -1545,7 +1608,7 @@ Calls `update-directory-autoloads' on the command line arguments. ;;;### (autoloads (global-auto-revert-mode turn-on-auto-revert-tail-mode ;;;;;; auto-revert-tail-mode turn-on-auto-revert-mode auto-revert-mode) -;;;;;; "autorevert" "autorevert.el" (17504 41540)) +;;;;;; "autorevert" "autorevert.el" (17515 24179)) ;;; Generated autoloads from autorevert.el (autoload (quote auto-revert-mode) "autorevert" "\ @@ -1597,10 +1660,11 @@ This function is designed to be added to hooks, for example: Non-nil if Global-Auto-Revert mode is enabled. See the command `global-auto-revert-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -either customize it (see the info node `Easy Customization') -or call the function `global-auto-revert-mode'.") +use either \\[customize] or the function `global-auto-revert-mode'.") + +(custom-autoload (quote global-auto-revert-mode) "autorevert") -(custom-autoload (quote global-auto-revert-mode) "autorevert" nil) +(put (quote global-auto-revert-mode) (quote custom-set) (quote custom-set-minor-mode)) (autoload (quote global-auto-revert-mode) "autorevert" "\ Revert any buffer when file on disk changes. @@ -1614,7 +1678,7 @@ Use `auto-revert-mode' to revert a particular buffer. ;;;*** ;;;### (autoloads (mouse-avoidance-mode mouse-avoidance-mode) "avoid" -;;;;;; "avoid.el" (17628 62475)) +;;;;;; "avoid.el" (17781 39501)) ;;; Generated autoloads from avoid.el (defvar mouse-avoidance-mode nil "\ @@ -1655,7 +1719,7 @@ definition of \"random distance\".) ;;;*** ;;;### (autoloads (backquote) "backquote" "emacs-lisp/backquote.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8489)) ;;; Generated autoloads from emacs-lisp/backquote.el (autoload (quote backquote) "backquote" "\ @@ -1680,7 +1744,7 @@ Vectors work just like lists. Nested backquotes are permitted. ;;;*** ;;;### (autoloads (display-battery-mode battery) "battery" "battery.el" -;;;;;; (17746 34860)) +;;;;;; (17742 7456)) ;;; Generated autoloads from battery.el (put 'battery-mode-line-string 'risky-local-variable t) @@ -1712,7 +1776,7 @@ seconds. ;;;*** ;;;### (autoloads (benchmark benchmark-run-compiled benchmark-run) -;;;;;; "benchmark" "emacs-lisp/benchmark.el" (17504 41540)) +;;;;;; "benchmark" "emacs-lisp/benchmark.el" (17385 8489)) ;;; Generated autoloads from emacs-lisp/benchmark.el (autoload (quote benchmark-run) "benchmark" "\ @@ -1744,8 +1808,8 @@ non-interactive use see also `benchmark-run' and ;;;*** -;;;### (autoloads (bibtex-mode) "bibtex" "textmodes/bibtex.el" (17746 -;;;;;; 34862)) +;;;### (autoloads (bibtex-mode) "bibtex" "textmodes/bibtex.el" (17786 +;;;;;; 56015)) ;;; Generated autoloads from textmodes/bibtex.el (autoload (quote bibtex-mode) "bibtex" "\ @@ -1807,7 +1871,7 @@ if that value is non-nil. ;;;### (autoloads (binhex-decode-region binhex-decode-region-external ;;;;;; binhex-decode-region-internal) "binhex" "gnus/binhex.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8492)) ;;; Generated autoloads from gnus/binhex.el (defconst binhex-begin-line "^:...............................................................$") @@ -1830,8 +1894,8 @@ Binhex decode region between START and END. ;;;*** -;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (17385 +;;;;;; 8495)) ;;; Generated autoloads from play/blackbox.el (autoload (quote blackbox) "blackbox" "\ @@ -1953,7 +2017,7 @@ a reflection. ;;;### (autoloads (bookmark-bmenu-list bookmark-load bookmark-save ;;;;;; bookmark-write bookmark-delete bookmark-insert bookmark-rename ;;;;;; bookmark-insert-location bookmark-relocate bookmark-jump -;;;;;; bookmark-set) "bookmark" "bookmark.el" (17504 41540)) +;;;;;; bookmark-set) "bookmark" "bookmark.el" (17385 8482)) ;;; Generated autoloads from bookmark.el (define-key ctl-x-map "rb" 'bookmark-jump) (define-key ctl-x-map "rm" 'bookmark-set) @@ -2143,7 +2207,7 @@ deletion, or > if it is flagged for displaying. ;;;;;; browse-url browse-url-of-region browse-url-of-dired-file ;;;;;; browse-url-of-buffer browse-url-of-file browse-url-url-at-point ;;;;;; browse-url-galeon-program browse-url-firefox-program browse-url-browser-function) -;;;;;; "browse-url" "net/browse-url.el" (17522 22309)) +;;;;;; "browse-url" "net/browse-url.el" (17785 34467)) ;;; Generated autoloads from net/browse-url.el (defvar browse-url-browser-function (cond ((memq system-type (quote (windows-nt ms-dos cygwin))) (quote browse-url-default-windows-browser)) ((memq system-type (quote (darwin))) (quote browse-url-default-macosx-browser)) (t (quote browse-url-default-browser))) "\ @@ -2474,8 +2538,8 @@ Default to the URL around or before point. ;;;*** -;;;### (autoloads (snarf-bruces bruce) "bruce" "play/bruce.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (snarf-bruces bruce) "bruce" "play/bruce.el" (17786 +;;;;;; 56015)) ;;; Generated autoloads from play/bruce.el (autoload (quote bruce) "bruce" "\ @@ -2491,7 +2555,7 @@ Return a vector containing the lines from `bruce-phrases-file'. ;;;*** ;;;### (autoloads (bs-show bs-customize bs-cycle-previous bs-cycle-next) -;;;;;; "bs" "bs.el" (17759 28868)) +;;;;;; "bs" "bs.el" (17748 43063)) ;;; Generated autoloads from bs.el (autoload (quote bs-cycle-next) "bs" "\ @@ -2532,8 +2596,8 @@ name of buffer configuration. ;;;*** ;;;### (autoloads (insert-text-button make-text-button insert-button -;;;;;; make-button define-button-type) "button" "button.el" (17504 -;;;;;; 41540)) +;;;;;; make-button define-button-type) "button" "button.el" (17786 +;;;;;; 60297)) ;;; Generated autoloads from button.el (defvar button-map (let ((map (make-sparse-keymap))) (define-key map "
" (quote push-button)) (define-key map [mouse-2] (quote push-button)) map) "\ @@ -2621,7 +2685,7 @@ Also see `make-text-button'. ;;;;;; batch-byte-compile-if-not-done display-call-tree byte-compile ;;;;;; compile-defun byte-compile-file byte-recompile-directory ;;;;;; byte-force-recompile byte-compile-warnings-safe-p) "bytecomp" -;;;;;; "emacs-lisp/bytecomp.el" (17759 30016)) +;;;;;; "emacs-lisp/bytecomp.el" (17775 9245)) ;;; Generated autoloads from emacs-lisp/bytecomp.el (put 'byte-compile-dynamic 'safe-local-variable 'booleanp) (put 'byte-compile-dynamic-docstrings 'safe-local-variable 'booleanp) @@ -2725,7 +2789,7 @@ and corresponding effects. ;;;*** -;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (17759 28868)) +;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (17748 43063)) ;;; Generated autoloads from calendar/cal-dst.el (put (quote calendar-daylight-savings-starts) (quote risky-local-variable) t) @@ -2735,7 +2799,7 @@ and corresponding effects. ;;;*** ;;;### (autoloads (list-yahrzeit-dates) "cal-hebrew" "calendar/cal-hebrew.el" -;;;;;; (17504 41540)) +;;;;;; (17386 33146)) ;;; Generated autoloads from calendar/cal-hebrew.el (autoload (quote list-yahrzeit-dates) "cal-hebrew" "\ @@ -2750,7 +2814,7 @@ from the cursor position. ;;;### (autoloads (defmath calc-embedded-activate calc-embedded calc-grab-rectangle ;;;;;; calc-grab-region full-calc-keypad calc-keypad calc-eval quick-calc ;;;;;; full-calc calc calc-dispatch calc-settings-file) "calc" "calc/calc.el" -;;;;;; (17672 28071)) +;;;;;; (17671 12179)) ;;; Generated autoloads from calc/calc.el (defvar calc-settings-file (convert-standard-filename "~/.calc.el") "\ @@ -2828,8 +2892,8 @@ Not documented ;;;*** -;;;### (autoloads (calculator) "calculator" "calculator.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (calculator) "calculator" "calculator.el" (17385 +;;;;;; 8482)) ;;; Generated autoloads from calculator.el (autoload (quote calculator) "calculator" "\ @@ -2857,7 +2921,7 @@ See the documentation for `calculator-mode' for more information. ;;;;;; mark-holidays-in-calendar view-calendar-holidays-initially ;;;;;; calendar-remove-frame-by-deleting mark-diary-entries-in-calendar ;;;;;; view-diary-entries-initially calendar-offset) "calendar" -;;;;;; "calendar/calendar.el" (17732 62701)) +;;;;;; "calendar/calendar.el" (17734 1777)) ;;; Generated autoloads from calendar/calendar.el (defvar calendar-offset 0 "\ @@ -3430,7 +3494,7 @@ movement commands will not work correctly.") ;;;*** ;;;### (autoloads (canlock-verify canlock-insert-header) "canlock" -;;;;;; "gnus/canlock.el" (17504 41540)) +;;;;;; "gnus/canlock.el" (17385 8492)) ;;; Generated autoloads from gnus/canlock.el (autoload (quote canlock-insert-header) "canlock" "\ @@ -3447,15 +3511,15 @@ it fails. ;;;*** -;;;### (autoloads nil "cc-compat" "progmodes/cc-compat.el" (17508 -;;;;;; 50987)) +;;;### (autoloads nil "cc-compat" "progmodes/cc-compat.el" (17794 +;;;;;; 54379)) ;;; Generated autoloads from progmodes/cc-compat.el (put 'c-indent-level 'safe-local-variable 'integerp) ;;;*** ;;;### (autoloads (c-guess-basic-syntax) "cc-engine" "progmodes/cc-engine.el" -;;;;;; (17504 41540)) +;;;;;; (17796 15986)) ;;; Generated autoloads from progmodes/cc-engine.el (autoload (quote c-guess-basic-syntax) "cc-engine" "\ @@ -3467,7 +3531,7 @@ Return the syntactic context of the current line. ;;;### (autoloads (pike-mode idl-mode java-mode objc-mode c++-mode ;;;;;; c-mode c-initialize-cc-mode) "cc-mode" "progmodes/cc-mode.el" -;;;;;; (17599 63482)) +;;;;;; (17797 52285)) ;;; Generated autoloads from progmodes/cc-mode.el (autoload (quote c-initialize-cc-mode) "cc-mode" "\ @@ -3625,7 +3689,7 @@ Key bindings: ;;;*** ;;;### (autoloads (c-set-offset c-add-style c-set-style) "cc-styles" -;;;;;; "progmodes/cc-styles.el" (17522 22309)) +;;;;;; "progmodes/cc-styles.el" (17794 54380)) ;;; Generated autoloads from progmodes/cc-styles.el (autoload (quote c-set-style) "cc-styles" "\ @@ -3676,14 +3740,14 @@ and exists only for compatibility reasons. ;;;*** -;;;### (autoloads nil "cc-subword" "progmodes/cc-subword.el" (17522 -;;;;;; 22309)) +;;;### (autoloads nil "cc-subword" "progmodes/cc-subword.el" (17794 +;;;;;; 54380)) ;;; Generated autoloads from progmodes/cc-subword.el (autoload 'c-subword-mode "cc-subword" "Mode enabling subword movement and editing keys." t) ;;;*** -;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (17522 22309)) +;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (17794 54380)) ;;; Generated autoloads from progmodes/cc-vars.el (put 'c-basic-offset 'safe-local-variable 'integerp) (put 'c-backslash-column 'safe-local-variable 'integerp) @@ -3693,7 +3757,7 @@ and exists only for compatibility reasons. ;;;### (autoloads (ccl-execute-with-args check-ccl-program define-ccl-program ;;;;;; declare-ccl-program ccl-dump ccl-compile) "ccl" "international/ccl.el" -;;;;;; (17504 41540)) +;;;;;; (17792 9561)) ;;; Generated autoloads from international/ccl.el (autoload (quote ccl-compile) "ccl" "\ @@ -3952,7 +4016,7 @@ See the documentation of `define-ccl-program' for the detail of CCL program. ;;;*** ;;;### (autoloads (cfengine-mode) "cfengine" "progmodes/cfengine.el" -;;;;;; (17671 29986)) +;;;;;; (17669 23128)) ;;; Generated autoloads from progmodes/cfengine.el (autoload (quote cfengine-mode) "cfengine" "\ @@ -3974,7 +4038,7 @@ to the action header. ;;;;;; checkdoc-comments checkdoc-continue checkdoc-start checkdoc-current-buffer ;;;;;; checkdoc-eval-current-buffer checkdoc-message-interactive ;;;;;; checkdoc-interactive checkdoc) "checkdoc" "emacs-lisp/checkdoc.el" -;;;;;; (17746 34861)) +;;;;;; (17740 981)) ;;; Generated autoloads from emacs-lisp/checkdoc.el (autoload (quote checkdoc) "checkdoc" "\ @@ -4157,8 +4221,8 @@ checking of documentation strings. ;;;*** ;;;### (autoloads (encode-hz-buffer encode-hz-region decode-hz-buffer -;;;;;; decode-hz-region) "china-util" "language/china-util.el" (17504 -;;;;;; 41540)) +;;;;;; decode-hz-region) "china-util" "language/china-util.el" (17792 +;;;;;; 9562)) ;;; Generated autoloads from language/china-util.el (autoload (quote decode-hz-region) "china-util" "\ @@ -4186,7 +4250,7 @@ Encode the text in the current buffer to HZ. ;;;*** ;;;### (autoloads (command-history list-command-history repeat-matching-complex-command) -;;;;;; "chistory" "chistory.el" (17504 41540)) +;;;;;; "chistory" "chistory.el" (17781 39501)) ;;; Generated autoloads from chistory.el (autoload (quote repeat-matching-complex-command) "chistory" "\ @@ -4225,7 +4289,7 @@ and runs the normal hook `command-history-hook'. ;;;*** -;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (17701 49518)) +;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (17785 34467)) ;;; Generated autoloads from emacs-lisp/cl.el (defvar custom-print-functions nil "\ @@ -4241,7 +4305,7 @@ a future Emacs interpreter will be able to use it.") ;;;*** ;;;### (autoloads (common-lisp-indent-function) "cl-indent" "emacs-lisp/cl-indent.el" -;;;;;; (17731 48935)) +;;;;;; (17729 22475)) ;;; Generated autoloads from emacs-lisp/cl-indent.el (autoload (quote common-lisp-indent-function) "cl-indent" "\ @@ -4252,7 +4316,7 @@ Not documented ;;;*** ;;;### (autoloads (c-macro-expand) "cmacexp" "progmodes/cmacexp.el" -;;;;;; (17504 41540)) +;;;;;; (17394 12937)) ;;; Generated autoloads from progmodes/cmacexp.el (autoload (quote c-macro-expand) "cmacexp" "\ @@ -4272,8 +4336,8 @@ For use inside Lisp programs, see also `c-macro-expansion'. ;;;*** -;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (17786 +;;;;;; 56014)) ;;; Generated autoloads from cmuscheme.el (autoload (quote run-scheme) "cmuscheme" "\ @@ -4281,7 +4345,8 @@ Run an inferior Scheme process, input and output via buffer `*scheme*'. If there is a process already running in `*scheme*', switch to that buffer. With argument, allows you to edit the command line (default is value of `scheme-program-name'). -If a file `~/.emacs_SCHEMENAME' exists, it is given as initial input. +If the file `~/.emacs_SCHEMENAME' or `~/.emacs.d/init_SCHEMENAME.scm' exists, +it is given as initial input. Note that this may lose due to a timing error if the Scheme processor discards input when it starts up. Runs the hook `inferior-scheme-mode-hook' (after the `comint-mode-hook' @@ -4295,7 +4360,7 @@ is run). ;;;### (autoloads (codepage-setup cp-supported-codepages cp-offset-for-codepage ;;;;;; cp-language-for-codepage cp-charset-for-codepage cp-make-coding-systems-for-codepage) -;;;;;; "codepage" "international/codepage.el" (17668 1411)) +;;;;;; "codepage" "international/codepage.el" (17792 9561)) ;;; Generated autoloads from international/codepage.el (autoload (quote cp-make-coding-systems-for-codepage) "codepage" "\ @@ -4354,7 +4419,7 @@ read/written by MS-DOS software, or for display on the MS-DOS terminal. ;;;### (autoloads (comint-redirect-results-list-from-process comint-redirect-results-list ;;;;;; comint-redirect-send-command-to-process comint-redirect-send-command ;;;;;; comint-run make-comint make-comint-in-buffer) "comint" "comint.el" -;;;;;; (17759 29233)) +;;;;;; (17800 14415)) ;;; Generated autoloads from comint.el (defvar comint-output-filter-functions (quote (comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt)) "\ @@ -4444,8 +4509,8 @@ REGEXP-GROUP is the regular expression group in REGEXP to use. ;;;*** -;;;### (autoloads (compare-windows) "compare-w" "compare-w.el" (17636 -;;;;;; 48139)) +;;;### (autoloads (compare-windows) "compare-w" "compare-w.el" (17781 +;;;;;; 39501)) ;;; Generated autoloads from compare-w.el (autoload (quote compare-windows) "compare-w" "\ @@ -4482,7 +4547,7 @@ on third call it again advances points to the next difference and so on. ;;;;;; compilation-shell-minor-mode compilation-mode compilation-start ;;;;;; compile compilation-disable-input compile-command compilation-search-path ;;;;;; compilation-ask-about-save compilation-window-height compilation-mode-hook) -;;;;;; "compile" "progmodes/compile.el" (17759 29277)) +;;;;;; "compile" "progmodes/compile.el" (17767 19634)) ;;; Generated autoloads from progmodes/compile.el (defvar compilation-mode-hook nil "\ @@ -4644,7 +4709,7 @@ This is the value of `next-error-function' in Compilation buffers. ;;;*** ;;;### (autoloads (partial-completion-mode) "complete" "complete.el" -;;;;;; (17625 60530)) +;;;;;; (17781 39501)) ;;; Generated autoloads from complete.el (defvar partial-completion-mode nil "\ @@ -4686,7 +4751,7 @@ second TAB brings up the `*Completions*' buffer. ;;;*** ;;;### (autoloads (dynamic-completion-mode) "completion" "completion.el" -;;;;;; (17704 3960)) +;;;;;; (17781 39501)) ;;; Generated autoloads from completion.el (defvar dynamic-completion-mode nil "\ @@ -4708,7 +4773,7 @@ Enable dynamic word-completion. ;;;### (autoloads (decompose-composite-char compose-last-chars compose-chars-after ;;;;;; find-composition compose-chars decompose-string compose-string ;;;;;; decompose-region compose-region encode-composition-rule) -;;;;;; "composite" "composite.el" (17504 41540)) +;;;;;; "composite" "composite.el" (17792 9561)) ;;; Generated autoloads from composite.el (defconst reference-point-alist (quote ((tl . 0) (tc . 1) (tr . 2) (Bl . 3) (Bc . 4) (Br . 5) (bl . 6) (bc . 7) (br . 8) (cl . 9) (cc . 10) (cr . 11) (top-left . 0) (top-center . 1) (top-right . 2) (base-left . 3) (base-center . 4) (base-right . 5) (bottom-left . 6) (bottom-center . 7) (bottom-right . 8) (center-left . 9) (center-center . 10) (center-right . 11) (ml . 3) (mc . 10) (mr . 5) (mid-left . 3) (mid-center . 10) (mid-right . 5))) "\ @@ -4930,7 +4995,7 @@ Optional 3rd arg WITH-COMPOSITION-RULE is ignored. ;;;### (autoloads (conf-xdefaults-mode conf-ppd-mode conf-colon-mode ;;;;;; conf-space-keywords conf-space-mode conf-javaprop-mode conf-windows-mode ;;;;;; conf-unix-mode conf-mode) "conf-mode" "textmodes/conf-mode.el" -;;;;;; (17680 45980)) +;;;;;; (17679 3707)) ;;; Generated autoloads from textmodes/conf-mode.el (autoload (quote conf-mode) "conf-mode" "\ @@ -5086,7 +5151,7 @@ For details see `conf-mode'. Example: ;;;*** ;;;### (autoloads (shuffle-vector cookie-snarf cookie-insert cookie) -;;;;;; "cookie1" "play/cookie1.el" (17566 60307)) +;;;;;; "cookie1" "play/cookie1.el" (17786 56015)) ;;; Generated autoloads from play/cookie1.el (autoload (quote cookie) "cookie1" "\ @@ -5118,7 +5183,7 @@ Randomly permute the elements of VECTOR (all permutations equally likely). ;;;*** ;;;### (autoloads (copyright copyright-fix-years copyright-update) -;;;;;; "copyright" "emacs-lisp/copyright.el" (17504 41540)) +;;;;;; "copyright" "emacs-lisp/copyright.el" (17385 8489)) ;;; Generated autoloads from emacs-lisp/copyright.el (autoload (quote copyright-update) "copyright" "\ @@ -5146,7 +5211,7 @@ Insert a copyright by $ORGANIZATION notice at cursor. ;;;*** ;;;### (autoloads (cperl-perldoc-at-point cperl-perldoc cperl-mode) -;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (17759 28873)) +;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (17781 39502)) ;;; Generated autoloads from progmodes/cperl-mode.el (autoload (quote cperl-mode) "cperl-mode" "\ @@ -5337,7 +5402,7 @@ Run a `perldoc' on the word around point. ;;;*** ;;;### (autoloads (cpp-parse-edit cpp-highlight-buffer) "cpp" "progmodes/cpp.el" -;;;;;; (17504 41540)) +;;;;;; (17394 12937)) ;;; Generated autoloads from progmodes/cpp.el (autoload (quote cpp-highlight-buffer) "cpp" "\ @@ -5356,7 +5421,7 @@ Edit display information for cpp conditionals. ;;;*** ;;;### (autoloads (crisp-mode crisp-mode) "crisp" "emulation/crisp.el" -;;;;;; (17504 41540)) +;;;;;; (17785 34467)) ;;; Generated autoloads from emulation/crisp.el (defvar crisp-mode nil "\ @@ -5380,7 +5445,7 @@ With ARG, turn CRiSP mode on if ARG is positive, off otherwise. ;;;*** ;;;### (autoloads (completing-read-multiple) "crm" "emacs-lisp/crm.el" -;;;;;; (17506 11763)) +;;;;;; (17785 34467)) ;;; Generated autoloads from emacs-lisp/crm.el (autoload (quote completing-read-multiple) "crm" "\ @@ -5416,7 +5481,7 @@ INHERIT-INPUT-METHOD. ;;;*** ;;;### (autoloads (cua-selection-mode cua-mode) "cua-base" "emulation/cua-base.el" -;;;;;; (17664 10809)) +;;;;;; (17782 59544)) ;;; Generated autoloads from emulation/cua-base.el (defvar cua-mode nil "\ @@ -5482,7 +5547,7 @@ Enable CUA selection mode without the C-z/C-x/C-c/C-v bindings. ;;;;;; customize-face customize-changed-options customize-option-other-window ;;;;;; customize-option customize-group-other-window customize-group ;;;;;; customize-mode customize customize-save-variable customize-set-variable -;;;;;; customize-set-value) "cus-edit" "cus-edit.el" (17759 28868)) +;;;;;; customize-set-value) "cus-edit" "cus-edit.el" (17752 39351)) ;;; Generated autoloads from cus-edit.el (add-hook 'same-window-regexps "\\`\\*Customiz.*\\*\\'") @@ -5771,7 +5836,7 @@ The format is suitable for use with `easy-menu-define'. ;;;*** ;;;### (autoloads (custom-reset-faces custom-theme-reset-faces custom-set-faces -;;;;;; custom-declare-face) "cus-face" "cus-face.el" (17504 41540)) +;;;;;; custom-declare-face) "cus-face" "cus-face.el" (17385 8483)) ;;; Generated autoloads from cus-face.el (autoload (quote custom-declare-face) "cus-face" "\ @@ -5841,7 +5906,7 @@ This means reset FACE to its value in FROM-THEME. ;;;*** ;;;### (autoloads (customize-create-theme) "cus-theme" "cus-theme.el" -;;;;;; (17632 36218)) +;;;;;; (17632 41885)) ;;; Generated autoloads from cus-theme.el (autoload (quote customize-create-theme) "cus-theme" "\ @@ -5852,7 +5917,7 @@ Create a custom theme. ;;;*** ;;;### (autoloads (cvs-status-mode) "cvs-status" "cvs-status.el" -;;;;;; (17504 41540)) +;;;;;; (17781 39501)) ;;; Generated autoloads from cvs-status.el (autoload (quote cvs-status-mode) "cvs-status" "\ @@ -5863,7 +5928,7 @@ Mode used for cvs status output. ;;;*** ;;;### (autoloads (global-cwarn-mode turn-on-cwarn-mode cwarn-mode) -;;;;;; "cwarn" "progmodes/cwarn.el" (17504 41540)) +;;;;;; "cwarn" "progmodes/cwarn.el" (17394 12937)) ;;; Generated autoloads from progmodes/cwarn.el (autoload (quote cwarn-mode) "cwarn" "\ @@ -5889,10 +5954,11 @@ This function is designed to be added to hooks, for example: Non-nil if Global-Cwarn mode is enabled. See the command `global-cwarn-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -either customize it (see the info node `Easy Customization') -or call the function `global-cwarn-mode'.") +use either \\[customize] or the function `global-cwarn-mode'.") + +(custom-autoload (quote global-cwarn-mode) "cwarn") -(custom-autoload (quote global-cwarn-mode) "cwarn" nil) +(put (quote global-cwarn-mode) (quote custom-set) (quote custom-set-minor-mode)) (autoload (quote global-cwarn-mode) "cwarn" "\ Toggle Cwarn mode in every buffer. @@ -5906,7 +5972,7 @@ in which `turn-on-cwarn-mode-if-enabled' turns it on. ;;;### (autoloads (standard-display-cyrillic-translit cyrillic-encode-alternativnyj-char ;;;;;; cyrillic-encode-koi8-r-char) "cyril-util" "language/cyril-util.el" -;;;;;; (17504 41540)) +;;;;;; (17788 21816)) ;;; Generated autoloads from language/cyril-util.el (autoload (quote cyrillic-encode-koi8-r-char) "cyril-util" "\ @@ -5935,7 +6001,7 @@ If the argument is nil, we return the display table to its standard state. ;;;*** ;;;### (autoloads (dabbrev-expand dabbrev-completion) "dabbrev" "dabbrev.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8483)) ;;; Generated autoloads from dabbrev.el (define-key esc-map "/" 'dabbrev-expand) (define-key esc-map [?\C-/] 'dabbrev-completion) @@ -5979,8 +6045,8 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]. ;;;*** -;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (17394 +;;;;;; 12937)) ;;; Generated autoloads from progmodes/dcl-mode.el (autoload (quote dcl-mode) "dcl-mode" "\ @@ -6107,7 +6173,7 @@ There is some minimal font-lock support (see vars ;;;*** ;;;### (autoloads (cancel-debug-on-entry debug-on-entry debug) "debug" -;;;;;; "emacs-lisp/debug.el" (17504 41540)) +;;;;;; "emacs-lisp/debug.el" (17440 13082)) ;;; Generated autoloads from emacs-lisp/debug.el (setq debugger (quote debug)) @@ -6151,7 +6217,7 @@ To specify a nil argument interactively, exit with an empty minibuffer. ;;;*** ;;;### (autoloads (decipher-mode decipher) "decipher" "play/decipher.el" -;;;;;; (17504 41540)) +;;;;;; (17786 56015)) ;;; Generated autoloads from play/decipher.el (autoload (quote decipher) "decipher" "\ @@ -6180,8 +6246,8 @@ The most useful commands are: ;;;*** ;;;### (autoloads (delimit-columns-rectangle delimit-columns-region -;;;;;; delimit-columns-customize) "delim-col" "delim-col.el" (17686 -;;;;;; 35928)) +;;;;;; delimit-columns-customize) "delim-col" "delim-col.el" (17781 +;;;;;; 39501)) ;;; Generated autoloads from delim-col.el (autoload (quote delimit-columns-customize) "delim-col" "\ @@ -6206,7 +6272,7 @@ START and END delimits the corners of text rectangle. ;;;*** ;;;### (autoloads (delphi-mode) "delphi" "progmodes/delphi.el" (17604 -;;;;;; 18983)) +;;;;;; 60390)) ;;; Generated autoloads from progmodes/delphi.el (autoload (quote delphi-mode) "delphi" "\ @@ -6256,8 +6322,8 @@ no args, if that value is non-nil. ;;;*** -;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (17385 +;;;;;; 8483)) ;;; Generated autoloads from delsel.el (defalias (quote pending-delete-mode) (quote delete-selection-mode)) @@ -6266,10 +6332,11 @@ no args, if that value is non-nil. Non-nil if Delete-Selection mode is enabled. See the command `delete-selection-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -either customize it (see the info node `Easy Customization') -or call the function `delete-selection-mode'.") +use either \\[customize] or the function `delete-selection-mode'.") + +(custom-autoload (quote delete-selection-mode) "delsel") -(custom-autoload (quote delete-selection-mode) "delsel" nil) +(put (quote delete-selection-mode) (quote custom-set) (quote custom-set-minor-mode)) (autoload (quote delete-selection-mode) "delsel" "\ Toggle Delete Selection mode. @@ -6286,7 +6353,7 @@ any selection. ;;;*** ;;;### (autoloads (derived-mode-init-mode-variables define-derived-mode) -;;;;;; "derived" "emacs-lisp/derived.el" (17504 41540)) +;;;;;; "derived" "emacs-lisp/derived.el" (17785 34467)) ;;; Generated autoloads from emacs-lisp/derived.el (autoload (quote define-derived-mode) "derived" "\ @@ -6351,7 +6418,7 @@ the first time the mode is used. ;;;*** ;;;### (autoloads (describe-char describe-text-properties) "descr-text" -;;;;;; "descr-text.el" (17504 41540)) +;;;;;; "descr-text.el" (17780 18171)) ;;; Generated autoloads from descr-text.el (autoload (quote describe-text-properties) "descr-text" "\ @@ -6377,7 +6444,7 @@ as well as widgets, buttons, overlays, and text properties. ;;;### (autoloads (desktop-revert desktop-save-in-desktop-dir desktop-change-dir ;;;;;; desktop-load-default desktop-read desktop-remove desktop-save ;;;;;; desktop-clear desktop-locals-to-save desktop-save-mode) "desktop" -;;;;;; "desktop.el" (17672 28070)) +;;;;;; "desktop.el" (17670 57734)) ;;; Generated autoloads from desktop.el (defvar desktop-save-mode nil "\ @@ -6560,7 +6627,7 @@ Revert to the last loaded desktop. ;;;### (autoloads (gnus-article-outlook-deuglify-article gnus-outlook-deuglify-article ;;;;;; gnus-article-outlook-repair-attribution gnus-article-outlook-unwrap-lines) -;;;;;; "deuglify" "gnus/deuglify.el" (17504 41540)) +;;;;;; "deuglify" "gnus/deuglify.el" (17797 50970)) ;;; Generated autoloads from gnus/deuglify.el (autoload (quote gnus-article-outlook-unwrap-lines) "deuglify" "\ @@ -6593,7 +6660,7 @@ Deuglify broken Outlook (Express) articles and redisplay. ;;;*** ;;;### (autoloads (devanagari-post-read-conversion devanagari-compose-region) -;;;;;; "devan-util" "language/devan-util.el" (17504 41540)) +;;;;;; "devan-util" "language/devan-util.el" (17792 9562)) ;;; Generated autoloads from language/devan-util.el (defconst devanagari-consonant "[\x51ad5-\x51af9\x51b38-\x51b3f]") @@ -6611,7 +6678,7 @@ Not documented ;;;*** ;;;### (autoloads (diary-mode diary-mail-entries diary) "diary-lib" -;;;;;; "calendar/diary-lib.el" (17522 22309)) +;;;;;; "calendar/diary-lib.el" (17520 49736)) ;;; Generated autoloads from calendar/diary-lib.el (autoload (quote diary) "diary-lib" "\ @@ -6657,7 +6724,7 @@ Major mode for editing the diary file. ;;;*** ;;;### (autoloads (diff-backup diff diff-command diff-switches) "diff" -;;;;;; "diff.el" (17544 39648)) +;;;;;; "diff.el" (17683 64071)) ;;; Generated autoloads from diff.el (defvar diff-switches "-c" "\ @@ -6691,7 +6758,7 @@ With prefix arg, prompt for diff switches. ;;;*** ;;;### (autoloads (diff-minor-mode diff-mode) "diff-mode" "diff-mode.el" -;;;;;; (17672 28070)) +;;;;;; (17771 26718)) ;;; Generated autoloads from diff-mode.el (autoload (quote diff-mode) "diff-mode" "\ @@ -6721,7 +6788,7 @@ Minor mode for viewing/editing context diffs. ;;;;;; dired dired-copy-preserve-time dired-dwim-target dired-keep-marker-symlink ;;;;;; dired-keep-marker-hardlink dired-keep-marker-copy dired-keep-marker-rename ;;;;;; dired-trivial-filenames dired-ls-F-marks-symlinks dired-listing-switches) -;;;;;; "dired" "dired.el" (17746 34860)) +;;;;;; "dired" "dired.el" (17780 18171)) ;;; Generated autoloads from dired.el (defvar dired-listing-switches "-al" "\ @@ -6926,7 +6993,7 @@ Keybindings: ;;;;;; dired-run-shell-command dired-do-shell-command dired-clean-directory ;;;;;; dired-do-print dired-do-touch dired-do-chown dired-do-chgrp ;;;;;; dired-do-chmod dired-compare-directories dired-backup-diff -;;;;;; dired-diff) "dired-aux" "dired-aux.el" (17746 34860)) +;;;;;; dired-diff) "dired-aux" "dired-aux.el" (17742 7456)) ;;; Generated autoloads from dired-aux.el (autoload (quote dired-diff) "dired-aux" "\ @@ -7338,7 +7405,7 @@ true then the type of the file linked to by FILE is printed instead. ;;;*** -;;;### (autoloads (dired-jump) "dired-x" "dired-x.el" (17656 34193)) +;;;### (autoloads (dired-jump) "dired-x" "dired-x.el" (17656 37701)) ;;; Generated autoloads from dired-x.el (autoload (quote dired-jump) "dired-x" "\ @@ -7352,7 +7419,7 @@ buffer and try again. ;;;*** -;;;### (autoloads (dirtrack) "dirtrack" "dirtrack.el" (17586 63360)) +;;;### (autoloads (dirtrack) "dirtrack" "dirtrack.el" (17781 39501)) ;;; Generated autoloads from dirtrack.el (autoload (quote dirtrack) "dirtrack" "\ @@ -7371,8 +7438,8 @@ You can enable directory tracking by adding this function to ;;;*** -;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (17385 +;;;;;; 8489)) ;;; Generated autoloads from emacs-lisp/disass.el (autoload (quote disassemble) "disass" "\ @@ -7390,7 +7457,7 @@ redefine OBJECT if it is a symbol. ;;;;;; standard-display-graphic standard-display-g1 standard-display-ascii ;;;;;; standard-display-default standard-display-8bit describe-current-display-table ;;;;;; describe-display-table set-display-table-slot display-table-slot -;;;;;; make-display-table) "disp-table" "disp-table.el" (17504 41540)) +;;;;;; make-display-table) "disp-table" "disp-table.el" (17781 39501)) ;;; Generated autoloads from disp-table.el (autoload (quote make-display-table) "disp-table" "\ @@ -7491,7 +7558,7 @@ for users who call this function in `.emacs'. ;;;*** ;;;### (autoloads (dissociated-press) "dissociate" "play/dissociate.el" -;;;;;; (17504 41540)) +;;;;;; (17786 56015)) ;;; Generated autoloads from play/dissociate.el (autoload (quote dissociated-press) "dissociate" "\ @@ -7507,7 +7574,7 @@ Default is 2. ;;;*** -;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (17710 3074)) +;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (17709 24917)) ;;; Generated autoloads from dnd.el (defvar dnd-protocol-alist (quote (("^file:///" . dnd-open-local-file) ("^file://" . dnd-open-file) ("^file:" . dnd-open-local-file) ("^\\(https?\\|ftp\\|file\\|nfs\\)://" . dnd-open-file))) "\ @@ -7528,7 +7595,7 @@ if some action was made, or nil if the URL is ignored.") ;;;*** ;;;### (autoloads (dns-mode-soa-increment-serial dns-mode) "dns-mode" -;;;;;; "textmodes/dns-mode.el" (17630 16368)) +;;;;;; "textmodes/dns-mode.el" (17632 41886)) ;;; Generated autoloads from textmodes/dns-mode.el (autoload (quote dns-mode) "dns-mode" "\ @@ -7552,7 +7619,7 @@ Locate SOA record and increment the serial field. ;;;*** -;;;### (autoloads (doctor) "doctor" "play/doctor.el" (17504 41540)) +;;;### (autoloads (doctor) "doctor" "play/doctor.el" (17786 56015)) ;;; Generated autoloads from play/doctor.el (autoload (quote doctor) "doctor" "\ @@ -7563,7 +7630,7 @@ Switch to *doctor* buffer and start giving psychotherapy. ;;;*** ;;;### (autoloads (double-mode double-mode) "double" "double.el" -;;;;;; (17504 41540)) +;;;;;; (17781 39501)) ;;; Generated autoloads from double.el (defvar double-mode nil "\ @@ -7584,7 +7651,7 @@ when pressed twice. See variable `double-map' for details. ;;;*** -;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (17746 34862)) +;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (17743 18144)) ;;; Generated autoloads from play/dunnet.el (autoload (quote dunnet) "dunnet" "\ @@ -7595,7 +7662,7 @@ Switch to *dungeon* buffer and start game. ;;;*** ;;;### (autoloads (gnus-earcon-display) "earcon" "gnus/earcon.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8492)) ;;; Generated autoloads from gnus/earcon.el (autoload (quote gnus-earcon-display) "earcon" "\ @@ -7607,7 +7674,7 @@ Play sounds in message buffers. ;;;### (autoloads (easy-mmode-defsyntax easy-mmode-defmap easy-mmode-define-keymap ;;;;;; define-global-minor-mode define-minor-mode) "easy-mmode" -;;;;;; "emacs-lisp/easy-mmode.el" (17656 34193)) +;;;;;; "emacs-lisp/easy-mmode.el" (17772 35829)) ;;; Generated autoloads from emacs-lisp/easy-mmode.el (defalias (quote easy-mmode-define-minor-mode) (quote define-minor-mode)) @@ -7699,8 +7766,8 @@ CSS contains a list of syntax specifications of the form (CHAR . SYNTAX). ;;;*** ;;;### (autoloads (easy-menu-change easy-menu-create-menu easy-menu-do-define -;;;;;; easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (17658 -;;;;;; 58024)) +;;;;;; easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (17785 +;;;;;; 34467)) ;;; Generated autoloads from emacs-lisp/easymenu.el (put (quote easy-menu-define) (quote lisp-indent-function) (quote defun)) @@ -7845,7 +7912,7 @@ To implement dynamic menus, either call this from ;;;;;; ebnf-eps-directory ebnf-spool-region ebnf-spool-buffer ebnf-spool-file ;;;;;; ebnf-spool-directory ebnf-print-region ebnf-print-buffer ;;;;;; ebnf-print-file ebnf-print-directory ebnf-customize) "ebnf2ps" -;;;;;; "progmodes/ebnf2ps.el" (17759 28873)) +;;;;;; "progmodes/ebnf2ps.el" (17780 18172)) ;;; Generated autoloads from progmodes/ebnf2ps.el (autoload (quote ebnf-customize) "ebnf2ps" "\ @@ -8104,8 +8171,8 @@ See `ebnf-style-database' documentation. ;;;;;; ebrowse-tags-find-declaration-other-window ebrowse-tags-find-definition ;;;;;; ebrowse-tags-view-definition ebrowse-tags-find-declaration ;;;;;; ebrowse-tags-view-declaration ebrowse-member-mode ebrowse-electric-choose-tree -;;;;;; ebrowse-tree-mode) "ebrowse" "progmodes/ebrowse.el" (17588 -;;;;;; 11509)) +;;;;;; ebrowse-tree-mode) "ebrowse" "progmodes/ebrowse.el" (17601 +;;;;;; 9092)) ;;; Generated autoloads from progmodes/ebrowse.el (autoload (quote ebrowse-tree-mode) "ebrowse" "\ @@ -8256,7 +8323,7 @@ Display statistics for a class tree. ;;;*** ;;;### (autoloads (electric-buffer-list) "ebuff-menu" "ebuff-menu.el" -;;;;;; (17504 41540)) +;;;;;; (17781 39501)) ;;; Generated autoloads from ebuff-menu.el (autoload (quote electric-buffer-list) "ebuff-menu" "\ @@ -8281,7 +8348,7 @@ Run hooks in `electric-buffer-menu-mode-hook' on entry. ;;;*** ;;;### (autoloads (Electric-command-history-redo-expression) "echistory" -;;;;;; "echistory.el" (17504 41540)) +;;;;;; "echistory.el" (17781 39501)) ;;; Generated autoloads from echistory.el (autoload (quote Electric-command-history-redo-expression) "echistory" "\ @@ -8294,7 +8361,7 @@ With prefix arg NOCONFIRM, execute current line as-is without editing. ;;;### (autoloads (edebug-all-forms edebug-all-defs edebug-eval-top-level-form ;;;;;; edebug-basic-spec edebug-all-forms edebug-all-defs) "edebug" -;;;;;; "emacs-lisp/edebug.el" (17628 62479)) +;;;;;; "emacs-lisp/edebug.el" (17632 41885)) ;;; Generated autoloads from emacs-lisp/edebug.el (defvar edebug-all-defs nil "\ @@ -8367,7 +8434,7 @@ Toggle edebugging of all forms. ;;;;;; ediff-merge-directory-revisions ediff-merge-directories-with-ancestor ;;;;;; ediff-merge-directories ediff-directories3 ediff-directory-revisions ;;;;;; ediff-directories ediff-buffers3 ediff-buffers ediff-backup -;;;;;; ediff-files3 ediff-files) "ediff" "ediff.el" (17759 28868)) +;;;;;; ediff-files3 ediff-files) "ediff" "ediff.el" (17752 39351)) ;;; Generated autoloads from ediff.el (autoload (quote ediff-files) "ediff" "\ @@ -8605,7 +8672,7 @@ With optional NODE, goes to that node. ;;;*** ;;;### (autoloads (ediff-customize) "ediff-help" "ediff-help.el" -;;;;;; (17504 41540)) +;;;;;; (17403 27596)) ;;; Generated autoloads from ediff-help.el (autoload (quote ediff-customize) "ediff-help" "\ @@ -8615,7 +8682,7 @@ Not documented ;;;*** -;;;### (autoloads nil "ediff-hook" "ediff-hook.el" (17504 41540)) +;;;### (autoloads nil "ediff-hook" "ediff-hook.el" (17403 27596)) ;;; Generated autoloads from ediff-hook.el (defvar ediff-window-setup-function) @@ -8628,7 +8695,7 @@ Not documented ;;;*** ;;;### (autoloads (ediff-show-registry) "ediff-mult" "ediff-mult.el" -;;;;;; (17731 48935)) +;;;;;; (17726 28398)) ;;; Generated autoloads from ediff-mult.el (autoload (quote ediff-show-registry) "ediff-mult" "\ @@ -8641,7 +8708,7 @@ Display Ediff's registry. ;;;*** ;;;### (autoloads (ediff-toggle-use-toolbar ediff-toggle-multiframe) -;;;;;; "ediff-util" "ediff-util.el" (17680 45980)) +;;;;;; "ediff-util" "ediff-util.el" (17679 3707)) ;;; Generated autoloads from ediff-util.el (autoload (quote ediff-toggle-multiframe) "ediff-util" "\ @@ -8662,7 +8729,7 @@ To change the default, set the variable `ediff-use-toolbar-p', which see. ;;;### (autoloads (format-kbd-macro read-kbd-macro edit-named-kbd-macro ;;;;;; edit-last-kbd-macro edit-kbd-macro) "edmacro" "edmacro.el" -;;;;;; (17618 27597)) +;;;;;; (17781 39501)) ;;; Generated autoloads from edmacro.el (defvar edmacro-eight-bits nil "\ @@ -8715,7 +8782,7 @@ or nil, use a compact 80-column format. ;;;*** ;;;### (autoloads (edt-emulation-on edt-set-scroll-margins) "edt" -;;;;;; "emulation/edt.el" (17504 41540)) +;;;;;; "emulation/edt.el" (17794 54379)) ;;; Generated autoloads from emulation/edt.el (autoload (quote edt-set-scroll-margins) "edt" "\ @@ -8733,7 +8800,7 @@ Turn on EDT Emulation. ;;;*** ;;;### (autoloads (electric-helpify with-electric-help) "ehelp" "ehelp.el" -;;;;;; (17504 41540)) +;;;;;; (17771 1419)) ;;; Generated autoloads from ehelp.el (autoload (quote with-electric-help) "ehelp" "\ @@ -8771,7 +8838,7 @@ Not documented ;;;*** ;;;### (autoloads (turn-on-eldoc-mode eldoc-mode eldoc-minor-mode-string) -;;;;;; "eldoc" "emacs-lisp/eldoc.el" (17721 38189)) +;;;;;; "eldoc" "emacs-lisp/eldoc.el" (17785 34467)) ;;; Generated autoloads from emacs-lisp/eldoc.el (defvar eldoc-minor-mode-string " ElDoc" "\ @@ -8809,8 +8876,8 @@ Emacs Lisp mode) that support Eldoc.") ;;;*** -;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (17781 +;;;;;; 39501)) ;;; Generated autoloads from elide-head.el (autoload (quote elide-head) "elide-head" "\ @@ -8826,7 +8893,7 @@ This is suitable as an entry on `find-file-hook' or appropriate mode hooks. ;;;*** ;;;### (autoloads (elint-initialize) "elint" "emacs-lisp/elint.el" -;;;;;; (17504 41540)) +;;;;;; (17785 34467)) ;;; Generated autoloads from emacs-lisp/elint.el (autoload (quote elint-initialize) "elint" "\ @@ -8837,8 +8904,8 @@ Initialize elint. ;;;*** ;;;### (autoloads (elp-results elp-instrument-package elp-instrument-list -;;;;;; elp-instrument-function) "elp" "emacs-lisp/elp.el" (17504 -;;;;;; 41540)) +;;;;;; elp-instrument-function) "elp" "emacs-lisp/elp.el" (17385 +;;;;;; 8490)) ;;; Generated autoloads from emacs-lisp/elp.el (autoload (quote elp-instrument-function) "elp" "\ @@ -8872,7 +8939,7 @@ displayed. ;;;*** ;;;### (autoloads (report-emacs-bug) "emacsbug" "mail/emacsbug.el" -;;;;;; (17746 34862)) +;;;;;; (17743 18143)) ;;; Generated autoloads from mail/emacsbug.el (autoload (quote report-emacs-bug) "emacsbug" "\ @@ -8887,7 +8954,7 @@ Prompts for bug subject. Leaves you in a mail buffer. ;;;;;; emerge-revisions emerge-files-with-ancestor-remote emerge-files-remote ;;;;;; emerge-files-with-ancestor-command emerge-files-command emerge-buffers-with-ancestor ;;;;;; emerge-buffers emerge-files-with-ancestor emerge-files) "emerge" -;;;;;; "emerge.el" (17504 41540)) +;;;;;; "emerge.el" (17167 2962)) ;;; Generated autoloads from emerge.el (defvar menu-bar-emerge-menu (make-sparse-keymap "Emerge")) @@ -8965,7 +9032,7 @@ Not documented ;;;*** ;;;### (autoloads (encoded-kbd-mode) "encoded-kb" "international/encoded-kb.el" -;;;;;; (17504 41540)) +;;;;;; (17792 9561)) ;;; Generated autoloads from international/encoded-kb.el (defvar encoded-kbd-mode nil "\ @@ -8994,7 +9061,7 @@ as a multilingual text encoded in a coding system set by ;;;*** ;;;### (autoloads (enriched-decode enriched-encode enriched-mode) -;;;;;; "enriched" "textmodes/enriched.el" (17746 34862)) +;;;;;; "enriched" "textmodes/enriched.el" (17786 56015)) ;;; Generated autoloads from textmodes/enriched.el (autoload (quote enriched-mode) "enriched" "\ @@ -9024,8 +9091,8 @@ Not documented ;;;*** -;;;### (autoloads (erc-handle-irc-url erc-select erc-select-read-args) -;;;;;; "erc" "erc/erc.el" (17746 35371)) +;;;### (autoloads (erc-handle-irc-url erc erc-select-read-args) "erc" +;;;;;; "erc/erc.el" (17792 9561)) ;;; Generated autoloads from erc/erc.el (autoload (quote erc-select-read-args) "erc" "\ @@ -9033,7 +9100,7 @@ Prompt the user for values of nick, server, port, and password. \(fn)" nil nil) -(autoload (quote erc-select) "erc" "\ +(autoload (quote erc) "erc" "\ Select connection parameters and run ERC. Non-interactively, it takes keyword arguments (server (erc-compute-server)) @@ -9044,7 +9111,7 @@ Non-interactively, it takes keyword arguments That is, if called with - (erc-select :server \"irc.freenode.net\" :full-name \"Harry S Truman\") + (erc :server \"irc.freenode.net\" :full-name \"Harry S Truman\") server and full-name will be set to those values, whereas `erc-compute-port', `erc-compute-nick' and `erc-compute-full-name' will @@ -9061,27 +9128,27 @@ Otherwise, connect to HOST:PORT as USER and /join CHANNEL. ;;;*** -;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (17746 -;;;;;; 34861)) +;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (17761 +;;;;;; 54014)) ;;; Generated autoloads from erc/erc-autoaway.el (autoload 'erc-autoaway-mode "erc-autoaway") ;;;*** -;;;### (autoloads nil "erc-button" "erc/erc-button.el" (17504 41540)) +;;;### (autoloads nil "erc-button" "erc/erc-button.el" (17447 52274)) ;;; Generated autoloads from erc/erc-button.el (autoload 'erc-button-mode "erc-button" nil t) ;;;*** -;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (17504 41540)) +;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (17761 54014)) ;;; Generated autoloads from erc/erc-compat.el (autoload 'erc-define-minor-mode "erc-compat") ;;;*** ;;;### (autoloads (erc-ctcp-query-DCC pcomplete/erc-mode/DCC erc-cmd-DCC) -;;;;;; "erc-dcc" "erc/erc-dcc.el" (17746 34861)) +;;;;;; "erc-dcc" "erc/erc-dcc.el" (17785 34467)) ;;; Generated autoloads from erc/erc-dcc.el (autoload (quote erc-cmd-DCC) "erc-dcc" "\ @@ -9113,7 +9180,7 @@ that subcommand. ;;;;;; erc-ezb-add-session erc-ezb-end-of-session-list erc-ezb-init-session-list ;;;;;; erc-ezb-identify erc-ezb-notice-autodetect erc-ezb-lookup-action ;;;;;; erc-ezb-get-login erc-cmd-ezb) "erc-ezbounce" "erc/erc-ezbounce.el" -;;;;;; (17504 41540)) +;;;;;; (17789 35159)) ;;; Generated autoloads from erc/erc-ezbounce.el (autoload (quote erc-cmd-ezb) "erc-ezbounce" "\ @@ -9144,7 +9211,7 @@ Identify to the EZBouncer server. \(fn MESSAGE)" nil nil) (autoload (quote erc-ezb-init-session-list) "erc-ezbounce" "\ -Reset the EZBounce session list to NIL. +Reset the EZBounce session list to nil. \(fn MESSAGE)" nil nil) @@ -9175,8 +9242,8 @@ Add EZBouncer convenience functions to ERC. ;;;*** -;;;### (autoloads (erc-fill) "erc-fill" "erc/erc-fill.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (erc-fill) "erc-fill" "erc/erc-fill.el" (17761 +;;;;;; 54014)) ;;; Generated autoloads from erc/erc-fill.el (autoload 'erc-fill-mode "erc-fill" nil t) @@ -9188,15 +9255,15 @@ You can put this on `erc-insert-modify-hook' and/or `erc-send-modify-hook'. ;;;*** -;;;### (autoloads nil "erc-hecomplete" "erc/erc-hecomplete.el" (17504 -;;;;;; 41540)) +;;;### (autoloads nil "erc-hecomplete" "erc/erc-hecomplete.el" (17391 +;;;;;; 39324)) ;;; Generated autoloads from erc/erc-hecomplete.el (autoload 'erc-hecomplete-mode "erc-hecomplete" nil t) ;;;*** ;;;### (autoloads (erc-identd-stop erc-identd-start) "erc-identd" -;;;;;; "erc/erc-identd.el" (17592 59702)) +;;;;;; "erc/erc-identd.el" (17601 9092)) ;;; Generated autoloads from erc/erc-identd.el (autoload 'erc-identd-mode "erc-identd") @@ -9218,7 +9285,7 @@ Not documented ;;;*** ;;;### (autoloads (erc-create-imenu-index) "erc-imenu" "erc/erc-imenu.el" -;;;;;; (17592 59702)) +;;;;;; (17601 9092)) ;;; Generated autoloads from erc/erc-imenu.el (autoload (quote erc-create-imenu-index) "erc-imenu" "\ @@ -9228,35 +9295,14 @@ Not documented ;;;*** -;;;### (autoloads nil "erc-join" "erc/erc-join.el" (17504 41540)) +;;;### (autoloads nil "erc-join" "erc/erc-join.el" (17468 10541)) ;;; Generated autoloads from erc/erc-join.el (autoload 'erc-autojoin-mode "erc-join" nil t) ;;;*** -;;;### (autoloads (erc-chanlist erc-list-channels) "erc-list" "erc/erc-list.el" -;;;;;; (17504 41540)) -;;; Generated autoloads from erc/erc-list.el - (autoload 'erc-list-mode "erc-list") - -(autoload (quote erc-list-channels) "erc-list" "\ -Display a buffer containing a list of channels on the current server. -Optional argument CHANNEL specifies a single channel to list (instead of every -available channel). - -\(fn &rest CHANNEL)" t nil) - -(autoload (quote erc-chanlist) "erc-list" "\ -Show a channel listing of the current server in a special mode. -Please note that this function only works with IRC servers which conform -to RFC and send the LIST header (#321) at start of list transmission. - -\(fn &optional CHANNELS)" t nil) - -;;;*** - ;;;### (autoloads (erc-save-buffer-in-logs erc-logging-enabled) "erc-log" -;;;;;; "erc/erc-log.el" (17623 45181)) +;;;;;; "erc/erc-log.el" (17761 54014)) ;;; Generated autoloads from erc/erc-log.el (autoload 'erc-log-mode "erc-log" nil t) @@ -9288,7 +9334,7 @@ You can save every individual message by putting this function on ;;;### (autoloads (erc-delete-dangerous-host erc-add-dangerous-host ;;;;;; erc-delete-keyword erc-add-keyword erc-delete-fool erc-add-fool ;;;;;; erc-delete-pal erc-add-pal) "erc-match" "erc/erc-match.el" -;;;;;; (17632 36219)) +;;;;;; (17632 41885)) ;;; Generated autoloads from erc/erc-match.el (autoload 'erc-match-mode "erc-match") @@ -9335,7 +9381,7 @@ Delete dangerous-host interactively to `erc-dangerous-hosts'. ;;;*** ;;;### (autoloads (erc-cmd-WHOLEFT) "erc-netsplit" "erc/erc-netsplit.el" -;;;;;; (17504 41540)) +;;;;;; (17468 10541)) ;;; Generated autoloads from erc/erc-netsplit.el (autoload 'erc-netsplit-mode "erc-netsplit") @@ -9347,7 +9393,7 @@ Show who's gone. ;;;*** ;;;### (autoloads (erc-server-select erc-determine-network) "erc-networks" -;;;;;; "erc/erc-networks.el" (17504 41540)) +;;;;;; "erc/erc-networks.el" (17761 54014)) ;;; Generated autoloads from erc/erc-networks.el (autoload (quote erc-determine-network) "erc-networks" "\ @@ -9365,7 +9411,7 @@ Interactively select a server to connect to using `erc-server-alist'. ;;;*** ;;;### (autoloads (pcomplete/erc-mode/NOTIFY erc-cmd-NOTIFY) "erc-notify" -;;;;;; "erc/erc-notify.el" (17504 41540)) +;;;;;; "erc/erc-notify.el" (17391 39324)) ;;; Generated autoloads from erc/erc-notify.el (autoload 'erc-notify-mode "erc-notify" nil t) @@ -9383,33 +9429,33 @@ Not documented ;;;*** -;;;### (autoloads nil "erc-page" "erc/erc-page.el" (17504 41540)) +;;;### (autoloads nil "erc-page" "erc/erc-page.el" (17391 39324)) ;;; Generated autoloads from erc/erc-page.el (autoload 'erc-page-mode "erc-page") ;;;*** -;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (17592 -;;;;;; 59702)) +;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (17601 +;;;;;; 9092)) ;;; Generated autoloads from erc/erc-pcomplete.el (autoload 'erc-completion-mode "erc-pcomplete" nil t) ;;;*** -;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (17504 41540)) +;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (17761 54014)) ;;; Generated autoloads from erc/erc-replace.el (autoload 'erc-replace-mode "erc-replace") ;;;*** -;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (17504 41540)) +;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (17391 39324)) ;;; Generated autoloads from erc/erc-ring.el (autoload 'erc-ring-mode "erc-ring" nil t) ;;;*** ;;;### (autoloads (erc-nickserv-identify erc-nickserv-identify-mode) -;;;;;; "erc-services" "erc/erc-services.el" (17504 41540)) +;;;;;; "erc-services" "erc/erc-services.el" (17391 39324)) ;;; Generated autoloads from erc/erc-services.el (autoload 'erc-services-mode "erc-services" nil t) @@ -9426,14 +9472,14 @@ When called interactively, read the password using `read-passwd'. ;;;*** -;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (17504 41540)) +;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (17761 54014)) ;;; Generated autoloads from erc/erc-sound.el (autoload 'erc-sound-mode "erc-sound") ;;;*** ;;;### (autoloads (erc-speedbar-browser) "erc-speedbar" "erc/erc-speedbar.el" -;;;;;; (17504 41540)) +;;;;;; (17391 39324)) ;;; Generated autoloads from erc/erc-speedbar.el (autoload (quote erc-speedbar-browser) "erc-speedbar" "\ @@ -9445,19 +9491,19 @@ This will add a speedbar major display mode. ;;;*** ;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (17618 -;;;;;; 27598)) +;;;;;; 8193)) ;;; Generated autoloads from erc/erc-spelling.el (autoload 'erc-spelling-mode "erc-spelling" nil t) ;;;*** -;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (17504 41540)) +;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (17785 34467)) ;;; Generated autoloads from erc/erc-stamp.el (autoload 'erc-timestamp-mode "erc-stamp" nil t) ;;;*** -;;;### (autoloads nil "erc-track" "erc/erc-track.el" (17592 59703)) +;;;### (autoloads nil "erc-track" "erc/erc-track.el" (17761 54014)) ;;; Generated autoloads from erc/erc-track.el (autoload 'erc-track-mode "erc-track" nil t) (autoload 'erc-track-when-inactive-mode "erc-track" nil t) @@ -9465,7 +9511,7 @@ This will add a speedbar major display mode. ;;;*** ;;;### (autoloads (erc-truncate-buffer erc-truncate-buffer-to-size) -;;;;;; "erc-truncate" "erc/erc-truncate.el" (17746 34861)) +;;;;;; "erc-truncate" "erc/erc-truncate.el" (17743 18143)) ;;; Generated autoloads from erc/erc-truncate.el (autoload 'erc-truncate-mode "erc-truncate" nil t) @@ -9485,7 +9531,7 @@ Meant to be used in hooks, like `erc-insert-post-hook'. ;;;*** ;;;### (autoloads (erc-xdcc-add-file) "erc-xdcc" "erc/erc-xdcc.el" -;;;;;; (17504 41540)) +;;;;;; (17391 39324)) ;;; Generated autoloads from erc/erc-xdcc.el (autoload (quote erc-xdcc-add-file) "erc-xdcc" "\ @@ -9495,8 +9541,8 @@ Add a file to `erc-xdcc-files'. ;;;*** -;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (17385 +;;;;;; 8492)) ;;; Generated autoloads from eshell/esh-mode.el (autoload (quote eshell-mode) "esh-mode" "\ @@ -9508,8 +9554,8 @@ Emacs shell interactive mode. ;;;*** -;;;### (autoloads (eshell-test) "esh-test" "eshell/esh-test.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (eshell-test) "esh-test" "eshell/esh-test.el" (17786 +;;;;;; 56015)) ;;; Generated autoloads from eshell/esh-test.el (autoload (quote eshell-test) "esh-test" "\ @@ -9520,7 +9566,7 @@ Test Eshell to verify that it works as expected. ;;;*** ;;;### (autoloads (eshell-report-bug eshell-command-result eshell-command -;;;;;; eshell) "eshell" "eshell/eshell.el" (17504 41540)) +;;;;;; eshell) "eshell" "eshell/eshell.el" (17786 56015)) ;;; Generated autoloads from eshell/eshell.el (autoload (quote eshell) "eshell" "\ @@ -9566,7 +9612,7 @@ Please include any configuration details that might be involved. ;;;;;; visit-tags-table tags-table-mode find-tag-default-function ;;;;;; find-tag-hook tags-add-tables tags-compression-info-list ;;;;;; tags-table-list tags-case-fold-search) "etags" "progmodes/etags.el" -;;;;;; (17504 41540)) +;;;;;; (17408 40149)) ;;; Generated autoloads from progmodes/etags.el (defvar tags-file-name nil "\ @@ -9581,7 +9627,7 @@ Use the `etags' program to make a tags table file.") A value of t means case-insensitive, a value of nil means case-sensitive. Any other value means use the setting of `case-fold-search'.") -(custom-autoload (quote tags-case-fold-search) "etags" t) +(custom-autoload (quote tags-case-fold-search) "etags") (defvar tags-table-list nil "\ *List of file names of tags tables to search. @@ -9590,7 +9636,7 @@ To switch to a new list of tags tables, setting this variable is sufficient. If you set this variable, do not also set `tags-file-name'. Use the `etags' program to make a tags table file.") -(custom-autoload (quote tags-table-list) "etags" t) +(custom-autoload (quote tags-table-list) "etags") (defvar tags-compression-info-list (quote ("" ".Z" ".bz2" ".gz" ".tgz")) "\ *List of extensions tried by etags when jka-compr is used. @@ -9599,7 +9645,7 @@ These extensions will be tried only if jka-compr was activated \(i.e. via customize of `auto-compression-mode' or by calling the function `auto-compression-mode').") -(custom-autoload (quote tags-compression-info-list) "etags" t) +(custom-autoload (quote tags-compression-info-list) "etags") (defvar tags-add-tables (quote ask-user) "\ *Control whether to add a new tags table to the current list. @@ -9607,14 +9653,14 @@ t means do; nil means don't (always start a new list). Any other value means ask the user whether to add a new tags table to the current list (as opposed to starting a new list).") -(custom-autoload (quote tags-add-tables) "etags" t) +(custom-autoload (quote tags-add-tables) "etags") (defvar find-tag-hook nil "\ *Hook to be run by \\[find-tag] after finding a tag. See `run-hooks'. The value in the buffer in which \\[find-tag] is done is used, not the value in the buffer \\[find-tag] goes to.") -(custom-autoload (quote find-tag-hook) "etags" t) +(custom-autoload (quote find-tag-hook) "etags") (defvar find-tag-default-function nil "\ *A function of no arguments used by \\[find-tag] to pick a default tag. @@ -9622,7 +9668,7 @@ If nil, and the symbol that is the value of `major-mode' has a `find-tag-default-function' property (see `put'), that is used. Otherwise, `find-tag-default' is used.") -(custom-autoload (quote find-tag-default-function) "etags" t) +(custom-autoload (quote find-tag-default-function) "etags") (autoload (quote tags-table-mode) "etags" "\ Major mode for tags table file buffers. @@ -9868,7 +9914,7 @@ for \\[find-tag] (which see). ;;;;;; ethio-fidel-to-sera-buffer ethio-fidel-to-sera-region ethio-sera-to-fidel-marker ;;;;;; ethio-sera-to-fidel-mail ethio-sera-to-fidel-mail-or-marker ;;;;;; ethio-sera-to-fidel-buffer ethio-sera-to-fidel-region setup-ethiopic-environment-internal) -;;;;;; "ethio-util" "language/ethio-util.el" (17557 12727)) +;;;;;; "ethio-util" "language/ethio-util.el" (17792 9562)) ;;; Generated autoloads from language/ethio-util.el (autoload (quote setup-ethiopic-environment-internal) "ethio-util" "\ @@ -10063,7 +10109,7 @@ Transcribe Ethiopic characters in ASCII depending on the file extension. ;;;### (autoloads (eudc-load-eudc eudc-query-form eudc-expand-inline ;;;;;; eudc-get-phone eudc-get-email eudc-set-server) "eudc" "net/eudc.el" -;;;;;; (17504 41540)) +;;;;;; (17786 56015)) ;;; Generated autoloads from net/eudc.el (autoload (quote eudc-set-server) "eudc" "\ @@ -10119,7 +10165,7 @@ This does nothing except loading eudc by autoload side-effect. ;;;### (autoloads (eudc-display-jpeg-as-button eudc-display-jpeg-inline ;;;;;; eudc-display-sound eudc-display-mail eudc-display-url eudc-display-generic-binary) -;;;;;; "eudc-bob" "net/eudc-bob.el" (17504 41540)) +;;;;;; "eudc-bob" "net/eudc-bob.el" (17786 56015)) ;;; Generated autoloads from net/eudc-bob.el (autoload (quote eudc-display-generic-binary) "eudc-bob" "\ @@ -10155,7 +10201,7 @@ Display a button for the JPEG DATA. ;;;*** ;;;### (autoloads (eudc-try-bbdb-insert eudc-insert-record-at-point-into-bbdb) -;;;;;; "eudc-export" "net/eudc-export.el" (17504 41540)) +;;;;;; "eudc-export" "net/eudc-export.el" (17786 56015)) ;;; Generated autoloads from net/eudc-export.el (autoload (quote eudc-insert-record-at-point-into-bbdb) "eudc-export" "\ @@ -10172,7 +10218,7 @@ Call `eudc-insert-record-at-point-into-bbdb' if on a record. ;;;*** ;;;### (autoloads (eudc-edit-hotlist) "eudc-hotlist" "net/eudc-hotlist.el" -;;;;;; (17504 41540)) +;;;;;; (17786 56015)) ;;; Generated autoloads from net/eudc-hotlist.el (autoload (quote eudc-edit-hotlist) "eudc-hotlist" "\ @@ -10182,8 +10228,8 @@ Edit the hotlist of directory servers in a specialized buffer. ;;;*** -;;;### (autoloads (ewoc-create) "ewoc" "emacs-lisp/ewoc.el" (17541 -;;;;;; 35103)) +;;;### (autoloads (ewoc-create) "ewoc" "emacs-lisp/ewoc.el" (17785 +;;;;;; 34467)) ;;; Generated autoloads from emacs-lisp/ewoc.el (autoload (quote ewoc-create) "ewoc" "\ @@ -10212,7 +10258,7 @@ fourth arg NOSEP non-nil inhibits this. ;;;### (autoloads (executable-make-buffer-file-executable-if-script-p ;;;;;; executable-self-display executable-set-magic executable-interpret ;;;;;; executable-command-find-posix-p) "executable" "progmodes/executable.el" -;;;;;; (17504 41540)) +;;;;;; (17394 12937)) ;;; Generated autoloads from progmodes/executable.el (autoload (quote executable-command-find-posix-p) "executable" "\ @@ -10254,7 +10300,7 @@ file modes. ;;;*** ;;;### (autoloads (expand-jump-to-next-slot expand-jump-to-previous-slot -;;;;;; expand-add-abbrevs) "expand" "expand.el" (17746 34860)) +;;;;;; expand-add-abbrevs) "expand" "expand.el" (17781 39501)) ;;; Generated autoloads from expand.el (autoload (quote expand-add-abbrevs) "expand" "\ @@ -10297,7 +10343,7 @@ This is used only in conjunction with `expand-add-abbrevs'. ;;;*** -;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (17759 28873)) +;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (17781 39502)) ;;; Generated autoloads from progmodes/f90.el (autoload (quote f90-mode) "f90" "\ @@ -10364,7 +10410,7 @@ with no args, if that value is non-nil. ;;;;;; facemenu-remove-all facemenu-remove-face-props facemenu-set-read-only ;;;;;; facemenu-set-intangible facemenu-set-invisible facemenu-set-face-from-menu ;;;;;; facemenu-set-background facemenu-set-foreground facemenu-set-face) -;;;;;; "facemenu" "facemenu.el" (17718 30634)) +;;;;;; "facemenu" "facemenu.el" (17780 31980)) ;;; Generated autoloads from facemenu.el (define-key global-map "\M-o" 'facemenu-keymap) (autoload 'facemenu-keymap "facemenu" "Keymap for face-changing commands." t 'keymap) @@ -10531,9 +10577,49 @@ argument BUFFER-NAME is nil, it defaults to *Colors*. ;;;*** +;;;### (autoloads (turn-on-fast-lock fast-lock-mode) "fast-lock" +;;;;;; "obsolete/fast-lock.el" (17786 56015)) +;;; Generated autoloads from obsolete/fast-lock.el + +(autoload (quote fast-lock-mode) "fast-lock" "\ +Toggle Fast Lock mode. +With arg, turn Fast Lock mode on if and only if arg is positive and the buffer +is associated with a file. Enable it automatically in your `~/.emacs' by: + + (setq font-lock-support-mode 'fast-lock-mode) + +If Fast Lock mode is enabled, and the current buffer does not contain any text +properties, any associated Font Lock cache is used if its timestamp matches the +buffer's file, and its `font-lock-keywords' match those that you are using. + +Font Lock caches may be saved: +- When you save the file's buffer. +- When you kill an unmodified file's buffer. +- When you exit Emacs, for all unmodified or saved buffers. +Depending on the value of `fast-lock-save-events'. +See also the commands `fast-lock-read-cache' and `fast-lock-save-cache'. + +Use \\[font-lock-fontify-buffer] to fontify the buffer if the cache is bad. + +Various methods of control are provided for the Font Lock cache. In general, +see variable `fast-lock-cache-directories' and function `fast-lock-cache-name'. +For saving, see variables `fast-lock-minimum-size', `fast-lock-save-events', +`fast-lock-save-others' and `fast-lock-save-faces'. + +\(fn &optional ARG)" t nil) + +(autoload (quote turn-on-fast-lock) "fast-lock" "\ +Unconditionally turn on Fast Lock mode. + +\(fn)" nil nil) + +(when (fboundp (quote add-minor-mode)) (defvar fast-lock-mode nil) (add-minor-mode (quote fast-lock-mode) nil)) + +;;;*** + ;;;### (autoloads (feedmail-queue-reminder feedmail-run-the-queue ;;;;;; feedmail-run-the-queue-global-prompt feedmail-run-the-queue-no-prompts -;;;;;; feedmail-send-it) "feedmail" "mail/feedmail.el" (17746 34862)) +;;;;;; feedmail-send-it) "feedmail" "mail/feedmail.el" (17743 18143)) ;;; Generated autoloads from mail/feedmail.el (autoload (quote feedmail-send-it) "feedmail" "\ @@ -10587,7 +10673,7 @@ you can set `feedmail-queue-reminder-alist' to nil. ;;;*** ;;;### (autoloads (ffap-bindings dired-at-point ffap-at-mouse ffap-menu -;;;;;; find-file-at-point ffap-next) "ffap" "ffap.el" (17746 34860)) +;;;;;; find-file-at-point ffap-next) "ffap" "ffap.el" (17781 39501)) ;;; Generated autoloads from ffap.el (autoload (quote ffap-next) "ffap" "\ @@ -10646,7 +10732,7 @@ Evaluate the forms in variable `ffap-bindings'. ;;;### (autoloads (file-cache-minibuffer-complete file-cache-add-directory-recursively ;;;;;; file-cache-add-directory-using-locate file-cache-add-directory-using-find ;;;;;; file-cache-add-file file-cache-add-directory-list file-cache-add-directory) -;;;;;; "filecache" "filecache.el" (17669 35274)) +;;;;;; "filecache" "filecache.el" (17781 39501)) ;;; Generated autoloads from filecache.el (autoload (quote file-cache-add-directory) "filecache" "\ @@ -10705,8 +10791,8 @@ the name is considered already unique; only the second substitution ;;;*** -;;;### (autoloads (filesets-init) "filesets" "filesets.el" (17715 -;;;;;; 55644)) +;;;### (autoloads (filesets-init) "filesets" "filesets.el" (17714 +;;;;;; 34817)) ;;; Generated autoloads from filesets.el (autoload (quote filesets-init) "filesets" "\ @@ -10717,7 +10803,7 @@ Set up hooks, load the cache file -- if existing -- and build the menu. ;;;*** -;;;### (autoloads nil "fill" "textmodes/fill.el" (17746 34862)) +;;;### (autoloads nil "fill" "textmodes/fill.el" (17743 45092)) ;;; Generated autoloads from textmodes/fill.el (put 'colon-double-space 'safe-local-variable 'booleanp) @@ -10725,7 +10811,7 @@ Set up hooks, load the cache file -- if existing -- and build the menu. ;;;### (autoloads (find-grep-dired find-name-dired find-dired find-grep-options ;;;;;; find-ls-subdir-switches find-ls-option) "find-dired" "find-dired.el" -;;;;;; (17652 14941)) +;;;;;; (17781 39501)) ;;; Generated autoloads from find-dired.el (defvar find-ls-option (if (eq system-type (quote berkeley-unix)) (quote ("-ls" . "-gilsb")) (quote ("-exec ls -ld {} \\;" . "-ld"))) "\ @@ -10786,7 +10872,7 @@ Thus ARG can also contain additional grep options. ;;;### (autoloads (ff-mouse-find-other-file-other-window ff-mouse-find-other-file ;;;;;; ff-find-other-file ff-get-other-file) "find-file" "find-file.el" -;;;;;; (17595 2870)) +;;;;;; (17781 39501)) ;;; Generated autoloads from find-file.el (defvar ff-special-constructs (quote (("^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]" lambda nil (buffer-substring (match-beginning 2) (match-end 2))))) "\ @@ -10880,7 +10966,7 @@ Visit the file you click on in another window. ;;;;;; find-variable find-variable-noselect find-function-other-frame ;;;;;; find-function-other-window find-function find-function-noselect ;;;;;; find-function-search-for-symbol find-library) "find-func" -;;;;;; "emacs-lisp/find-func.el" (17746 34861)) +;;;;;; "emacs-lisp/find-func.el" (17786 56015)) ;;; Generated autoloads from emacs-lisp/find-func.el (autoload (quote find-library) "find-func" "\ @@ -10955,7 +11041,7 @@ The library where VARIABLE is defined is searched for in FILE or \(fn VARIABLE &optional FILE)" nil nil) (autoload (quote find-variable) "find-func" "\ -Find the definition of the VARIABLE near point. +Find the definition of the VARIABLE at or before point. Finds the library containing the definition of the variable near point (selected by `variable-at-point') in a buffer and @@ -11034,7 +11120,7 @@ Define some key bindings for the find-function family of functions. ;;;*** ;;;### (autoloads (find-lisp-find-dired-filter find-lisp-find-dired-subdirectories -;;;;;; find-lisp-find-dired) "find-lisp" "find-lisp.el" (17504 41540)) +;;;;;; find-lisp-find-dired) "find-lisp" "find-lisp.el" (17781 39501)) ;;; Generated autoloads from find-lisp.el (autoload (quote find-lisp-find-dired) "find-lisp" "\ @@ -11055,7 +11141,7 @@ Change the filter on a find-lisp-find-dired buffer to REGEXP. ;;;*** ;;;### (autoloads (finder-by-keyword finder-commentary finder-list-keywords) -;;;;;; "finder" "finder.el" (17504 41540)) +;;;;;; "finder" "finder.el" (17476 4797)) ;;; Generated autoloads from finder.el (autoload (quote finder-list-keywords) "finder" "\ @@ -11077,7 +11163,7 @@ Find packages matching a given keyword. ;;;*** ;;;### (autoloads (enable-flow-control-on enable-flow-control) "flow-ctrl" -;;;;;; "flow-ctrl.el" (17504 41540)) +;;;;;; "flow-ctrl.el" (17781 39501)) ;;; Generated autoloads from flow-ctrl.el (autoload (quote enable-flow-control) "flow-ctrl" "\ @@ -11099,7 +11185,7 @@ to get the effect of a C-q. ;;;*** ;;;### (autoloads (fill-flowed fill-flowed-encode) "flow-fill" "gnus/flow-fill.el" -;;;;;; (17504 41540)) +;;;;;; (17476 4798)) ;;; Generated autoloads from gnus/flow-fill.el (autoload (quote fill-flowed-encode) "flow-fill" "\ @@ -11115,7 +11201,7 @@ Not documented ;;;*** ;;;### (autoloads (flymake-mode-off flymake-mode-on flymake-mode) -;;;;;; "flymake" "progmodes/flymake.el" (17715 55646)) +;;;;;; "flymake" "progmodes/flymake.el" (17770 2412)) ;;; Generated autoloads from progmodes/flymake.el (autoload (quote flymake-mode) "flymake" "\ @@ -11139,7 +11225,7 @@ Turn flymake mode off. ;;;### (autoloads (flyspell-buffer flyspell-region flyspell-mode-off ;;;;;; turn-off-flyspell turn-on-flyspell flyspell-mode flyspell-prog-mode) -;;;;;; "flyspell" "textmodes/flyspell.el" (17759 28874)) +;;;;;; "flyspell" "textmodes/flyspell.el" (17786 56015)) ;;; Generated autoloads from textmodes/flyspell.el (autoload (quote flyspell-prog-mode) "flyspell" "\ @@ -11208,7 +11294,7 @@ Flyspell whole buffer. ;;;### (autoloads (follow-delete-other-windows-and-split follow-mode ;;;;;; turn-off-follow-mode turn-on-follow-mode) "follow" "follow.el" -;;;;;; (17746 34860)) +;;;;;; (17743 18143)) ;;; Generated autoloads from follow.el (autoload (quote turn-on-follow-mode) "follow" "\ @@ -11282,8 +11368,8 @@ in your `~/.emacs' file, replacing [f7] by your favourite key: ;;;*** -;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (17786 +;;;;;; 56015)) ;;; Generated autoloads from mail/footnote.el (autoload (quote footnote-mode) "footnote" "\ @@ -11304,7 +11390,7 @@ key binding ;;;*** ;;;### (autoloads (forms-find-file-other-window forms-find-file forms-mode) -;;;;;; "forms" "forms.el" (17504 41540)) +;;;;;; "forms" "forms.el" (17781 39501)) ;;; Generated autoloads from forms.el (autoload (quote forms-mode) "forms" "\ @@ -11341,7 +11427,7 @@ Visit a file in Forms mode in other window. ;;;*** ;;;### (autoloads (fortran-mode fortran-tab-mode-default) "fortran" -;;;;;; "progmodes/fortran.el" (17658 57872)) +;;;;;; "progmodes/fortran.el" (17781 39502)) ;;; Generated autoloads from progmodes/fortran.el (defvar fortran-tab-mode-default nil "\ @@ -11427,7 +11513,7 @@ with no args, if that value is non-nil. ;;;*** ;;;### (autoloads (fortune fortune-to-signature fortune-compile fortune-from-region -;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (17504 41540)) +;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (17385 8495)) ;;; Generated autoloads from play/fortune.el (autoload (quote fortune-add-fortune) "fortune" "\ @@ -11477,7 +11563,7 @@ and choose the directory as the fortune-file. ;;;*** ;;;### (autoloads (gdb-enable-debug gdba) "gdb-ui" "progmodes/gdb-ui.el" -;;;;;; (17759 28873)) +;;;;;; (17780 18172)) ;;; Generated autoloads from progmodes/gdb-ui.el (autoload (quote gdba) "gdb-ui" "\ @@ -11540,8 +11626,8 @@ Non-nil means record the process input and output in `gdb-debug-ring'.") ;;;*** ;;;### (autoloads (generic-make-keywords-list generic-mode generic-mode-internal -;;;;;; define-generic-mode) "generic" "emacs-lisp/generic.el" (17504 -;;;;;; 41540)) +;;;;;; define-generic-mode) "generic" "emacs-lisp/generic.el" (17785 +;;;;;; 34467)) ;;; Generated autoloads from emacs-lisp/generic.el (defvar generic-mode-list nil "\ @@ -11616,7 +11702,7 @@ regular expression that can be used as an element of ;;;*** ;;;### (autoloads (glasses-mode) "glasses" "progmodes/glasses.el" -;;;;;; (17504 41540)) +;;;;;; (17788 21816)) ;;; Generated autoloads from progmodes/glasses.el (autoload (quote glasses-mode) "glasses" "\ @@ -11629,7 +11715,7 @@ at places they belong to. ;;;*** ;;;### (autoloads (gmm-tool-bar-from-list gmm-widget-p gmm-error -;;;;;; gmm-message) "gmm-utils" "gnus/gmm-utils.el" (17715 55645)) +;;;;;; gmm-message) "gmm-utils" "gnus/gmm-utils.el" (17714 34817)) ;;; Generated autoloads from gnus/gmm-utils.el (autoload (quote gmm-message) "gmm-utils" "\ @@ -11676,7 +11762,7 @@ DEFAULT-MAP specifies the default key map for ICON-LIST. ;;;*** ;;;### (autoloads (gnus gnus-other-frame gnus-slave gnus-no-server -;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (17759 28869)) +;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (17767 19634)) ;;; Generated autoloads from gnus/gnus.el (when (fboundp 'custom-autoload) (custom-autoload 'gnus-select-method "gnus")) @@ -11729,7 +11815,7 @@ prompt the user for the name of an NNTP server to use. ;;;;;; gnus-agent-get-undownloaded-list gnus-agent-delete-group ;;;;;; gnus-agent-rename-group gnus-agent-possibly-save-gcc gnus-agentize ;;;;;; gnus-slave-unplugged gnus-plugged gnus-unplugged) "gnus-agent" -;;;;;; "gnus/gnus-agent.el" (17732 62702)) +;;;;;; "gnus/gnus-agent.el" (17767 19633)) ;;; Generated autoloads from gnus/gnus-agent.el (autoload (quote gnus-unplugged) "gnus-agent" "\ @@ -11820,7 +11906,7 @@ If CLEAN, obsolete (ignore). ;;;*** ;;;### (autoloads (gnus-article-prepare-display) "gnus-art" "gnus/gnus-art.el" -;;;;;; (17746 34861)) +;;;;;; (17767 19634)) ;;; Generated autoloads from gnus/gnus-art.el (autoload (quote gnus-article-prepare-display) "gnus-art" "\ @@ -11831,7 +11917,7 @@ Make the current buffer look like a nice article. ;;;*** ;;;### (autoloads (gnus-audio-play) "gnus-audio" "gnus/gnus-audio.el" -;;;;;; (17686 35982)) +;;;;;; (17788 21815)) ;;; Generated autoloads from gnus/gnus-audio.el (autoload (quote gnus-audio-play) "gnus-audio" "\ @@ -11843,8 +11929,8 @@ Play a sound FILE through the speaker. ;;;### (autoloads (gnus-cache-delete-group gnus-cache-rename-group ;;;;;; gnus-cache-generate-nov-databases gnus-cache-generate-active -;;;;;; gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (17686 -;;;;;; 35982)) +;;;;;; gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (17385 +;;;;;; 8493)) ;;; Generated autoloads from gnus/gnus-cache.el (autoload (quote gnus-jog-cache) "gnus-cache" "\ @@ -11886,7 +11972,7 @@ supported. ;;;*** ;;;### (autoloads (gnus-delay-initialize gnus-delay-send-queue gnus-delay-article) -;;;;;; "gnus-delay" "gnus/gnus-delay.el" (17686 35982)) +;;;;;; "gnus-delay" "gnus/gnus-delay.el" (17385 8493)) ;;; Generated autoloads from gnus/gnus-delay.el (autoload (quote gnus-delay-article) "gnus-delay" "\ @@ -11922,7 +12008,7 @@ Checking delayed messages is skipped if optional arg NO-CHECK is non-nil. ;;;*** ;;;### (autoloads (gnus-user-format-function-D gnus-user-format-function-d) -;;;;;; "gnus-diary" "gnus/gnus-diary.el" (17746 34861)) +;;;;;; "gnus-diary" "gnus/gnus-diary.el" (17797 50970)) ;;; Generated autoloads from gnus/gnus-diary.el (autoload (quote gnus-user-format-function-d) "gnus-diary" "\ @@ -11938,7 +12024,7 @@ Not documented ;;;*** ;;;### (autoloads (turn-on-gnus-dired-mode) "gnus-dired" "gnus/gnus-dired.el" -;;;;;; (17686 35982)) +;;;;;; (17385 8493)) ;;; Generated autoloads from gnus/gnus-dired.el (autoload (quote turn-on-gnus-dired-mode) "gnus-dired" "\ @@ -11949,7 +12035,7 @@ Convenience method to turn on gnus-dired-mode. ;;;*** ;;;### (autoloads (gnus-draft-reminder) "gnus-draft" "gnus/gnus-draft.el" -;;;;;; (17701 49519)) +;;;;;; (17698 30385)) ;;; Generated autoloads from gnus/gnus-draft.el (autoload (quote gnus-draft-reminder) "gnus-draft" "\ @@ -11961,8 +12047,8 @@ Reminder user if there are unsent drafts. ;;;### (autoloads (gnus-convert-png-to-face gnus-convert-face-to-png ;;;;;; gnus-face-from-file gnus-x-face-from-file gnus-insert-random-x-face-header -;;;;;; gnus-random-x-face) "gnus-fun" "gnus/gnus-fun.el" (17686 -;;;;;; 35982)) +;;;;;; gnus-random-x-face) "gnus-fun" "gnus/gnus-fun.el" (17476 +;;;;;; 4800)) ;;; Generated autoloads from gnus/gnus-fun.el (autoload (quote gnus-random-x-face) "gnus-fun" "\ @@ -12001,7 +12087,7 @@ FILE should be a PNG file that's 48x48 and smaller than or equal to ;;;*** ;;;### (autoloads (gnus-fetch-group-other-frame gnus-fetch-group) -;;;;;; "gnus-group" "gnus/gnus-group.el" (17731 48936)) +;;;;;; "gnus-group" "gnus/gnus-group.el" (17767 19634)) ;;; Generated autoloads from gnus/gnus-group.el (autoload (quote gnus-fetch-group) "gnus-group" "\ @@ -12018,7 +12104,7 @@ Pop up a frame and enter GROUP. ;;;*** ;;;### (autoloads (gnus-batch-score) "gnus-kill" "gnus/gnus-kill.el" -;;;;;; (17686 35982)) +;;;;;; (17788 21815)) ;;; Generated autoloads from gnus/gnus-kill.el (defalias (quote gnus-batch-kill) (quote gnus-batch-score)) @@ -12033,7 +12119,7 @@ Usage: emacs -batch -l ~/.emacs -l gnus -f gnus-batch-score ;;;### (autoloads (gnus-mailing-list-mode gnus-mailing-list-insinuate ;;;;;; turn-on-gnus-mailing-list-mode) "gnus-ml" "gnus/gnus-ml.el" -;;;;;; (17686 35982)) +;;;;;; (17551 7908)) ;;; Generated autoloads from gnus/gnus-ml.el (autoload (quote turn-on-gnus-mailing-list-mode) "gnus-ml" "\ @@ -12058,7 +12144,7 @@ Minor mode for providing mailing-list commands. ;;;### (autoloads (gnus-group-split-fancy gnus-group-split gnus-group-split-update ;;;;;; gnus-group-split-setup) "gnus-mlspl" "gnus/gnus-mlspl.el" -;;;;;; (17686 35982)) +;;;;;; (17385 8493)) ;;; Generated autoloads from gnus/gnus-mlspl.el (autoload (quote gnus-group-split-setup) "gnus-mlspl" "\ @@ -12159,7 +12245,7 @@ Calling (gnus-group-split-fancy nil nil \"mail.others\") returns: ;;;*** ;;;### (autoloads (gnus-change-server) "gnus-move" "gnus/gnus-move.el" -;;;;;; (17686 35982)) +;;;;;; (17788 21815)) ;;; Generated autoloads from gnus/gnus-move.el (autoload (quote gnus-change-server) "gnus-move" "\ @@ -12171,7 +12257,7 @@ Update the .newsrc.eld file to reflect the change of nntp server. ;;;*** ;;;### (autoloads (gnus-button-reply gnus-button-mailto gnus-msg-mail) -;;;;;; "gnus-msg" "gnus/gnus-msg.el" (17686 35982)) +;;;;;; "gnus-msg" "gnus/gnus-msg.el" (17385 8493)) ;;; Generated autoloads from gnus/gnus-msg.el (autoload (quote gnus-msg-mail) "gnus-msg" "\ @@ -12196,7 +12282,7 @@ Like `message-reply'. ;;;*** ;;;### (autoloads (gnus-nocem-load-cache gnus-nocem-scan-groups) -;;;;;; "gnus-nocem" "gnus/gnus-nocem.el" (17686 35982)) +;;;;;; "gnus-nocem" "gnus/gnus-nocem.el" (17788 21815)) ;;; Generated autoloads from gnus/gnus-nocem.el (autoload (quote gnus-nocem-scan-groups) "gnus-nocem" "\ @@ -12213,7 +12299,7 @@ Load the NoCeM cache. ;;;### (autoloads (gnus-treat-newsgroups-picon gnus-treat-mail-picon ;;;;;; gnus-treat-from-picon) "gnus-picon" "gnus/gnus-picon.el" -;;;;;; (17686 35982)) +;;;;;; (17385 8493)) ;;; Generated autoloads from gnus/gnus-picon.el (autoload (quote gnus-treat-from-picon) "gnus-picon" "\ @@ -12240,7 +12326,7 @@ If picons are already displayed, remove them. ;;;;;; gnus-sorted-nintersection gnus-sorted-range-intersection ;;;;;; gnus-sorted-intersection gnus-intersection gnus-sorted-complement ;;;;;; gnus-sorted-ndifference gnus-sorted-difference) "gnus-range" -;;;;;; "gnus/gnus-range.el" (17686 35982)) +;;;;;; "gnus/gnus-range.el" (17385 8493)) ;;; Generated autoloads from gnus/gnus-range.el (autoload (quote gnus-sorted-difference) "gnus-range" "\ @@ -12308,7 +12394,7 @@ Add NUM into sorted LIST by side effect. ;;;*** ;;;### (autoloads (gnus-registry-install-hooks gnus-registry-initialize) -;;;;;; "gnus-registry" "gnus/gnus-registry.el" (17703 53657)) +;;;;;; "gnus-registry" "gnus/gnus-registry.el" (17704 4325)) ;;; Generated autoloads from gnus/gnus-registry.el (autoload (quote gnus-registry-initialize) "gnus-registry" "\ @@ -12324,8 +12410,8 @@ Install the registry hooks. ;;;*** ;;;### (autoloads (gnus-sieve-article-add-rule gnus-sieve-generate -;;;;;; gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (17686 -;;;;;; 35982)) +;;;;;; gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (17476 +;;;;;; 4800)) ;;; Generated autoloads from gnus/gnus-sieve.el (autoload (quote gnus-sieve-update) "gnus-sieve" "\ @@ -12353,7 +12439,7 @@ Not documented ;;;*** ;;;### (autoloads (gnus-batch-brew-soup) "gnus-soup" "gnus/gnus-soup.el" -;;;;;; (17686 35982)) +;;;;;; (17788 21815)) ;;; Generated autoloads from gnus/gnus-soup.el (autoload (quote gnus-batch-brew-soup) "gnus-soup" "\ @@ -12373,7 +12459,7 @@ Note -- this function hasn't been implemented yet. ;;;*** ;;;### (autoloads (gnus-update-format) "gnus-spec" "gnus/gnus-spec.el" -;;;;;; (17686 35982)) +;;;;;; (17385 8493)) ;;; Generated autoloads from gnus/gnus-spec.el (autoload (quote gnus-update-format) "gnus-spec" "\ @@ -12384,8 +12470,8 @@ Update the format specification near point. ;;;*** ;;;### (autoloads (gnus-fixup-nnimap-unread-after-getting-new-news -;;;;;; gnus-declare-backend) "gnus-start" "gnus/gnus-start.el" (17686 -;;;;;; 35982)) +;;;;;; gnus-declare-backend) "gnus-start" "gnus/gnus-start.el" (17767 +;;;;;; 19634)) ;;; Generated autoloads from gnus/gnus-start.el (autoload (quote gnus-declare-backend) "gnus-start" "\ @@ -12401,7 +12487,7 @@ Not documented ;;;*** ;;;### (autoloads (gnus-add-configuration) "gnus-win" "gnus/gnus-win.el" -;;;;;; (17686 35982)) +;;;;;; (17385 8493)) ;;; Generated autoloads from gnus/gnus-win.el (autoload (quote gnus-add-configuration) "gnus-win" "\ @@ -12411,7 +12497,7 @@ Add the window configuration CONF to `gnus-buffer-configuration'. ;;;*** -;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (17504 41540)) +;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (17767 19634)) ;;; Generated autoloads from play/gomoku.el (autoload (quote gomoku) "gomoku" "\ @@ -12438,7 +12524,7 @@ Use \\[describe-mode] for more info. ;;;*** ;;;### (autoloads (goto-address goto-address-at-point) "goto-addr" -;;;;;; "net/goto-addr.el" (17580 16976)) +;;;;;; "net/goto-addr.el" (17579 53341)) ;;; Generated autoloads from net/goto-addr.el (define-obsolete-function-alias (quote goto-address-at-mouse) (quote goto-address-at-point) "22.1") @@ -12468,7 +12554,7 @@ Also fontifies the buffer appropriately (see `goto-address-fontify-p' and ;;;### (autoloads (rgrep lgrep grep-find grep grep-mode grep-compute-defaults ;;;;;; grep-process-setup grep-setup-hook grep-find-command grep-command -;;;;;; grep-window-height) "grep" "progmodes/grep.el" (17645 45313)) +;;;;;; grep-window-height) "grep" "progmodes/grep.el" (17645 64048)) ;;; Generated autoloads from progmodes/grep.el (defvar grep-window-height nil "\ @@ -12605,7 +12691,7 @@ This command shares argument histories with \\[lgrep] and \\[grep-find]. ;;;*** -;;;### (autoloads (gs-load-image) "gs" "gs.el" (17598 60524)) +;;;### (autoloads (gs-load-image) "gs" "gs.el" (17385 8485)) ;;; Generated autoloads from gs.el (autoload (quote gs-load-image) "gs" "\ @@ -12619,7 +12705,7 @@ the form \"WINDOW-ID PIXMAP-ID\". Value is non-nil if successful. ;;;*** ;;;### (autoloads (gdb-script-mode bashdb jdb pdb perldb xdb dbx -;;;;;; sdb gdb) "gud" "progmodes/gud.el" (17661 56350)) +;;;;;; sdb gdb) "gud" "progmodes/gud.el" (17785 34467)) ;;; Generated autoloads from progmodes/gud.el (autoload (quote gdb) "gud" "\ @@ -12629,8 +12715,12 @@ directory and source-file directory for your debugger. By default this command starts GDB using a graphical interface. See `gdba' for more information. -To run GDB in text command mode, set `gud-gdb-command-name' to -\"gdb --fullname\" and include the pathname, if necessary. +To run GDB in text command mode, replace the GDB \"--annotate=3\" +option with \"--fullname\" either in the minibuffer for the +current Emacs session, or the custom variable +`gud-gdb-command-name' for all future sessions. You need to use +text command mode to debug multiple programs within one Emacs +session. \(fn COMMAND-LINE)" t nil) @@ -12675,7 +12765,7 @@ and source-file directory for your debugger. (autoload (quote jdb) "gud" "\ Run jdb with command line COMMAND-LINE in a buffer. The buffer is named \"*gud*\" if no initial class is given or -\"*gud-<initial-class-basename>*\" if there is. If the \"-classpath\" +\"*gud-<initial-class-basename>*\" if there is. If the \"-classpath\" switch is given, omit all whitespace between it and its value. See `gud-jdb-use-classpath' and `gud-jdb-classpath' documentation for @@ -12705,8 +12795,8 @@ Major mode for editing GDB scripts ;;;*** -;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (17759 -;;;;;; 28871)) +;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (17786 +;;;;;; 56015)) ;;; Generated autoloads from play/handwrite.el (autoload (quote handwrite) "handwrite" "\ @@ -12724,7 +12814,7 @@ Variables: handwrite-linespace (default 12) ;;;*** ;;;### (autoloads (hanoi-unix-64 hanoi-unix hanoi) "hanoi" "play/hanoi.el" -;;;;;; (17746 34862)) +;;;;;; (17743 18144)) ;;; Generated autoloads from play/hanoi.el (autoload (quote hanoi) "hanoi" "\ @@ -12754,7 +12844,7 @@ to be updated. ;;;### (autoloads (scan-buf-previous-region scan-buf-next-region ;;;;;; scan-buf-move-to-region help-at-pt-display-when-idle help-at-pt-set-timer ;;;;;; help-at-pt-cancel-timer display-local-help help-at-pt-kbd-string -;;;;;; help-at-pt-string) "help-at-pt" "help-at-pt.el" (17710 3074)) +;;;;;; help-at-pt-string) "help-at-pt" "help-at-pt.el" (17709 24917)) ;;; Generated autoloads from help-at-pt.el (autoload (quote help-at-pt-string) "help-at-pt" "\ @@ -12884,7 +12974,7 @@ different regions. With numeric argument ARG, behaves like ;;;### (autoloads (describe-categories describe-syntax describe-variable ;;;;;; variable-at-point describe-function-1 describe-simplify-lib-file-name ;;;;;; help-C-file-name describe-function) "help-fns" "help-fns.el" -;;;;;; (17736 44182)) +;;;;;; (17797 50969)) ;;; Generated autoloads from help-fns.el (autoload (quote describe-function) "help-fns" "\ @@ -12909,7 +12999,7 @@ Not documented \(fn FUNCTION)" nil nil) (autoload (quote variable-at-point) "help-fns" "\ -Return the bound variable symbol found around point. +Return the bound variable symbol found at or before point. Return 0 if there is no such symbol. If ANY-SYMBOL is non-nil, don't insist the symbol be bound. @@ -12941,7 +13031,7 @@ BUFFER should be a buffer or a buffer name. ;;;*** ;;;### (autoloads (three-step-help) "help-macro" "help-macro.el" -;;;;;; (17504 41540)) +;;;;;; (17781 39501)) ;;; Generated autoloads from help-macro.el (defvar three-step-help nil "\ @@ -12957,7 +13047,7 @@ A value of nil means skip the middle step, so that ;;;### (autoloads (help-xref-on-pp help-insert-xref-button help-xref-button ;;;;;; help-make-xrefs help-setup-xref help-mode-finish help-mode-setup -;;;;;; help-mode) "help-mode" "help-mode.el" (17604 18983)) +;;;;;; help-mode) "help-mode" "help-mode.el" (17604 60389)) ;;; Generated autoloads from help-mode.el (autoload (quote help-mode) "help-mode" "\ @@ -13040,7 +13130,7 @@ Add xrefs for symbols in `pp's output between FROM and TO. ;;;*** ;;;### (autoloads (Helper-help Helper-describe-bindings) "helper" -;;;;;; "emacs-lisp/helper.el" (17586 63376)) +;;;;;; "emacs-lisp/helper.el" (17785 34467)) ;;; Generated autoloads from emacs-lisp/helper.el (autoload (quote Helper-describe-bindings) "helper" "\ @@ -13056,7 +13146,7 @@ Provide help for current mode. ;;;*** ;;;### (autoloads (hexlify-buffer hexl-find-file hexl-mode) "hexl" -;;;;;; "hexl.el" (17746 34860)) +;;;;;; "hexl.el" (17776 24487)) ;;; Generated autoloads from hexl.el (autoload (quote hexl-mode) "hexl" "\ @@ -13153,7 +13243,7 @@ This discards the buffer's undo information. ;;;### (autoloads (hi-lock-write-interactive-patterns hi-lock-unface-buffer ;;;;;; hi-lock-face-phrase-buffer hi-lock-face-buffer hi-lock-line-face-buffer ;;;;;; global-hi-lock-mode hi-lock-mode) "hi-lock" "hi-lock.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8485)) ;;; Generated autoloads from hi-lock.el (autoload (quote hi-lock-mode) "hi-lock" "\ @@ -13206,10 +13296,11 @@ is found. A mode is excluded if it's in the list `hi-lock-exclude-modes'. Non-nil if Global-Hi-Lock mode is enabled. See the command `global-hi-lock-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -either customize it (see the info node `Easy Customization') -or call the function `global-hi-lock-mode'.") +use either \\[customize] or the function `global-hi-lock-mode'.") -(custom-autoload (quote global-hi-lock-mode) "hi-lock" nil) +(custom-autoload (quote global-hi-lock-mode) "hi-lock") + +(put (quote global-hi-lock-mode) (quote custom-set) (quote custom-set-minor-mode)) (autoload (quote global-hi-lock-mode) "hi-lock" "\ Toggle Hi-Lock mode in every buffer. @@ -13278,7 +13369,7 @@ be found in variable `hi-lock-interactive-patterns'. ;;;*** ;;;### (autoloads (hide-ifdef-lines hide-ifdef-read-only hide-ifdef-initially -;;;;;; hide-ifdef-mode) "hideif" "progmodes/hideif.el" (17522 22309)) +;;;;;; hide-ifdef-mode) "hideif" "progmodes/hideif.el" (17520 49736)) ;;; Generated autoloads from progmodes/hideif.el (autoload (quote hide-ifdef-mode) "hideif" "\ @@ -13318,22 +13409,22 @@ how the hiding is done: (defvar hide-ifdef-initially nil "\ *Non-nil means call `hide-ifdefs' when Hide-Ifdef mode is first activated.") -(custom-autoload (quote hide-ifdef-initially) "hideif" t) +(custom-autoload (quote hide-ifdef-initially) "hideif") (defvar hide-ifdef-read-only nil "\ *Set to non-nil if you want buffer to be read-only while hiding text.") -(custom-autoload (quote hide-ifdef-read-only) "hideif" t) +(custom-autoload (quote hide-ifdef-read-only) "hideif") (defvar hide-ifdef-lines nil "\ *Non-nil means hide the #ifX, #else, and #endif lines.") -(custom-autoload (quote hide-ifdef-lines) "hideif" t) +(custom-autoload (quote hide-ifdef-lines) "hideif") ;;;*** ;;;### (autoloads (hs-minor-mode) "hideshow" "progmodes/hideshow.el" -;;;;;; (17504 41540)) +;;;;;; (17771 26718)) ;;; Generated autoloads from progmodes/hideshow.el (defvar hs-special-modes-alist (quote ((c-mode "{" "}" "/[*/]" nil hs-c-like-adjust-block-beginning) (c++-mode "{" "}" "/[*/]" nil hs-c-like-adjust-block-beginning) (bibtex-mode ("^@\\S(*\\(\\s(\\)" 1)) (java-mode "{" "}" "/[*/]" nil hs-c-like-adjust-block-beginning))) "\ @@ -13391,7 +13482,7 @@ Key bindings: ;;;;;; highlight-compare-buffers highlight-changes-rotate-faces ;;;;;; highlight-changes-previous-change highlight-changes-next-change ;;;;;; highlight-changes-mode highlight-changes-remove-highlight) -;;;;;; "hilit-chg" "hilit-chg.el" (17504 41540)) +;;;;;; "hilit-chg" "hilit-chg.el" (17781 39501)) ;;; Generated autoloads from hilit-chg.el (autoload (quote highlight-changes-remove-highlight) "hilit-chg" "\ @@ -13521,7 +13612,7 @@ variable `highlight-changes-global-changes-existing-buffers' is non-nil). ;;;;;; hippie-expand-ignore-buffers hippie-expand-max-buffers hippie-expand-no-restriction ;;;;;; hippie-expand-dabbrev-as-symbol hippie-expand-dabbrev-skip-space ;;;;;; hippie-expand-verbose hippie-expand-try-functions-list) "hippie-exp" -;;;;;; "hippie-exp.el" (17504 41540)) +;;;;;; "hippie-exp.el" (17781 39501)) ;;; Generated autoloads from hippie-exp.el (defvar hippie-expand-try-functions-list (quote (try-complete-file-name-partially try-complete-file-name try-expand-all-abbrevs try-expand-list try-expand-line try-expand-dabbrev try-expand-dabbrev-all-buffers try-expand-dabbrev-from-kill try-complete-lisp-symbol-partially try-complete-lisp-symbol)) "\ @@ -13594,7 +13685,7 @@ argument VERBOSE non-nil makes the function verbose. ;;;*** ;;;### (autoloads (global-hl-line-mode hl-line-mode) "hl-line" "hl-line.el" -;;;;;; (17652 40095)) +;;;;;; (17656 37701)) ;;; Generated autoloads from hl-line.el (autoload (quote hl-line-mode) "hl-line" "\ @@ -13635,7 +13726,7 @@ Global-Hl-Line mode uses the functions `global-hl-line-unhighlight' and ;;;*** ;;;### (autoloads (list-holidays holidays) "holidays" "calendar/holidays.el" -;;;;;; (17504 41540)) +;;;;;; (17427 10521)) ;;; Generated autoloads from calendar/holidays.el (autoload (quote holidays) "holidays" "\ @@ -13671,8 +13762,35 @@ The optional LABEL is used to label the buffer created. ;;;*** -;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (17746 -;;;;;; 34861)) +;;;### (autoloads (hscroll-global-mode hscroll-mode turn-on-hscroll) +;;;;;; "hscroll" "obsolete/hscroll.el" (17786 56015)) +;;; Generated autoloads from obsolete/hscroll.el + +(autoload (quote turn-on-hscroll) "hscroll" "\ +This function is obsolete. +Emacs now does hscrolling automatically, if `truncate-lines' is non-nil. +Also see `automatic-hscrolling'. + +\(fn)" nil nil) + +(autoload (quote hscroll-mode) "hscroll" "\ +This function is obsolete. +Emacs now does hscrolling automatically, if `truncate-lines' is non-nil. +Also see `automatic-hscrolling'. + +\(fn &optional ARG)" t nil) + +(autoload (quote hscroll-global-mode) "hscroll" "\ +This function is obsolete. +Emacs now does hscrolling automatically, if `truncate-lines' is non-nil. +Also see `automatic-hscrolling'. + +\(fn &optional ARG)" t nil) + +;;;*** + +;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (17740 +;;;;;; 981)) ;;; Generated autoloads from gnus/html2text.el (autoload (quote html2text) "html2text" "\ @@ -13704,7 +13822,7 @@ Convert HTML to plain text in the current buffer. ;;;;;; ibuffer-backward-filter-group ibuffer-forward-filter-group ;;;;;; ibuffer-toggle-filter-group ibuffer-mouse-toggle-filter-group ;;;;;; ibuffer-interactive-filter-by-mode ibuffer-mouse-filter-by-mode -;;;;;; ibuffer-auto-mode) "ibuf-ext" "ibuf-ext.el" (17701 49517)) +;;;;;; ibuffer-auto-mode) "ibuf-ext" "ibuf-ext.el" (17698 30385)) ;;; Generated autoloads from ibuf-ext.el (autoload (quote ibuffer-auto-mode) "ibuf-ext" "\ @@ -14070,8 +14188,8 @@ defaults to one. ;;;*** ;;;### (autoloads (define-ibuffer-filter define-ibuffer-op define-ibuffer-sorter -;;;;;; define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (17504 -;;;;;; 41540)) +;;;;;; define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (17476 +;;;;;; 4797)) ;;; Generated autoloads from ibuf-macs.el (autoload (quote define-ibuffer-column) "ibuf-macs" "\ @@ -14160,7 +14278,7 @@ bound to the current value of the filter. ;;;*** ;;;### (autoloads (ibuffer ibuffer-other-window ibuffer-list-buffers) -;;;;;; "ibuffer" "ibuffer.el" (17652 14941)) +;;;;;; "ibuffer" "ibuffer.el" (17647 30728)) ;;; Generated autoloads from ibuffer.el (autoload (quote ibuffer-list-buffers) "ibuffer" "\ @@ -14201,7 +14319,7 @@ FORMATS is the value to use for `ibuffer-formats'. ;;;### (autoloads (icalendar-import-buffer icalendar-import-file ;;;;;; icalendar-export-region icalendar-export-file) "icalendar" -;;;;;; "calendar/icalendar.el" (17504 41540)) +;;;;;; "calendar/icalendar.el" (17797 50970)) ;;; Generated autoloads from calendar/icalendar.el (autoload (quote icalendar-export-file) "icalendar" "\ @@ -14253,8 +14371,8 @@ buffer `*icalendar-errors*'. ;;;*** -;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (17686 -;;;;;; 53336)) +;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (17772 +;;;;;; 23868)) ;;; Generated autoloads from icomplete.el (defvar icomplete-mode nil "\ @@ -14274,7 +14392,7 @@ With a numeric argument, turn Icomplete mode on iff ARG is positive. ;;;*** -;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (17504 41540)) +;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (17394 12938)) ;;; Generated autoloads from progmodes/icon.el (autoload (quote icon-mode) "icon" "\ @@ -14315,7 +14433,7 @@ with no args, if that value is non-nil. ;;;*** ;;;### (autoloads (idlwave-shell) "idlw-shell" "progmodes/idlw-shell.el" -;;;;;; (17596 14703)) +;;;;;; (17763 7936)) ;;; Generated autoloads from progmodes/idlw-shell.el (autoload (quote idlwave-shell) "idlw-shell" "\ @@ -14341,11 +14459,11 @@ See also the variable `idlwave-shell-prompt-pattern'. ;;;*** ;;;### (autoloads (idlwave-mode) "idlwave" "progmodes/idlwave.el" -;;;;;; (17746 34862)) +;;;;;; (17789 35159)) ;;; Generated autoloads from progmodes/idlwave.el (autoload (quote idlwave-mode) "idlwave" "\ -Major mode for editing IDL source files (version 6.0_em22). +Major mode for editing IDL source files (version 6.1_em22). The main features of this mode are @@ -14476,8 +14594,8 @@ The main features of this mode are ;;;;;; ido-find-alternate-file ido-find-file-other-window ido-find-file ;;;;;; ido-find-file-in-dir ido-switch-buffer-other-frame ido-insert-buffer ;;;;;; ido-kill-buffer ido-display-buffer ido-switch-buffer-other-window -;;;;;; ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (17759 -;;;;;; 28868)) +;;;;;; ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (17796 +;;;;;; 10831)) ;;; Generated autoloads from ido.el (defvar ido-mode nil "\ @@ -14738,7 +14856,7 @@ DEF, if non-nil, is the default value. ;;;*** -;;;### (autoloads (ielm) "ielm" "ielm.el" (17504 41540)) +;;;### (autoloads (ielm) "ielm" "ielm.el" (17781 39501)) ;;; Generated autoloads from ielm.el (add-hook 'same-window-buffer-names "*ielm*") @@ -14751,7 +14869,7 @@ Switches to the buffer `*ielm*', or creates it if it does not exist. ;;;*** ;;;### (autoloads (iimage-mode turn-on-iimage-mode) "iimage" "iimage.el" -;;;;;; (17504 41540)) +;;;;;; (17771 26718)) ;;; Generated autoloads from iimage.el (autoload (quote turn-on-iimage-mode) "iimage" "\ @@ -14770,7 +14888,7 @@ Toggle inline image minor mode. ;;;;;; insert-image put-image create-image image-type-available-p ;;;;;; image-type image-type-from-file-name image-type-from-file-header ;;;;;; image-type-from-buffer image-type-from-data) "image" "image.el" -;;;;;; (17504 41540)) +;;;;;; (17800 14311)) ;;; Generated autoloads from image.el (autoload (quote image-type-from-data) "image" "\ @@ -14932,7 +15050,7 @@ Example: ;;;### (autoloads (auto-image-file-mode insert-image-file image-file-name-regexp ;;;;;; image-file-name-regexps image-file-name-extensions) "image-file" -;;;;;; "image-file.el" (17504 41540)) +;;;;;; "image-file.el" (17385 8485)) ;;; Generated autoloads from image-file.el (defvar image-file-name-extensions (quote ("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm")) "\ @@ -14945,7 +15063,7 @@ setting this variable directly does not take effect unless `auto-image-file-mode' is re-enabled; this happens automatically when the variable is set using \\[customize].") -(custom-autoload (quote image-file-name-extensions) "image-file" nil) +(custom-autoload (quote image-file-name-extensions) "image-file") (defvar image-file-name-regexps nil "\ *List of regexps matching image-file filenames. @@ -14957,7 +15075,7 @@ enabled, setting this variable directly does not take effect unless `auto-image-file-mode' is re-enabled; this happens automatically when the variable is set using \\[customize].") -(custom-autoload (quote image-file-name-regexps) "image-file" nil) +(custom-autoload (quote image-file-name-regexps) "image-file") (autoload (quote image-file-name-regexp) "image-file" "\ Return a regular expression matching image-file filenames. @@ -14975,10 +15093,11 @@ the command `insert-file-contents'. Non-nil if Auto-Image-File mode is enabled. See the command `auto-image-file-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -either customize it (see the info node `Easy Customization') -or call the function `auto-image-file-mode'.") +use either \\[customize] or the function `auto-image-file-mode'.") -(custom-autoload (quote auto-image-file-mode) "image-file" nil) +(custom-autoload (quote auto-image-file-mode) "image-file") + +(put (quote auto-image-file-mode) (quote custom-set) (quote custom-set-minor-mode)) (autoload (quote auto-image-file-mode) "image-file" "\ Toggle visiting of image files as images. @@ -14994,7 +15113,7 @@ Image files are those whose name has an extension in ;;;*** ;;;### (autoloads (image-mode-maybe image-minor-mode image-mode) -;;;;;; "image-mode" "image-mode.el" (17652 40095)) +;;;;;; "image-mode" "image-mode.el" (17656 37701)) ;;; Generated autoloads from image-mode.el (push '("\\.jpe?g\\'" . image-mode) auto-mode-alist) (push '("\\.png\\'" . image-mode) auto-mode-alist) @@ -15032,7 +15151,7 @@ information on these modes. ;;;*** ;;;### (autoloads (imenu imenu-add-menubar-index imenu-add-to-menubar -;;;;;; imenu-sort-function) "imenu" "imenu.el" (17656 34193)) +;;;;;; imenu-sort-function) "imenu" "imenu.el" (17781 39501)) ;;; Generated autoloads from imenu.el (defvar imenu-sort-function nil "\ @@ -15147,7 +15266,7 @@ for more information. ;;;### (autoloads (indian-char-glyph indian-glyph-char in-is13194-pre-write-conversion ;;;;;; in-is13194-post-read-conversion indian-compose-string indian-compose-region) -;;;;;; "ind-util" "language/ind-util.el" (17504 41540)) +;;;;;; "ind-util" "language/ind-util.el" (17788 21816)) ;;; Generated autoloads from language/ind-util.el (autoload (quote indian-compose-region) "ind-util" "\ @@ -15190,7 +15309,7 @@ See also the function `indian-glyph-char'. ;;;### (autoloads (inferior-lisp inferior-lisp-prompt inferior-lisp-load-command ;;;;;; inferior-lisp-program inferior-lisp-filter-regexp) "inf-lisp" -;;;;;; "progmodes/inf-lisp.el" (17541 35103)) +;;;;;; "progmodes/inf-lisp.el" (17536 30816)) ;;; Generated autoloads from progmodes/inf-lisp.el (defvar inferior-lisp-filter-regexp "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'" "\ @@ -15199,12 +15318,12 @@ Input matching this regexp is not saved on the input history in Inferior Lisp mode. Default is whitespace followed by 0 or 1 single-letter colon-keyword \(as in :a, :c, etc.)") -(custom-autoload (quote inferior-lisp-filter-regexp) "inf-lisp" t) +(custom-autoload (quote inferior-lisp-filter-regexp) "inf-lisp") (defvar inferior-lisp-program "lisp" "\ *Program name for invoking an inferior Lisp in Inferior Lisp mode.") -(custom-autoload (quote inferior-lisp-program) "inf-lisp" t) +(custom-autoload (quote inferior-lisp-program) "inf-lisp") (defvar inferior-lisp-load-command "(load \"%s\")\n" "\ *Format-string for building a Lisp expression to load a file. @@ -15215,7 +15334,7 @@ The string \"(progn (load \\\"%s\\\" :verbose nil :print t) (values))\\n\" produces cosmetically superior output for this application, but it works only in Common Lisp.") -(custom-autoload (quote inferior-lisp-load-command) "inf-lisp" t) +(custom-autoload (quote inferior-lisp-load-command) "inf-lisp") (defvar inferior-lisp-prompt "^[^> \n]*>+:? *" "\ Regexp to recognize prompts in the Inferior Lisp mode. @@ -15233,7 +15352,7 @@ kcl: \"^>+ *\" This is a fine thing to set in your .emacs file or through Custom.") -(custom-autoload (quote inferior-lisp-prompt) "inf-lisp" t) +(custom-autoload (quote inferior-lisp-prompt) "inf-lisp") (defvar inferior-lisp-mode-hook (quote nil) "\ *Hook for customising Inferior Lisp mode.") @@ -15257,7 +15376,7 @@ of `inferior-lisp-program'). Runs the hooks from ;;;### (autoloads (Info-speedbar-browser Info-goto-emacs-key-command-node ;;;;;; Info-goto-emacs-command-node Info-mode info-apropos Info-index ;;;;;; Info-directory Info-on-current-buffer info-standalone info-emacs-manual -;;;;;; info info-other-window) "info" "info.el" (17665 54360)) +;;;;;; info info-other-window) "info" "info.el" (17798 49643)) ;;; Generated autoloads from info.el (autoload (quote info-other-window) "info" "\ @@ -15423,7 +15542,7 @@ This will add a speedbar major display mode. ;;;### (autoloads (info-complete-file info-complete-symbol info-lookup-file ;;;;;; info-lookup-symbol info-lookup-reset) "info-look" "info-look.el" -;;;;;; (17746 34860)) +;;;;;; (17771 1419)) ;;; Generated autoloads from info-look.el (autoload (quote info-lookup-reset) "info-look" "\ @@ -15471,7 +15590,7 @@ Perform completion on file preceding point. ;;;*** ;;;### (autoloads (info-xref-check-all-custom info-xref-check-all -;;;;;; info-xref-check) "info-xref" "info-xref.el" (17522 22308)) +;;;;;; info-xref-check) "info-xref" "info-xref.el" (17520 49736)) ;;; Generated autoloads from info-xref.el (autoload (quote info-xref-check) "info-xref" "\ @@ -15498,7 +15617,7 @@ quite a while. ;;;*** ;;;### (autoloads (batch-info-validate Info-validate Info-split Info-tagify) -;;;;;; "informat" "informat.el" (17504 41540)) +;;;;;; "informat" "informat.el" (17781 39501)) ;;; Generated autoloads from informat.el (autoload (quote Info-tagify) "informat" "\ @@ -15539,7 +15658,7 @@ For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\" ;;;### (autoloads (isearch-process-search-multibyte-characters isearch-toggle-input-method ;;;;;; isearch-toggle-specified-input-method) "isearch-x" "international/isearch-x.el" -;;;;;; (17504 41540)) +;;;;;; (17792 9561)) ;;; Generated autoloads from international/isearch-x.el (autoload (quote isearch-toggle-specified-input-method) "isearch-x" "\ @@ -15559,8 +15678,8 @@ Not documented ;;;*** -;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (17794 +;;;;;; 48602)) ;;; Generated autoloads from isearchb.el (autoload (quote isearchb-activate) "isearchb" "\ @@ -15573,10 +15692,41 @@ accessed via isearchb. ;;;*** +;;;### (autoloads (iso-accents-mode) "iso-acc" "obsolete/iso-acc.el" +;;;;;; (17385 8495)) +;;; Generated autoloads from obsolete/iso-acc.el + +(autoload (quote iso-accents-mode) "iso-acc" "\ +Toggle ISO Accents mode, in which accents modify the following letter. +This permits easy insertion of accented characters according to ISO-8859-1. +When Iso-accents mode is enabled, accent character keys +\(`, ', \", ^, / and ~) do not self-insert; instead, they modify the following +letter key so that it inserts an ISO accented letter. + +You can customize ISO Accents mode to a particular language +with the command `iso-accents-customize'. + +Special combinations: ~c gives a c with cedilla, +~d gives an Icelandic eth (d with dash). +~t gives an Icelandic thorn. +\"s gives German sharp s. +/a gives a with ring. +/e gives an a-e ligature. +~< and ~> give guillemots. +~! gives an inverted exclamation mark. +~? gives an inverted question mark. + +With an argument, a positive argument enables ISO Accents mode, +and a negative argument disables it. + +\(fn &optional ARG)" t nil) + +;;;*** + ;;;### (autoloads (iso-cvt-define-menu iso-cvt-write-only iso-cvt-read-only ;;;;;; iso-sgml2iso iso-iso2sgml iso-iso2duden iso-iso2gtex iso-gtex2iso ;;;;;; iso-tex2iso iso-iso2tex iso-german iso-spanish) "iso-cvt" -;;;;;; "international/iso-cvt.el" (17504 41540)) +;;;;;; "international/iso-cvt.el" (17788 21815)) ;;; Generated autoloads from international/iso-cvt.el (autoload (quote iso-spanish) "iso-cvt" "\ @@ -15660,7 +15810,7 @@ Add submenus to the File menu, to convert to and from various formats. ;;;*** ;;;### (autoloads nil "iso-transl" "international/iso-transl.el" -;;;;;; (17504 41540)) +;;;;;; (17788 21815)) ;;; Generated autoloads from international/iso-transl.el (or key-translation-map (setq key-translation-map (make-sparse-keymap))) (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map) @@ -15673,7 +15823,7 @@ Add submenus to the File menu, to convert to and from various formats. ;;;;;; ispell-region ispell-change-dictionary ispell-kill-ispell ;;;;;; ispell-help ispell-pdict-save ispell-word ispell-local-dictionary-alist ;;;;;; ispell-personal-dictionary) "ispell" "textmodes/ispell.el" -;;;;;; (17746 34863)) +;;;;;; (17743 18144)) ;;; Generated autoloads from textmodes/ispell.el (put 'ispell-check-comments 'safe-local-variable (lambda (a) (memq a '(nil t exclusive)))) @@ -15961,18 +16111,19 @@ You can bind this to the key C-c i in GNUS or mail by adding to ;;;*** -;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (17440 +;;;;;; 13082)) ;;; Generated autoloads from iswitchb.el (defvar iswitchb-mode nil "\ Non-nil if Iswitchb mode is enabled. See the command `iswitchb-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -either customize it (see the info node `Easy Customization') -or call the function `iswitchb-mode'.") +use either \\[customize] or the function `iswitchb-mode'.") -(custom-autoload (quote iswitchb-mode) "iswitchb" nil) +(custom-autoload (quote iswitchb-mode) "iswitchb") + +(put (quote iswitchb-mode) (quote custom-set) (quote custom-set-minor-mode)) (autoload (quote iswitchb-mode) "iswitchb" "\ Toggle Iswitchb global minor mode. @@ -15987,7 +16138,7 @@ This mode enables switching between buffers using substrings. See ;;;### (autoloads (read-hiragana-string japanese-zenkaku-region japanese-hankaku-region ;;;;;; japanese-hiragana-region japanese-katakana-region japanese-zenkaku ;;;;;; japanese-hankaku japanese-hiragana japanese-katakana setup-japanese-environment-internal) -;;;;;; "japan-util" "language/japan-util.el" (17504 41540)) +;;;;;; "japan-util" "language/japan-util.el" (17792 9562)) ;;; Generated autoloads from language/japan-util.el (autoload (quote setup-japanese-environment-internal) "japan-util" "\ @@ -16065,7 +16216,7 @@ If non-nil, second arg INITIAL-INPUT is a string to insert before reading. ;;;*** ;;;### (autoloads (jka-compr-uninstall jka-compr-handler) "jka-compr" -;;;;;; "jka-compr.el" (17504 41540)) +;;;;;; "jka-compr.el" (17781 39501)) ;;; Generated autoloads from jka-compr.el (defvar jka-compr-inhibit nil "\ @@ -16090,7 +16241,7 @@ by `jka-compr-installed'. ;;;### (autoloads (keypad-setup keypad-numlock-shifted-setup keypad-shifted-setup ;;;;;; keypad-numlock-setup keypad-setup) "keypad" "emulation/keypad.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8491)) ;;; Generated autoloads from emulation/keypad.el (defvar keypad-setup nil "\ @@ -16098,28 +16249,28 @@ Specifies the keypad setup for unshifted keypad keys when NumLock is off. When selecting the plain numeric keypad setup, the character returned by the decimal key must be specified.") -(custom-autoload (quote keypad-setup) "keypad" nil) +(custom-autoload (quote keypad-setup) "keypad") (defvar keypad-numlock-setup nil "\ Specifies the keypad setup for unshifted keypad keys when NumLock is on. When selecting the plain numeric keypad setup, the character returned by the decimal key must be specified.") -(custom-autoload (quote keypad-numlock-setup) "keypad" nil) +(custom-autoload (quote keypad-numlock-setup) "keypad") (defvar keypad-shifted-setup nil "\ Specifies the keypad setup for shifted keypad keys when NumLock is off. When selecting the plain numeric keypad setup, the character returned by the decimal key must be specified.") -(custom-autoload (quote keypad-shifted-setup) "keypad" nil) +(custom-autoload (quote keypad-shifted-setup) "keypad") (defvar keypad-numlock-shifted-setup nil "\ Specifies the keypad setup for shifted keypad keys when NumLock is off. When selecting the plain numeric keypad setup, the character returned by the decimal key must be specified.") -(custom-autoload (quote keypad-numlock-shifted-setup) "keypad" nil) +(custom-autoload (quote keypad-numlock-shifted-setup) "keypad") (autoload (quote keypad-setup) "keypad" "\ Set keypad bindings in function-key-map according to SETUP. @@ -16146,7 +16297,7 @@ the decimal key on the keypad is mapped to DECIMAL instead of `.' ;;;*** ;;;### (autoloads (kinsoku) "kinsoku" "international/kinsoku.el" -;;;;;; (17504 41540)) +;;;;;; (17792 9561)) ;;; Generated autoloads from international/kinsoku.el (autoload (quote kinsoku) "kinsoku" "\ @@ -16167,8 +16318,8 @@ the context of text formatting. ;;;*** -;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (17721 -;;;;;; 3805)) +;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (17792 +;;;;;; 9561)) ;;; Generated autoloads from international/kkc.el (defvar kkc-after-update-conversion-functions nil "\ @@ -16193,7 +16344,7 @@ and the return value is the length of the conversion. ;;;### (autoloads (kmacro-end-call-mouse kmacro-end-and-call-macro ;;;;;; kmacro-end-or-call-macro kmacro-start-macro-or-insert-counter ;;;;;; kmacro-call-macro kmacro-end-macro kmacro-start-macro) "kmacro" -;;;;;; "kmacro.el" (17652 14942)) +;;;;;; "kmacro.el" (17770 2412)) ;;; Generated autoloads from kmacro.el (global-set-key "\C-x(" 'kmacro-start-macro) (global-set-key "\C-x)" 'kmacro-end-macro) @@ -16300,7 +16451,7 @@ If kbd macro currently being defined end it before activating it. ;;;### (autoloads (kannada-post-read-conversion kannada-compose-string ;;;;;; kannada-compose-region) "knd-util" "language/knd-util.el" -;;;;;; (17504 41540)) +;;;;;; (17788 21816)) ;;; Generated autoloads from language/knd-util.el (defconst kannada-consonant "[\x51f75-\x51fb9]") @@ -16323,7 +16474,7 @@ Not documented ;;;*** ;;;### (autoloads (setup-korean-environment-internal) "korea-util" -;;;;;; "language/korea-util.el" (17504 41540)) +;;;;;; "language/korea-util.el" (17792 9562)) ;;; Generated autoloads from language/korea-util.el (defvar default-korean-keyboard (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) "3" "") "\ @@ -16338,7 +16489,7 @@ Not documented ;;;*** ;;;### (autoloads (lm lm-test-run) "landmark" "play/landmark.el" -;;;;;; (17580 16977)) +;;;;;; (17786 56015)) ;;; Generated autoloads from play/landmark.el (defalias (quote landmark-repeat) (quote lm-test-run)) @@ -16372,8 +16523,8 @@ Use \\[describe-mode] for more info. ;;;### (autoloads (lao-compose-region lao-composition-function lao-post-read-conversion ;;;;;; lao-transcribe-roman-to-lao-string lao-transcribe-single-roman-syllable-to-lao -;;;;;; lao-compose-string) "lao-util" "language/lao-util.el" (17504 -;;;;;; 41540)) +;;;;;; lao-compose-string) "lao-util" "language/lao-util.el" (17792 +;;;;;; 9562)) ;;; Generated autoloads from language/lao-util.el (autoload (quote lao-compose-string) "lao-util" "\ @@ -16422,7 +16573,7 @@ Not documented ;;;### (autoloads (latexenc-find-file-coding-system latexenc-coding-system-to-inputenc ;;;;;; latexenc-inputenc-to-coding-system latex-inputenc-coding-alist) -;;;;;; "latexenc" "international/latexenc.el" (17664 29029)) +;;;;;; "latexenc" "international/latexenc.el" (17664 20313)) ;;; Generated autoloads from international/latexenc.el (defvar latex-inputenc-coding-alist (quote (("ansinew" . windows-1252) ("applemac" . mac-roman) ("ascii" . us-ascii) ("cp1250" . windows-1250) ("cp1252" . windows-1252) ("cp1257" . cp1257) ("cp437de" . cp437) ("cp437" . cp437) ("cp850" . cp850) ("cp852" . cp852) ("cp858" . cp858) ("cp865" . cp865) ("latin1" . iso-8859-1) ("latin2" . iso-8859-2) ("latin3" . iso-8859-3) ("latin4" . iso-8859-4) ("latin5" . iso-8859-5) ("latin9" . iso-8859-15) ("next" . next) ("utf8" . utf-8) ("utf8x" . utf-8))) "\ @@ -16454,7 +16605,7 @@ coding system names is determined from `latex-inputenc-coding-alist'. ;;;*** ;;;### (autoloads (latin1-display-ucs-per-lynx latin1-display latin1-display) -;;;;;; "latin1-disp" "international/latin1-disp.el" (17504 41540)) +;;;;;; "latin1-disp" "international/latin1-disp.el" (17788 21815)) ;;; Generated autoloads from international/latin1-disp.el (defvar latin1-display nil "\ @@ -16497,8 +16648,76 @@ use either \\[customize] or the function `latin1-display'.") ;;;*** +;;;### (autoloads (turn-on-lazy-lock lazy-lock-mode) "lazy-lock" +;;;;;; "obsolete/lazy-lock.el" (17385 8495)) +;;; Generated autoloads from obsolete/lazy-lock.el + +(autoload (quote lazy-lock-mode) "lazy-lock" "\ +Toggle Lazy Lock mode. +With arg, turn Lazy Lock mode on if and only if arg is positive. Enable it +automatically in your `~/.emacs' by: + + (setq font-lock-support-mode 'lazy-lock-mode) + +For a newer font-lock support mode with similar functionality, see +`jit-lock-mode'. Eventually, Lazy Lock mode will be deprecated in +JIT Lock's favor. + +When Lazy Lock mode is enabled, fontification can be lazy in a number of ways: + +- Demand-driven buffer fontification if `lazy-lock-minimum-size' is non-nil. + This means initial fontification does not occur if the buffer is greater than + `lazy-lock-minimum-size' characters in length. Instead, fontification occurs + when necessary, such as when scrolling through the buffer would otherwise + reveal unfontified areas. This is useful if buffer fontification is too slow + for large buffers. + +- Deferred scroll fontification if `lazy-lock-defer-on-scrolling' is non-nil. + This means demand-driven fontification does not occur as you scroll. + Instead, fontification is deferred until after `lazy-lock-defer-time' seconds + of Emacs idle time, while Emacs remains idle. This is useful if + fontification is too slow to keep up with scrolling. + +- Deferred on-the-fly fontification if `lazy-lock-defer-on-the-fly' is non-nil. + This means on-the-fly fontification does not occur as you type. Instead, + fontification is deferred until after `lazy-lock-defer-time' seconds of Emacs + idle time, while Emacs remains idle. This is useful if fontification is too + slow to keep up with your typing. + +- Deferred context fontification if `lazy-lock-defer-contextually' is non-nil. + This means fontification updates the buffer corresponding to true syntactic + context, after `lazy-lock-defer-time' seconds of Emacs idle time, while Emacs + remains idle. Otherwise, fontification occurs on modified lines only, and + subsequent lines can remain fontified corresponding to previous syntactic + contexts. This is useful where strings or comments span lines. + +- Stealthy buffer fontification if `lazy-lock-stealth-time' is non-nil. + This means remaining unfontified areas of buffers are fontified if Emacs has + been idle for `lazy-lock-stealth-time' seconds, while Emacs remains idle. + This is useful if any buffer has any deferred fontification. + +Basic Font Lock mode on-the-fly fontification behavior fontifies modified +lines only. Thus, if `lazy-lock-defer-contextually' is non-nil, Lazy Lock mode +on-the-fly fontification may fontify differently, albeit correctly. In any +event, to refontify some lines you can use \\[font-lock-fontify-block]. + +Stealth fontification only occurs while the system remains unloaded. +If the system load rises above `lazy-lock-stealth-load' percent, stealth +fontification is suspended. Stealth fontification intensity is controlled via +the variable `lazy-lock-stealth-nice' and `lazy-lock-stealth-lines', and +verbosity is controlled via the variable `lazy-lock-stealth-verbose'. + +\(fn &optional ARG)" t nil) + +(autoload (quote turn-on-lazy-lock) "lazy-lock" "\ +Unconditionally turn on Lazy Lock mode. + +\(fn)" nil nil) + +;;;*** + ;;;### (autoloads (ld-script-mode) "ld-script" "progmodes/ld-script.el" -;;;;;; (17610 3931)) +;;;;;; (17788 21816)) ;;; Generated autoloads from progmodes/ld-script.el (add-to-list (quote auto-mode-alist) (quote ("\\.ld[si]?\\>" . ld-script-mode))) @@ -16513,7 +16732,7 @@ A major mode to edit GNU ld script files ;;;*** ;;;### (autoloads (ledit-from-lisp-mode ledit-mode) "ledit" "ledit.el" -;;;;;; (17504 41540)) +;;;;;; (17781 39501)) ;;; Generated autoloads from ledit.el (defconst ledit-save-files t "\ @@ -16534,6 +16753,7 @@ Like Lisp mode, plus these special commands: \\[ledit-go-to-lisp] -- transfer to Lisp job and transmit saved text. \\[ledit-go-to-liszt] -- transfer to Liszt (Lisp compiler) job and transmit saved text. + \\{ledit-mode-map} To make Lisp mode automatically change to Ledit mode, do (setq lisp-mode-hook 'ledit-from-lisp-mode) @@ -16547,7 +16767,7 @@ Not documented ;;;*** -;;;### (autoloads (life) "life" "play/life.el" (17675 64484)) +;;;### (autoloads (life) "life" "play/life.el" (17674 51268)) ;;; Generated autoloads from play/life.el (autoload (quote life) "life" "\ @@ -16560,8 +16780,8 @@ generations (this defaults to 1). ;;;*** -;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (17746 -;;;;;; 34860)) +;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (17781 +;;;;;; 39501)) ;;; Generated autoloads from loadhist.el (autoload (quote unload-feature) "loadhist" "\ @@ -16584,7 +16804,7 @@ such as redefining an Emacs function. ;;;*** ;;;### (autoloads (locate-with-filter locate locate-ls-subdir-switches) -;;;;;; "locate" "locate.el" (17668 1406)) +;;;;;; "locate" "locate.el" (17771 1419)) ;;; Generated autoloads from locate.el (defvar locate-ls-subdir-switches "-al" "\ @@ -16631,7 +16851,7 @@ except that FILTER is not optional. ;;;*** -;;;### (autoloads (log-edit) "log-edit" "log-edit.el" (17504 41540)) +;;;### (autoloads (log-edit) "log-edit" "log-edit.el" (17781 39502)) ;;; Generated autoloads from log-edit.el (autoload (quote log-edit) "log-edit" "\ @@ -16652,8 +16872,8 @@ If BUFFER is non-nil `log-edit' will jump to that buffer, use it to edit the ;;;*** -;;;### (autoloads (log-view-mode) "log-view" "log-view.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (log-view-mode) "log-view" "log-view.el" (17587 +;;;;;; 57939)) ;;; Generated autoloads from log-view.el (autoload (quote log-view-mode) "log-view" "\ @@ -16663,8 +16883,8 @@ Major mode for browsing CVS log output. ;;;*** -;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (17710 -;;;;;; 3074)) +;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (17771 +;;;;;; 1419)) ;;; Generated autoloads from longlines.el (autoload (quote longlines-mode) "longlines" "\ @@ -16685,8 +16905,8 @@ are indicated with a symbol. ;;;*** ;;;### (autoloads (print-region lpr-region print-buffer lpr-buffer -;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (17686 -;;;;;; 35928)) +;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (17682 +;;;;;; 43101)) ;;; Generated autoloads from lpr.el (defvar lpr-windows-system (memq system-type (quote (emx win32 w32 mswindows ms-dos windows-nt)))) @@ -16780,7 +17000,7 @@ for further customization of the printer command. ;;;*** ;;;### (autoloads (ls-lisp-support-shell-wildcards) "ls-lisp" "ls-lisp.el" -;;;;;; (17504 41540)) +;;;;;; (17781 39502)) ;;; Generated autoloads from ls-lisp.el (defvar ls-lisp-support-shell-wildcards t "\ @@ -16791,8 +17011,8 @@ Otherwise they are treated as Emacs regexps (for backward compatibility).") ;;;*** -;;;### (autoloads (phases-of-moon) "lunar" "calendar/lunar.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (phases-of-moon) "lunar" "calendar/lunar.el" (17386 +;;;;;; 33146)) ;;; Generated autoloads from calendar/lunar.el (autoload (quote phases-of-moon) "lunar" "\ @@ -16805,8 +17025,8 @@ This function is suitable for execution in a .emacs file. ;;;*** -;;;### (autoloads (m4-mode) "m4-mode" "progmodes/m4-mode.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (m4-mode) "m4-mode" "progmodes/m4-mode.el" (17394 +;;;;;; 12938)) ;;; Generated autoloads from progmodes/m4-mode.el (autoload (quote m4-mode) "m4-mode" "\ @@ -16818,7 +17038,7 @@ A major mode to edit m4 macro files. ;;;*** ;;;### (autoloads (macroexpand-all) "macroexp" "emacs-lisp/macroexp.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8490)) ;;; Generated autoloads from emacs-lisp/macroexp.el (autoload (quote macroexpand-all) "macroexp" "\ @@ -16832,7 +17052,7 @@ definitions to shadow the loaded ones for use in file byte-compilation. ;;;*** ;;;### (autoloads (apply-macro-to-region-lines kbd-macro-query insert-kbd-macro -;;;;;; name-last-kbd-macro) "macros" "macros.el" (17504 41540)) +;;;;;; name-last-kbd-macro) "macros" "macros.el" (17781 39502)) ;;; Generated autoloads from macros.el (autoload (quote name-last-kbd-macro) "macros" "\ @@ -16921,7 +17141,7 @@ and then select the region of un-tablified names and use ;;;*** ;;;### (autoloads (what-domain mail-extract-address-components) "mail-extr" -;;;;;; "mail/mail-extr.el" (17504 41540)) +;;;;;; "mail/mail-extr.el" (17385 8494)) ;;; Generated autoloads from mail/mail-extr.el (autoload (quote mail-extract-address-components) "mail-extr" "\ @@ -16953,7 +17173,7 @@ Convert mail domain DOMAIN to the country it corresponds to. ;;;### (autoloads (mail-hist-put-headers-into-history mail-hist-keep-history ;;;;;; mail-hist-enable mail-hist-define-keys) "mail-hist" "mail/mail-hist.el" -;;;;;; (17504 41540)) +;;;;;; (17786 56015)) ;;; Generated autoloads from mail/mail-hist.el (autoload (quote mail-hist-define-keys) "mail-hist" "\ @@ -16984,8 +17204,8 @@ This function normally would be called when the message is sent. ;;;### (autoloads (mail-fetch-field mail-unquote-printable-region ;;;;;; mail-unquote-printable mail-quote-printable mail-file-babyl-p -;;;;;; mail-use-rfc822) "mail-utils" "mail/mail-utils.el" (17504 -;;;;;; 41540)) +;;;;;; mail-use-rfc822) "mail-utils" "mail/mail-utils.el" (17385 +;;;;;; 8494)) ;;; Generated autoloads from mail/mail-utils.el (defvar mail-use-rfc822 nil "\ @@ -16993,7 +17213,7 @@ This function normally would be called when the message is sent. Otherwise, (the default) use a smaller, somewhat faster, and often correct parser.") -(custom-autoload (quote mail-use-rfc822) "mail-utils" t) +(custom-autoload (quote mail-use-rfc822) "mail-utils") (autoload (quote mail-file-babyl-p) "mail-utils" "\ Not documented @@ -17037,7 +17257,7 @@ If 4th arg LIST is non-nil, return a list of all such fields. ;;;*** ;;;### (autoloads (define-mail-abbrev build-mail-abbrevs mail-abbrevs-setup) -;;;;;; "mailabbrev" "mail/mailabbrev.el" (17504 41540)) +;;;;;; "mailabbrev" "mail/mailabbrev.el" (17786 56015)) ;;; Generated autoloads from mail/mailabbrev.el (autoload (quote mail-abbrevs-setup) "mailabbrev" "\ @@ -17060,8 +17280,8 @@ If DEFINITION contains multiple addresses, separate them with commas. ;;;*** ;;;### (autoloads (mail-complete define-mail-alias expand-mail-aliases -;;;;;; mail-complete-style) "mailalias" "mail/mailalias.el" (17504 -;;;;;; 41540)) +;;;;;; mail-complete-style) "mailalias" "mail/mailalias.el" (17786 +;;;;;; 56015)) ;;; Generated autoloads from mail/mailalias.el (defvar mail-complete-style (quote angles) "\ @@ -17107,7 +17327,7 @@ current header, calls `mail-complete-function' and passes prefix arg if any. ;;;*** ;;;### (autoloads (mailclient-send-it) "mailclient" "mail/mailclient.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8494)) ;;; Generated autoloads from mail/mailclient.el (autoload (quote mailclient-send-it) "mailclient" "\ @@ -17121,7 +17341,7 @@ The mail client is taken to be the handler of mailto URLs. ;;;### (autoloads (makefile-imake-mode makefile-bsdmake-mode makefile-makepp-mode ;;;;;; makefile-gmake-mode makefile-automake-mode makefile-mode) -;;;;;; "make-mode" "progmodes/make-mode.el" (17701 49519)) +;;;;;; "make-mode" "progmodes/make-mode.el" (17692 12587)) ;;; Generated autoloads from progmodes/make-mode.el (autoload (quote makefile-mode) "make-mode" "\ @@ -17238,8 +17458,8 @@ An adapted `makefile-mode' that knows about imake. ;;;*** -;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (17781 +;;;;;; 39502)) ;;; Generated autoloads from makesum.el (autoload (quote make-command-summary) "makesum" "\ @@ -17250,7 +17470,7 @@ Previous contents of that buffer are killed first. ;;;*** -;;;### (autoloads (man-follow man) "man" "man.el" (17658 57980)) +;;;### (autoloads (man-follow man) "man" "man.el" (17786 62407)) ;;; Generated autoloads from man.el (defalias (quote manual-entry) (quote man)) @@ -17277,7 +17497,7 @@ Get a Un*x manual page of the item under point and put it in a buffer. ;;;*** -;;;### (autoloads (master-mode) "master" "master.el" (17504 41540)) +;;;### (autoloads (master-mode) "master" "master.el" (17781 39502)) ;;; Generated autoloads from master.el (autoload (quote master-mode) "master" "\ @@ -17299,8 +17519,8 @@ yourself the value of `master-of' by calling `master-show-slave'. ;;;*** -;;;### (autoloads (menu-bar-mode) "menu-bar" "menu-bar.el" (17759 -;;;;;; 28868)) +;;;### (autoloads (menu-bar-mode) "menu-bar" "menu-bar.el" (17788 +;;;;;; 29144)) ;;; Generated autoloads from menu-bar.el (put (quote menu-bar-mode) (quote standard-value) (quote (t))) @@ -17335,7 +17555,7 @@ turn on menu bars; otherwise, turn off menu bars. ;;;;;; message-cite-function message-yank-prefix message-citation-line-function ;;;;;; message-send-mail-function message-user-organization-file ;;;;;; message-signature-separator message-from-style) "message" -;;;;;; "gnus/message.el" (17759 28869)) +;;;;;; "gnus/message.el" (17756 33825)) ;;; Generated autoloads from gnus/message.el (defvar message-from-style (quote default) "\ @@ -17589,7 +17809,7 @@ which specify the range to operate on. ;;;*** ;;;### (autoloads (metapost-mode metafont-mode) "meta-mode" "progmodes/meta-mode.el" -;;;;;; (17504 41540)) +;;;;;; (17394 12938)) ;;; Generated autoloads from progmodes/meta-mode.el (autoload (quote metafont-mode) "meta-mode" "\ @@ -17616,7 +17836,7 @@ Turning on MetaPost mode calls the value of the variable ;;;### (autoloads (metamail-region metamail-buffer metamail-interpret-body ;;;;;; metamail-interpret-header) "metamail" "mail/metamail.el" -;;;;;; (17504 41540)) +;;;;;; (17786 56015)) ;;; Generated autoloads from mail/metamail.el (autoload (quote metamail-interpret-header) "metamail" "\ @@ -17661,7 +17881,7 @@ redisplayed as output is inserted. ;;;### (autoloads (mh-fully-kill-draft mh-send-letter mh-user-agent-compose ;;;;;; mh-smail-batch mh-smail-other-window mh-smail) "mh-comp" -;;;;;; "mh-e/mh-comp.el" (17690 32932)) +;;;;;; "mh-e/mh-comp.el" (17689 24335)) ;;; Generated autoloads from mh-e/mh-comp.el (autoload (quote mh-smail) "mh-comp" "\ @@ -17748,7 +17968,7 @@ delete the draft message. ;;;*** -;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (17759 28870)) +;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (17752 39352)) ;;; Generated autoloads from mh-e/mh-e.el (put (quote mh-progs) (quote risky-local-variable) t) @@ -17765,7 +17985,7 @@ Display version information about MH-E and the MH mail handling system. ;;;*** ;;;### (autoloads (mh-folder-mode mh-nmail mh-rmail) "mh-folder" -;;;;;; "mh-e/mh-folder.el" (17504 41540)) +;;;;;; "mh-e/mh-folder.el" (17485 5461)) ;;; Generated autoloads from mh-e/mh-folder.el (autoload (quote mh-rmail) "mh-folder" "\ @@ -17847,7 +18067,7 @@ perform the operation on all messages in that region. ;;;*** ;;;### (autoloads (midnight-delay-set clean-buffer-list) "midnight" -;;;;;; "midnight.el" (17731 48935)) +;;;;;; "midnight.el" (17781 39502)) ;;; Generated autoloads from midnight.el (autoload (quote clean-buffer-list) "midnight" "\ @@ -17874,17 +18094,18 @@ to its second argument TM. ;;;*** ;;;### (autoloads (minibuffer-electric-default-mode) "minibuf-eldef" -;;;;;; "minibuf-eldef.el" (17504 41540)) +;;;;;; "minibuf-eldef.el" (17385 8487)) ;;; Generated autoloads from minibuf-eldef.el (defvar minibuffer-electric-default-mode nil "\ Non-nil if Minibuffer-Electric-Default mode is enabled. See the command `minibuffer-electric-default-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -either customize it (see the info node `Easy Customization') -or call the function `minibuffer-electric-default-mode'.") +use either \\[customize] or the function `minibuffer-electric-default-mode'.") + +(custom-autoload (quote minibuffer-electric-default-mode) "minibuf-eldef") -(custom-autoload (quote minibuffer-electric-default-mode) "minibuf-eldef" nil) +(put (quote minibuffer-electric-default-mode) (quote custom-set) (quote custom-set-minor-mode)) (autoload (quote minibuffer-electric-default-mode) "minibuf-eldef" "\ Toggle Minibuffer Electric Default mode. @@ -17902,7 +18123,7 @@ Returns non-nil if the new state is enabled. ;;;*** ;;;### (autoloads (mixal-mode) "mixal-mode" "progmodes/mixal-mode.el" -;;;;;; (17504 41540)) +;;;;;; (17394 12938)) ;;; Generated autoloads from progmodes/mixal-mode.el (autoload (quote mixal-mode) "mixal-mode" "\ @@ -17917,7 +18138,7 @@ Major mode for the mixal asm language. ;;;### (autoloads (malayalam-composition-function malayalam-post-read-conversion ;;;;;; malayalam-compose-region) "mlm-util" "language/mlm-util.el" -;;;;;; (17504 41540)) +;;;;;; (17788 21816)) ;;; Generated autoloads from language/mlm-util.el (autoload (quote malayalam-compose-region) "mlm-util" "\ @@ -17940,7 +18161,7 @@ PATTERN regexp. ;;;*** ;;;### (autoloads (mm-inline-external-body mm-extern-cache-contents) -;;;;;; "mm-extern" "gnus/mm-extern.el" (17632 36219)) +;;;;;; "mm-extern" "gnus/mm-extern.el" (17632 41885)) ;;; Generated autoloads from gnus/mm-extern.el (autoload (quote mm-extern-cache-contents) "mm-extern" "\ @@ -17959,7 +18180,7 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing. ;;;*** ;;;### (autoloads (mm-inline-partial) "mm-partial" "gnus/mm-partial.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8493)) ;;; Generated autoloads from gnus/mm-partial.el (autoload (quote mm-inline-partial) "mm-partial" "\ @@ -17973,7 +18194,7 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing. ;;;*** ;;;### (autoloads (mm-url-insert-file-contents-external mm-url-insert-file-contents) -;;;;;; "mm-url" "gnus/mm-url.el" (17610 3931)) +;;;;;; "mm-url" "gnus/mm-url.el" (17780 18172)) ;;; Generated autoloads from gnus/mm-url.el (autoload (quote mm-url-insert-file-contents) "mm-url" "\ @@ -17990,7 +18211,7 @@ Insert file contents of URL using `mm-url-program'. ;;;*** ;;;### (autoloads (mm-uu-dissect-text-parts mm-uu-dissect) "mm-uu" -;;;;;; "gnus/mm-uu.el" (17715 55646)) +;;;;;; "gnus/mm-uu.el" (17761 54014)) ;;; Generated autoloads from gnus/mm-uu.el (autoload (quote mm-uu-dissect) "mm-uu" "\ @@ -18010,7 +18231,7 @@ Assume text has been decoded if DECODED is non-nil. ;;;*** ;;;### (autoloads (mml1991-sign mml1991-encrypt) "mml1991" "gnus/mml1991.el" -;;;;;; (17504 41540)) +;;;;;; (17495 43954)) ;;; Generated autoloads from gnus/mml1991.el (autoload (quote mml1991-encrypt) "mml1991" "\ @@ -18027,7 +18248,7 @@ Not documented ;;;### (autoloads (mml2015-self-encrypt mml2015-sign mml2015-encrypt ;;;;;; mml2015-verify-test mml2015-verify mml2015-decrypt-test mml2015-decrypt) -;;;;;; "mml2015" "gnus/mml2015.el" (17504 41540)) +;;;;;; "mml2015" "gnus/mml2015.el" (17776 24487)) ;;; Generated autoloads from gnus/mml2015.el (autoload (quote mml2015-decrypt) "mml2015" "\ @@ -18068,7 +18289,7 @@ Not documented ;;;*** ;;;### (autoloads (modula-2-mode) "modula2" "progmodes/modula2.el" -;;;;;; (17504 41540)) +;;;;;; (17276 54295)) ;;; Generated autoloads from progmodes/modula2.el (autoload (quote modula-2-mode) "modula2" "\ @@ -18100,7 +18321,7 @@ followed by the first character of the construct. ;;;*** ;;;### (autoloads (unmorse-region morse-region) "morse" "play/morse.el" -;;;;;; (17504 41540)) +;;;;;; (17786 56015)) ;;; Generated autoloads from play/morse.el (autoload (quote morse-region) "morse" "\ @@ -18115,8 +18336,8 @@ Convert morse coded text in region to ordinary ASCII text. ;;;*** -;;;### (autoloads (mouse-sel-mode) "mouse-sel" "mouse-sel.el" (17704 -;;;;;; 3961)) +;;;### (autoloads (mouse-sel-mode) "mouse-sel" "mouse-sel.el" (17786 +;;;;;; 62747)) ;;; Generated autoloads from mouse-sel.el (defvar mouse-sel-mode nil "\ @@ -18168,7 +18389,7 @@ primary selection and region. ;;;*** -;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (17504 41540)) +;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (17786 56015)) ;;; Generated autoloads from play/mpuz.el (autoload (quote mpuz) "mpuz" "\ @@ -18178,17 +18399,18 @@ Multiplication puzzle with GNU Emacs. ;;;*** -;;;### (autoloads (msb-mode) "msb" "msb.el" (17566 60306)) +;;;### (autoloads (msb-mode) "msb" "msb.el" (17560 14582)) ;;; Generated autoloads from msb.el (defvar msb-mode nil "\ Non-nil if Msb mode is enabled. See the command `msb-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -either customize it (see the info node `Easy Customization') -or call the function `msb-mode'.") +use either \\[customize] or the function `msb-mode'.") + +(custom-autoload (quote msb-mode) "msb") -(custom-autoload (quote msb-mode) "msb" nil) +(put (quote msb-mode) (quote custom-set) (quote custom-set-minor-mode)) (autoload (quote msb-mode) "msb" "\ Toggle Msb mode. @@ -18205,7 +18427,7 @@ different buffer menu using the function `msb'. ;;;;;; describe-current-coding-system describe-current-coding-system-briefly ;;;;;; describe-coding-system describe-character-set list-charset-chars ;;;;;; read-charset list-character-sets) "mule-diag" "international/mule-diag.el" -;;;;;; (17623 45182)) +;;;;;; (17792 9561)) ;;; Generated autoloads from international/mule-diag.el (defvar non-iso-charset-alist (\` ((mac-roman (ascii latin-iso8859-1 mule-unicode-2500-33ff mule-unicode-0100-24ff mule-unicode-e000-ffff) mac-roman-decoder ((0 255))) (viscii (ascii vietnamese-viscii-lower vietnamese-viscii-upper) viet-viscii-nonascii-translation-table ((0 255))) (vietnamese-tcvn (ascii vietnamese-viscii-lower vietnamese-viscii-upper) viet-tcvn-nonascii-translation-table ((0 255))) (koi8-r (ascii cyrillic-iso8859-5) cyrillic-koi8-r-nonascii-translation-table ((32 255))) (alternativnyj (ascii cyrillic-iso8859-5) cyrillic-alternativnyj-nonascii-translation-table ((32 255))) (koi8-u (ascii cyrillic-iso8859-5 mule-unicode-0100-24ff) cyrillic-koi8-u-nonascii-translation-table ((32 255))) (big5 (ascii chinese-big5-1 chinese-big5-2) decode-big5-char ((32 127) ((161 254) 64 126 161 254))) (sjis (ascii katakana-jisx0201 japanese-jisx0208) decode-sjis-char ((32 127 161 223) ((129 159 224 239) 64 126 128 252))))) "\ @@ -18379,7 +18601,7 @@ system which uses fontsets). ;;;;;; coding-system-translation-table-for-decode coding-system-pre-write-conversion ;;;;;; coding-system-post-read-conversion lookup-nested-alist set-nested-alist ;;;;;; truncate-string-to-width store-substring string-to-sequence) -;;;;;; "mule-util" "international/mule-util.el" (17504 41540)) +;;;;;; "mule-util" "international/mule-util.el" (17792 9561)) ;;; Generated autoloads from international/mule-util.el (autoload (quote string-to-sequence) "mule-util" "\ @@ -18508,17 +18730,18 @@ basis, this may not be accurate. ;;;*** ;;;### (autoloads (mwheel-install mouse-wheel-mode) "mwheel" "mwheel.el" -;;;;;; (17504 41540)) +;;;;;; (17515 24181)) ;;; Generated autoloads from mwheel.el (defvar mouse-wheel-mode nil "\ Non-nil if Mouse-Wheel mode is enabled. See the command `mouse-wheel-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -either customize it (see the info node `Easy Customization') -or call the function `mouse-wheel-mode'.") +use either \\[customize] or the function `mouse-wheel-mode'.") -(custom-autoload (quote mouse-wheel-mode) "mwheel" nil) +(custom-autoload (quote mouse-wheel-mode) "mwheel") + +(put (quote mouse-wheel-mode) (quote custom-set) (quote custom-set-minor-mode)) (autoload (quote mouse-wheel-mode) "mwheel" "\ Toggle mouse wheel support. @@ -18537,7 +18760,7 @@ Enable mouse wheel support. ;;;### (autoloads (network-connection network-connection-to-service ;;;;;; whois-reverse-lookup whois finger ftp run-dig dns-lookup-host ;;;;;; nslookup nslookup-host route arp netstat ipconfig ping traceroute) -;;;;;; "net-utils" "net/net-utils.el" (17504 41540)) +;;;;;; "net-utils" "net/net-utils.el" (17385 8495)) ;;; Generated autoloads from net/net-utils.el (autoload (quote traceroute) "net-utils" "\ @@ -18633,7 +18856,7 @@ Open a network connection to HOST on PORT. ;;;;;; uncomment-region comment-kill comment-set-column comment-indent ;;;;;; comment-indent-default comment-normalize-vars comment-multi-line ;;;;;; comment-padding comment-style comment-column) "newcomment" -;;;;;; "newcomment.el" (17707 61789)) +;;;;;; "newcomment.el" (17781 39502)) ;;; Generated autoloads from newcomment.el (defalias (quote indent-for-comment) (quote comment-indent)) @@ -18829,7 +19052,7 @@ unless optional argument SOFT is non-nil. ;;;### (autoloads (newsticker-show-news newsticker-start-ticker newsticker-start ;;;;;; newsticker-ticker-running-p newsticker-running-p) "newsticker" -;;;;;; "net/newsticker.el" (17504 41540)) +;;;;;; "net/newsticker.el" (17385 8495)) ;;; Generated autoloads from net/newsticker.el (autoload (quote newsticker-running-p) "newsticker" "\ @@ -18871,7 +19094,7 @@ Switch to newsticker buffer. You may want to bind this to a key. ;;;*** ;;;### (autoloads (nndiary-generate-nov-databases) "nndiary" "gnus/nndiary.el" -;;;;;; (17746 34862)) +;;;;;; (17740 981)) ;;; Generated autoloads from gnus/nndiary.el (autoload (quote nndiary-generate-nov-databases) "nndiary" "\ @@ -18881,8 +19104,8 @@ Generate NOV databases in all nndiary directories. ;;;*** -;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (17385 +;;;;;; 8494)) ;;; Generated autoloads from gnus/nndoc.el (autoload (quote nndoc-add-type) "nndoc" "\ @@ -18897,7 +19120,7 @@ symbol in the alist. ;;;*** ;;;### (autoloads (nnfolder-generate-active-file) "nnfolder" "gnus/nnfolder.el" -;;;;;; (17504 41540)) +;;;;;; (17394 12936)) ;;; Generated autoloads from gnus/nnfolder.el (autoload (quote nnfolder-generate-active-file) "nnfolder" "\ @@ -18909,7 +19132,7 @@ This command does not work if you use short group names. ;;;*** ;;;### (autoloads (nnkiboze-generate-groups) "nnkiboze" "gnus/nnkiboze.el" -;;;;;; (17504 41540)) +;;;;;; (17788 21815)) ;;; Generated autoloads from gnus/nnkiboze.el (autoload (quote nnkiboze-generate-groups) "nnkiboze" "\ @@ -18921,7 +19144,7 @@ Finds out what articles are to be part of the nnkiboze groups. ;;;*** ;;;### (autoloads (nnml-generate-nov-databases) "nnml" "gnus/nnml.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8494)) ;;; Generated autoloads from gnus/nnml.el (autoload (quote nnml-generate-nov-databases) "nnml" "\ @@ -18932,7 +19155,7 @@ Generate NOV databases in all nnml directories. ;;;*** ;;;### (autoloads (nnsoup-revert-variables nnsoup-set-variables nnsoup-pack-replies) -;;;;;; "nnsoup" "gnus/nnsoup.el" (17746 34862)) +;;;;;; "nnsoup" "gnus/nnsoup.el" (17740 981)) ;;; Generated autoloads from gnus/nnsoup.el (autoload (quote nnsoup-pack-replies) "nnsoup" "\ @@ -18953,7 +19176,7 @@ Revert posting and mailing methods to the standard Emacs methods. ;;;*** ;;;### (autoloads (disable-command enable-command disabled-command-function) -;;;;;; "novice" "novice.el" (17665 54360)) +;;;;;; "novice" "novice.el" (17781 39502)) ;;; Generated autoloads from novice.el (defvar disabled-command-function (quote disabled-command-function) "\ @@ -18986,7 +19209,7 @@ to future sessions. ;;;*** ;;;### (autoloads (nroff-mode) "nroff-mode" "textmodes/nroff-mode.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8496)) ;;; Generated autoloads from textmodes/nroff-mode.el (autoload (quote nroff-mode) "nroff-mode" "\ @@ -19001,7 +19224,7 @@ closing requests for requests that are used in matched pairs. ;;;*** ;;;### (autoloads (octave-help) "octave-hlp" "progmodes/octave-hlp.el" -;;;;;; (17504 41540)) +;;;;;; (17394 12938)) ;;; Generated autoloads from progmodes/octave-hlp.el (autoload (quote octave-help) "octave-hlp" "\ @@ -19015,7 +19238,7 @@ If KEY is not a string, prompt for it with completion. ;;;*** ;;;### (autoloads (inferior-octave) "octave-inf" "progmodes/octave-inf.el" -;;;;;; (17731 48936)) +;;;;;; (17730 6653)) ;;; Generated autoloads from progmodes/octave-inf.el (autoload (quote inferior-octave) "octave-inf" "\ @@ -19038,7 +19261,7 @@ startup file, `~/.emacs-octave'. ;;;*** ;;;### (autoloads (octave-mode) "octave-mod" "progmodes/octave-mod.el" -;;;;;; (17504 41540)) +;;;;;; (17781 39502)) ;;; Generated autoloads from progmodes/octave-mod.el (autoload (quote octave-mode) "octave-mod" "\ @@ -19136,13 +19359,35 @@ including a reproducible test case and send the message. ;;;*** +;;;### (autoloads (edit-options list-options) "options" "obsolete/options.el" +;;;;;; (17786 56015)) +;;; Generated autoloads from obsolete/options.el + +(autoload (quote list-options) "options" "\ +Display a list of Emacs user options, with values and documentation. +It is now better to use Customize instead. + +\(fn)" t nil) + +(autoload (quote edit-options) "options" "\ +Edit a list of Emacs user option values. +Selects a buffer containing such a list, +in which there are commands to set the option values. +Type \\[describe-mode] in that buffer for a list of commands. + +The Custom feature is intended to make this obsolete. + +\(fn)" t nil) + +;;;*** + ;;;### (autoloads (org-export-icalendar-combine-agenda-files org-export-icalendar-all-agenda-files ;;;;;; org-export-icalendar-this-file orgtbl-mode turn-on-orgtbl ;;;;;; org-remember-handler org-remember-apply-template org-remember-annotation ;;;;;; org-store-link org-tags-view org-diary org-cycle-agenda-files ;;;;;; org-todo-list org-agenda-list org-batch-agenda org-agenda ;;;;;; org-global-cycle org-cycle org-mode) "org" "textmodes/org.el" -;;;;;; (17759 28874)) +;;;;;; (17798 49643)) ;;; Generated autoloads from textmodes/org.el (autoload (quote org-mode) "org" "\ @@ -19410,7 +19655,7 @@ The file is stored under the name `org-combined-agenda-icalendar-file'. ;;;*** ;;;### (autoloads (outline-minor-mode outline-mode) "outline" "outline.el" -;;;;;; (17508 50986)) +;;;;;; (17797 50970)) ;;; Generated autoloads from outline.el (put 'outline-regexp 'safe-local-variable 'string-or-null-p) @@ -19466,8 +19711,8 @@ See the command `outline-mode' for more information on this mode. ;;;*** -;;;### (autoloads nil "paragraphs" "textmodes/paragraphs.el" (17504 -;;;;;; 41540)) +;;;### (autoloads nil "paragraphs" "textmodes/paragraphs.el" (17495 +;;;;;; 43955)) ;;; Generated autoloads from textmodes/paragraphs.el (put 'paragraph-start 'safe-local-variable 'stringp) (put 'paragraph-separate 'safe-local-variable 'stringp) @@ -19481,7 +19726,7 @@ See the command `outline-mode' for more information on this mode. ;;;*** -;;;### (autoloads (show-paren-mode) "paren" "paren.el" (17504 41540)) +;;;### (autoloads (show-paren-mode) "paren" "paren.el" (17779 6042)) ;;; Generated autoloads from paren.el (defvar show-paren-mode nil "\ @@ -19506,7 +19751,7 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time. ;;;*** ;;;### (autoloads (parse-time-string) "parse-time" "calendar/parse-time.el" -;;;;;; (17504 41540)) +;;;;;; (17386 33146)) ;;; Generated autoloads from calendar/parse-time.el (autoload (quote parse-time-string) "parse-time" "\ @@ -19518,8 +19763,8 @@ unknown are returned as nil. ;;;*** -;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (17394 +;;;;;; 12938)) ;;; Generated autoloads from progmodes/pascal.el (autoload (quote pascal-mode) "pascal" "\ @@ -19572,7 +19817,7 @@ no args, if that value is non-nil. ;;;*** ;;;### (autoloads (pc-bindings-mode) "pc-mode" "emulation/pc-mode.el" -;;;;;; (17504 41540)) +;;;;;; (17785 34467)) ;;; Generated autoloads from emulation/pc-mode.el (autoload (quote pc-bindings-mode) "pc-mode" "\ @@ -19590,17 +19835,18 @@ C-Escape does list-buffers. ;;;*** ;;;### (autoloads (pc-selection-mode pc-selection-mode) "pc-select" -;;;;;; "emulation/pc-select.el" (17504 41540)) +;;;;;; "emulation/pc-select.el" (17385 8491)) ;;; Generated autoloads from emulation/pc-select.el (defvar pc-selection-mode nil "\ Non-nil if Pc-Selection mode is enabled. See the command `pc-selection-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -either customize it (see the info node `Easy Customization') -or call the function `pc-selection-mode'.") +use either \\[customize] or the function `pc-selection-mode'.") + +(custom-autoload (quote pc-selection-mode) "pc-select") -(custom-autoload (quote pc-selection-mode) "pc-select" nil) +(put (quote pc-selection-mode) (quote custom-set) (quote custom-set-minor-mode)) (autoload (quote pc-selection-mode) "pc-select" "\ Change mark behavior to emulate Motif, MAC or MS-Windows cut and paste style. @@ -19662,12 +19908,12 @@ This mode enables Delete Selection mode and Transient Mark mode. Setting this variable directly does not take effect; you must modify it using \\[customize] or \\[pc-selection-mode].") -(custom-autoload (quote pc-selection-mode) "pc-select" nil) +(custom-autoload (quote pc-selection-mode) "pc-select") ;;;*** -;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (17781 +;;;;;; 39502)) ;;; Generated autoloads from pcmpl-cvs.el (autoload (quote pcomplete/cvs) "pcmpl-cvs" "\ @@ -19678,7 +19924,7 @@ Completion rules for the `cvs' command. ;;;*** ;;;### (autoloads (pcomplete/tar pcomplete/make pcomplete/bzip2 pcomplete/gzip) -;;;;;; "pcmpl-gnu" "pcmpl-gnu.el" (17504 41540)) +;;;;;; "pcmpl-gnu" "pcmpl-gnu.el" (17781 39502)) ;;; Generated autoloads from pcmpl-gnu.el (autoload (quote pcomplete/gzip) "pcmpl-gnu" "\ @@ -19706,7 +19952,7 @@ Completion for the GNU tar utility. ;;;*** ;;;### (autoloads (pcomplete/mount pcomplete/umount pcomplete/kill) -;;;;;; "pcmpl-linux" "pcmpl-linux.el" (17504 41540)) +;;;;;; "pcmpl-linux" "pcmpl-linux.el" (17781 39502)) ;;; Generated autoloads from pcmpl-linux.el (autoload (quote pcomplete/kill) "pcmpl-linux" "\ @@ -19726,8 +19972,8 @@ Completion for GNU/Linux `mount'. ;;;*** -;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (17781 +;;;;;; 39502)) ;;; Generated autoloads from pcmpl-rpm.el (autoload (quote pcomplete/rpm) "pcmpl-rpm" "\ @@ -19743,7 +19989,7 @@ You can use \\[eshell-report-bug] to do so. ;;;### (autoloads (pcomplete/chgrp pcomplete/chown pcomplete/which ;;;;;; pcomplete/xargs pcomplete/rm pcomplete/rmdir pcomplete/cd) -;;;;;; "pcmpl-unix" "pcmpl-unix.el" (17504 41540)) +;;;;;; "pcmpl-unix" "pcmpl-unix.el" (17781 39502)) ;;; Generated autoloads from pcmpl-unix.el (autoload (quote pcomplete/cd) "pcmpl-unix" "\ @@ -19789,8 +20035,8 @@ Completion for the `chgrp' command. ;;;### (autoloads (pcomplete-shell-setup pcomplete-comint-setup pcomplete-list ;;;;;; pcomplete-help pcomplete-expand pcomplete-continue pcomplete-expand-and-complete -;;;;;; pcomplete-reverse pcomplete) "pcomplete" "pcomplete.el" (17504 -;;;;;; 41540)) +;;;;;; pcomplete-reverse pcomplete) "pcomplete" "pcomplete.el" (17476 +;;;;;; 4798)) ;;; Generated autoloads from pcomplete.el (autoload (quote pcomplete) "pcomplete" "\ @@ -19849,7 +20095,7 @@ Setup shell-mode to use pcomplete. ;;;### (autoloads (cvs-dired-use-hook cvs-dired-action cvs-status ;;;;;; cvs-update cvs-examine cvs-quickdir cvs-checkout) "pcvs" -;;;;;; "pcvs.el" (17759 28868)) +;;;;;; "pcvs.el" (17781 39502)) ;;; Generated autoloads from pcvs.el (autoload (quote cvs-checkout) "pcvs" "\ @@ -19926,7 +20172,7 @@ The exact behavior is determined also by `cvs-dired-use-hook'." (when (stringp d ;;;*** -;;;### (autoloads nil "pcvs-defs" "pcvs-defs.el" (17672 28070)) +;;;### (autoloads nil "pcvs-defs" "pcvs-defs.el" (17781 39502)) ;;; Generated autoloads from pcvs-defs.el (defvar cvs-global-menu (let ((m (make-sparse-keymap "PCL-CVS"))) (define-key m [status] (quote (menu-item "Directory Status" cvs-status :help "A more verbose status of a workarea"))) (define-key m [checkout] (quote (menu-item "Checkout Module" cvs-checkout :help "Check out a module from the repository"))) (define-key m [update] (quote (menu-item "Update Directory" cvs-update :help "Fetch updates from the repository"))) (define-key m [examine] (quote (menu-item "Examine Directory" cvs-examine :help "Examine the current state of a workarea"))) (fset (quote cvs-global-menu) m))) @@ -19934,7 +20180,7 @@ The exact behavior is determined also by `cvs-dired-use-hook'." (when (stringp d ;;;*** ;;;### (autoloads (perl-mode) "perl-mode" "progmodes/perl-mode.el" -;;;;;; (17504 41540)) +;;;;;; (17515 24182)) ;;; Generated autoloads from progmodes/perl-mode.el (autoload (quote perl-mode) "perl-mode" "\ @@ -19992,7 +20238,7 @@ Turning on Perl mode runs the normal hook `perl-mode-hook'. ;;;### (autoloads (pgg-snarf-keys pgg-snarf-keys-region pgg-insert-key ;;;;;; pgg-verify pgg-verify-region pgg-sign pgg-sign-region pgg-decrypt ;;;;;; pgg-decrypt-region pgg-encrypt pgg-encrypt-symmetric pgg-encrypt-symmetric-region -;;;;;; pgg-encrypt-region) "pgg" "pgg.el" (17661 56347)) +;;;;;; pgg-encrypt-region) "pgg" "pgg.el" (17661 55157)) ;;; Generated autoloads from pgg.el (autoload (quote pgg-encrypt-region) "pgg" "\ @@ -20126,7 +20372,7 @@ Import public keys in the current buffer. ;;;*** ;;;### (autoloads (pgg-gpg-symmetric-key-p) "pgg-gpg" "pgg-gpg.el" -;;;;;; (17664 29027)) +;;;;;; (17797 53312)) ;;; Generated autoloads from pgg-gpg.el (autoload (quote pgg-gpg-symmetric-key-p) "pgg-gpg" "\ @@ -20137,7 +20383,7 @@ True if decoded armor MESSAGE-KEYS has symmetric encryption indicator. ;;;*** ;;;### (autoloads (picture-mode) "picture" "textmodes/picture.el" -;;;;;; (17504 41540)) +;;;;;; (17786 56015)) ;;; Generated autoloads from textmodes/picture.el (autoload (quote picture-mode) "picture" "\ @@ -20218,7 +20464,7 @@ they are not defaultly assigned to keys. ;;;*** ;;;### (autoloads (po-find-file-coding-system) "po" "textmodes/po.el" -;;;;;; (17604 18984)) +;;;;;; (17601 9092)) ;;; Generated autoloads from textmodes/po.el (autoload (quote po-find-file-coding-system) "po" "\ @@ -20229,7 +20475,7 @@ Called through `file-coding-system-alist', before the file is visited for real. ;;;*** -;;;### (autoloads (pong) "pong" "play/pong.el" (17557 12730)) +;;;### (autoloads (pong) "pong" "play/pong.el" (17551 7908)) ;;; Generated autoloads from play/pong.el (autoload (quote pong) "pong" "\ @@ -20246,7 +20492,7 @@ pong-mode keybindings:\\<pong-mode-map> ;;;*** ;;;### (autoloads (pp-eval-last-sexp pp-eval-expression pp pp-buffer -;;;;;; pp-to-string) "pp" "emacs-lisp/pp.el" (17746 34861)) +;;;;;; pp-to-string) "pp" "emacs-lisp/pp.el" (17740 981)) ;;; Generated autoloads from emacs-lisp/pp.el (autoload (quote pp-to-string) "pp" "\ @@ -20307,7 +20553,7 @@ Ignores leading comment characters. ;;;;;; pr-ps-buffer-print pr-ps-buffer-using-ghostscript pr-ps-buffer-preview ;;;;;; pr-ps-directory-ps-print pr-ps-directory-print pr-ps-directory-using-ghostscript ;;;;;; pr-ps-directory-preview pr-interface) "printing" "printing.el" -;;;;;; (17746 34861)) +;;;;;; (17780 18172)) ;;; Generated autoloads from printing.el (autoload (quote pr-interface) "printing" "\ @@ -20895,7 +21141,7 @@ are both set to t. ;;;*** ;;;### (autoloads (switch-to-prolog prolog-mode) "prolog" "progmodes/prolog.el" -;;;;;; (17665 30176)) +;;;;;; (17664 20313)) ;;; Generated autoloads from progmodes/prolog.el (autoload (quote prolog-mode) "prolog" "\ @@ -20918,7 +21164,7 @@ With prefix argument \\[universal-prefix], prompt for the program to use. ;;;*** -;;;### (autoloads nil "ps-bdf" "ps-bdf.el" (17504 41540)) +;;;### (autoloads nil "ps-bdf" "ps-bdf.el" (17792 9561)) ;;; Generated autoloads from ps-bdf.el (defvar bdf-directory-list (if (memq system-type (quote (ms-dos windows-nt))) (list (expand-file-name "fonts/bdf" installation-directory)) (quote ("/usr/local/share/emacs/fonts/bdf"))) "\ @@ -20927,8 +21173,8 @@ The default value is '(\"/usr/local/share/emacs/fonts/bdf\").") ;;;*** -;;;### (autoloads (ps-mode) "ps-mode" "progmodes/ps-mode.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (ps-mode) "ps-mode" "progmodes/ps-mode.el" (17394 +;;;;;; 12938)) ;;; Generated autoloads from progmodes/ps-mode.el (autoload (quote ps-mode) "ps-mode" "\ @@ -20977,7 +21223,7 @@ Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number ;;;### (autoloads (ps-mule-begin-page ps-mule-begin-job ps-mule-encode-header-string ;;;;;; ps-mule-initialize ps-mule-plot-composition ps-mule-plot-string ;;;;;; ps-mule-set-ascii-font ps-mule-prepare-ascii-font ps-multibyte-buffer) -;;;;;; "ps-mule" "ps-mule.el" (17504 41540)) +;;;;;; "ps-mule" "ps-mule.el" (17780 18172)) ;;; Generated autoloads from ps-mule.el (defvar ps-multibyte-buffer nil "\ @@ -21098,8 +21344,8 @@ Not documented ;;;;;; ps-spool-region ps-spool-buffer-with-faces ps-spool-buffer ;;;;;; ps-print-region-with-faces ps-print-region ps-print-buffer-with-faces ;;;;;; ps-print-buffer ps-print-customize ps-print-color-p ps-paper-type -;;;;;; ps-page-dimensions-database) "ps-print" "ps-print.el" (17686 -;;;;;; 35929)) +;;;;;; ps-page-dimensions-database) "ps-print" "ps-print.el" (17780 +;;;;;; 18172)) ;;; Generated autoloads from ps-print.el (defvar ps-page-dimensions-database (list (list (quote a4) (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4") (list (quote a3) (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3") (list (quote letter) (* 72 8.5) (* 72 11.0) "Letter") (list (quote legal) (* 72 8.5) (* 72 14.0) "Legal") (list (quote letter-small) (* 72 7.68) (* 72 10.16) "LetterSmall") (list (quote tabloid) (* 72 11.0) (* 72 17.0) "Tabloid") (list (quote ledger) (* 72 17.0) (* 72 11.0) "Ledger") (list (quote statement) (* 72 5.5) (* 72 8.5) "Statement") (list (quote executive) (* 72 7.5) (* 72 10.0) "Executive") (list (quote a4small) (* 72 7.47) (* 72 10.85) "A4Small") (list (quote b4) (* 72 10.125) (* 72 14.33) "B4") (list (quote b5) (* 72 7.16) (* 72 10.125) "B5")) "\ @@ -21296,7 +21542,7 @@ If EXTENSION is any other symbol, it is ignored. ;;;*** ;;;### (autoloads (jython-mode python-mode run-python) "python" "progmodes/python.el" -;;;;;; (17759 28873)) +;;;;;; (17780 18172)) ;;; Generated autoloads from progmodes/python.el (add-to-list (quote interpreter-mode-alist) (quote ("jython" . jython-mode))) @@ -21371,7 +21617,7 @@ Runs `jython-mode-hook' after `python-mode-hook'. ;;;*** ;;;### (autoloads (quoted-printable-decode-region) "qp" "gnus/qp.el" -;;;;;; (17504 41540)) +;;;;;; (17408 40148)) ;;; Generated autoloads from gnus/qp.el (autoload (quote quoted-printable-decode-region) "qp" "\ @@ -21394,7 +21640,7 @@ them into characters should be done separately. ;;;;;; quail-defrule quail-install-decode-map quail-install-map ;;;;;; quail-define-rules quail-show-keyboard-layout quail-set-keyboard-layout ;;;;;; quail-define-package quail-use-package quail-title) "quail" -;;;;;; "international/quail.el" (17660 47810)) +;;;;;; "international/quail.el" (17792 9562)) ;;; Generated autoloads from international/quail.el (autoload (quote quail-title) "quail" "\ @@ -21625,8 +21871,8 @@ of each directory. ;;;### (autoloads (quickurl-list quickurl-list-mode quickurl-edit-urls ;;;;;; quickurl-browse-url-ask quickurl-browse-url quickurl-add-url -;;;;;; quickurl-ask quickurl) "quickurl" "net/quickurl.el" (17504 -;;;;;; 41540)) +;;;;;; quickurl-ask quickurl) "quickurl" "net/quickurl.el" (17385 +;;;;;; 8495)) ;;; Generated autoloads from net/quickurl.el (defconst quickurl-reread-hook-postfix "\n;; Local Variables:\n;; eval: (progn (require 'quickurl) (add-hook 'local-write-file-hooks (lambda () (quickurl-read) nil)))\n;; End:\n" "\ @@ -21698,7 +21944,7 @@ Display `quickurl-list' as a formatted list using `quickurl-list-mode'. ;;;*** ;;;### (autoloads (rcirc-track-minor-mode rcirc-connect rcirc) "rcirc" -;;;;;; "net/rcirc.el" (17672 28071)) +;;;;;; "net/rcirc.el" (17767 19634)) ;;; Generated autoloads from net/rcirc.el (autoload (quote rcirc) "rcirc" "\ @@ -21730,8 +21976,8 @@ Global minor mode for tracking activity in rcirc buffers. ;;;*** -;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (17578 -;;;;;; 29458)) +;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (17786 +;;;;;; 56015)) ;;; Generated autoloads from net/rcompile.el (autoload (quote remote-compile) "rcompile" "\ @@ -21743,7 +21989,7 @@ See \\[compile]. ;;;*** ;;;### (autoloads (re-builder) "re-builder" "emacs-lisp/re-builder.el" -;;;;;; (17759 28868)) +;;;;;; (17751 22876)) ;;; Generated autoloads from emacs-lisp/re-builder.el (defalias (quote regexp-builder) (quote re-builder)) @@ -21755,7 +22001,7 @@ Construct a regexp interactively. ;;;*** -;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (17718 30636)) +;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (17718 28532)) ;;; Generated autoloads from recentf.el (defvar recentf-mode nil "\ @@ -21782,8 +22028,8 @@ that were operated on recently. ;;;### (autoloads (clear-rectangle string-insert-rectangle string-rectangle ;;;;;; delete-whitespace-rectangle open-rectangle insert-rectangle ;;;;;; yank-rectangle kill-rectangle extract-rectangle delete-extract-rectangle -;;;;;; delete-rectangle move-to-column-force) "rect" "rect.el" (17639 -;;;;;; 6256)) +;;;;;; delete-rectangle move-to-column-force) "rect" "rect.el" (17637 +;;;;;; 59300)) ;;; Generated autoloads from rect.el (autoload (quote move-to-column-force) "rect" "\ @@ -21911,8 +22157,8 @@ rectangle which were empty. ;;;*** -;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (17786 +;;;;;; 56015)) ;;; Generated autoloads from textmodes/refill.el (autoload (quote refill-mode) "refill" "\ @@ -21928,7 +22174,7 @@ refilling if they would cause auto-filling. ;;;*** ;;;### (autoloads (reftex-reset-scanning-information reftex-mode -;;;;;; turn-on-reftex) "reftex" "textmodes/reftex.el" (17504 41540)) +;;;;;; turn-on-reftex) "reftex" "textmodes/reftex.el" (17408 40149)) ;;; Generated autoloads from textmodes/reftex.el (autoload (quote turn-on-reftex) "reftex" "\ @@ -21978,7 +22224,7 @@ This enforces rescanning the buffer on next use. ;;;*** ;;;### (autoloads (reftex-citation) "reftex-cite" "textmodes/reftex-cite.el" -;;;;;; (17746 34863)) +;;;;;; (17786 56015)) ;;; Generated autoloads from textmodes/reftex-cite.el (autoload (quote reftex-citation) "reftex-cite" "\ @@ -22008,7 +22254,7 @@ While entering the regexp, completion on knows citation keys is possible. ;;;*** ;;;### (autoloads (reftex-isearch-minor-mode) "reftex-global" "textmodes/reftex-global.el" -;;;;;; (17712 1062)) +;;;;;; (17786 56015)) ;;; Generated autoloads from textmodes/reftex-global.el (autoload (quote reftex-isearch-minor-mode) "reftex-global" "\ @@ -22025,7 +22271,7 @@ With no argument, this command toggles ;;;*** ;;;### (autoloads (reftex-index-phrases-mode) "reftex-index" "textmodes/reftex-index.el" -;;;;;; (17504 41540)) +;;;;;; (17786 56015)) ;;; Generated autoloads from textmodes/reftex-index.el (autoload (quote reftex-index-phrases-mode) "reftex-index" "\ @@ -22058,7 +22304,7 @@ Here are all local bindings. ;;;*** ;;;### (autoloads (reftex-all-document-files) "reftex-parse" "textmodes/reftex-parse.el" -;;;;;; (17504 41540)) +;;;;;; (17786 56015)) ;;; Generated autoloads from textmodes/reftex-parse.el (autoload (quote reftex-all-document-files) "reftex-parse" "\ @@ -22070,8 +22316,8 @@ of master file. ;;;*** -;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (17704 -;;;;;; 3967)) +;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (17786 +;;;;;; 56015)) ;;; Generated autoloads from textmodes/reftex-vars.el (put 'reftex-vref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x)))) (put 'reftex-fref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x)))) @@ -22081,11 +22327,11 @@ of master file. ;;;*** ;;;### (autoloads (regexp-opt-depth regexp-opt) "regexp-opt" "emacs-lisp/regexp-opt.el" -;;;;;; (17504 41540)) +;;;;;; (17785 34467)) ;;; Generated autoloads from emacs-lisp/regexp-opt.el (autoload (quote regexp-opt) "regexp-opt" "\ -Return a regexp to match a string in STRINGS. +Return a regexp to match a string in the list STRINGS. Each string should be unique in STRINGS and should not contain any regexps, quoted or not. If optional PAREN is non-nil, ensure that the returned regexp is enclosed by at least one regexp grouping construct. @@ -22108,7 +22354,7 @@ This means the number of non-shy regexp grouping constructs ;;;*** -;;;### (autoloads (repeat) "repeat" "repeat.el" (17504 41540)) +;;;### (autoloads (repeat) "repeat" "repeat.el" (17781 39502)) ;;; Generated autoloads from repeat.el (autoload (quote repeat) "repeat" "\ @@ -22126,7 +22372,7 @@ can be modified by the global variable `repeat-on-final-keystroke'. ;;;*** ;;;### (autoloads (reporter-submit-bug-report) "reporter" "mail/reporter.el" -;;;;;; (17504 41540)) +;;;;;; (17786 56015)) ;;; Generated autoloads from mail/reporter.el (autoload (quote reporter-submit-bug-report) "reporter" "\ @@ -22158,7 +22404,7 @@ mail-sending package is used for editing and sending the message. ;;;*** ;;;### (autoloads (reposition-window) "reposition" "reposition.el" -;;;;;; (17504 41540)) +;;;;;; (17781 39502)) ;;; Generated autoloads from reposition.el (autoload (quote reposition-window) "reposition" "\ @@ -22185,8 +22431,8 @@ first comment line visible (if point is in a comment). ;;;*** -;;;### (autoloads (resume-suspend-hook) "resume" "resume.el" (17746 -;;;;;; 34861)) +;;;### (autoloads (resume-suspend-hook) "resume" "resume.el" (17781 +;;;;;; 39502)) ;;; Generated autoloads from resume.el (autoload (quote resume-suspend-hook) "resume" "\ @@ -22197,7 +22443,7 @@ Clear out the file used for transmitting args when Emacs resumes. ;;;*** ;;;### (autoloads (global-reveal-mode reveal-mode) "reveal" "reveal.el" -;;;;;; (17504 41540)) +;;;;;; (17495 43954)) ;;; Generated autoloads from reveal.el (autoload (quote reveal-mode) "reveal" "\ @@ -22214,10 +22460,11 @@ With zero or negative ARG turn mode off. Non-nil if Global-Reveal mode is enabled. See the command `global-reveal-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -either customize it (see the info node `Easy Customization') -or call the function `global-reveal-mode'.") +use either \\[customize] or the function `global-reveal-mode'.") + +(custom-autoload (quote global-reveal-mode) "reveal") -(custom-autoload (quote global-reveal-mode) "reveal" nil) +(put (quote global-reveal-mode) (quote custom-set) (quote custom-set-minor-mode)) (autoload (quote global-reveal-mode) "reveal" "\ Toggle Reveal mode in all buffers on or off. @@ -22232,7 +22479,7 @@ With zero or negative ARG turn mode off. ;;;*** ;;;### (autoloads (make-ring ring-p) "ring" "emacs-lisp/ring.el" -;;;;;; (17504 41540)) +;;;;;; (17785 34467)) ;;; Generated autoloads from emacs-lisp/ring.el (autoload (quote ring-p) "ring" "\ @@ -22247,7 +22494,7 @@ Make a ring that can contain SIZE elements. ;;;*** -;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (17504 41540)) +;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (17786 56015)) ;;; Generated autoloads from net/rlogin.el (add-hook 'same-window-regexps "^\\*rlogin-.*\\*\\(\\|<[0-9]+>\\)") @@ -22298,8 +22545,8 @@ variable. ;;;;;; rmail-mail-new-frame rmail-primary-inbox-list rmail-delete-after-output ;;;;;; rmail-highlight-face rmail-highlighted-headers rmail-retry-ignored-headers ;;;;;; rmail-displayed-headers rmail-ignored-headers rmail-dont-reply-to-names -;;;;;; rmail-movemail-variant-p) "rmail" "mail/rmail.el" (17746 -;;;;;; 34862)) +;;;;;; rmail-movemail-variant-p) "rmail" "mail/rmail.el" (17742 +;;;;;; 7456)) ;;; Generated autoloads from mail/rmail.el (autoload (quote rmail-movemail-variant-p) "rmail" "\ @@ -22564,7 +22811,7 @@ Set PASSWORD to be used for retrieving mail from a POP or IMAP server. ;;;*** ;;;### (autoloads (rmail-edit-current-message) "rmailedit" "mail/rmailedit.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8494)) ;;; Generated autoloads from mail/rmailedit.el (autoload (quote rmail-edit-current-message) "rmailedit" "\ @@ -22576,7 +22823,7 @@ Edit the contents of this message. ;;;### (autoloads (rmail-next-labeled-message rmail-previous-labeled-message ;;;;;; rmail-read-label rmail-kill-label rmail-add-label) "rmailkwd" -;;;;;; "mail/rmailkwd.el" (17504 41540)) +;;;;;; "mail/rmailkwd.el" (17385 8494)) ;;; Generated autoloads from mail/rmailkwd.el (autoload (quote rmail-add-label) "rmailkwd" "\ @@ -22615,7 +22862,7 @@ With prefix argument N moves forward N messages with these labels. ;;;*** ;;;### (autoloads (set-rmail-inbox-list) "rmailmsc" "mail/rmailmsc.el" -;;;;;; (17504 41540)) +;;;;;; (17786 56015)) ;;; Generated autoloads from mail/rmailmsc.el (autoload (quote set-rmail-inbox-list) "rmailmsc" "\ @@ -22629,7 +22876,7 @@ If FILE-NAME is empty, remove any existing inbox list. ;;;### (autoloads (rmail-output-body-to-file rmail-output rmail-fields-not-to-output ;;;;;; rmail-output-to-rmail-file rmail-output-file-alist) "rmailout" -;;;;;; "mail/rmailout.el" (17759 28870)) +;;;;;; "mail/rmailout.el" (17752 39352)) ;;; Generated autoloads from mail/rmailout.el (defvar rmail-output-file-alist nil "\ @@ -22696,8 +22943,8 @@ FILE-NAME defaults, interactively, from the Subject field of the message. ;;;### (autoloads (rmail-sort-by-labels rmail-sort-by-lines rmail-sort-by-correspondent ;;;;;; rmail-sort-by-recipient rmail-sort-by-author rmail-sort-by-subject -;;;;;; rmail-sort-by-date) "rmailsort" "mail/rmailsort.el" (17504 -;;;;;; 41540)) +;;;;;; rmail-sort-by-date) "rmailsort" "mail/rmailsort.el" (17385 +;;;;;; 8494)) ;;; Generated autoloads from mail/rmailsort.el (autoload (quote rmail-sort-by-date) "rmailsort" "\ @@ -22749,18 +22996,18 @@ KEYWORDS is a comma-separated list of labels. ;;;;;; rmail-summary-by-senders rmail-summary-by-topic rmail-summary-by-regexp ;;;;;; rmail-summary-by-recipients rmail-summary-by-labels rmail-summary ;;;;;; rmail-summary-line-count-flag rmail-summary-scroll-between-messages) -;;;;;; "rmailsum" "mail/rmailsum.el" (17504 41540)) +;;;;;; "rmailsum" "mail/rmailsum.el" (17427 10522)) ;;; Generated autoloads from mail/rmailsum.el (defvar rmail-summary-scroll-between-messages t "\ *Non-nil means Rmail summary scroll commands move between messages.") -(custom-autoload (quote rmail-summary-scroll-between-messages) "rmailsum" t) +(custom-autoload (quote rmail-summary-scroll-between-messages) "rmailsum") (defvar rmail-summary-line-count-flag t "\ *Non-nil means Rmail summary should show the number of lines in each message.") -(custom-autoload (quote rmail-summary-line-count-flag) "rmailsum" t) +(custom-autoload (quote rmail-summary-line-count-flag) "rmailsum") (autoload (quote rmail-summary) "rmailsum" "\ Display a summary of all messages, one line per message. @@ -22810,7 +23057,7 @@ SENDERS is a string of names separated by commas. By default, `identity' is set.") -(custom-autoload (quote rmail-summary-line-decoder) "rmailsum" t) +(custom-autoload (quote rmail-summary-line-decoder) "rmailsum") (defvar rmail-user-mail-address-regexp nil "\ *Regexp matching user mail addresses. @@ -22826,50 +23073,107 @@ Then it should be a regexp matching your mail addresses. Setting this variable has an effect only before reading a mail.") -(custom-autoload (quote rmail-user-mail-address-regexp) "rmailsum" t) +(custom-autoload (quote rmail-user-mail-address-regexp) "rmailsum") + +;;;*** + +;;;### (autoloads (news-post-news) "rnewspost" "obsolete/rnewspost.el" +;;;;;; (17786 56015)) +;;; Generated autoloads from obsolete/rnewspost.el + +(autoload (quote news-post-news) "rnewspost" "\ +Begin editing a new USENET news article to be posted. +Type \\[describe-mode] once editing the article to get a list of commands. +If NOQUERY is non-nil, we do not query before doing the work. + +\(fn &optional NOQUERY)" t nil) ;;;*** ;;;### (autoloads (toggle-rot13-mode rot13-other-window rot13-region -;;;;;; rot13-string rot13) "rot13" "rot13.el" (17504 41540)) +;;;;;; rot13-string rot13) "rot13" "rot13.el" (17781 39502)) ;;; Generated autoloads from rot13.el (autoload (quote rot13) "rot13" "\ -Return Rot13 encryption of OBJECT, a buffer or string. +Return ROT13 encryption of OBJECT, a buffer or string. \(fn OBJECT &optional START END)" nil nil) (autoload (quote rot13-string) "rot13" "\ -Return Rot13 encryption of STRING. +Return ROT13 encryption of STRING. \(fn STRING)" nil nil) (autoload (quote rot13-region) "rot13" "\ -Rot13 encrypt the region between START and END in current buffer. +ROT13 encrypt the region between START and END in current buffer. \(fn START END)" t nil) (autoload (quote rot13-other-window) "rot13" "\ -Display current buffer in rot 13 in another window. +Display current buffer in ROT13 in another window. The text itself is not modified, only the way it is displayed is affected. -To terminate the rot13 display, delete that window. As long as that window +To terminate the ROT13 display, delete that window. As long as that window is not deleted, any buffer displayed in it will become instantly encoded -in rot 13. +in ROT13. See also `toggle-rot13-mode'. \(fn)" t nil) (autoload (quote toggle-rot13-mode) "rot13" "\ -Toggle the use of rot 13 encoding for the current window. +Toggle the use of ROT13 encoding for the current window. \(fn)" t nil) ;;;*** -;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (17746 -;;;;;; 34861)) +;;;### (autoloads (resize-minibuffer-mode resize-minibuffer-frame-exactly +;;;;;; resize-minibuffer-frame-max-height resize-minibuffer-frame +;;;;;; resize-minibuffer-window-exactly resize-minibuffer-window-max-height +;;;;;; resize-minibuffer-mode) "rsz-mini" "obsolete/rsz-mini.el" +;;;;;; (17786 56015)) +;;; Generated autoloads from obsolete/rsz-mini.el + +(defvar resize-minibuffer-mode nil "\ +*This variable is obsolete.") + +(custom-autoload (quote resize-minibuffer-mode) "rsz-mini" t) + +(defvar resize-minibuffer-window-max-height nil "\ +*This variable is obsolete.") + +(custom-autoload (quote resize-minibuffer-window-max-height) "rsz-mini" t) + +(defvar resize-minibuffer-window-exactly t "\ +*This variable is obsolete.") + +(custom-autoload (quote resize-minibuffer-window-exactly) "rsz-mini" t) + +(defvar resize-minibuffer-frame nil "\ +*This variable is obsolete.") + +(custom-autoload (quote resize-minibuffer-frame) "rsz-mini" t) + +(defvar resize-minibuffer-frame-max-height nil "\ +*This variable is obsolete.") + +(custom-autoload (quote resize-minibuffer-frame-max-height) "rsz-mini" t) + +(defvar resize-minibuffer-frame-exactly t "\ +*This variable is obsolete.") + +(custom-autoload (quote resize-minibuffer-frame-exactly) "rsz-mini" t) + +(autoload (quote resize-minibuffer-mode) "rsz-mini" "\ +This function is obsolete. + +\(fn &optional PREFIX)" t nil) + +;;;*** + +;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (17743 +;;;;;; 45091)) ;;; Generated autoloads from ruler-mode.el (autoload (quote ruler-mode) "ruler-mode" "\ @@ -22879,8 +23183,8 @@ Display a ruler in the header line if ARG > 0. ;;;*** -;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (17420 +;;;;;; 32030)) ;;; Generated autoloads from emacs-lisp/rx.el (autoload (quote rx-to-string) "rx" "\ @@ -23188,7 +23492,7 @@ enclosed in `(and ...)'. ;;;*** ;;;### (autoloads (savehist-mode savehist-mode) "savehist" "savehist.el" -;;;;;; (17504 41540)) +;;;;;; (17476 4798)) ;;; Generated autoloads from savehist.el (defvar savehist-mode nil "\ @@ -23196,7 +23500,7 @@ Mode for automatic saving of minibuffer history. Set this by calling the `savehist-mode' function or using the customize interface.") -(custom-autoload (quote savehist-mode) "savehist" nil) +(custom-autoload (quote savehist-mode) "savehist") (autoload (quote savehist-mode) "savehist" "\ Toggle savehist-mode. @@ -23214,7 +23518,7 @@ which is probably undesirable. ;;;*** ;;;### (autoloads (dsssl-mode scheme-mode) "scheme" "progmodes/scheme.el" -;;;;;; (17504 41540)) +;;;;;; (17394 12938)) ;;; Generated autoloads from progmodes/scheme.el (autoload (quote scheme-mode) "scheme" "\ @@ -23256,7 +23560,7 @@ that variable's value is a string. ;;;*** ;;;### (autoloads (gnus-score-mode) "score-mode" "gnus/score-mode.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8494)) ;;; Generated autoloads from gnus/score-mode.el (autoload (quote gnus-score-mode) "score-mode" "\ @@ -23269,8 +23573,33 @@ This mode is an extended emacs-lisp mode. ;;;*** +;;;### (autoloads (scribe-mode) "scribe" "obsolete/scribe.el" (17786 +;;;;;; 56015)) +;;; Generated autoloads from obsolete/scribe.el + +(autoload (quote scribe-mode) "scribe" "\ +Major mode for editing files of Scribe (a text formatter) source. +Scribe-mode is similar to text-mode, with a few extra commands added. +\\{scribe-mode-map} + +Interesting variables: + +`scribe-fancy-paragraphs' + Non-nil makes Scribe mode use a different style of paragraph separation. + +`scribe-electric-quote' + Non-nil makes insert of double quote use `` or '' depending on context. + +`scribe-electric-parenthesis' + Non-nil makes an open-parenthesis char (one of `([<{') + automatically insert its close if typed after an @Command form. + +\(fn)" t nil) + +;;;*** + ;;;### (autoloads (scroll-all-mode) "scroll-all" "scroll-all.el" -;;;;;; (17504 41540)) +;;;;;; (17781 39502)) ;;; Generated autoloads from scroll-all.el (defvar scroll-all-mode nil "\ @@ -23293,7 +23622,7 @@ apply to all visible windows in the same frame. ;;;*** ;;;### (autoloads (scroll-lock-mode) "scroll-lock" "scroll-lock.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8487)) ;;; Generated autoloads from scroll-lock.el (autoload (quote scroll-lock-mode) "scroll-lock" "\ @@ -23315,7 +23644,7 @@ during scrolling. ;;;;;; mail-alias-file mail-default-reply-to mail-archive-file-name ;;;;;; mail-header-separator send-mail-function mail-interactive ;;;;;; mail-self-blind mail-specify-envelope-from mail-from-style) -;;;;;; "sendmail" "mail/sendmail.el" (17660 47811)) +;;;;;; "sendmail" "mail/sendmail.el" (17660 26729)) ;;; Generated autoloads from mail/sendmail.el (defvar mail-from-style (quote angles) "\ @@ -23616,7 +23945,7 @@ Like `mail' command, but display mail buffer in another frame. ;;;*** ;;;### (autoloads (server-mode server-start) "server" "server.el" -;;;;;; (17759 28868)) +;;;;;; (17771 26718)) ;;; Generated autoloads from server.el (autoload (quote server-start) "server" "\ @@ -23649,7 +23978,7 @@ Server mode runs a process that accepts commands from the ;;;*** -;;;### (autoloads (ses-mode) "ses" "ses.el" (17759 28868)) +;;;### (autoloads (ses-mode) "ses" "ses.el" (17750 12548)) ;;; Generated autoloads from ses.el (autoload (quote ses-mode) "ses" "\ @@ -23668,7 +23997,7 @@ These are active only in the minibuffer, when entering or editing a formula: ;;;*** ;;;### (autoloads (html-mode sgml-mode) "sgml-mode" "textmodes/sgml-mode.el" -;;;;;; (17522 22309)) +;;;;;; (17780 18172)) ;;; Generated autoloads from textmodes/sgml-mode.el (autoload (quote sgml-mode) "sgml-mode" "\ @@ -23736,7 +24065,7 @@ To work around that, do: ;;;*** ;;;### (autoloads (sh-mode) "sh-script" "progmodes/sh-script.el" -;;;;;; (17710 3081)) +;;;;;; (17788 21816)) ;;; Generated autoloads from progmodes/sh-script.el (put 'sh-shell 'safe-local-variable 'symbolp) @@ -23800,7 +24129,7 @@ with your script for an edit-interpret-debug cycle. ;;;*** -;;;### (autoloads (sha1) "sha1" "gnus/sha1.el" (17504 41540)) +;;;### (autoloads (sha1) "sha1" "gnus/sha1.el" (17385 8494)) ;;; Generated autoloads from gnus/sha1.el (autoload (quote sha1) "sha1" "\ @@ -23815,7 +24144,7 @@ If BINARY is non-nil, return a string in binary form. ;;;*** ;;;### (autoloads (list-load-path-shadows) "shadow" "emacs-lisp/shadow.el" -;;;;;; (17746 34861)) +;;;;;; (17785 34467)) ;;; Generated autoloads from emacs-lisp/shadow.el (autoload (quote list-load-path-shadows) "shadow" "\ @@ -23862,8 +24191,8 @@ buffer called `*Shadows*'. Shadowings are located by calling the ;;;*** ;;;### (autoloads (shadow-initialize shadow-define-regexp-group shadow-define-literal-group -;;;;;; shadow-define-cluster) "shadowfile" "shadowfile.el" (17746 -;;;;;; 34861)) +;;;;;; shadow-define-cluster) "shadowfile" "shadowfile.el" (17743 +;;;;;; 18143)) ;;; Generated autoloads from shadowfile.el (autoload (quote shadow-define-cluster) "shadowfile" "\ @@ -23902,7 +24231,7 @@ Set up file shadowing. ;;;*** ;;;### (autoloads (shell shell-dumb-shell-regexp) "shell" "shell.el" -;;;;;; (17715 55645)) +;;;;;; (17796 10831)) ;;; Generated autoloads from shell.el (defvar shell-dumb-shell-regexp "cmd\\(proxy\\)?\\.exe" "\ @@ -23921,10 +24250,10 @@ If BUFFER exists but shell process is not running, make new shell. If BUFFER exists and shell process is running, just switch to BUFFER. Program used comes from variable `explicit-shell-file-name', or (if that is nil) from the ESHELL environment variable, - or else from SHELL if there is no ESHELL. -If a file `~/.emacs_SHELLNAME' exists, it is given as initial input - (Note that this may lose due to a timing error if the shell - discards input when it starts up.) + or (if that is nil) from `shell-file-name'. +If a file `~/.emacs_SHELLNAME' exists, or `~/.emacs.d/init_SHELLNAME.sh', +it is given as initial input (but this may be lost, due to a timing +error, if the shell discards input when it starts up). The buffer is put in Shell mode, giving commands for sending input and controlling the subjobs of the shell. See `shell-mode'. See also the variable `shell-prompt-pattern'. @@ -23949,7 +24278,7 @@ Otherwise, one argument `-i' is passed to the shell. ;;;*** ;;;### (autoloads (sieve-upload-and-bury sieve-upload sieve-manage) -;;;;;; "sieve" "gnus/sieve.el" (17504 41540)) +;;;;;; "sieve" "gnus/sieve.el" (17385 8494)) ;;; Generated autoloads from gnus/sieve.el (autoload (quote sieve-manage) "sieve" "\ @@ -23970,7 +24299,7 @@ Not documented ;;;*** ;;;### (autoloads (sieve-mode) "sieve-mode" "gnus/sieve-mode.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8494)) ;;; Generated autoloads from gnus/sieve-mode.el (autoload (quote sieve-mode) "sieve-mode" "\ @@ -23985,14 +24314,14 @@ Turning on Sieve mode runs `sieve-mode-hook'. ;;;*** -;;;### (autoloads nil "simple" "simple.el" (17746 34861)) +;;;### (autoloads nil "simple" "simple.el" (17797 50970)) ;;; Generated autoloads from simple.el (put 'fill-prefix 'safe-local-variable 'string-or-null-p) ;;;*** -;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (17788 +;;;;;; 21816)) ;;; Generated autoloads from progmodes/simula.el (autoload (quote simula-mode) "simula" "\ @@ -24041,7 +24370,7 @@ with no arguments, if that value is non-nil. ;;;*** ;;;### (autoloads (skeleton-pair-insert-maybe skeleton-insert skeleton-proxy-new -;;;;;; define-skeleton) "skeleton" "skeleton.el" (17522 22308)) +;;;;;; define-skeleton) "skeleton" "skeleton.el" (17781 39502)) ;;; Generated autoloads from skeleton.el (defvar skeleton-filter-function (quote identity) "\ @@ -24151,7 +24480,7 @@ symmetrical ones, and the same character twice for the others. ;;;*** ;;;### (autoloads (smerge-mode smerge-ediff) "smerge-mode" "smerge-mode.el" -;;;;;; (17504 41540)) +;;;;;; (17495 43954)) ;;; Generated autoloads from smerge-mode.el (autoload (quote smerge-ediff) "smerge-mode" "\ @@ -24170,7 +24499,7 @@ Minor mode to simplify editing output from the diff3 program. ;;;*** ;;;### (autoloads (smiley-buffer smiley-region) "smiley" "gnus/smiley.el" -;;;;;; (17504 41540)) +;;;;;; (17476 4800)) ;;; Generated autoloads from gnus/smiley.el (autoload (quote smiley-region) "smiley" "\ @@ -24188,7 +24517,7 @@ interactively. If there's no argument, do it at the current buffer ;;;*** ;;;### (autoloads (smtpmail-send-queued-mail smtpmail-send-it) "smtpmail" -;;;;;; "mail/smtpmail.el" (17718 30637)) +;;;;;; "mail/smtpmail.el" (17767 19634)) ;;; Generated autoloads from mail/smtpmail.el (autoload (quote smtpmail-send-it) "smtpmail" "\ @@ -24203,7 +24532,7 @@ Send mail that was queued as a result of setting `smtpmail-queue-mail'. ;;;*** -;;;### (autoloads (snake) "snake" "play/snake.el" (17504 41540)) +;;;### (autoloads (snake) "snake" "play/snake.el" (17786 56015)) ;;; Generated autoloads from play/snake.el (autoload (quote snake) "snake" "\ @@ -24227,7 +24556,7 @@ Snake mode keybindings: ;;;*** ;;;### (autoloads (snmpv2-mode snmp-mode) "snmp-mode" "net/snmp-mode.el" -;;;;;; (17504 41540)) +;;;;;; (17786 56015)) ;;; Generated autoloads from net/snmp-mode.el (autoload (quote snmp-mode) "snmp-mode" "\ @@ -24258,7 +24587,7 @@ then `snmpv2-mode-hook'. ;;;### (autoloads (solar-equinoxes-solstices sunrise-sunset calendar-location-name ;;;;;; calendar-longitude calendar-latitude calendar-time-display-form) -;;;;;; "solar" "calendar/solar.el" (17504 41540)) +;;;;;; "solar" "calendar/solar.el" (17386 33146)) ;;; Generated autoloads from calendar/solar.el (defvar calendar-time-display-form (quote (12-hours ":" minutes am-pm (if time-zone " (") time-zone (if time-zone ")"))) "\ @@ -24275,7 +24604,7 @@ For example, the form would give military-style times like `21:07 (UTC)'.") -(custom-autoload (quote calendar-time-display-form) "solar" t) +(custom-autoload (quote calendar-time-display-form) "solar") (defvar calendar-latitude nil "\ *Latitude of `calendar-location-name' in degrees. @@ -24287,7 +24616,7 @@ York City. This variable should be set in `site-start'.el.") -(custom-autoload (quote calendar-latitude) "solar" t) +(custom-autoload (quote calendar-latitude) "solar") (defvar calendar-longitude nil "\ *Longitude of `calendar-location-name' in degrees. @@ -24299,7 +24628,7 @@ York City. This variable should be set in `site-start'.el.") -(custom-autoload (quote calendar-longitude) "solar" t) +(custom-autoload (quote calendar-longitude) "solar") (defvar calendar-location-name (quote (let ((float-output-format "%.1f")) (format "%s%s, %s%s" (if (numberp calendar-latitude) (abs calendar-latitude) (+ (aref calendar-latitude 0) (/ (aref calendar-latitude 1) 60.0))) (if (numberp calendar-latitude) (if (> calendar-latitude 0) "N" "S") (if (equal (aref calendar-latitude 2) (quote north)) "N" "S")) (if (numberp calendar-longitude) (abs calendar-longitude) (+ (aref calendar-longitude 0) (/ (aref calendar-longitude 1) 60.0))) (if (numberp calendar-longitude) (if (> calendar-longitude 0) "E" "W") (if (equal (aref calendar-longitude 2) (quote east)) "E" "W"))))) "\ *Expression evaluating to name of `calendar-longitude', `calendar-latitude'. @@ -24308,7 +24637,7 @@ pair. This variable should be set in `site-start'.el.") -(custom-autoload (quote calendar-location-name) "solar" t) +(custom-autoload (quote calendar-location-name) "solar") (autoload (quote sunrise-sunset) "solar" "\ Local time of sunrise and sunset for today. Accurate to a few seconds. @@ -24329,8 +24658,8 @@ Requires floating point. ;;;*** -;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (17786 +;;;;;; 56015)) ;;; Generated autoloads from play/solitaire.el (autoload (quote solitaire) "solitaire" "\ @@ -24407,7 +24736,7 @@ Pick your favourite shortcuts: ;;;### (autoloads (reverse-region sort-columns sort-regexp-fields ;;;;;; sort-fields sort-numeric-fields sort-pages sort-paragraphs -;;;;;; sort-lines sort-subr) "sort" "sort.el" (17746 34861)) +;;;;;; sort-lines sort-subr) "sort" "sort.el" (17781 39502)) ;;; Generated autoloads from sort.el (autoload (quote sort-subr) "sort" "\ @@ -24549,8 +24878,8 @@ From a program takes two point or marker arguments, BEG and END. ;;;*** -;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (17476 +;;;;;; 4800)) ;;; Generated autoloads from gnus/spam.el (autoload (quote spam-initialize) "spam" "\ @@ -24562,7 +24891,7 @@ Install the spam.el hooks and do other initialization ;;;### (autoloads (spam-report-deagentize spam-report-agentize spam-report-url-to-file ;;;;;; spam-report-url-ping-mm-url spam-report-process-queue) "spam-report" -;;;;;; "gnus/spam-report.el" (17504 41540)) +;;;;;; "gnus/spam-report.el" (17386 33146)) ;;; Generated autoloads from gnus/spam-report.el (autoload (quote spam-report-process-queue) "spam-report" "\ @@ -24605,7 +24934,7 @@ Spam reports will be queued with the method used when ;;;*** ;;;### (autoloads (speedbar-get-focus speedbar-frame-mode) "speedbar" -;;;;;; "speedbar.el" (17746 34861)) +;;;;;; "speedbar.el" (17771 1419)) ;;; Generated autoloads from speedbar.el (defalias (quote speedbar) (quote speedbar-frame-mode)) @@ -24630,7 +24959,7 @@ selected. If the speedbar frame is active, then select the attached frame. ;;;*** ;;;### (autoloads (spell-string spell-region spell-word spell-buffer) -;;;;;; "spell" "textmodes/spell.el" (17504 41540)) +;;;;;; "spell" "textmodes/spell.el" (17786 56015)) ;;; Generated autoloads from textmodes/spell.el (put (quote spell-filter) (quote risky-local-variable) t) @@ -24666,8 +24995,8 @@ Check spelling of string supplied as argument. ;;;*** -;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (17786 +;;;;;; 56015)) ;;; Generated autoloads from play/spook.el (autoload (quote spook) "spook" "\ @@ -24685,8 +25014,8 @@ Return a vector containing the lines from `spook-phrases-file'. ;;;### (autoloads (sql-linter sql-db2 sql-interbase sql-postgres ;;;;;; sql-ms sql-ingres sql-solid sql-mysql sql-sqlite sql-informix ;;;;;; sql-sybase sql-oracle sql-product-interactive sql-mode sql-help -;;;;;; sql-add-product-keywords) "sql" "progmodes/sql.el" (17504 -;;;;;; 41540)) +;;;;;; sql-add-product-keywords) "sql" "progmodes/sql.el" (17781 +;;;;;; 39502)) ;;; Generated autoloads from progmodes/sql.el (autoload (quote sql-add-product-keywords) "sql" "\ @@ -25117,8 +25446,8 @@ input. See `sql-interactive-mode'. ;;;;;; strokes-mode strokes-list-strokes strokes-load-user-strokes ;;;;;; strokes-help strokes-describe-stroke strokes-do-complex-stroke ;;;;;; strokes-do-stroke strokes-read-complex-stroke strokes-read-stroke -;;;;;; strokes-global-set-stroke) "strokes" "strokes.el" (17704 -;;;;;; 3962)) +;;;;;; strokes-global-set-stroke) "strokes" "strokes.el" (17781 +;;;;;; 39502)) ;;; Generated autoloads from strokes.el (autoload (quote strokes-global-set-stroke) "strokes" "\ @@ -25228,7 +25557,7 @@ Read a complex stroke and insert its glyph into the current buffer. ;;;*** ;;;### (autoloads (studlify-buffer studlify-word studlify-region) -;;;;;; "studly" "play/studly.el" (17504 41540)) +;;;;;; "studly" "play/studly.el" (17075 55479)) ;;; Generated autoloads from play/studly.el (autoload (quote studlify-region) "studly" "\ @@ -25248,7 +25577,7 @@ Studlify-case the current buffer. ;;;*** -;;;### (autoloads (locate-library) "subr" "subr.el" (17759 28868)) +;;;### (autoloads (locate-library) "subr" "subr.el" (17789 35159)) ;;; Generated autoloads from subr.el (autoload (quote locate-library) "subr" "\ @@ -25270,7 +25599,7 @@ and the file name is displayed in the echo area. ;;;*** ;;;### (autoloads (sc-cite-original) "supercite" "mail/supercite.el" -;;;;;; (17504 41540)) +;;;;;; (17786 56015)) ;;; Generated autoloads from mail/supercite.el (autoload (quote sc-cite-original) "supercite" "\ @@ -25302,7 +25631,7 @@ before, and `sc-post-hook' is run after the guts of this function. ;;;*** -;;;### (autoloads (t-mouse-mode) "t-mouse" "t-mouse.el" (17746 34861)) +;;;### (autoloads (t-mouse-mode) "t-mouse" "t-mouse.el" (17743 18143)) ;;; Generated autoloads from t-mouse.el (defvar t-mouse-mode nil "\ @@ -25324,7 +25653,7 @@ Turn it on to use Emacs mouse commands, and off to use t-mouse commands. ;;;*** -;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (17610 3931)) +;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (17781 39502)) ;;; Generated autoloads from tabify.el (autoload (quote untabify) "tabify" "\ @@ -25359,7 +25688,7 @@ The variable `tab-width' controls the spacing of tab stops. ;;;;;; table-recognize table-insert-row-column table-insert-column ;;;;;; table-insert-row table-insert table-point-left-cell-hook ;;;;;; table-point-entered-cell-hook table-load-hook table-cell-map-hook) -;;;;;; "table" "textmodes/table.el" (17746 34863)) +;;;;;; "table" "textmodes/table.el" (17740 982)) ;;; Generated autoloads from textmodes/table.el (defvar table-cell-map-hook nil "\ @@ -25947,7 +26276,7 @@ converts a table into plain text without frames. It is a companion to ;;;*** -;;;### (autoloads (talk-connect) "talk" "talk.el" (17504 41540)) +;;;### (autoloads (talk-connect) "talk" "talk.el" (17781 39502)) ;;; Generated autoloads from talk.el (autoload (quote talk-connect) "talk" "\ @@ -25957,7 +26286,7 @@ Connect to display DISPLAY for the Emacs talk group. ;;;*** -;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (17527 7050)) +;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (17771 1419)) ;;; Generated autoloads from tar-mode.el (autoload (quote tar-mode) "tar-mode" "\ @@ -25981,7 +26310,7 @@ See also: variables `tar-update-datestamp' and `tar-anal-blocksize'. ;;;*** ;;;### (autoloads (tcl-help-on-word inferior-tcl tcl-mode) "tcl" -;;;;;; "progmodes/tcl.el" (17504 41540)) +;;;;;; "progmodes/tcl.el" (17485 5461)) ;;; Generated autoloads from progmodes/tcl.el (autoload (quote tcl-mode) "tcl" "\ @@ -26032,7 +26361,7 @@ Prefix argument means invert sense of `tcl-use-smart-word-finder'. ;;;*** -;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (17504 41540)) +;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (17786 56015)) ;;; Generated autoloads from net/telnet.el (add-hook 'same-window-regexps "\\*telnet-.*\\*\\(\\|<[0-9]+>\\)") @@ -26059,8 +26388,8 @@ Normally input is edited in Emacs and sent a line at a time. ;;;*** -;;;### (autoloads (ansi-term term make-term) "term" "term.el" (17566 -;;;;;; 60306)) +;;;### (autoloads (ansi-term term make-term) "term" "term.el" (17781 +;;;;;; 39502)) ;;; Generated autoloads from term.el (autoload (quote make-term) "term" "\ @@ -26088,8 +26417,8 @@ Start a terminal-emulator in a new buffer. ;;;*** -;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (17746 -;;;;;; 34861)) +;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (17781 +;;;;;; 39502)) ;;; Generated autoloads from terminal.el (autoload (quote terminal-emulator) "terminal" "\ @@ -26126,7 +26455,7 @@ subprocess started. ;;;*** ;;;### (autoloads (testcover-this-defun) "testcover" "emacs-lisp/testcover.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8490)) ;;; Generated autoloads from emacs-lisp/testcover.el (autoload (quote testcover-this-defun) "testcover" "\ @@ -26136,7 +26465,7 @@ Start coverage on function under point. ;;;*** -;;;### (autoloads (tetris) "tetris" "play/tetris.el" (17504 41540)) +;;;### (autoloads (tetris) "tetris" "play/tetris.el" (17786 56015)) ;;; Generated autoloads from play/tetris.el (autoload (quote tetris) "tetris" "\ @@ -26167,7 +26496,7 @@ tetris-mode keybindings: ;;;;;; tex-start-commands tex-start-options slitex-run-command latex-run-command ;;;;;; tex-run-command tex-offer-save tex-main-file tex-first-line-header-regexp ;;;;;; tex-directory tex-shell-file-name) "tex-mode" "textmodes/tex-mode.el" -;;;;;; (17566 60308)) +;;;;;; (17786 56015)) ;;; Generated autoloads from textmodes/tex-mode.el (defvar tex-shell-file-name nil "\ @@ -26469,7 +26798,7 @@ Major mode to edit DocTeX files. ;;;*** ;;;### (autoloads (texi2info texinfo-format-region texinfo-format-buffer) -;;;;;; "texinfmt" "textmodes/texinfmt.el" (17746 34863)) +;;;;;; "texinfmt" "textmodes/texinfmt.el" (17743 18144)) ;;; Generated autoloads from textmodes/texinfmt.el (autoload (quote texinfo-format-buffer) "texinfmt" "\ @@ -26509,18 +26838,18 @@ if large. You can use Info-split to do this manually. ;;;*** ;;;### (autoloads (texinfo-mode texinfo-close-quote texinfo-open-quote) -;;;;;; "texinfo" "textmodes/texinfo.el" (17504 41540)) +;;;;;; "texinfo" "textmodes/texinfo.el" (17385 8496)) ;;; Generated autoloads from textmodes/texinfo.el (defvar texinfo-open-quote "``" "\ *String inserted by typing \\[texinfo-insert-quote] to open a quotation.") -(custom-autoload (quote texinfo-open-quote) "texinfo" t) +(custom-autoload (quote texinfo-open-quote) "texinfo") (defvar texinfo-close-quote "''" "\ *String inserted by typing \\[texinfo-insert-quote] to close a quotation.") -(custom-autoload (quote texinfo-close-quote) "texinfo" t) +(custom-autoload (quote texinfo-close-quote) "texinfo") (autoload (quote texinfo-mode) "texinfo" "\ Major mode for editing Texinfo files. @@ -26596,7 +26925,7 @@ value of `texinfo-mode-hook'. ;;;### (autoloads (thai-auto-composition-mode thai-composition-function ;;;;;; thai-post-read-conversion thai-compose-buffer thai-compose-string ;;;;;; thai-compose-region) "thai-util" "language/thai-util.el" -;;;;;; (17504 41540)) +;;;;;; (17792 9562)) ;;; Generated autoloads from language/thai-util.el (autoload (quote thai-compose-region) "thai-util" "\ @@ -26640,7 +26969,7 @@ Minor mode for automatically correct Thai character composition. ;;;### (autoloads (list-at-point number-at-point symbol-at-point ;;;;;; sexp-at-point thing-at-point bounds-of-thing-at-point forward-thing) -;;;;;; "thingatpt" "thingatpt.el" (17675 64484)) +;;;;;; "thingatpt" "thingatpt.el" (17781 39502)) ;;; Generated autoloads from thingatpt.el (autoload (quote forward-thing) "thingatpt" "\ @@ -26697,7 +27026,7 @@ Not documented ;;;### (autoloads (thumbs-dired-setroot thumbs-dired-show thumbs-dired-show-marked ;;;;;; thumbs-show-from-dir thumbs-find-thumb) "thumbs" "thumbs.el" -;;;;;; (17591 28068)) +;;;;;; (17601 9091)) ;;; Generated autoloads from thumbs.el (autoload (quote thumbs-find-thumb) "thumbs" "\ @@ -26736,7 +27065,7 @@ In dired, call the setroot program on the image at point. ;;;;;; tibetan-composition-function tibetan-decompose-string tibetan-decompose-region ;;;;;; tibetan-compose-region tibetan-compose-string tibetan-transcription-to-tibetan ;;;;;; tibetan-tibetan-to-transcription tibetan-char-p) "tibet-util" -;;;;;; "language/tibet-util.el" (17504 41540)) +;;;;;; "language/tibet-util.el" (17792 9562)) ;;; Generated autoloads from language/tibet-util.el (autoload (quote tibetan-char-p) "tibet-util" "\ @@ -26815,7 +27144,7 @@ Not documented ;;;*** ;;;### (autoloads (tildify-buffer tildify-region) "tildify" "textmodes/tildify.el" -;;;;;; (17504 41540)) +;;;;;; (17786 56015)) ;;; Generated autoloads from textmodes/tildify.el (autoload (quote tildify-region) "tildify" "\ @@ -26839,7 +27168,7 @@ This function performs no refilling of the changed text. ;;;*** ;;;### (autoloads (display-time-mode display-time display-time-day-and-date) -;;;;;; "time" "time.el" (17675 64484)) +;;;;;; "time" "time.el" (17674 51268)) ;;; Generated autoloads from time.el (defvar display-time-day-and-date nil "\ @@ -26881,8 +27210,8 @@ This runs the normal hook `display-time-hook' after each update. ;;;### (autoloads (safe-date-to-time time-to-days time-to-day-in-year ;;;;;; date-leap-year-p days-between date-to-day time-add time-subtract ;;;;;; time-since days-to-time time-less-p seconds-to-time time-to-seconds -;;;;;; date-to-time) "time-date" "calendar/time-date.el" (17504 -;;;;;; 41540)) +;;;;;; date-to-time) "time-date" "calendar/time-date.el" (17386 +;;;;;; 33146)) ;;; Generated autoloads from calendar/time-date.el (autoload (quote date-to-time) "time-date" "\ @@ -26968,7 +27297,7 @@ If DATE is malformed, return a time value of zeros. ;;;*** ;;;### (autoloads (time-stamp-toggle-active time-stamp) "time-stamp" -;;;;;; "time-stamp.el" (17504 41540)) +;;;;;; "time-stamp.el" (17771 1419)) ;;; Generated autoloads from time-stamp.el (put 'time-stamp-format 'safe-local-variable 'stringp) (put 'time-stamp-line-limit 'safe-local-variable 'integerp) @@ -27011,7 +27340,7 @@ With ARG, turn time stamping on if and only if arg is positive. ;;;;;; timeclock-workday-remaining-string timeclock-reread-log timeclock-query-out ;;;;;; timeclock-change timeclock-status-string timeclock-out timeclock-in ;;;;;; timeclock-modeline-display) "timeclock" "calendar/timeclock.el" -;;;;;; (17628 62478)) +;;;;;; (17632 41885)) ;;; Generated autoloads from calendar/timeclock.el (autoload (quote timeclock-modeline-display) "timeclock" "\ @@ -27112,7 +27441,7 @@ relative only to the time worked today, and not to past time. ;;;### (autoloads (with-timeout run-with-idle-timer add-timeout run-with-timer ;;;;;; run-at-time cancel-function-timers cancel-timer) "timer" -;;;;;; "emacs-lisp/timer.el" (17687 61868)) +;;;;;; "emacs-lisp/timer.el" (17785 34467)) ;;; Generated autoloads from emacs-lisp/timer.el (defalias (quote disable-timeout) (quote cancel-timer)) @@ -27188,7 +27517,7 @@ be detected. ;;;*** ;;;### (autoloads (batch-titdic-convert titdic-convert) "titdic-cnv" -;;;;;; "international/titdic-cnv.el" (17504 41540)) +;;;;;; "international/titdic-cnv.el" (17792 9562)) ;;; Generated autoloads from international/titdic-cnv.el (autoload (quote titdic-convert) "titdic-cnv" "\ @@ -27211,8 +27540,8 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\". ;;;*** ;;;### (autoloads (tamil-composition-function tamil-post-read-conversion -;;;;;; tamil-compose-region) "tml-util" "language/tml-util.el" (17504 -;;;;;; 41540)) +;;;;;; tamil-compose-region) "tml-util" "language/tml-util.el" (17788 +;;;;;; 21816)) ;;; Generated autoloads from language/tml-util.el (autoload (quote tamil-compose-region) "tml-util" "\ @@ -27235,7 +27564,7 @@ PATTERN regexp. ;;;*** ;;;### (autoloads (tmm-prompt tmm-menubar-mouse tmm-menubar) "tmm" -;;;;;; "tmm.el" (17504 41540)) +;;;;;; "tmm.el" (17771 1419)) ;;; Generated autoloads from tmm.el (define-key global-map "\M-`" 'tmm-menubar) (define-key global-map [f10] 'tmm-menubar) @@ -27276,7 +27605,7 @@ Its value should be an event that has a binding in MENU. ;;;### (autoloads (todo-show todo-cp todo-mode todo-print todo-top-priorities ;;;;;; todo-insert-item todo-add-item-non-interactively todo-add-category) -;;;;;; "todo-mode" "calendar/todo-mode.el" (17504 41540)) +;;;;;; "todo-mode" "calendar/todo-mode.el" (17386 33146)) ;;; Generated autoloads from calendar/todo-mode.el (autoload (quote todo-add-category) "todo-mode" "\ @@ -27337,7 +27666,7 @@ Show TODO list. ;;;### (autoloads (tool-bar-local-item-from-menu tool-bar-add-item-from-menu ;;;;;; tool-bar-local-item tool-bar-add-item) "tool-bar" "tool-bar.el" -;;;;;; (17504 41540)) +;;;;;; (17495 43954)) ;;; Generated autoloads from tool-bar.el (put (quote tool-bar-mode) (quote standard-value) (quote (t))) @@ -27404,7 +27733,7 @@ holds a keymap. ;;;*** ;;;### (autoloads (tpu-edt-on tpu-edt-mode) "tpu-edt" "emulation/tpu-edt.el" -;;;;;; (17746 34861)) +;;;;;; (17785 34467)) ;;; Generated autoloads from emulation/tpu-edt.el (defvar tpu-edt-mode nil "\ @@ -27431,7 +27760,7 @@ Turn on TPU/edt emulation. ;;;*** ;;;### (autoloads (tpu-set-cursor-bound tpu-set-cursor-free tpu-set-scroll-margins) -;;;;;; "tpu-extras" "emulation/tpu-extras.el" (17504 41540)) +;;;;;; "tpu-extras" "emulation/tpu-extras.el" (17785 34467)) ;;; Generated autoloads from emulation/tpu-extras.el (autoload (quote tpu-set-scroll-margins) "tpu-extras" "\ @@ -27451,7 +27780,7 @@ Constrain the cursor to the flow of the text. ;;;*** -;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (17652 14943)) +;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (17785 34467)) ;;; Generated autoloads from emacs-lisp/tq.el (autoload (quote tq-create) "tq" "\ @@ -27465,7 +27794,7 @@ to a tcp server on another machine. ;;;*** ;;;### (autoloads (trace-function-background trace-function trace-buffer) -;;;;;; "trace" "emacs-lisp/trace.el" (17656 34194)) +;;;;;; "trace" "emacs-lisp/trace.el" (17785 34467)) ;;; Generated autoloads from emacs-lisp/trace.el (defvar trace-buffer "*trace-output*" "\ @@ -27502,7 +27831,7 @@ BUFFER defaults to `trace-buffer'. ;;;### (autoloads (tramp-unload-tramp tramp-completion-handle-file-name-completion ;;;;;; tramp-completion-handle-file-name-all-completions tramp-unload-file-name-handlers ;;;;;; tramp-file-name-handler tramp-completion-file-name-regexp -;;;;;; tramp-file-name-regexp) "tramp" "net/tramp.el" (17759 28871)) +;;;;;; tramp-file-name-regexp) "tramp" "net/tramp.el" (17800 14311)) ;;; Generated autoloads from net/tramp.el (defvar tramp-unified-filenames (not (featurep (quote xemacs))) "\ @@ -27615,7 +27944,7 @@ Discard Tramp from loading remote files. ;;;*** ;;;### (autoloads (tramp-ftp-enable-ange-ftp) "tramp-ftp" "net/tramp-ftp.el" -;;;;;; (17504 41540)) +;;;;;; (17366 25285)) ;;; Generated autoloads from net/tramp-ftp.el (autoload (quote tramp-ftp-enable-ange-ftp) "tramp-ftp" "\ @@ -27630,8 +27959,8 @@ Not documented ;;;;;; tumme-display-thumb tumme-display-thumbs-append tumme-setup-dired-keybindings ;;;;;; tumme-jump-thumbnail-buffer tumme-delete-tag tumme-tag-files ;;;;;; tumme-show-all-from-dir tumme-display-thumbs tumme-dired-with-window-configuration -;;;;;; tumme-dired-insert-marked-thumbs) "tumme" "tumme.el" (17647 -;;;;;; 30168)) +;;;;;; tumme-dired-insert-marked-thumbs) "tumme" "tumme.el" (17645 +;;;;;; 64048)) ;;; Generated autoloads from tumme.el (autoload (quote tumme-dired-insert-marked-thumbs) "tumme" "\ @@ -27761,8 +28090,8 @@ easy-to-use form. ;;;*** -;;;### (autoloads (help-with-tutorial) "tutorial" "tutorial.el" (17735 -;;;;;; 57938)) +;;;### (autoloads (help-with-tutorial) "tutorial" "tutorial.el" (17763 +;;;;;; 9424)) ;;; Generated autoloads from tutorial.el (autoload (quote help-with-tutorial) "tutorial" "\ @@ -27787,7 +28116,7 @@ resumed later. ;;;*** ;;;### (autoloads (2C-split 2C-associate-buffer 2C-two-columns) "two-column" -;;;;;; "textmodes/two-column.el" (17706 55365)) +;;;;;; "textmodes/two-column.el" (17786 56015)) ;;; Generated autoloads from textmodes/two-column.el (autoload '2C-command "two-column" () t 'keymap) (global-set-key "\C-x6" '2C-command) @@ -27838,7 +28167,7 @@ First column's text sSs Second column's text ;;;;;; type-break type-break-mode type-break-keystroke-threshold ;;;;;; type-break-good-break-interval type-break-good-rest-interval ;;;;;; type-break-interval type-break-mode) "type-break" "type-break.el" -;;;;;; (17504 41540)) +;;;;;; (17781 39502)) ;;; Generated autoloads from type-break.el (defvar type-break-mode nil "\ @@ -28021,7 +28350,7 @@ FRAC should be the inverse of the fractional value; for example, a value of ;;;*** ;;;### (autoloads (ununderline-region underline-region) "underline" -;;;;;; "textmodes/underline.el" (17504 41540)) +;;;;;; "textmodes/underline.el" (17786 56015)) ;;; Generated autoloads from textmodes/underline.el (autoload (quote underline-region) "underline" "\ @@ -28042,7 +28371,7 @@ which specify the range to operate on. ;;;*** ;;;### (autoloads (unforward-rmail-message undigestify-rmail-message) -;;;;;; "undigest" "mail/undigest.el" (17504 41540)) +;;;;;; "undigest" "mail/undigest.el" (17786 56015)) ;;; Generated autoloads from mail/undigest.el (autoload (quote undigestify-rmail-message) "undigest" "\ @@ -28061,7 +28390,7 @@ following the containing message. ;;;*** ;;;### (autoloads (unrmail batch-unrmail) "unrmail" "mail/unrmail.el" -;;;;;; (17504 41540)) +;;;;;; (17786 56015)) ;;; Generated autoloads from mail/unrmail.el (autoload (quote batch-unrmail) "unrmail" "\ @@ -28080,8 +28409,8 @@ Convert Rmail file FILE to system inbox format file TO-FILE. ;;;*** -;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (17408 +;;;;;; 40148)) ;;; Generated autoloads from emacs-lisp/unsafep.el (autoload (quote unsafep) "unsafep" "\ @@ -28094,7 +28423,7 @@ of symbols with local bindings. ;;;*** ;;;### (autoloads (url-retrieve-synchronously url-retrieve) "url" -;;;;;; "url/url.el" (17746 34863)) +;;;;;; "url/url.el" (17785 34468)) ;;; Generated autoloads from url/url.el (autoload (quote url-retrieve) "url" "\ @@ -28134,7 +28463,7 @@ no further processing). URL is either a string or a parsed URL. ;;;*** ;;;### (autoloads (url-register-auth-scheme url-get-authentication) -;;;;;; "url-auth" "url/url-auth.el" (17504 41540)) +;;;;;; "url-auth" "url/url-auth.el" (17729 4745)) ;;; Generated autoloads from url/url-auth.el (autoload (quote url-get-authentication) "url-auth" "\ @@ -28176,8 +28505,8 @@ RATING a rating between 1 and 10 of the strength of the authentication. ;;;*** ;;;### (autoloads (url-cache-expired url-cache-extract url-is-cached -;;;;;; url-store-in-cache) "url-cache" "url/url-cache.el" (17504 -;;;;;; 41540)) +;;;;;; url-store-in-cache) "url-cache" "url/url-cache.el" (17729 +;;;;;; 4745)) ;;; Generated autoloads from url/url-cache.el (autoload (quote url-store-in-cache) "url-cache" "\ @@ -28202,7 +28531,7 @@ Return t iff a cached file has expired. ;;;*** -;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (17504 41540)) +;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (17729 4745)) ;;; Generated autoloads from url/url-cid.el (autoload (quote url-cid) "url-cid" "\ @@ -28213,7 +28542,7 @@ Not documented ;;;*** ;;;### (autoloads (url-dav-vc-registered url-dav-supported-p) "url-dav" -;;;;;; "url/url-dav.el" (17686 35930)) +;;;;;; "url/url-dav.el" (17729 4745)) ;;; Generated autoloads from url/url-dav.el (autoload (quote url-dav-supported-p) "url-dav" "\ @@ -28228,8 +28557,8 @@ Not documented ;;;*** -;;;### (autoloads (url-file) "url-file" "url/url-file.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (url-file) "url-file" "url/url-file.el" (17729 +;;;;;; 4745)) ;;; Generated autoloads from url/url-file.el (autoload (quote url-file) "url-file" "\ @@ -28240,7 +28569,7 @@ Handle file: and ftp: URLs. ;;;*** ;;;### (autoloads (url-open-stream url-gateway-nslookup-host) "url-gw" -;;;;;; "url/url-gw.el" (17759 30290)) +;;;;;; "url/url-gw.el" (17789 35159)) ;;; Generated autoloads from url/url-gw.el (autoload (quote url-gateway-nslookup-host) "url-gw" "\ @@ -28259,8 +28588,8 @@ Might do a non-blocking connection; use `process-status' to check. ;;;*** ;;;### (autoloads (url-insert-file-contents url-file-local-copy url-copy-file -;;;;;; url-handler-mode) "url-handlers" "url/url-handlers.el" (17652 -;;;;;; 14946)) +;;;;;; url-handler-mode) "url-handlers" "url/url-handlers.el" (17729 +;;;;;; 4745)) ;;; Generated autoloads from url/url-handlers.el (defvar url-handler-mode nil "\ @@ -28304,7 +28633,7 @@ Not documented ;;;*** ;;;### (autoloads (url-http-options url-http-file-attributes url-http-file-exists-p -;;;;;; url-http) "url-http" "url/url-http.el" (17759 28874)) +;;;;;; url-http) "url-http" "url/url-http.el" (17785 34468)) ;;; Generated autoloads from url/url-http.el (autoload (quote url-http) "url-http" "\ @@ -28369,7 +28698,7 @@ HTTPS retrievals are asynchronous.") ;;;*** -;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (17592 59703)) +;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (17729 4745)) ;;; Generated autoloads from url/url-irc.el (autoload (quote url-irc) "url-irc" "\ @@ -28379,8 +28708,8 @@ Not documented ;;;*** -;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (17729 +;;;;;; 4745)) ;;; Generated autoloads from url/url-ldap.el (autoload (quote url-ldap) "url-ldap" "\ @@ -28394,7 +28723,7 @@ URL can be a URL string, or a URL vector of the type returned by ;;;*** ;;;### (autoloads (url-mailto url-mail) "url-mailto" "url/url-mailto.el" -;;;;;; (17504 41540)) +;;;;;; (17729 4745)) ;;; Generated autoloads from url/url-mailto.el (autoload (quote url-mail) "url-mailto" "\ @@ -28410,7 +28739,7 @@ Handle the mailto: URL syntax. ;;;*** ;;;### (autoloads (url-data url-generic-emulator-loader url-info -;;;;;; url-man) "url-misc" "url/url-misc.el" (17504 41540)) +;;;;;; url-man) "url-misc" "url/url-misc.el" (17729 4745)) ;;; Generated autoloads from url/url-misc.el (autoload (quote url-man) "url-misc" "\ @@ -28442,7 +28771,7 @@ Fetch a data URL (RFC 2397). ;;;*** ;;;### (autoloads (url-snews url-news) "url-news" "url/url-news.el" -;;;;;; (17504 41540)) +;;;;;; (17729 4745)) ;;; Generated autoloads from url/url-news.el (autoload (quote url-news) "url-news" "\ @@ -28459,7 +28788,7 @@ Not documented ;;;### (autoloads (url-ns-user-pref url-ns-prefs isInNet isResolvable ;;;;;; dnsResolve dnsDomainIs isPlainHostName) "url-ns" "url/url-ns.el" -;;;;;; (17504 41540)) +;;;;;; (17729 4745)) ;;; Generated autoloads from url/url-ns.el (autoload (quote isPlainHostName) "url-ns" "\ @@ -28500,7 +28829,7 @@ Not documented ;;;*** ;;;### (autoloads (url-generic-parse-url url-recreate-url) "url-parse" -;;;;;; "url/url-parse.el" (17759 28874)) +;;;;;; "url/url-parse.el" (17756 33825)) ;;; Generated autoloads from url/url-parse.el (autoload (quote url-recreate-url) "url-parse" "\ @@ -28518,7 +28847,7 @@ Format is: ;;;*** ;;;### (autoloads (url-setup-privacy-info) "url-privacy" "url/url-privacy.el" -;;;;;; (17504 41540)) +;;;;;; (17729 4745)) ;;; Generated autoloads from url/url-privacy.el (autoload (quote url-setup-privacy-info) "url-privacy" "\ @@ -28534,7 +28863,7 @@ Setup variables that expose info about you and your system. ;;;;;; url-strip-leading-spaces url-eat-trailing-space url-get-normalized-date ;;;;;; url-lazy-message url-normalize-url url-insert-entities-in-string ;;;;;; url-parse-args url-debug url-debug) "url-util" "url/url-util.el" -;;;;;; (17615 40606)) +;;;;;; (17767 19634)) ;;; Generated autoloads from url/url-util.el (defvar url-debug nil "\ @@ -28663,7 +28992,7 @@ This uses `url-current-object', set locally to the buffer. ;;;*** ;;;### (autoloads (ask-user-about-supersession-threat ask-user-about-lock) -;;;;;; "userlock" "userlock.el" (17504 41540)) +;;;;;; "userlock" "userlock.el" (17781 39502)) ;;; Generated autoloads from userlock.el (autoload (quote ask-user-about-lock) "userlock" "\ @@ -28693,7 +29022,7 @@ The buffer in question is current when this function is called. ;;;### (autoloads (uudecode-decode-region uudecode-decode-region-internal ;;;;;; uudecode-decode-region-external) "uudecode" "gnus/uudecode.el" -;;;;;; (17548 26487)) +;;;;;; (17551 7908)) ;;; Generated autoloads from gnus/uudecode.el (autoload (quote uudecode-decode-region-external) "uudecode" "\ @@ -28723,7 +29052,7 @@ If FILE-NAME is non-nil, save the result to FILE-NAME. ;;;;;; vc-directory vc-merge vc-insert-headers vc-version-other-window ;;;;;; vc-diff vc-register vc-next-action vc-do-command edit-vc-file ;;;;;; with-vc-file vc-branch-part vc-trunk-p vc-before-checkin-hook -;;;;;; vc-checkin-hook vc-checkout-hook) "vc" "vc.el" (17721 3805)) +;;;;;; vc-checkin-hook vc-checkout-hook) "vc" "vc.el" (17721 20491)) ;;; Generated autoloads from vc.el (defvar vc-checkout-hook nil "\ @@ -29011,7 +29340,7 @@ colors. `vc-annotate-background' specifies the background color. ;;;*** -;;;### (autoloads nil "vc-arch" "vc-arch.el" (17504 41540)) +;;;### (autoloads nil "vc-arch" "vc-arch.el" (17385 8488)) ;;; Generated autoloads from vc-arch.el (defun vc-arch-registered (file) (if (vc-find-root file "{arch}/=tagging-method") @@ -29021,7 +29350,7 @@ colors. `vc-annotate-background' specifies the background color. ;;;*** -;;;### (autoloads nil "vc-cvs" "vc-cvs.el" (17504 41540)) +;;;### (autoloads nil "vc-cvs" "vc-cvs.el" (17587 57307)) ;;; Generated autoloads from vc-cvs.el (defun vc-cvs-registered (f) (when (file-readable-p (expand-file-name @@ -29031,7 +29360,7 @@ colors. `vc-annotate-background' specifies the background color. ;;;*** -;;;### (autoloads nil "vc-mcvs" "vc-mcvs.el" (17504 41540)) +;;;### (autoloads nil "vc-mcvs" "vc-mcvs.el" (17385 8488)) ;;; Generated autoloads from vc-mcvs.el (defun vc-mcvs-registered (file) (if (vc-find-root file "MCVS/CVS") @@ -29042,27 +29371,27 @@ colors. `vc-annotate-background' specifies the background color. ;;;*** ;;;### (autoloads (vc-rcs-master-templates) "vc-rcs" "vc-rcs.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8488)) ;;; Generated autoloads from vc-rcs.el (defvar vc-rcs-master-templates (quote ("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) "\ *Where to look for RCS master files. For a description of possible values, see `vc-check-master-templates'.") -(custom-autoload (quote vc-rcs-master-templates) "vc-rcs" t) +(custom-autoload (quote vc-rcs-master-templates) "vc-rcs") (defun vc-rcs-registered (f) (vc-default-registered 'RCS f)) ;;;*** ;;;### (autoloads (vc-sccs-master-templates) "vc-sccs" "vc-sccs.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8488)) ;;; Generated autoloads from vc-sccs.el (defvar vc-sccs-master-templates (quote ("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)) "\ *Where to look for SCCS master files. For a description of possible values, see `vc-check-master-templates'.") -(custom-autoload (quote vc-sccs-master-templates) "vc-sccs" t) +(custom-autoload (quote vc-sccs-master-templates) "vc-sccs") (defun vc-sccs-registered(f) (vc-default-registered 'SCCS f)) (defun vc-sccs-search-project-dir (dirname basename) "\ @@ -29072,7 +29401,7 @@ find any project directory." (let ((project-dir (getenv "PROJECTDIR")) dirs dir) ;;;*** -;;;### (autoloads nil "vc-svn" "vc-svn.el" (17746 41336)) +;;;### (autoloads nil "vc-svn" "vc-svn.el" (17747 24147)) ;;; Generated autoloads from vc-svn.el (defun vc-svn-registered (f) (let ((admin-dir (cond ((and (eq system-type 'windows-nt) @@ -29090,7 +29419,7 @@ find any project directory." (let ((project-dir (getenv "PROJECTDIR")) dirs dir) ;;;*** ;;;### (autoloads (vhdl-mode) "vhdl-mode" "progmodes/vhdl-mode.el" -;;;;;; (17759 28874)) +;;;;;; (17781 39502)) ;;; Generated autoloads from progmodes/vhdl-mode.el (autoload (quote vhdl-mode) "vhdl-mode" "\ @@ -29631,7 +29960,7 @@ Key bindings: ;;;*** -;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (17504 41540)) +;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (17789 35159)) ;;; Generated autoloads from emulation/vi.el (autoload (quote vi-mode) "vi" "\ @@ -29686,7 +30015,7 @@ Syntax table and abbrevs while in vi mode remain as they were in Emacs. ;;;### (autoloads (viqr-pre-write-conversion viqr-post-read-conversion ;;;;;; viet-encode-viqr-buffer viet-encode-viqr-region viet-decode-viqr-buffer ;;;;;; viet-decode-viqr-region viet-encode-viscii-char) "viet-util" -;;;;;; "language/viet-util.el" (17504 41540)) +;;;;;; "language/viet-util.el" (17792 9562)) ;;; Generated autoloads from language/viet-util.el (autoload (quote viet-encode-viscii-char) "viet-util" "\ @@ -29732,8 +30061,8 @@ Not documented ;;;### (autoloads (View-exit-and-edit view-mode-enter view-mode view-buffer-other-frame ;;;;;; view-buffer-other-window view-buffer view-file-other-frame -;;;;;; view-file-other-window view-file) "view" "view.el" (17504 -;;;;;; 41540)) +;;;;;; view-file-other-window view-file) "view" "view.el" (17385 +;;;;;; 8488)) ;;; Generated autoloads from view.el (defvar view-mode nil "\ @@ -29942,8 +30271,8 @@ Exit View mode and make the current buffer editable. ;;;*** -;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (17746 -;;;;;; 34861)) +;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (17785 +;;;;;; 34467)) ;;; Generated autoloads from emulation/vip.el (autoload (quote vip-setup) "vip" "\ @@ -29959,7 +30288,7 @@ Turn on VIP emulation of VI. ;;;*** ;;;### (autoloads (viper-mode toggle-viper-mode) "viper" "emulation/viper.el" -;;;;;; (17746 34861)) +;;;;;; (17743 18143)) ;;; Generated autoloads from emulation/viper.el (autoload (quote toggle-viper-mode) "viper" "\ @@ -29976,7 +30305,7 @@ Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Viper'. ;;;*** ;;;### (autoloads (warn lwarn display-warning) "warnings" "emacs-lisp/warnings.el" -;;;;;; (17504 41540)) +;;;;;; (17495 43954)) ;;; Generated autoloads from emacs-lisp/warnings.el (defvar warning-prefix-function nil "\ @@ -30065,7 +30394,7 @@ this is equivalent to `display-warning', using ;;;*** ;;;### (autoloads (wdired-change-to-wdired-mode) "wdired" "wdired.el" -;;;;;; (17611 30621)) +;;;;;; (17786 57515)) ;;; Generated autoloads from wdired.el (autoload (quote wdired-change-to-wdired-mode) "wdired" "\ @@ -30081,7 +30410,7 @@ See `wdired-mode'. ;;;*** -;;;### (autoloads (webjump) "webjump" "net/webjump.el" (17504 41540)) +;;;### (autoloads (webjump) "webjump" "net/webjump.el" (17786 56015)) ;;; Generated autoloads from net/webjump.el (autoload (quote webjump) "webjump" "\ @@ -30098,7 +30427,7 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke ;;;*** ;;;### (autoloads (which-function-mode) "which-func" "progmodes/which-func.el" -;;;;;; (17611 25727)) +;;;;;; (17608 57530)) ;;; Generated autoloads from progmodes/which-func.el (put 'which-func-format 'risky-local-variable t) (put 'which-func-current 'risky-local-variable t) @@ -30109,8 +30438,7 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke Non-nil if Which-Function mode is enabled. See the command `which-function-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -either customize it (see the info node `Easy Customization') -or call the function `which-function-mode'.") +use either \\[customize] or the function `which-function-mode'.") (custom-autoload (quote which-function-mode) "which-func" nil) @@ -30131,7 +30459,7 @@ and off otherwise. ;;;;;; whitespace-buffer whitespace-toggle-ateol-check whitespace-toggle-spacetab-check ;;;;;; whitespace-toggle-indent-check whitespace-toggle-trailing-check ;;;;;; whitespace-toggle-leading-check) "whitespace" "whitespace.el" -;;;;;; (17746 34861)) +;;;;;; (17781 39502)) ;;; Generated autoloads from whitespace.el (autoload (quote whitespace-toggle-leading-check) "whitespace" "\ @@ -30222,7 +30550,7 @@ This is meant to be added buffer-locally to `write-file-functions'. ;;;*** ;;;### (autoloads (widget-minor-mode widget-browse-other-window widget-browse -;;;;;; widget-browse-at) "wid-browse" "wid-browse.el" (17504 41540)) +;;;;;; widget-browse-at) "wid-browse" "wid-browse.el" (17781 39502)) ;;; Generated autoloads from wid-browse.el (autoload (quote widget-browse-at) "wid-browse" "\ @@ -30249,8 +30577,8 @@ With arg, turn widget mode on if and only if arg is positive. ;;;*** ;;;### (autoloads (widget-setup widget-insert widget-delete widget-create -;;;;;; widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (17746 -;;;;;; 34861)) +;;;;;; widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (17743 +;;;;;; 45278)) ;;; Generated autoloads from wid-edit.el (autoload (quote widgetp) "wid-edit" "\ @@ -30294,8 +30622,8 @@ Setup current buffer so editing string widgets works. ;;;*** ;;;### (autoloads (windmove-default-keybindings windmove-down windmove-right -;;;;;; windmove-up windmove-left) "windmove" "windmove.el" (17504 -;;;;;; 41540)) +;;;;;; windmove-up windmove-left) "windmove" "windmove.el" (17781 +;;;;;; 39502)) ;;; Generated autoloads from windmove.el (autoload (quote windmove-left) "windmove" "\ @@ -30348,7 +30676,7 @@ Default MODIFIER is 'shift. ;;;*** ;;;### (autoloads (winner-mode winner-mode) "winner" "winner.el" -;;;;;; (17504 41540)) +;;;;;; (17385 8488)) ;;; Generated autoloads from winner.el (defvar winner-mode nil "\ @@ -30356,7 +30684,7 @@ Toggle Winner mode. Setting this variable directly does not take effect; use either \\[customize] or the function `winner-mode'.") -(custom-autoload (quote winner-mode) "winner" nil) +(custom-autoload (quote winner-mode) "winner") (autoload (quote winner-mode) "winner" "\ Toggle Winner mode. @@ -30367,7 +30695,7 @@ With arg, turn Winner mode on if and only if arg is positive. ;;;*** ;;;### (autoloads (woman-find-file woman-dired-find-file woman) "woman" -;;;;;; "woman.el" (17715 55645)) +;;;;;; "woman.el" (17781 39502)) ;;; Generated autoloads from woman.el (autoload (quote woman) "woman" "\ @@ -30403,7 +30731,7 @@ decompress the file if appropriate. See the documentation for the ;;;*** ;;;### (autoloads (wordstar-mode) "ws-mode" "emulation/ws-mode.el" -;;;;;; (17504 41540)) +;;;;;; (17785 34467)) ;;; Generated autoloads from emulation/ws-mode.el (autoload (quote wordstar-mode) "ws-mode" "\ @@ -30516,7 +30844,7 @@ The key bindings are: ;;;*** ;;;### (autoloads (xml-parse-region xml-parse-file) "xml" "xml.el" -;;;;;; (17610 3931)) +;;;;;; (17607 45512)) ;;; Generated autoloads from xml.el (autoload (quote xml-parse-file) "xml" "\ @@ -30541,18 +30869,19 @@ If PARSE-NS is non-nil, then QNAMES are expanded. ;;;*** -;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (17504 -;;;;;; 41540)) +;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (17385 +;;;;;; 8488)) ;;; Generated autoloads from xt-mouse.el (defvar xterm-mouse-mode nil "\ Non-nil if Xterm-Mouse mode is enabled. See the command `xterm-mouse-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -either customize it (see the info node `Easy Customization') -or call the function `xterm-mouse-mode'.") +use either \\[customize] or the function `xterm-mouse-mode'.") + +(custom-autoload (quote xterm-mouse-mode) "xt-mouse") -(custom-autoload (quote xterm-mouse-mode) "xt-mouse" nil) +(put (quote xterm-mouse-mode) (quote custom-set) (quote custom-set-minor-mode)) (autoload (quote xterm-mouse-mode) "xt-mouse" "\ Toggle XTerm mouse mode. @@ -30570,7 +30899,7 @@ down the SHIFT key while pressing the mouse button. ;;;*** ;;;### (autoloads (yenc-extract-filename yenc-decode-region) "yenc" -;;;;;; "gnus/yenc.el" (17504 41540)) +;;;;;; "gnus/yenc.el" (17385 8494)) ;;; Generated autoloads from gnus/yenc.el (autoload (quote yenc-decode-region) "yenc" "\ @@ -30586,7 +30915,7 @@ Extract file name from an yenc header. ;;;*** ;;;### (autoloads (psychoanalyze-pinhead apropos-zippy insert-zippyism -;;;;;; yow) "yow" "play/yow.el" (17504 41540)) +;;;;;; yow) "yow" "play/yow.el" (17786 56015)) ;;; Generated autoloads from play/yow.el (autoload (quote yow) "yow" "\ @@ -30612,7 +30941,7 @@ Zippy goes to the analyst. ;;;*** -;;;### (autoloads (zone) "zone" "play/zone.el" (17504 41540)) +;;;### (autoloads (zone) "zone" "play/zone.el" (17385 8495)) ;;; Generated autoloads from play/zone.el (autoload (quote zone) "zone" "\ @@ -30641,10 +30970,10 @@ Zone out, completely. ;;;;;; "calendar/cal-iso.el" "calendar/cal-julian.el" "calendar/cal-mayan.el" ;;;;;; "calendar/cal-menu.el" "calendar/cal-move.el" "calendar/cal-persia.el" ;;;;;; "calendar/cal-tex.el" "calendar/cal-x.el" "case-table.el" -;;;;;; "cdl.el" "cus-dep.el" "cus-start.el" "custom.el" "dframe.el" -;;;;;; "dos-fns.el" "dos-vars.el" "dos-w32.el" "ediff-diff.el" "ediff-init.el" -;;;;;; "ediff-merg.el" "ediff-ptch.el" "ediff-vers.el" "ediff-wind.el" -;;;;;; "electric.el" "emacs-lisp/assoc.el" "emacs-lisp/authors.el" +;;;;;; "cdl.el" "cus-dep.el" "cus-load.el" "cus-start.el" "custom.el" +;;;;;; "dframe.el" "dos-fns.el" "dos-vars.el" "dos-w32.el" "ediff-diff.el" +;;;;;; "ediff-init.el" "ediff-merg.el" "ediff-ptch.el" "ediff-vers.el" +;;;;;; "ediff-wind.el" "electric.el" "emacs-lisp/assoc.el" "emacs-lisp/authors.el" ;;;;;; "emacs-lisp/bindat.el" "emacs-lisp/byte-opt.el" "emacs-lisp/byte-run.el" ;;;;;; "emacs-lisp/cl-compat.el" "emacs-lisp/cl-extra.el" "emacs-lisp/cl-macs.el" ;;;;;; "emacs-lisp/cl-seq.el" "emacs-lisp/cl-specs.el" "emacs-lisp/cust-print.el" @@ -30727,9 +31056,10 @@ Zone out, completely. ;;;;;; "net/eudcb-bbdb.el" "net/eudcb-ldap.el" "net/eudcb-mab.el" ;;;;;; "net/eudcb-ph.el" "net/ldap.el" "net/netrc.el" "net/tls.el" ;;;;;; "net/tramp-smb.el" "net/tramp-util.el" "net/tramp-uu.el" -;;;;;; "net/tramp-vc.el" "net/trampver.el" "patcomp.el" "paths.el" -;;;;;; "pcvs-info.el" "pcvs-parse.el" "pcvs-util.el" "pgg-def.el" -;;;;;; "pgg-parse.el" "pgg-pgp.el" "pgg-pgp5.el" "play/gamegrid.el" +;;;;;; "net/tramp-vc.el" "net/trampver.el" "obsolete/bg-mouse.el" +;;;;;; "obsolete/hilit19.el" "obsolete/sc.el" "obsolete/uncompress.el" +;;;;;; "patcomp.el" "paths.el" "pcvs-info.el" "pcvs-parse.el" "pcvs-util.el" +;;;;;; "pgg-def.el" "pgg-parse.el" "pgg-pgp.el" "pgg-pgp5.el" "play/gamegrid.el" ;;;;;; "play/gametree.el" "play/meese.el" "progmodes/ada-prj.el" ;;;;;; "progmodes/cc-align.el" "progmodes/cc-awk.el" "progmodes/cc-bytecomp.el" ;;;;;; "progmodes/cc-cmds.el" "progmodes/cc-defs.el" "progmodes/cc-fonts.el" @@ -30740,26 +31070,24 @@ Zone out, completely. ;;;;;; "progmodes/idlw-toolbar.el" "progmodes/mantemp.el" "progmodes/xscheme.el" ;;;;;; "register.el" "replace.el" "rfn-eshadow.el" "s-region.el" ;;;;;; "saveplace.el" "sb-image.el" "scroll-bar.el" "select.el" -;;;;;; "soundex.el" "startup.el" "subdirs.el" "tempo.el" "term/AT386.el" -;;;;;; "term/apollo.el" "term/bobcat.el" "term/cygwin.el" "term/internal.el" -;;;;;; "term/iris-ansi.el" "term/linux.el" "term/lk201.el" "term/mac-win.el" -;;;;;; "term/news.el" "term/pc-win.el" "term/rxvt.el" "term/sun-mouse.el" -;;;;;; "term/sun.el" "term/sup-mouse.el" "term/tty-colors.el" "term/tvi970.el" -;;;;;; "term/vt100.el" "term/vt102.el" "term/vt125.el" "term/vt200.el" +;;;;;; "soundex.el" "startup.el" "subdirs.el" "tempo.el" "term/apollo.el" +;;;;;; "term/bobcat.el" "term/cygwin.el" "term/internal.el" "term/linux.el" +;;;;;; "term/lk201.el" "term/pc-win.el" "term/rxvt.el" "term/sun.el" +;;;;;; "term/tty-colors.el" "term/vt102.el" "term/vt125.el" "term/vt200.el" ;;;;;; "term/vt201.el" "term/vt220.el" "term/vt240.el" "term/vt300.el" -;;;;;; "term/vt320.el" "term/vt400.el" "term/vt420.el" "term/w32-win.el" -;;;;;; "term/wyse50.el" "textmodes/bib-mode.el" "textmodes/makeinfo.el" -;;;;;; "textmodes/page-ext.el" "textmodes/page.el" "textmodes/refbib.el" -;;;;;; "textmodes/refer.el" "textmodes/reftex-auc.el" "textmodes/reftex-dcr.el" -;;;;;; "textmodes/reftex-ref.el" "textmodes/reftex-sel.el" "textmodes/reftex-toc.el" -;;;;;; "textmodes/texnfo-upd.el" "textmodes/text-mode.el" "timezone.el" -;;;;;; "tooltip.el" "tree-widget.el" "uniquify.el" "url/url-about.el" -;;;;;; "url/url-cookie.el" "url/url-dired.el" "url/url-expand.el" -;;;;;; "url/url-ftp.el" "url/url-history.el" "url/url-imap.el" "url/url-methods.el" -;;;;;; "url/url-nfs.el" "url/url-proxy.el" "url/url-vars.el" "url/vc-dav.el" -;;;;;; "vc-hooks.el" "vcursor.el" "version.el" "vms-patch.el" "vmsproc.el" -;;;;;; "vt-control.el" "vt100-led.el" "w32-fns.el" "w32-vars.el" -;;;;;; "widget.el" "window.el" "x-dnd.el") (17759 32231 360716)) +;;;;;; "term/vt320.el" "term/vt400.el" "term/vt420.el" "textmodes/bib-mode.el" +;;;;;; "textmodes/makeinfo.el" "textmodes/page-ext.el" "textmodes/page.el" +;;;;;; "textmodes/refbib.el" "textmodes/refer.el" "textmodes/reftex-auc.el" +;;;;;; "textmodes/reftex-dcr.el" "textmodes/reftex-ref.el" "textmodes/reftex-sel.el" +;;;;;; "textmodes/reftex-toc.el" "textmodes/texnfo-upd.el" "textmodes/text-mode.el" +;;;;;; "timezone.el" "tooltip.el" "tree-widget.el" "uniquify.el" +;;;;;; "url/url-about.el" "url/url-cookie.el" "url/url-dired.el" +;;;;;; "url/url-expand.el" "url/url-ftp.el" "url/url-history.el" +;;;;;; "url/url-imap.el" "url/url-methods.el" "url/url-nfs.el" "url/url-proxy.el" +;;;;;; "url/url-vars.el" "url/vc-dav.el" "vc-hooks.el" "vcursor.el" +;;;;;; "version.el" "vms-patch.el" "vmsproc.el" "vt-control.el" +;;;;;; "vt100-led.el" "w32-fns.el" "w32-vars.el" "widget.el" "window.el" +;;;;;; "x-dnd.el") (17800 15098 489655)) ;;;*** diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el index da7e5fcf579..b2374490026 100644 --- a/lisp/mail/footnote.el +++ b/lisp/mail/footnote.el @@ -501,7 +501,8 @@ styles." (regexp-quote footnote-end-tag))) nil t) (unless (beginning-of-line) t)) - (goto-char (point-max))))) + (Footnote-goto-char-point-max) + (re-search-backward (concat "^" footnote-section-tag-regexp) nil t)))) (unless (looking-at "^$") (insert "\n")) (when (eobp) diff --git a/lisp/makefile.w32-in b/lisp/makefile.w32-in index 1c15be1f5d4..812ce91d235 100644 --- a/lisp/makefile.w32-in +++ b/lisp/makefile.w32-in @@ -374,7 +374,12 @@ pre-mh-loaddefs.el-CMD: # sources only. # Need separate version for sh and native cmd.exe -bootstrap-clean: bootstrap-clean-$(SHELLTYPE) $(lisp)/loaddefs.el +# Note that bootstrap-clean-$(SHELLTYPE) copies ldefs-boot.el to loaddefs.el, +# and thus the almost-empty loaddefs.el crafted by the $(lisp)/loaddefs.el +# target can NOT be built _after_ bootstrap-clean-$(SHELLTYPE) does its +# thing, or else an empty loaddefs.el will overwrite the full one. +bootstrap-clean: $(lisp)/loaddefs.el + $(MAKE) $(MFLAGS) bootstrap-clean-$(SHELLTYPE) bootstrap-clean-CMD: # if exist "$(EMACS)" $(MAKE) $(MFLAGS) autoloads diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index c77dbbd64b3..75c9b04a040 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -3977,7 +3977,7 @@ E.g., ange-ftp-this-dir)) (ange-ftp-real-file-name-all-completions file ange-ftp-this-dir))))) -(defun ange-ftp-file-name-completion (file dir) +(defun ange-ftp-file-name-completion (file dir &optional predicate) (let ((ange-ftp-this-dir (expand-file-name dir))) (if (ange-ftp-ftp-name ange-ftp-this-dir) (progn @@ -4005,8 +4005,13 @@ E.g., file (nconc (ange-ftp-generate-root-prefixes) (ange-ftp-real-file-name-all-completions - file ange-ftp-this-dir))) - (ange-ftp-real-file-name-completion file ange-ftp-this-dir))))) + file ange-ftp-this-dir)) + predicate) + (if predicate + (ange-ftp-real-file-name-completion + file ange-ftp-this-dir predicate) + (ange-ftp-real-file-name-completion + file ange-ftp-this-dir)))))) (defun ange-ftp-file-name-completion-1 (file tbl dir &optional predicate) diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index a45e1a22ad5..822a995230e 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -326,35 +326,24 @@ This variable defaults to the value of `tramp-encoding-shell'." (tramp-login-program "ssh") (tramp-copy-program "scp") (tramp-remote-sh "/bin/sh") - (tramp-login-args ("-o" "ControlPath=%t.%%r@%%h:%%p" - "-o" "ControlMaster=yes" - "-e" "none")) - (tramp-copy-args ("-o" "ControlPath=%t.%%r@%%h:%%p" - "-o" "ControlMaster=auto")) + (tramp-login-args ("-e" "none")) + (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p") (tramp-password-end-of-line nil)) ("scp1" (tramp-connection-function tramp-open-connection-rsh) (tramp-login-program "ssh") (tramp-copy-program "scp") (tramp-remote-sh "/bin/sh") - (tramp-login-args ("-o" "ControlPath=%t.%%r@%%h:%%p" - "-o" "ControlMaster=yes" - "-1" "-e" "none")) - (tramp-copy-args ("-o" "ControlPath=%t.%%r@%%h:%%p" - "-o" "ControlMaster=auto" - "-1")) + (tramp-login-args ("-1" "-e" "none")) + (tramp-copy-args ("-1")) (tramp-copy-keep-date-arg "-p") (tramp-password-end-of-line nil)) ("scp2" (tramp-connection-function tramp-open-connection-rsh) (tramp-login-program "ssh") (tramp-copy-program "scp") (tramp-remote-sh "/bin/sh") - (tramp-login-args ("-o" "ControlPath=%t.%%r@%%h:%%p" - "-o" "ControlMaster=yes" - "-2" "-e" "none")) - (tramp-copy-args ("-o" "ControlPath=%t.%%r@%%h:%%p" - "-o" "ControlMaster=auto" - "-2")) + (tramp-login-args ("-2" "-e" "none")) + (tramp-copy-args ("-2")) (tramp-copy-keep-date-arg "-p") (tramp-password-end-of-line nil)) ("scp1_old" @@ -483,6 +472,17 @@ This variable defaults to the value of `tramp-encoding-shell'." (tramp-copy-args nil) (tramp-copy-keep-date-arg nil) (tramp-password-end-of-line nil)) + ("scpc" (tramp-connection-function tramp-open-connection-rsh) + (tramp-login-program "ssh") + (tramp-copy-program "scp") + (tramp-remote-sh "/bin/sh") + (tramp-login-args ("-o" "ControlPath=%t.%%r@%%h:%%p" + "-o" "ControlMaster=yes" + "-e" "none")) + (tramp-copy-args ("-o" "ControlPath=%t.%%r@%%h:%%p" + "-o" "ControlMaster=auto")) + (tramp-copy-keep-date-arg "-p") + (tramp-password-end-of-line nil)) ("scpx" (tramp-connection-function tramp-open-connection-rsh) (tramp-login-program "ssh") (tramp-copy-program "scp") @@ -684,10 +684,39 @@ various functions for details." :type '(repeat (list string function string))) (defcustom tramp-default-method - (if (and (fboundp 'executable-find) - (executable-find "pscp")) - "pscp" - "scp") + ;; An external copy method seems to be preferred, because it is much + ;; more performant for large files, and it hasn't too serious delays + ;; for small files. But it must be ensured that there aren't + ;; permanent password queries. Either a password agent like + ;; "ssh-agent" or "Pageant" shall run, or the optional password.el + ;; package shall be active for password caching. "scpc" would be + ;; another good choice because of the "ControlMaster" option, but + ;; this is a more modern alternative in OpenSSH 4, which cannot be + ;; taken as default. + (let ((e-f (fboundp 'executable-find))) + (cond + ;; PuTTY is installed. + ((and e-f (funcall 'executable-find "pscp")) + (if (or (fboundp 'password-read) + ;; Pageant is running. + (and (fboundp 'w32-window-exists-p) + (funcall 'w32-window-exists-p "Pageant" "Pageant"))) + "pscp" + "plink")) + ;; There is an ssh installation. + ((and e-f (funcall 'executable-find "scp")) + (if (or (fboundp 'password-read) + ;; ssh-agent is running. + (getenv "SSH_AUTH_SOCK") + (getenv "SSH_AGENT_PID")) + "scp" + "ssh")) + ;; Under Emacs 20, `executable-find' does not exists. So we + ;; couldn't check whether there is an ssh implementation. Let's + ;; hope the best. + ((not e-f) "ssh") + ;; Fallback. + (t "ftp"))) "*Default method to use for transferring files. See `tramp-methods' for possibilities. Also see `tramp-default-method-alist'." @@ -925,8 +954,10 @@ See also `tramp-yn-prompt-regexp'." :type 'regexp) (defcustom tramp-yn-prompt-regexp - (concat (regexp-opt '("Store key in cache? (y/n)") t) - "\\s-*") + (concat + (regexp-opt '("Store key in cache? (y/n)" + "Update cached key? (y/n, Return cancels connection)") t) + "\\s-*") "Regular expression matching all y/n queries which need to be confirmed. The confirmation should be done with y or n. The regexp should match at end of buffer. @@ -2044,7 +2075,9 @@ If VAR is nil, then we bind `v' to the structure and `multi-method', ;; Enable debugging. (def-edebug-spec with-parsed-tramp-file-name (form symbolp body)) ;; Highlight as keyword. -(font-lock-add-keywords 'emacs-lisp-mode '("\\<with-parsed-tramp-file-name\\>")) +(when (functionp 'font-lock-add-keywords) + (funcall 'font-lock-add-keywords + 'emacs-lisp-mode '("\\<with-parsed-tramp-file-name\\>"))) (defmacro tramp-let-maybe (variable value &rest body) "Let-bind VARIABLE to VALUE in BODY, but only if VARIABLE is not obsolete. @@ -2834,17 +2867,18 @@ of." ;; The following isn't needed for Emacs 20 but for 19.34? -(defun tramp-handle-file-name-completion (filename directory) +(defun tramp-handle-file-name-completion + (filename directory &optional predicate) "Like `file-name-completion' for tramp files." (unless (tramp-tramp-file-p directory) (error "tramp-handle-file-name-completion invoked on non-tramp directory `%s'" directory)) - (with-parsed-tramp-file-name directory nil - (try-completion - filename - (mapcar (lambda (x) (cons x nil)) - (file-name-all-completions filename directory))))) + (try-completion + filename + (mapcar 'list (file-name-all-completions filename directory)) + (when predicate + (lambda (x) (funcall predicate (expand-file-name (car x) directory)))))) ;; cp, mv and ln @@ -4494,7 +4528,6 @@ Falls back to normal file name handler if no tramp file name handler exists." "Checks whether method / user name / host name completion is active." (cond (tramp-completion-mode t) - ((not tramp-unified-filenames) t) ((string-match "^/.*:.*:$" file) nil) ((string-match (concat tramp-prefix-regexp @@ -4503,7 +4536,7 @@ Falls back to normal file name handler if no tramp file name handler exists." (member (match-string 1 file) (mapcar 'car tramp-methods))) ((or (equal last-input-event 'tab) ;; Emacs - (and (integerp last-input-event) + (and (wholenump last-input-event) (or ;; ?\t has event-modifier 'control (char-equal last-input-event ?\t) @@ -4605,10 +4638,14 @@ Falls back to normal file name handler if no tramp file name handler exists." ;; Method, host name and user name completion for a file. ;;;###autoload -(defun tramp-completion-handle-file-name-completion (filename directory) +(defun tramp-completion-handle-file-name-completion + (filename directory &optional predicate) "Like `file-name-completion' for tramp files." - (try-completion filename - (mapcar 'list (file-name-all-completions filename directory)))) + (try-completion + filename + (mapcar 'list (file-name-all-completions filename directory)) + (when predicate + (lambda (x) (funcall predicate (expand-file-name (car x) directory)))))) ;; I misuse a little bit the tramp-file-name structure in order to handle ;; completion possibilities for partial methods / user names / host names. @@ -5068,13 +5105,23 @@ hosts, or files, disagree." (defun tramp-touch (file time) "Set the last-modified timestamp of the given file. TIME is an Emacs internal time value as returned by `current-time'." - (let ((touch-time (format-time-string "%Y%m%d%H%M.%S" time t))) + (let* ((utc + ;; With GNU Emacs, `format-time-string' has an optional + ;; parameter UNIVERSAL. This is preferred. + (and (functionp 'subr-arity) + (= 3 (cdr (funcall (symbol-function 'subr-arity) + (symbol-function 'format-time-string)))))) + (touch-time + (if utc + (format-time-string "%Y%m%d%H%M.%S" time t) + (format-time-string "%Y%m%d%H%M.%S" time)))) (if (tramp-tramp-file-p file) (with-parsed-tramp-file-name file nil (let ((buf (tramp-get-buffer multi-method method user host))) (unless (zerop (tramp-send-command-and-check multi-method method user host - (format "TZ=UTC; export TZ; touch -t %s %s" + (format "%s touch -t %s %s" + (if utc "TZ=UTC; export TZ;" "") touch-time (tramp-shell-quote-argument localname)) t)) @@ -6943,8 +6990,8 @@ localname (file name on remote host)." item) (while choices (setq item (pop choices)) - (when (and (string-match (nth 0 item) (or host "")) - (string-match (nth 1 item) (or user ""))) + (when (and (string-match (or (nth 0 item) "") (or host "")) + (string-match (or (nth 1 item) "") (or user ""))) (setq method (nth 2 item)) (setq choices nil))) method)) diff --git a/lisp/net/trampver.el b/lisp/net/trampver.el index 710022f885b..8061b78e124 100644 --- a/lisp/net/trampver.el +++ b/lisp/net/trampver.el @@ -30,7 +30,7 @@ ;; are auto-frobbed from configure.ac, so you should edit that file and run ;; "autoconf && ./configure" to change them. -(defconst tramp-version "2.0.54" +(defconst tramp-version "2.0.55" "This version of Tramp.") (defconst tramp-bug-report-address "tramp-devel@gnu.org" diff --git a/lisp/outline.el b/lisp/outline.el index 0ec527060a1..95594ebec9f 100644 --- a/lisp/outline.el +++ b/lisp/outline.el @@ -652,19 +652,24 @@ A heading line is one that starts with a `*' (or that (if (< arg 0) (beginning-of-line) (end-of-line)) - (while (and (not (bobp)) (< arg 0)) - (while (and (not (bobp)) - (re-search-backward (concat "^\\(?:" outline-regexp "\\)") - nil 'move) - (outline-invisible-p))) - (setq arg (1+ arg))) - (while (and (not (eobp)) (> arg 0)) - (while (and (not (eobp)) - (re-search-forward (concat "^\\(?:" outline-regexp "\\)") - nil 'move) - (outline-invisible-p (match-beginning 0)))) - (setq arg (1- arg))) - (beginning-of-line)) + (let (found-heading-p) + (while (and (not (bobp)) (< arg 0)) + (while (and (not (bobp)) + (setq found-heading-p + (re-search-backward + (concat "^\\(?:" outline-regexp "\\)") + nil 'move)) + (outline-invisible-p))) + (setq arg (1+ arg))) + (while (and (not (eobp)) (> arg 0)) + (while (and (not (eobp)) + (setq found-heading-p + (re-search-forward + (concat "^\\(?:" outline-regexp "\\)") + nil 'move)) + (outline-invisible-p (match-beginning 0)))) + (setq arg (1- arg))) + (if found-heading-p (beginning-of-line)))) (defun outline-previous-visible-heading (arg) "Move to the previous heading line. @@ -690,6 +695,11 @@ This puts point at the start of the current subtree, and mark at the end." (goto-char beg))) +(defvar outline-isearch-open-invisible-function nil + "Function called if `isearch' finishes in an invisible overlay. +The function is called with the overlay as its only argument. +If nil, `show-entry' is called to reveal the invisible text.") + (put 'outline 'reveal-toggle-invisible 'outline-reveal-toggle-invisible) (defun outline-flag-region (from to flag) "Hide or show lines from FROM to TO, according to FLAG. @@ -698,7 +708,9 @@ If FLAG is nil then text is shown, while if FLAG is t the text is hidden." (when flag (let ((o (make-overlay from to))) (overlay-put o 'invisible 'outline) - (overlay-put o 'isearch-open-invisible 'outline-isearch-open-invisible))) + (overlay-put o 'isearch-open-invisible + (or outline-isearch-open-invisible-function + 'outline-isearch-open-invisible)))) ;; Seems only used by lazy-lock. I.e. obsolete. (run-hooks 'outline-view-change-hook)) diff --git a/lisp/pgg-def.el b/lisp/pgg-def.el index 790b6bd1e6b..95f0d7658f6 100644 --- a/lisp/pgg-def.el +++ b/lisp/pgg-def.el @@ -71,9 +71,7 @@ Whether the passphrase is cached at all is controlled by :group 'pgg :type 'integer) -(defcustom pgg-passphrase-coding-system - (if (boundp 'locale-coding-system) - locale-coding-system) +(defcustom pgg-passphrase-coding-system nil "Coding system to encode passphrase." :group 'pgg :type 'coding-system) diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el index 4b8b79b068e..514be51a6a3 100644 --- a/lisp/pgg-gpg.el +++ b/lisp/pgg-gpg.el @@ -52,7 +52,7 @@ :type '(choice (const :tag "New `--recipient' option" "--recipient") (const :tag "Old `--remote-user' option" "--remote-user"))) -(defcustom pgg-gpg-use-agent nil +(defcustom pgg-gpg-use-agent t "Whether to use gnupg agent for key caching." :group 'pgg-gpg :type 'boolean) @@ -94,8 +94,10 @@ (if pgg-passphrase-coding-system (progn (setq encoded-passphrase-with-new-line - (encode-coding-string passphrase-with-newline - pgg-passphrase-coding-system)) + (encode-coding-string + passphrase-with-newline + (coding-system-change-eol-conversion + pgg-passphrase-coding-system 'unix))) (pgg-clear-string passphrase-with-newline)) (setq encoded-passphrase-with-new-line passphrase-with-newline passphrase-with-newline nil)) diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el index 7c48967abde..40407f3819a 100644 --- a/lisp/progmodes/cc-mode.el +++ b/lisp/progmodes/cc-mode.el @@ -531,9 +531,11 @@ that requires a literal mode spec at compile time." ;; heuristic that open parens in column 0 are defun starters. Since ;; we have c-state-cache, that heuristic isn't useful and only causes ;; trouble, so turn it off. - (when (memq 'col-0-paren c-emacs-features) - (make-local-variable 'open-paren-in-column-0-is-defun-start) - (setq open-paren-in-column-0-is-defun-start nil)) +;; 2006/12/17: This facility is somewhat confused, and doesn't really seem +;; helpful. Comment it out for now. +;; (when (memq 'col-0-paren c-emacs-features) +;; (make-local-variable 'open-paren-in-column-0-is-defun-start) +;; (setq open-paren-in-column-0-is-defun-start nil)) (c-clear-found-types) diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index 48dd31b19f9..3a253796f28 100644 --- a/lisp/progmodes/gdb-ui.el +++ b/lisp/progmodes/gdb-ui.el @@ -79,6 +79,8 @@ ;; 5) If you wish to call procedures from your program in GDB ;; e.g "call myproc ()", "p mysquare (5)" then use level 2 annotations ;; "gdb --annotate=2 myprog" to keep source buffer/selected frame fixed. +;; 6) After detaching from a process, clicking on the "GO" icon on toolbar +;; (gud-go) sends "continue" to GDB (should be "run"). ;;; Problems with watch expressions, GDB/MI: @@ -708,11 +710,6 @@ With arg, enter name of variable to be watched in the minibuffer." (buffer-substring (region-beginning) (region-end)) (tooltip-identifier-from-point (point)))))) (speedbar 1) - (catch 'already-watched - (dolist (var gdb-var-list) - (unless (string-match "\\." (car var)) - (if (string-equal expr (nth 1 var)) - (throw 'already-watched nil)))) (set-text-properties 0 (length expr) nil expr) (gdb-enqueue-input (list @@ -720,7 +717,7 @@ With arg, enter name of variable to be watched in the minibuffer." (concat "server interpreter mi \"-var-create - * " expr "\"\n") (concat"-var-create - * " expr "\n")) - `(lambda () (gdb-var-create-handler ,expr)))))))) + `(lambda () (gdb-var-create-handler ,expr))))))) (message "gud-watch is a no-op in this mode.")))) (defconst gdb-var-create-regexp @@ -849,32 +846,24 @@ type_changed=\".*?\".*?}") (interactive) (if (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer) '(gdbmi gdba)) - (let ((text (speedbar-line-text))) - ;; Can't use \\S-+ for whitespace because - ;; speedbar has a whacky syntax table. - (string-match "\\([^ \t]+\\)" text) - (let ((expr (match-string 1 text)) var varnum) - (catch 'expr-found - (dolist (var1 gdb-var-list) - (when (string-equal expr (nth 1 var1)) - (setq var var1) - (setq varnum (car var1)) - (throw 'expr-found nil)))) - (unless (string-match "\\." (car var)) - (gdb-enqueue-input - (list - (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) - 'gdba) - (concat "server interpreter mi \"-var-delete " varnum "\"\n") - (concat "-var-delete " varnum "\n")) - 'ignore)) - (setq gdb-var-list (delq var gdb-var-list)) - (dolist (varchild gdb-var-list) - (if (string-match (concat (car var) "\\.") (car varchild)) - (setq gdb-var-list (delq varchild gdb-var-list))))))))) + (let* ((var (nth (- (count-lines (point-min) (point)) 2) gdb-var-list)) + (varnum (car var))) + (if (string-match "\\." (car var)) + (message-box "Can only delete a root expression") + (gdb-enqueue-input + (list + (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) + 'gdba) + (concat "server interpreter mi \"-var-delete " varnum "\"\n") + (concat "-var-delete " varnum "\n")) + 'ignore)) + (setq gdb-var-list (delq var gdb-var-list)) + (dolist (varchild gdb-var-list) + (if (string-match (concat (car var) "\\.") (car varchild)) + (setq gdb-var-list (delq varchild gdb-var-list)))))))) (defun gdb-var-delete-children (varnum) - "Delete children of variable object point from the speedbar." + "Delete children of variable object at point from the speedbar." (gdb-enqueue-input (list (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba) @@ -1015,7 +1004,7 @@ The key should be one of the cars in `gdb-buffer-rules-assoc'." 'gdb-partial-output-name) (defun gdb-partial-output-name () - (concat "*partial-output-" + (concat " *partial-output-" (gdb-get-target-string) "*")) @@ -1401,7 +1390,7 @@ sink to `user' in `gdb-stopping', that is fine." (if (and gdb-frame-begin gdb-printing) (setq gud-overlay-arrow-position gud-old-arrow) ;;Pop up GUD buffer to display current frame when it doesn't have source - ;;information i.e id not compiled with -g as with libc routines generally. + ;;information i.e if not compiled with -g as with libc routines generally. (if gdb-same-frame (gdb-display-gdb-buffer) (gdb-frame-gdb-buffer)) @@ -1415,6 +1404,7 @@ sink to `user' in `gdb-stopping', that is fine." (gdb-invalidate-frames) 'delete)))))) (unless (member gdb-inferior-status '("exited" "signal")) + (setq gdb-active-process t) ;Just for attaching case. (setq gdb-inferior-status "stopped") (gdb-force-mode-line-update (propertize gdb-inferior-status 'face font-lock-warning-face))) @@ -1785,7 +1775,7 @@ static char *magick[] = { (dolist (buffer (buffer-list)) (with-current-buffer buffer (if (and (memq gud-minor-mode '(gdba gdbmi)) - (not (string-match "\\`\\*.+\\*\\'" (buffer-name)))) + (not (string-match "\\` ?\\*.+\\*\\'" (buffer-name)))) (gdb-remove-breakpoint-icons (point-min) (point-max))))) (with-current-buffer (gdb-get-buffer 'gdb-breakpoints-buffer) (save-excursion @@ -2934,7 +2924,7 @@ Kills the gdb buffers, and resets variables and the source buffers." (unless (eq buffer gud-comint-buffer) (with-current-buffer buffer (if (memq gud-minor-mode '(gdbmi gdba)) - (if (string-match "\\`\\*.+\\*\\'" (buffer-name)) + (if (string-match "\\` ?\\*.+\\*\\'" (buffer-name)) (kill-buffer nil) (gdb-remove-breakpoint-icons (point-min) (point-max) t) (setq gud-minor-mode nil) diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index de2a00c3ad7..e7de415fe2a 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -1890,7 +1890,7 @@ To revert all these variables to the global values, use command `sh-reset-indent-vars-to-global-values'." (interactive) (mapcar 'make-local-variable sh-var-list) - (message "Indentation variable are now local.")) + (message "Indentation variables are now local.")) (defun sh-reset-indent-vars-to-global-values () "Reset local indentation variables to the global values. diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el index 4b5a8bb51f1..afc0f35f26c 100644 --- a/lisp/progmodes/sql.el +++ b/lisp/progmodes/sql.el @@ -5,7 +5,7 @@ ;; Author: Alex Schroeder <alex@gnu.org> ;; Maintainer: Michael Mauger <mmaug@yahoo.com> -;; Version: 2.0.1 +;; Version: 2.0.2 ;; Keywords: comm languages processes ;; URL: http://savannah.gnu.org/cgi-bin/viewcvs/emacs/emacs/lisp/progmodes/sql.el ;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?SqlMode @@ -30,26 +30,40 @@ ;;; Commentary: ;; Please send bug reports and bug fixes to the mailing list at -;; sql.el@gnu.org. If you want to subscribe to the mailing list, send -;; mail to sql.el-request@gnu.org with `subscribe sql.el FIRSTNAME -;; LASTNAME' in the mail body. - -;; This file provides a sql-mode and a sql-interactive-mode. My goals -;; were two simple modes providing syntactic hilighting. The -;; interactive mode had to provide a command-line history; the other -;; mode had to provide "send region/buffer to SQL interpreter" -;; functions. "simple" in this context means easy to use, easy to -;; maintain and little or no bells and whistles. +;; help-gnu-emacs@gnu.org. If you want to subscribe to the mailing +;; list, see the web page at +;; http://lists.gnu.org/mailman/listinfo/help-gnu-emacs for +;; instructions. I monitor this list actively. If you send an e-mail +;; to Alex Schroeder it usually makes it to me when Alex has a chance +;; to forward them along (Thanks, Alex). + +;; This file provides a sql-mode and a sql-interactive-mode. The +;; original goals were two simple modes providing syntactic +;; highlighting. The interactive mode had to provide a command-line +;; history; the other mode had to provide "send region/buffer to SQL +;; interpreter" functions. "simple" in this context means easy to +;; use, easy to maintain and little or no bells and whistles. This +;; has changed somewhat as experience with the mode has accumulated. + +;; Support for different flavors of SQL and command interpreters was +;; available in early versions of sql.el. This support has been +;; extended and formalized in later versions. Part of the impetus for +;; the improved support of SQL flavors was borne out of the current +;; maintainer's consulting experience. In the past fifteen years, I +;; have used Oracle, Sybase, Informix, MySQL, Postgres, and SQLServer. +;; On some assignments, I have used two or more of these concurrently. ;; If anybody feels like extending this sql mode, take a look at the ;; above mentioned modes and write a sqlx-mode on top of this one. If ;; this proves to be difficult, please suggest changes that will -;; facilitate your plans. +;; facilitate your plans. Facilities have been provided to add +;; products and product-specific configuration. ;; sql-interactive-mode is used to interact with a SQL interpreter ;; process in a SQLi buffer (usually called `*SQL*'). The SQLi buffer -;; is created by calling a SQL interpreter-specific entry function. Do -;; *not* call sql-interactive-mode by itself. +;; is created by calling a SQL interpreter-specific entry function or +;; sql-product-interactive. Do *not* call sql-interactive-mode by +;; itself. ;; The list of currently supported interpreters and the corresponding ;; entry function used to create the SQLi buffers is shown with @@ -850,7 +864,7 @@ Based on `comint-mode-map'.") (define-abbrev-table 'sql-mode-abbrev-table nil)) (mapcar - ;; In Emacs 21.3+, provide SYSTEM-FLAG to define-abbrev. + ;; In Emacs 22+, provide SYSTEM-FLAG to define-abbrev. '(lambda (abbrev) (let ((name (car abbrev)) (expansion (cdr abbrev))) @@ -858,13 +872,13 @@ Based on `comint-mode-map'.") (define-abbrev sql-mode-abbrev-table name expansion nil 0 t) (error (define-abbrev sql-mode-abbrev-table name expansion))))) - '(("ins" "insert") - ("upd" "update") - ("del" "delete") - ("sel" "select") - ("proc" "procedure") - ("func" "function") - ("cr" "create"))) + '(("ins" . "insert") + ("upd" . "update") + ("del" . "delete") + ("sel" . "select") + ("proc" . "procedure") + ("func" . "function") + ("cr" . "create"))) ;; Syntax Table @@ -873,13 +887,15 @@ Based on `comint-mode-map'.") ;; C-style comments /**/ (see elisp manual "Syntax Flags")) (modify-syntax-entry ?/ ". 14" table) (modify-syntax-entry ?* ". 23" table) - ;; double-dash starts comment + ;; double-dash starts comments (modify-syntax-entry ?- ". 12b" table) - ;; newline and formfeed end coments + ;; newline and formfeed end comments (modify-syntax-entry ?\n "> b" table) (modify-syntax-entry ?\f "> b" table) - ;; single quotes (') quotes delimit strings + ;; single quotes (') delimit strings (modify-syntax-entry ?' "\"" table) + ;; double quotes (") don't delimit strings + (modify-syntax-entry ?\" "." table) ;; backslash is no escape character (modify-syntax-entry ?\\ "." table) table) @@ -888,12 +904,13 @@ Based on `comint-mode-map'.") ;; Font lock support (defvar sql-mode-font-lock-object-name - (list (concat "^\\s-*\\(create\\|drop\\|alter\\)\\s-+" ;; lead off with CREATE, DROP or ALTER - "\\(\\w+\\s-+\\)*" ;; optional intervening keywords - "\\(table\\|view\\|package\\(\\s-+body\\)?\\|proc\\(edure\\)?" - "\\|function\\|trigger\\|sequence\\|rule\\|default\\)\\s-+" - "\\(\\w+\\)") - 6 'font-lock-function-name-face) + (eval-when-compile + (list (concat "^\\s-*\\(?:create\\|drop\\|alter\\)\\s-+" ;; lead off with CREATE, DROP or ALTER + "\\(?:\\w+\\s-+\\)*" ;; optional intervening keywords + "\\(?:table\\|view\\|\\(?:package\\|type\\)\\(?:\\s-+body\\)?\\|proc\\(?:edure\\)?" + "\\|function\\|trigger\\|sequence\\|rule\\|default\\)\\s-+" + "\\(\\w+\\)") + 1 'font-lock-function-name-face)) "Pattern to match the names of top-level objects. diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el index 69d696f7741..438aa8f14dd 100644 --- a/lisp/scroll-bar.el +++ b/lisp/scroll-bar.el @@ -75,6 +75,7 @@ SIDE must be the symbol `left' or `right'." ;;;; Helpful functions for enabling and disabling scroll bars. (defvar scroll-bar-mode) +(defvar previous-scroll-bar-mode nil) (defvar scroll-bar-mode-explicit nil "Non-nil means `set-scroll-bar-mode' should really do something. @@ -85,6 +86,9 @@ This is nil while loading `scroll-bar.el', and t afterward.") (defun set-scroll-bar-mode (value) "Set `scroll-bar-mode' to VALUE and put the new value into effect." + (if scroll-bar-mode + (setq previous-scroll-bar-mode scroll-bar-mode)) + (setq scroll-bar-mode value) (when scroll-bar-mode-explicit @@ -137,7 +141,8 @@ turn off scroll bars; otherwise, turn on scroll bars." (not scroll-bar-mode) (setq flag (prefix-numeric-value flag)) (or (not (numberp flag)) (>= flag 0))) - default-frame-scroll-bars))) + (or previous-scroll-bar-mode + default-frame-scroll-bars)))) (defun toggle-scroll-bar (arg) "Toggle whether or not the selected frame has vertical scroll bars. diff --git a/lisp/simple.el b/lisp/simple.el index 293f8d25431..1af1649113d 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -706,8 +706,8 @@ Leave one space or none, according to the context." (defun delete-horizontal-space (&optional backward-only) "Delete all spaces and tabs around point. -If BACKWARD-ONLY is non-nil, only delete spaces before point." - (interactive "*") +If BACKWARD-ONLY is non-nil, only delete them before point." + (interactive "*P") (let ((orig-pos (point))) (delete-region (if backward-only diff --git a/lisp/startup.el b/lisp/startup.el index f086ab7c6d8..4095a218258 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1206,6 +1206,7 @@ Values less than twice `fancy-splash-delay' are ignored." (defvar fancy-splash-help-echo nil) (defvar fancy-splash-stop-time nil) (defvar fancy-splash-outer-buffer nil) +(defvar fancy-splash-last-input-event nil) (defun fancy-splash-insert (&rest args) "Insert text into the current buffer, with faces. @@ -1363,6 +1364,14 @@ mouse." (push last-command-event unread-command-events)) (throw 'exit nil)) +(defun fancy-splash-special-event-action () + "Save the last event and stop displaying the splash screen buffer. +This is an internal function used to turn off the splash screen after +the user caused an input event that is bound in `special-event-map'" + (interactive) + (setq fancy-splash-last-input-event last-input-event) + (throw 'exit nil)) + (defun fancy-splash-screens (&optional hide-on-input) "Display fancy splash screens when Emacs starts." @@ -1372,6 +1381,7 @@ mouse." splash-buffer (old-minor-mode-map-alist minor-mode-map-alist) (old-emulation-mode-map-alists emulation-mode-map-alists) + (old-special-event-map special-event-map) (frame (fancy-splash-frame)) timer) (save-selected-window @@ -1387,6 +1397,20 @@ mouse." (define-key map [t] 'fancy-splash-default-action) (define-key map [mouse-movement] 'ignore) (define-key map [mode-line t] 'ignore) + ;; Temporarily bind special events to + ;; fancy-splash-special-event-action so as to stop + ;; displaying splash screens with such events. + ;; Otherwise, drag-n-drop into splash screens may + ;; leave us in recursive editing with invisible + ;; cursors for a while. + (setq special-event-map (make-sparse-keymap)) + (map-keymap + (lambda (key def) + (define-key special-event-map (vector key) + (if (eq def 'ignore) + 'ignore + 'fancy-splash-special-event-action))) + old-special-event-map) (setq display-hourglass nil minor-mode-map-alist nil emulation-mode-map-alists nil @@ -1403,8 +1427,15 @@ mouse." (cancel-timer timer) (setq display-hourglass old-hourglass minor-mode-map-alist old-minor-mode-map-alist - emulation-mode-map-alists old-emulation-mode-map-alists) - (kill-buffer splash-buffer))))) + emulation-mode-map-alists old-emulation-mode-map-alists + special-event-map old-special-event-map) + (kill-buffer splash-buffer) + (when fancy-splash-last-input-event + (setq last-input-event fancy-splash-last-input-event + fancy-splash-last-input-event nil) + (command-execute (lookup-key special-event-map + (vector last-input-event)) + nil (vector last-input-event) t)))))) ;; If hide-on-input is nil, don't hide the buffer on input. (if (or (window-minibuffer-p) (window-dedicated-p (selected-window))) diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index c49c8893b21..b7a4d3a2f98 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -2014,6 +2014,22 @@ the echo area or in a buffer where the cursor is not displayed." (mac-split-string-by-property-change string) "")) +(defun mac-keyboard-translate-char (ch) + (if (and (char-valid-p ch) + (or (char-table-p keyboard-translate-table) + (and (or (stringp keyboard-translate-table) + (vectorp keyboard-translate-table)) + (> (length keyboard-translate-table) ch)))) + (or (aref keyboard-translate-table ch) ch) + ch)) + +(defun mac-unread-string (string) + ;; Unread characters and insert them in a keyboard macro being + ;; defined. + (apply 'isearch-unread + (mapcar 'mac-keyboard-translate-char + (mac-replace-untranslated-utf-8-chars string)))) + (defun mac-ts-update-active-input-area (event) "Update Mac TSM active input area according to EVENT. The confirmed text is converted to Emacs input events and pushed @@ -2092,11 +2108,7 @@ either in the current buffer or in the echo area." (point) (point) (current-buffer)) (overlay-put mac-ts-active-input-overlay 'before-string active-input-string)) - ;; Unread confirmed characters and insert them in a keyboard - ;; macro being defined. - (apply 'isearch-unread - (append (mac-replace-untranslated-utf-8-chars - (funcall decode-fun confirmed coding)) '()))) + (mac-unread-string (funcall decode-fun confirmed coding))) ;; The event is successfully processed. Sync the sequence number. (setq mac-ts-update-active-input-area-seqno (1+ seqno)))) @@ -2109,11 +2121,7 @@ either in the current buffer or in the echo area." (coding (or (cdr (assq (car script-language) mac-script-code-coding-systems)) 'mac-roman))) - ;; Unread characters and insert them in a keyboard macro being - ;; defined. - (apply 'isearch-unread - (append (mac-replace-untranslated-utf-8-chars - (mac-utxt-to-string text coding)) '())))) + (mac-unread-string (mac-utxt-to-string text coding)))) ;; kEventClassTextInput/kEventTextInputUpdateActiveInputArea (define-key mac-apple-event-map [text-input update-active-input-area] diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 518c7b9f58e..6dcaaac0958 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -2463,6 +2463,10 @@ order until succeed.") (if res-selection-timeout (setq x-selection-timeout (string-to-number res-selection-timeout)))) +;; Set scroll bar mode to right if set by X resources. Default is left. +(if (equal (x-get-resource "verticalScrollBars" "ScrollBars") "right") + (customize-set-variable 'scroll-bar-mode 'right)) + (defun x-win-suspend-error () (error "Suspending an Emacs running under X makes no sense")) (add-hook 'suspend-hook 'x-win-suspend-error) diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 6aae79a825f..4113a884c4c 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -767,7 +767,7 @@ If `fill-paragraph-function' is nil, return the `fill-prefix' used for filling." (list (if current-prefix-arg 'full)))) ;; First try fill-paragraph-function. (or (and (or fill-paragraph-function - (and (window-minibuffer-p (selected-window)) + (and (minibufferp (current-buffer)) (= 1 (point-min)))) (let ((function (or fill-paragraph-function ;; In the minibuffer, don't count the width @@ -843,14 +843,16 @@ can take care of filling. JUSTIFY is used as in `fill-paragraph'." (commark (comment-string-strip (buffer-substring comstart comin) nil t)) (comment-re - (if (string-match comment-start-skip (concat commark "a")) + ;; `commark' is surrounded with arbitrary text (`\0' and `a') + ;; to make sure it can be used as an optimization of + ;; `comment-start-skip' in the middle of a line. For example, + ;; `commark' can't be used with the "@c" in TeXinfo (hence + ;; the `a') or with the "C" at BOL in Fortran (hence the `\0'). + (if (string-match comment-start-skip (concat "\0" commark "a")) (concat "[ \t]*" (regexp-quote commark) ;; Make sure we only match comments that use ;; the exact same comment marker. "[^" (substring commark -1) "]") - ;; If the commark needs to be followed by some special - ;; set of characters (like @c in TeXinfo), we can't - ;; rely just on `commark'. (concat "[ \t]*\\(?:" comment-start-skip "\\)"))) (comment-fill-prefix ; Compute a fill prefix. (save-excursion diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el index d9baad489a3..4cd697af36d 100644 --- a/lisp/textmodes/org.el +++ b/lisp/textmodes/org.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik <dominik at science dot uva dot nl> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://www.astro.uva.nl/~dominik/Tools/org/ -;; Version: 4.56b +;; Version: 4.56e ;; ;; This file is part of GNU Emacs. ;; @@ -114,7 +114,7 @@ ;;; Customization variables -(defvar org-version "4.56b" +(defvar org-version "4.56e" "The version number of the file org.el.") (defun org-version () (interactive) @@ -3211,6 +3211,9 @@ The following commands are available: ;; Paragraphs and auto-filling (org-set-autofill-regexps) (org-update-radio-target-regexp) + ;; Make isearch reveal context after success + (org-set-local 'outline-isearch-open-invisible-function + (lambda (&rest ignore) (org-show-context nil t))) (if (and org-insert-mode-line-in-empty-file (interactive-p) @@ -3238,7 +3241,7 @@ The following commands are available: (defsubst org-current-line (&optional pos) (save-excursion (and pos (goto-char pos)) - (+ (if (bolp) 1 0) (count-lines (point-min) (point))))) + (+ (if (bolp) 1 0) (count-lines 1 (point))))) (defun org-current-time () "Current time, possibly rounded to `org-time-stamp-rounding-minutes'." @@ -5691,6 +5694,7 @@ When SIBLINGS is non-nil, show all siblings on each hierarchy level." (save-excursion (and (if heading-p (org-goto-sibling) (outline-next-heading)) (org-flag-heading nil)))) + (when siblings (org-show-siblings)) (when hierarchy-p ;; show all higher headings, possibly with siblings (save-excursion @@ -5699,12 +5703,15 @@ When SIBLINGS is non-nil, show all siblings on each hierarchy level." (error nil)) (not (bobp))) (org-flag-heading nil) - (when siblings - (save-excursion - (while (org-goto-sibling) (org-flag-heading nil))) - (save-excursion - (while (org-goto-sibling 'previous) - (org-flag-heading nil)))))))))) + (when siblings (org-show-siblings)))))))) + +(defun org-show-siblings () + "Show all siblings of the current headline." + (save-excursion + (while (org-goto-sibling) (org-flag-heading nil))) + (save-excursion + (while (org-goto-sibling 'previous) + (org-flag-heading nil)))) (defun org-reveal (&optional siblings) "Show current entry, hierarchy above it, and the following headline. @@ -12375,11 +12382,11 @@ with `org-table-paste-rectangle'." (rpl (if cut " " nil))) (goto-char beg) (org-table-check-inside-data-field) - (setq l01 (count-lines (point-min) (point)) + (setq l01 (org-current-line) c01 (org-table-current-column)) (goto-char end) (org-table-check-inside-data-field) - (setq l02 (count-lines (point-min) (point)) + (setq l02 (org-current-line) c02 (org-table-current-column)) (setq l1 (min l01 l02) l2 (max l01 l02) c1 (min c01 c02) c2 (max c01 c02)) @@ -12410,7 +12417,7 @@ lines." (error "First cut/copy a region to paste!")) (org-table-check-inside-data-field) (let* ((clip org-table-clip) - (line (count-lines (point-min) (point))) + (line (org-current-line)) (col (org-table-current-column)) (org-enable-table-editor t) (org-table-automatic-realign nil) @@ -16278,6 +16285,7 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]." (define-key org-mode-map [(tab)] 'org-cycle) (define-key org-mode-map [(control tab)] 'org-force-cycle-archived) (define-key org-mode-map [(meta tab)] 'org-complete) +(define-key org-mode-map "\M-\t" 'org-complete) ;; The following line is necessary under Suse GNU/Linux (unless (featurep 'xemacs) (define-key org-mode-map [S-iso-lefttab] 'org-shifttab)) diff --git a/lisp/tutorial.el b/lisp/tutorial.el index b171ee9a07b..be50d793f0f 100644 --- a/lisp/tutorial.el +++ b/lisp/tutorial.el @@ -33,21 +33,11 @@ ;;; Code: (require 'help-mode) ;; for function help-buffer -(eval-when-compile (require 'cl)) (defface tutorial-warning-face - '((((class color) (min-colors 88) (background light)) - (:foreground "Red1" :weight bold)) - (((class color) (min-colors 88) (background dark)) - (:foreground "Pink" :weight bold)) - (((class color) (min-colors 16) (background light)) - (:foreground "Red1" :weight bold)) - (((class color) (min-colors 16) (background dark)) - (:foreground "Pink" :weight bold)) - (((class color) (min-colors 8)) (:foreground "red")) - (t (:inverse-video t :weight bold))) + '((t :inherit font-lock-warning-face)) "Face used to highlight warnings in the tutorial." - :group 'font-lock-faces) + :group 'help) (defvar tutorial--point-before-chkeys 0 "Point before display of key changes.") @@ -168,8 +158,7 @@ options: where " to get the function `" (format "%s" db) - "'.")) - ) + "'."))) (fill-region (point-min) (point))))) (print-help-return-message)))) @@ -213,110 +202,83 @@ LEFT and RIGHT are the elements to compare." ((and (symbolp cx) (symbolp cy)) (string< (symbol-name cy) - (symbol-name cx))) - )))) + (symbol-name cx))))))) (defconst tutorial--default-keys - (let* ( - ;; On window system suspend Emacs is replaced in the - ;; default keymap so honor this here. - (suspend-emacs (if window-system + ;; On window system, `suspend-emacs' is replaced in the default + ;; keymap + (let* ((suspend-emacs (if window-system 'iconify-or-deiconify-frame 'suspend-emacs)) (default-keys - `( - ;; These are not mentioned but are basic: - (ESC-prefix [27]) + `((ESC-prefix [27]) (Control-X-prefix [?\C-x]) (mode-specific-command-prefix [?\C-c]) - (save-buffers-kill-emacs [?\C-x ?\C-c]) - ;; * SUMMARY (scroll-up [?\C-v]) (scroll-down [?\M-v]) (recenter [?\C-l]) - ;; * BASIC CURSOR CONTROL (forward-char [?\C-f]) (backward-char [?\C-b]) - (forward-word [?\M-f]) (backward-word [?\M-b]) - (next-line [?\C-n]) (previous-line [?\C-p]) - (move-beginning-of-line [?\C-a]) (move-end-of-line [?\C-e]) - (backward-sentence [?\M-a]) (forward-sentence [?\M-e]) - (newline "\r") - (beginning-of-buffer [?\M-<]) (end-of-buffer [?\M->]) - (universal-argument [?\C-u]) - ;; * WHEN EMACS IS HUNG (keyboard-quit [?\C-g]) - ;; * DISABLED COMMANDS (downcase-region [?\C-x ?\C-l]) - ;; * WINDOWS (delete-other-windows [?\C-x ?1]) ;; C-u 0 C-l ;; Type CONTROL-h k CONTROL-f. - ;; * INSERTING AND DELETING ;; C-u 8 * to insert ********. - (delete-backward-char [backspace]) (delete-backward-char "\d") (delete-char [?\C-d]) - (backward-kill-word [(meta backspace)]) (kill-word [?\M-d]) - (kill-line [?\C-k]) (kill-sentence [?\M-k]) - (set-mark-command [?\C-@]) (set-mark-command [?\C- ]) (kill-region [?\C-w]) (yank [?\C-y]) (yank-pop [?\M-y]) - ;; * UNDO (advertised-undo [?\C-x ?u]) (advertised-undo [?\C-x ?u]) - ;; * FILES (find-file [?\C-x ?\C-f]) (save-buffer [?\C-x ?\C-s]) - ;; * BUFFERS (list-buffers [?\C-x ?\C-b]) (switch-to-buffer [?\C-x ?b]) (save-some-buffers [?\C-x ?s]) - ;; * EXTENDING THE COMMAND SET ;; C-x Character eXtend. Followed by one character. (execute-extended-command [?\M-x]) - ;; C-x C-f Find file ;; C-x C-s Save file ;; C-x s Save some buffers @@ -326,44 +288,35 @@ LEFT and RIGHT are the elements to compare." ;; C-x 1 Delete all but one window ;; C-x u Undo - ;; * MODE LINE (describe-mode [?\C-h ?m]) - (set-fill-column [?\C-x ?f]) (fill-paragraph [?\M-q]) - ;; * SEARCHING (isearch-forward [?\C-s]) (isearch-backward [?\C-r]) - ;; * MULTIPLE WINDOWS (split-window-vertically [?\C-x ?2]) (scroll-other-window [?\C-\M-v]) (other-window [?\C-x ?o]) (find-file-other-window [?\C-x ?4 ?\C-f]) - ;; * RECURSIVE EDITING LEVELS (keyboard-escape-quit [27 27 27]) - ;; * GETTING MORE HELP ;; The most basic HELP feature is C-h c (describe-key-briefly [?\C-h ?c]) (describe-key [?\C-h ?k]) - ;; * MORE FEATURES ;; F10 - ;; * CONCLUSION ;;(iconify-or-deiconify-frame [?\C-z]) - (,suspend-emacs [?\C-z]) - ))) + (,suspend-emacs [?\C-z])))) (sort default-keys 'tutorial--sort-keys)) "Default Emacs key bindings that the tutorial depends on.") @@ -374,7 +327,6 @@ LEFT and RIGHT are the elements to compare." (interactive-p)) (with-current-buffer (help-buffer) (let* ((tutorial-buffer (button-get button 'tutorial-buffer)) - ;;(tutorial-arg (button-get button 'tutorial-arg)) (explain-key-desc (button-get button 'explain-key-desc)) (changed-keys (with-current-buffer tutorial-buffer (save-excursion @@ -384,7 +336,7 @@ LEFT and RIGHT are the elements to compare." (when changed-keys (insert "The following key bindings used in the tutorial had been changed -from Emacs default in the " (buffer-name tutorial-buffer) " buffer:\n\n" ) +from the Emacs default in the " (buffer-name tutorial-buffer) " buffer:\n\n" ) (let ((frm " %-9s %-27s %-11s %s\n")) (insert (format frm "Key" "Standard Binding" "Is Now On" "Remark"))) (dolist (tk changed-keys) @@ -405,7 +357,7 @@ from Emacs default in the " (buffer-name tutorial-buffer) " buffer:\n\n" ) (insert " " key-txt " ") (setq tot-len (length key-txt)) (when (> 9 tot-len) - (insert (make-string (- 9 tot-len) ? )) + (insert (make-string (- 9 tot-len) ?\s)) (setq tot-len 9)) ;; Insert a link describing the old binding: (insert-button def-fun-txt @@ -417,7 +369,7 @@ from Emacs default in the " (buffer-name tutorial-buffer) " buffer:\n\n" ) 'follow-link t) (setq tot-len (+ tot-len (length def-fun-txt))) (when (> 36 tot-len) - (insert (make-string (- 36 tot-len) ? ))) + (insert (make-string (- 36 tot-len) ?\s))) (when (listp where) (setq where "list")) ;; Tell where the old binding is now: @@ -438,29 +390,18 @@ from Emacs default in the " (buffer-name tutorial-buffer) " buffer:\n\n" ) (insert "\n"))))) (insert " -It is legitimate to change key bindings, but changed bindings do not -correspond to what the tutorial says. (See also " ) - (insert-button "Key Binding Conventions" - 'action - (lambda(button) (interactive) - (info - "(elisp) Key Binding Conventions") - (message "Type C-x 0 to close the new window")) - 'follow-link t) - (insert ".)\n\n") +It is OK to change key bindings, but changed bindings do not +correspond to what the tutorial says.\n\n") (print-help-return-message))))) (defun tutorial--find-changed-keys (default-keys) - "Find the key bindings that have changed. -Check if the default Emacs key bindings that the tutorial depends -on have been changed. + "Find the key bindings used in the tutorial that have changed. +Return a list with elements of the form -Return a list with the keys that have been changed. The element -of this list have the following format: + '(KEY DEF-FUN DEF-FUN-TXT WHERE REMARK QUIET) - \(list KEY DEF-FUN DEF-FUN-TXT WHERE REMARK) +where -Where KEY is a key sequence whose standard binding has been changed DEF-FUN is the standard binding of KEY DEF-FUN-TXT is a short descriptive text for DEF-FUN @@ -477,9 +418,10 @@ Where rest of the list is used to show information when the user clicks the link. - KEY-FUN is the actual binding for KEY." + KEY-FUN is the actual binding for KEY. + QUIET is t if this changed keybinding should be handled quietly. + This is used by `tutorial--display-changes'." (let (changed-keys remark) - ;; (default-keys tutorial--default-keys)) (dolist (kdf default-keys) ;; The variables below corresponds to those with the same names ;; described in the doc string. @@ -518,26 +460,21 @@ Where (setq remark (list "cua-mode, more info" 'cua-mode)) nil) ((and cua-mode - (or - (and (eq def-fun 'ESC-prefix) - (equal key-fun + (or (and (eq def-fun 'ESC-prefix) + (equal key-fun `(keymap - (118 . cua-repeat-replace-region)))) - (and (eq def-fun 'mode-specific-command-prefix) - (equal key-fun - '(keymap - (timeout . copy-region-as-kill)))) - (and (eq def-fun 'Control-X-prefix) - (equal key-fun - '(keymap (timeout . kill-region)))))) + (118 . cua-repeat-replace-region))) + (setq def-fun-txt "\"ESC prefix\"")) + (and (eq def-fun 'mode-specific-command-prefix) + (equal key-fun + '(keymap + (timeout . copy-region-as-kill))) + (setq def-fun-txt "\"C-c prefix\"")) + (and (eq def-fun 'Control-X-prefix) + (equal key-fun + '(keymap (timeout . kill-region))) + (setq def-fun-txt "\"C-x prefix\"")))) (setq remark (list "cua-mode replacement" 'cua-mode)) - (cond - ((eq def-fun 'mode-specific-command-prefix) - (setq def-fun-txt "\"C-c prefix\"")) - ((eq def-fun 'Control-X-prefix) - (setq def-fun-txt "\"C-x prefix\"")) - ((eq def-fun 'ESC-prefix) - (setq def-fun-txt "\"ESC prefix\""))) (setq where "Same key") nil) ;; viper-mode specials: @@ -567,124 +504,110 @@ Where key-fun def-fun key where)) nil)) (add-to-list 'changed-keys - (list key def-fun def-fun-txt where remark))))) + (list key def-fun def-fun-txt where remark nil))))) changed-keys)) -(defvar tutorial--tab-map - (let ((map (make-sparse-keymap))) - (define-key map [tab] 'forward-button) - (define-key map [(shift tab)] 'backward-button) - (define-key map [(meta tab)] 'backward-button) - map) - "Keymap that allows tabbing between buttons.") +(defun tutorial--key-description (key) + (let ((desc (key-description key))) + (cond ((string= "ESC" desc) "<ESC>") + ((string= "RET" desc) "<Return>") + ((string= "DEL" desc) "<Delback>") + (t desc)))) -(defun tutorial--display-changes (changed-keys) +(defun tutorial--display-changes () "Display changes to some default key bindings. If some of the default key bindings that the tutorial depends on have been changed then display the changes in the tutorial buffer -with some explanatory links. - -CHANGED-KEYS should be a list in the format returned by -`tutorial--find-changed-keys'." - (when (or changed-keys - (boundp 'viper-mode-string)) +with some explanatory links." + (let* ((changed-keys (tutorial--find-changed-keys + tutorial--default-keys)) + ;; Alist of element (DESC . CK) where DESC is the + ;; key-description of a changed key and CK is the + ;; corresponding element in `changed-keys'. + (changed-keys-alist + (mapcar (lambda (ck) (cons (tutorial--key-description (car ck)) ck)) + changed-keys)) + changed-key + (start (point)) + (case-fold-search nil) + (keybindings-regexp + (concat "[[:space:]]\\(" + (mapconcat (lambda (kdf) (regexp-quote + (tutorial--key-description + (nth 1 kdf)))) + tutorial--default-keys + "\\|") + "\\)[[:punct:][:space:]]"))) ;; Need the custom button face for viper buttons: - (when (boundp 'viper-mode-string) - (require 'cus-edit)) - (let ((start (point)) - end - (head (get-lang-string tutorial--lang 'tut-chgdhead)) - (head2 (get-lang-string tutorial--lang 'tut-chgdhead2))) - (when (and head head2) - (goto-char tutorial--point-before-chkeys) - (insert head) - (insert-button head2 - 'tutorial-buffer - (current-buffer) - ;;'tutorial-arg arg - 'action - 'tutorial--detailed-help - 'follow-link t - 'face 'link) - (insert "]\n\n" ) - (when changed-keys - (dolist (tk changed-keys) - (let* ((def-fun (nth 1 tk)) - (key (nth 0 tk)) - (def-fun-txt (nth 2 tk)) - (where (nth 3 tk)) - (remark (nth 4 tk)) - (rem-fun (command-remapping def-fun)) - (key-txt (key-description key)) - (key-fun (key-binding key)) - tot-len) - (unless (eq def-fun key-fun) - ;; Mark the key in the tutorial text - (unless (string= "Same key" where) - (let ((here (point)) - (case-fold-search nil) - (key-desc (key-description key))) - (cond ((string= "ESC" key-desc) - (setq key-desc "<ESC>")) - ((string= "RET" key-desc) - (setq key-desc "<Return>")) - ((string= "DEL" key-desc) - (setq key-desc "<Delback>"))) - (while (re-search-forward - (concat "[[:space:]]\\(" - (regexp-quote key-desc) - "\\)[[:space:]]") nil t) - (put-text-property (match-beginning 1) - (match-end 1) - 'tutorial-remark 'only-colored) - (put-text-property (match-beginning 1) - (match-end 1) - 'face 'tutorial-warning-face) - (forward-line) - (let ((s (get-lang-string tutorial--lang 'tut-chgdkey)) - (s2 (get-lang-string tutorial--lang 'tut-chgdkey2)) - (start (point)) - end) - (when (and s s2) - (setq s (format s key-desc where s2)) - (insert s) - (insert-button s2 - 'tutorial-buffer - (current-buffer) - ;;'tutorial-arg arg - 'action - 'tutorial--detailed-help - 'explain-key-desc key-desc - 'follow-link t - 'face 'link) - (insert "] **") - (insert "\n") - (setq end (point)) - (put-text-property start end 'local-map tutorial--tab-map) - ;; Add a property so we can remove the remark: - (put-text-property start end 'tutorial-remark t) - (put-text-property start end - 'face 'tutorial-warning-face) - (put-text-property start end 'read-only t)))) - (goto-char here))))))) - - - (setq end (point)) - ;; Make the area with information about change key - ;; bindings stand out: - (put-text-property start end 'tutorial-remark t) - (put-text-property start end - 'face 'tutorial-warning-face) - ;; Make it possible to use Tab/S-Tab between fields in - ;; this area: - (put-text-property start end 'local-map tutorial--tab-map) - (setq tutorial--point-after-chkeys (point-marker)) - ;; Make this area read-only: - (put-text-property start end 'read-only t))))) + (if (boundp 'viper-mode-string) (require 'cus-edit)) + + (if (or changed-keys (boundp 'viper-mode-string)) + (let ((head (get-lang-string tutorial--lang 'tut-chgdhead)) + (head2 (get-lang-string tutorial--lang 'tut-chgdhead2))) + (when (and head head2) + (goto-char tutorial--point-before-chkeys) + (insert head " [") + (insert-button head2 'tutorial-buffer (current-buffer) + 'action 'tutorial--detailed-help + 'follow-link t 'face 'link) + (insert "]\n\n") + (add-text-properties tutorial--point-before-chkeys (point) + '(tutorial-remark remark + face tutorial-warning-face + read-only t))))) + + ;; Scan the tutorial for all key sequences. + (goto-char (point-min)) + (while (re-search-forward keybindings-regexp (point-max) t) + ;; Then highlight each rebound key sequence. + ;; This avoids issuing a warning for, e.g., C-x C-b if C-b is rebound. + (setq changed-key (assoc (match-string 1) changed-keys-alist)) + (and changed-key + (not (get-text-property (match-beginning 1) 'tutorial-remark)) + (let* ((desc (car changed-key)) + (ck (cdr changed-key)) + (key (nth 0 ck)) + (def-fun (nth 1 ck)) + (where (nth 3 ck)) + s1 s2 help-string) + (unless (string= where "Same key") + (setq tutorial--point-after-chkeys (point-marker) + s1 (get-lang-string tutorial--lang 'tut-chgdkey) + s2 (get-lang-string tutorial--lang 'tut-chgdkey2) + help-string (and s1 s2 (format s1 desc where))) + (add-text-properties (match-beginning 1) (match-end 1) + '(face tutorial-warning-face + tutorial-remark key-sequence)) + (if help-string + (if (nth 5 ck) + ;; Put help string in the tooltip. + (put-text-property (match-beginning 1) (match-end 1) + 'help-echo help-string) + ;; Put help string in the buffer. + (save-excursion + (setcar (nthcdr 5 ck) t) + (forward-line) + ;; Two or more changed keys were on the same line. + (while (eq (get-text-property (point) 'tutorial-remark) + 'remark) + (forward-line)) + (setq start (point)) + (insert "** " help-string " [") + (insert-button s2 'tutorial-buffer (current-buffer) + 'action 'tutorial--detailed-help + 'explain-key-desc desc 'follow-link t + 'face 'link) + (insert "] **\n") + (add-text-properties start (point) + '(tutorial-remark remark + rear-nonsticky t + face tutorial-warning-face + read-only t))))))))))) (defun tutorial--saved-dir () - "Directory where to save tutorials." - (expand-file-name ".emacstut" "~/")) + "Directory to which tutorials are saved." + (expand-file-name "tutorial" + (if (eq system-type 'ms-dos) "~/_emacs.d/" "~/.emacs.d/"))) (defun tutorial--saved-file () "File name in which to save tutorials." @@ -711,11 +634,8 @@ CHANGED-KEYS should be a list in the format returned by (unless prop-end (setq prop-end (point-max))) (goto-char prop-end) - (if (eq prop-val 'only-colored) - (put-text-property prop-start prop-end 'face '(:background nil)) - (let ((orig-text (get-text-property prop-start 'tutorial-orig))) - (delete-region prop-start prop-end) - (when orig-text (insert orig-text)))))))) + (unless (eq prop-val 'key-sequence) + (delete-region prop-start prop-end)))))) (defun tutorial--save-tutorial () "Save the tutorial buffer. @@ -724,9 +644,10 @@ showing changed keys. It also saves the point position and the position where the display of changed bindings was inserted." ;; This runs in a hook so protect it: (condition-case err - (tutorial--save-tutorial-to (tutorial--saved-file)) - (error (message "Error saving tutorial state: %s" (error-message-string err)) - (sit-for 4)))) + (if (y-or-n-p "Save your position in the tutorial? ") + (tutorial--save-tutorial-to (tutorial--saved-file))) + (error (message "Error saving tutorial state: %s" + (error-message-string err))))) (defun tutorial--save-tutorial-to (saved-file) "Save the tutorial buffer to SAVED-FILE. @@ -908,13 +829,7 @@ Run the Viper tutorial? ")) (forward-line) (setq tutorial--point-before-chkeys (point-marker))) - - ;; Check if there are key bindings that may disturb the - ;; tutorial. If so tell the user. - (let ((changed-keys (tutorial--find-changed-keys tutorial--default-keys))) - (when changed-keys - (tutorial--display-changes changed-keys))) - + (tutorial--display-changes) ;; Clear message: (unless dont-ask-for-revert @@ -971,22 +886,17 @@ Run the Viper tutorial? ")) ;; are currently only used in the tutorial. (defconst lang-strings - '( - ("English" . - ( - (tut-chgdkey . "** The key %s has been rebound, but you can use %s instead [") - (tut-chgdkey2 . "More information") + '(("English" . + ((tut-chgdkey . "%s has been rebound, but you can use %s instead") + (tut-chgdkey2 . "More") (tut-chgdhead . " NOTICE: The main purpose of the Emacs tutorial is to teach you the most important standard Emacs commands (key bindings). However, your Emacs has been customized by changing some of these basic editing commands, so it doesn't correspond to the tutorial. We have inserted colored notices where the altered - commands have been introduced. [") - (tut-chgdhead2 . "Details") - ) - ) - ) + commands have been introduced.") + (tut-chgdhead2 . "More")))) "Language specific strings for Emacs. This is an association list with the keys equal to the strings that can be returned by `read-language-name'. The elements in diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 6259cf974f1..c4a22bd314e 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -2,6 +2,18 @@ * url-gw.el (url-gateway-nslookup-program): Doc fix. +2006-12-08 Magnus Henoch <mange@freemail.hu> + + * url-proxy.el (url-proxy-object): New variable. + (url-proxy): Bind it instead of `proxy-object'. + + * url-http.el (url-http-create-request): Remove url argument, use + the buffer-local variable `url-http-target-url' instead. Both + callers updated. Simplify proxy handling. + (url-http): Don't make proxy-object buffer local. + + * url.el (url-retrieve-internal): Bind url-proxy-object to nil. + 2006-11-26 Magnus Henoch <mange@freemail.hu> * url-http.el (url-http-wait-for-headers-change-function): Use @@ -1734,9 +1746,14 @@ * Initial checkin of rewritten URL library. -Local variables: -coding: utf-8 -add-log-time-zone-rule: t -End: +;; Local variables: +;; coding: utf-8 +;; add-log-time-zone-rule: t +;; End: + + Copyright (C) 1999, 2001, 2002, 2004, 2005, + 2006 Free Software Foundation, Inc. + Copying and distribution of this file, with or without modification, + are permitted provided the copyright notice and this notice are preserved. ;; arch-tag: ac117078-3091-4533-be93-098162ac2926 diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el index a0fc8af8345..bac6c26cc93 100644 --- a/lisp/vc-arch.el +++ b/lisp/vc-arch.el @@ -406,6 +406,20 @@ Return non-nil if FILE is unchanged." (defun vc-arch-init-version () nil) +;;; Less obvious implementations. + +(defun vc-arch-find-version (file rev buffer) + (let ((out (make-temp-file "vc-out"))) + (unwind-protect + (progn + (with-temp-buffer + (vc-arch-command (current-buffer) 1 nil "file-diffs" file rev) + (call-process-region (point-min) (point-max) + "patch" nil nil nil "-R" "-o" out file)) + (with-current-buffer buffer + (insert-file-contents out))) + (delete-file out)))) + (provide 'vc-arch) ;; arch-tag: a35c7c1c-5237-429d-88ef-3d718fd2e704 diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index b602d79383f..7aae75c8a76 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -625,9 +625,10 @@ the user should be returned; if REGEXP is non-nil that means to return a regexp for matching all such backup files, regardless of the version." (if regexp (concat (regexp-quote (file-name-nondirectory file)) - "\\.~[0-9.]+" (unless manual "\\.") "~") + "\\.~.+" (unless manual "\\.") "~") (expand-file-name (concat (file-name-nondirectory file) - ".~" (or rev (vc-workfile-version file)) + ".~" (subst-char-in-string + ?/ ?_ (or rev (vc-workfile-version file))) (unless manual ".") "~") (file-name-directory file)))) diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index 11c2dcd78f4..85b4be732d1 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el @@ -240,28 +240,28 @@ On Windows and DOS, replace invalid characters. On DOS, make sure to obey the 8.3 limitations. On Windows, turn Cygwin names into native names, and also turn slashes into backslashes if the shell requires it (see `w32-shell-dos-semantics')." - (let ((name - (save-match-data - (if (string-match "\\`/cygdrive/\\([a-zA-Z]\\)/" filename) + (save-match-data + (let ((name + (if (string-match "\\`/cygdrive/\\([a-zA-Z]\\)/" filename) (replace-match "\\1:/" t nil filename) - (copy-sequence filename)))) - (start 0)) - ;; leave ':' if part of drive specifier - (if (and (> (length name) 1) - (eq (aref name 1) ?:)) - (setq start 2)) - ;; destructively replace invalid filename characters with ! - (while (string-match "[?*:<>|\"\000-\037]" name start) - (aset name (match-beginning 0) ?!) - (setq start (match-end 0))) - ;; convert directory separators to Windows format - ;; (but only if the shell in use requires it) - (when (w32-shell-dos-semantics) - (setq start 0) - (while (string-match "/" name start) - (aset name (match-beginning 0) ?\\) - (setq start (match-end 0)))) - name)) + (copy-sequence filename))) + (start 0)) + ;; leave ':' if part of drive specifier + (if (and (> (length name) 1) + (eq (aref name 1) ?:)) + (setq start 2)) + ;; destructively replace invalid filename characters with ! + (while (string-match "[?*:<>|\"\000-\037]" name start) + (aset name (match-beginning 0) ?!) + (setq start (match-end 0))) + ;; convert directory separators to Windows format + ;; (but only if the shell in use requires it) + (when (w32-shell-dos-semantics) + (setq start 0) + (while (string-match "/" name start) + (aset name (match-beginning 0) ?\\) + (setq start (match-end 0)))) + name))) ;;; Fix interface to (X-specific) mouse.el (defun x-set-selection (type data) diff --git a/lisp/woman.el b/lisp/woman.el index e8387584ab7..2d3513f0097 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -2102,6 +2102,18 @@ No external programs are used." (interactive) ; mainly for testing (WoMan-log-begin) (run-hooks 'woman-pre-format-hook) + + ;; look for macro sets that woman cannot handle: + (goto-char (point-min)) + (let ((case-fold-search nil)) + (unless (and (re-search-forward "^\\.SH[ \n]" (point-max) t) + (progn (goto-char (point-min)) + (re-search-forward "^\\.TH[ \n]" (point-max) t)) + (progn (goto-char (point-min)) + (not (re-search-forward "^\\.\\([pnil]p\\|sh\\)[ \n]" + (point-max) t)))) + (error "WoMan can only format manpages written in the an format"))) + (and (boundp 'font-lock-mode) font-lock-mode (font-lock-mode -1)) ;; (fundamental-mode) (let ((start-time (current-time)) ; (HIGH LOW MICROSEC) |