diff options
Diffstat (limited to 'lisp')
34 files changed, 3174 insertions, 1709 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d8bb1c89f1f..bfe2dfb6f2e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,310 @@ +2014-12-28 Juri Linkov <juri@linkov.net> + + * vc/compare-w.el: Require diff-mode for diff faces. + (compare-windows-removed, compare-windows-added): New faces + inheriting from diff faces. + (compare-windows): Define obsolete face alias. + (compare-windows-highlight): Replace face `compare-windows' with + new faces `compare-windows-added' and `compare-windows-removed' + (bug#19451). + (compare-windows-get-recent-window): Signal an error when + no other window is found (bug#19170). + +2014-12-27 Dmitry Gutov <dgutov@yandex.ru> + + * progmodes/elisp-mode.el (elisp--xref-identifier-file): + Skip features that have no sources. + + * simple.el (execute-extended-command): + When `suggest-key-bindings' is nil, don't. + +2014-12-27 Fabián Ezequiel Gallina <fgallina@gnu.org> + + python.el: Native readline completion. + + * progmodes/python.el (python-shell-completion-native-disabled-interpreters) + (python-shell-completion-native-enable) + (python-shell-completion-native-output-timeout): New defcustoms. + (python-shell-completion-native-interpreter-disabled-p) + (python-shell-completion-native-try) + (python-shell-completion-native-setup) + (python-shell-completion-native-turn-off) + (python-shell-completion-native-turn-on) + (python-shell-completion-native-turn-on-maybe) + (python-shell-completion-native-turn-on-maybe-with-msg) + (python-shell-completion-native-toggle): New functions. + (python-shell-completion-native-get-completions): New function. + (python-shell-completion-at-point): Use it. + +2014-12-27 Fabián Ezequiel Gallina <fgallina@gnu.org> + + python.el: Enhance shell user interaction and deprecate + python-shell-get-or-create-process. + + * progmodes/python.el + (python-shell-get-process-or-error): New function. + (python-shell-with-shell-buffer): Use it. + (python-shell-send-string, python-shell-send-region) + (python-shell-send-buffer, python-shell-send-defun) + (python-shell-send-file, python-shell-switch-to-shell): Use it. + Add argument MSG to display user-friendly message when no process + is running. + (python-shell-switch-to-shell): Call pop-to-buffer with NORECORD. + (python-shell-make-comint): Rename argument SHOW from POP. Use + display-buffer instead of pop-to-buffer. + (run-python): Doc fix. Return process. + (python-shell-get-or-create-process): Make obsolete. + +2014-12-27 Fabián Ezequiel Gallina <fgallina@gnu.org> + + * progmodes/python.el (python-shell-buffer-substring): Handle + cornercase when region sent starts at point-min. + +2014-12-27 Eli Zaretskii <eliz@gnu.org> + + * language/misc-lang.el (composition-function-table): Add Syriac + characters and also ZWJ/ZWNJ. See + http://lists.gnu.org/archive/html/help-gnu-emacs/2014-12/msg00248.html + for the details. + +2014-12-27 Fabián Ezequiel Gallina <fgallina@gnu.org> + + python.el: Fix message when sending region. + + * progmodes/python.el (python-shell-send-region): Rename argument + send-main from nomain. Fix message. + (python-shell-send-buffer): Rename argument send-main from arg. + +2014-12-27 Fabián Ezequiel Gallina <fgallina@gnu.org> + + python.el: Cleanup temp files even with eval errors. + + * progmodes/python.el (python-shell-send-file): Make file-name + mandatory. Fix temp file removal in the majority of cases. + +2014-12-27 Fabián Ezequiel Gallina <fgallina@gnu.org> + + python.el: Handle file encoding for shell. + + * progmodes/python.el (python-rx-constituents): Add coding-cookie. + (python-shell--save-temp-file): Write file with proper encoding. + (python-shell-buffer-substring): Add coding cookie for detected + encoding to generated content. Fix blank lines when removing + if-name-main block. + (python-shell-send-file): Handle file encoding. + (python-info-encoding-from-cookie) + (python-info-encoding): New functions. + +2014-12-27 Michael Albinus <michael.albinus@gmx.de> + + * net/tramp-sh.el (tramp-do-copy-or-rename-file-out-of-band): + Use `tramp-rsh-end-of-line', it ought to be more robust. + +2014-12-27 Stefan Monnier <monnier@iro.umontreal.ca> + + * progmodes/js.el (js-syntax-propertize): "return" can't be divided + (bug#19397). + +2014-12-27 Michael Albinus <michael.albinus@gmx.de> + + * net/tramp.el (tramp-read-passwd): Ignore errors from `auth-source-*'. + + * net/tramp-sh.el (tramp-do-copy-or-rename-file-out-of-band): Use "\n" + as end-of-line delimeter for passwords, when running on MS Windows. + +2014-12-27 Stefan Monnier <monnier@iro.umontreal.ca> + + * progmodes/sh-script.el (sh-set-shell): Don't change the global value + of indent-line-function (bug#19433). + +2014-12-27 Fabián Ezequiel Gallina <fgallina@gnu.org> + + Fix line numbers on Python shell. + * progmodes/python.el (python-shell--save-temp-file): Do not + append coding cookie. + (python-shell-send-string): Generalize for + python-shell-send-region. + (python--use-fake-loc): Delete var. + (python-shell-buffer-substring): Cleanup fake-loc logic. + (python-shell-send-region): Remove fake-loc logic, simplify. + +2014-12-27 Fabián Ezequiel Gallina <fgallina@gnu.org> + + * progmodes/python.el (python-indent-post-self-insert-function): + Make colon to re-indent only for dedenters, handling + multiline-statements gracefully. + +2014-12-27 Michael Albinus <michael.albinus@gmx.de> + + * net/tramp.el (tramp-handle-insert-file-contents): + Set `find-file-not-found-functions' in case of errors. (Bug#18623) + +2014-12-27 Michael Albinus <michael.albinus@gmx.de> + + * net/tramp-sh.el (tramp-send-command-and-read): New optional + arg MARKER. + (tramp-get-remote-path): Use it. + +2014-12-27 Stefan Monnier <monnier@iro.umontreal.ca> + + * lisp/subr.el (redisplay-dont-pause): Mark as obsolete. + +2014-12-27 Michael Albinus <michael.albinus@gmx.de> + + * net/tramp.el (tramp-error-with-buffer): Call `message' properly. + (tramp-accept-process-output): Use nil as argument for + `accept-process-output', when there is a gateway prepended. + + * net/tramp-gw.el (tramp-gw-open-connection): Suppress traces in + wrong debug buffer. + (tramp-gw-open-connection): Set process coding system 'binary. + (tramp-gw-open-network-stream): Handle HTTP error 403. + + * net/tramp-sh.el (tramp-compute-multi-hops): Suppress traces in + wrong debug buffer. + (tramp-maybe-open-connection): Set connection property "gateway". + +2014-12-27 Stefan Monnier <monnier@iro.umontreal.ca> + + * subr.el (sit-for): Tweak docstring (bug#19381). + +2014-12-27 Dmitry Gutov <dgutov@yandex.ru> + + * vc/vc-git.el (vc-git-after-dir-status-stage): Move `up-to-date' + stage to after `diff-index' (bug#19386). + +2014-12-27 João Távora <joaotavora@gmail.com> + + * textmodes/tex-mode.el (tex-insert-quote): Consider and respect + `electric-pair-mode' (bug#19356). + +2014-12-27 Dmitry Gutov <dgutov@yandex.ru> + + elisp-xref-find: Don't create buffers eagerly. + + * progmodes/elisp-mode.el (elisp--identifier-location): Fold back + into `elisp--company-location'. + (elisp--identifier-completion-table): Rename to + `elisp--identifier-completion-table', and do not include just any + symbols with a property list. + (elisp-completion-at-point): Revert the 2014-12-25 change. + (elisp--xref-identifier-file): New function. + (elisp--xref-find-definitions): Use it. + + * emacs-lisp/find-func.el (find-function-library): New function, + extracted from `find-function-noselect'. + + * progmodes/xref.el (xref-elisp-location): New class. + (xref-make-elisp-location): New function. + (xref-location-marker): New implementation. + +2014-12-27 Juri Linkov <juri@linkov.net> + + * minibuffer.el (minibuffer-completion-help): + Use shrink-window-if-larger-than-buffer in window-height + when temp-buffer-resize-mode is nil. + + * window.el (with-displayed-buffer-window): Remove window-height + from the action alist in the temp-buffer-window-show call + when window-height is handled explicitly afterwards (bug#19355). + +2014-12-27 Juri Linkov <juri@linkov.net> + + Support subdirectories when saving places in dired. + * saveplace.el (toggle-save-place, save-place-to-alist) + (save-places-to-alist, save-place-dired-hook): + Use dired-current-directory instead of dired-directory (bug#19436). + (save-place-dired-hook): Add check for alist to make the new + format future-proof to allow other possible formats. + +2014-12-26 Fabián Ezequiel Gallina <fgallina@gnu.org> + + python.el: Generate clearer shell buffer names. + + * progmodes/python.el (python-shell-get-process-name) + (python-shell-internal-get-process-name): Use `buffer-name`. + (python-shell-internal-get-or-create-process): Simplify. + +2014-12-26 Dmitry Gutov <dgutov@yandex.ru> + + Add basic xref apropos implementation to elisp-mode. + + * progmodes/elisp-mode.el (elisp--xref-find-definitions): + Filter out nil results. + (elisp--xref-find-apropos): New function. + (elisp-xref-find): Use it. + + * progmodes/xref.el (xref--show-xrefs): Use `user-error'. + +2014-12-25 Filipp Gunbin <fgunbin@fastmail.fm> + + * dired-aux.el (dired-maybe-insert-subdir): Make + dired-maybe-insert-subdir always skip trivial files. + +2014-12-25 Helmut Eller <eller.helmut@gmail.com> + Dmitry Gutov <dgutov@yandex.ru> + + Consolidate cross-referencing commands. + + Move autoloaded bindings for `M-.', `M-,', `C-x 4 .' and + `C-x 5 .' from etags.el to xref.el. + + * progmodes/xref.el: New file. + + * progmodes/elisp-mode.el (elisp--identifier-types): New variable. + (elisp--identifier-location): New function, extracted from + `elisp--company-location'. + (elisp--company-location): Use it. + (elisp--identifier-completion-table): New variable. + (elisp-completion-at-point): Use it. + (emacs-lisp-mode): Set the local values of `xref-find-function' + and `xref-identifier-completion-table-function'. + (elisp-xref-find, elisp--xref-find-definitions) + (elisp--xref-identifier-completion-table): New functions. + + * progmodes/etags.el (find-tag-marker-ring): Mark obsolete in + favor of `xref--marker-ring'. + (tags-lazy-completion-table): Autoload. + (tags-reset-tags-tables): Use `xref-clear-marker-stack'. + (find-tag-noselect): Use `xref-push-marker-stack'. + (pop-tag-mark): Make an alias for `xref-pop-marker-stack'. + (etags--xref-limit): New constant. + (etags-xref-find, etags--xref-find-definitions): New functions. + +2014-12-25 Martin Rudalics <rudalics@gmx.at> + + * cus-start.el (resize-mini-windows): Make it customizable. + +2014-12-24 Stephen Leake <stephen_leake@stephe-leake.org> + + * startup.el (fancy-about-text): Change buttons for etc/CONTRIBUTE + to (info "(emacs)Contributing"). (Bug#19299) + +2014-12-24 Martin Rudalics <rudalics@gmx.at> + + * window.el (mouse-autoselect-window-position-1): New variable. + (mouse-autoselect-window-cancel) + (mouse-autoselect-window-select, handle-select-window): With + delayed autoselection select window only if mouse moves after + selecting its frame. + +2014-12-24 Michael Albinus <michael.albinus@gmx.de> + + * eshell/esh-ext.el (eshell-find-interpreter): Expand relative + remote file names. (Bug#18782) + +2014-12-23 Sam Steingold <sds@gnu.org> + + * shell.el (shell-display-buffer-actions): New user option. + (shell): Pass it to `pop-to-buffer' instead of hard-coding + `pop-to-buffer-same-window'. + +2014-12-23 Stefan Monnier <monnier@iro.umontreal.ca> + + * progmodes/js.el (js--syntax-propertize-regexp-syntax-table): New var. + (js-syntax-propertize-regexp): Use it to recognize "slash in + a character class" (bug#19397). + 2014-12-22 Stefan Monnier <monnier@iro.umontreal.ca> * completion.el: Use post-self-insert-hook (bug#19400). @@ -35,24 +342,21 @@ 2014-12-19 Alan Mackenzie <acm@muc.de> - Make C++11 uniform init syntax work. New keywords "final" and "override" - + Make C++11 uniform init syntax work. + New keywords "final" and "override" * progmodes/cc-engine.el (c-back-over-member-initializer-braces): New function. (c-guess-basic-syntax): Set `containing-sex' and `lim' using the new function. - * progmodes/cc-fonts.el (c-font-lock-declarations): Check more carefully for "are we at a declarator?" using c-back-over-member-initializers. - - * progmodes/cc-langs.el (c-type-modifier-kwds): include "final" + * progmodes/cc-langs.el (c-type-modifier-kwds): Include "final" and "override" in the C++ value. 2014-12-19 Martin Rudalics <rudalics@gmx.at> - * textmodes/ispell.el (ispell-command-loop): Don't use - `next-window'. + * textmodes/ispell.el (ispell-command-loop): Don't use `next-window'. 2014-12-21 Lars Ingebrigtsen <larsi@gnus.org> @@ -132,7 +436,7 @@ do the window handling. (ispell-adjusted-window-height, ispell-overlay-window): Remove. (ispell-display-buffer): New function to reuse, create and fit - window to ispell's buffers. (Bug#3413) + window to ispell's buffers. (Bug#3413) 2014-12-18 Dmitry Gutov <dgutov@yandex.ru> @@ -256,6 +560,13 @@ * vc/vc-bzr.el (vc-bzr-diff): * obsolete/vc-arch.el (vc-arch-diff): Move ASYNC argument to the end. +2014-12-14 Paul Eggert <eggert@cs.ucla.edu> + + * emacs-lisp/cconv.el (cconv--analyze-use): + Rename from cconv--analyse-use. + (cconv--analyze-function): Rename from cconv--analyse-function. + (cconv-analyze-form): Rename from cconv-analyse-form. + 2014-12-13 Andreas Schwab <schwab@linux-m68k.org> * net/shr.el (shr-next-link): Don't error out at eob. @@ -322,12 +633,12 @@ 2014-12-12 Eric S. Raymond <esr@snark.thyrsus.com> - * vc/vc-dav.el, vc/vc-git.el, vc/vc-hg.el, vc/vc-src.el, - vc/vc.el: latest-on-branch-p is no longer a public method. + * vc/vc-dav.el, vc/vc-git.el, vc/vc-hg.el, vc/vc-src.el: + * vc/vc.el: latest-on-branch-p is no longer a public method. - * vc/vc.el, vc/vc-hg.el, vc/vc-git.el, vc/vc-hooks.el, - vc/vc-mtn.el, vc/vc-rcs.el, vc/vc-sccs.el, vc/vc-src.el: Remove `rollback' - method, to be replaced in the future by uncommit. + * vc/vc.el, vc/vc-hg.el, vc/vc-git.el, vc/vc-hooks.el: + * vc/vc-mtn.el, vc/vc-rcs.el, vc/vc-sccs.el, vc/vc-src.el: + Remove `rollback' method, to be replaced in the future by uncommit. 2014-12-11 Michael Albinus <michael.albinus@gmx.de> @@ -345,10 +656,9 @@ 2014-12-10 Eric S. Raymond <esr@snark.thyrsus.com> - * vc/vc-dispatcher.el, vc/vc-hooks.el, vc/vc-rcs.el, - vc/vc-sccs.el, vc/vc.el: Righteous featurectomy of - vc-keep-workfiles, it's a shoot-self-in-foot archaism. - Workfiles are always kept. + * vc/vc-dispatcher.el, vc/vc-hooks.el, vc/vc-rcs.el: + * vc/vc-sccs.el, vc/vc.el: Righteous featurectomy of vc-keep-workfiles, + it's a shoot-self-in-foot archaism. Workfiles are always kept. 2014-12-10 Rasmus Pank Roulund <emacs@pank.eu> @@ -379,7 +689,7 @@ 2014-12-09 Eric S. Raymond <esr@snark.thyrsus.com> * vc/vc-src.el (vc-src-do-comand): Prepend -- to file argument - list, avoids problems witth names containing hyphens. + list, avoids problems witt names containing hyphens. 2014-12-09 Wilson Snyder <wsnyder@wsnyder.org> @@ -499,7 +809,7 @@ 2014-12-08 Eric S. Raymond <esr@snark.thyrsus.com> - * vc/vc-arch.el: Moved to obsolete directory so a test framework + * vc/vc-arch.el: Move to obsolete directory so a test framework won't trip over bit-rot in it. There has been no Arch snapshot for nine years. @@ -706,13 +1016,13 @@ 2014-12-02 Eric S. Raymond <esr@snark.thyrsus.com> - * subr.el (filter): New macro. Because it's just silly for a Lisp + * subr.el (filter): New macro. Because it's just silly for a Lisp not to have this in 2014. And VC needs it. - * vc.el, all backends: API simplification: Abolish dir-status. + * vc.el: All backends: API simplification: Abolish dir-status. It's replaced by dir-status-files. - * vc.el, all backends: API simplification: Remove 4th + * vc.el: All backends: API simplification: Remove 4th 'default-state' argument from vc-dir-status files and its backend methods - no backend method ever set it. It was used only in the fallback method to to set a default of 'up-to-date, though a @@ -723,17 +1033,17 @@ * vc.el (vc-expand-dirs): Now takes a second BACKEND argument, improving behavior on directories using multiple file-oriented VCSes. - * vc/vc.el and all backends: API simplification; clear-headers + * vc/vc.el: All backends: API simplification; clear-headers is no longer a public method. It is now local to the one place it's used, in the RCS steal-lock method. 2014-12-01 Eric S. Raymond <esr@snark.thyrsus.com> - * vc/vc.el and all backends: API simplification; could-register + * vc/vc.el: In all backends: API simplification; could-register is no longer a public method. (vc-cvs.el still has a private implementation.) - * vc/vc.el and all backends: API cleanup; the backend diff method + * vc/vc.el: In all backends: API cleanup; the backend diff method takes an explicit async flag. This eliminates a particularly ugly global. @@ -848,11 +1158,11 @@ the back ends; this fixes a layering violation that caused bad behavior with SVN. - * vc/vc.el, vc-hooks.el, and all backends: API simplification; + * vc/vc.el, vc-hooks.el: All backends: API simplification; vc-stay-local-p and repository-hostname are no longer public methods. Only the CVS and SVN backends used these, and the SVN support was conditioned out because svn status -v is too slow. - The CVS back end retains this machibery and the vc-stay-local + The CVS back end retains this machinery and the vc-stay-local configuration variable now only affects it. 2014-12-01 Stefan Monnier <monnier@iro.umontreal.ca> @@ -861,26 +1171,26 @@ 2014-12-01 Eric S. Raymond <esr@snark.thyrsus.com> - * vc/vc.el, vc-hooks.el, and all backends: API simplification; + * vc/vc.el, vc-hooks.el: All backends: API simplification; vc-state-heuristic is no longer a public method, having been removed where it is redundant, unnecessary, or known buggy. This eliminated all backends except CVS. Eliminates bug#7850. * vc/vc-cvs.el, vc/vc-hooks.el, vc/vc-rcs.el, vc/vc-sccs.el: Eliminate vc-mistrust-permissions. It was only relevant to the - RCS and SCCS back ends and defaulted to t. Code now always + RCS and SCCS back ends and defaulted to t. Code now always mistrusts permissions - by actual measurement the effect on - performance is negligible. As a side effect bug#11490 is now + performance is negligible. As a side effect bug#11490 is now irrelevant. - * vc/vc.el, vc-hooks.el, and all backends: API simplification; + * vc/vc.el, vc-hooks.el: All backends: API simplification; vc-workfile-unchanged-p is no longer a public method (but the RCS and SCCS back ends retain it as a private method used in state - computation). This method was redundant with vc-state and usually - implemented as a trivial call to same. Fixes the failure mode + computation). This method was redundant with vc-state and usually + implemented as a trivial call to same. Fixes the failure mode described in bug#694. - * vc/vc.el and all backends: API simplification; init-revision is + * vc/vc.el: All backends: API simplification; init-revision is gone, and vc-registered functions no longer take an initial-revision argument. @@ -1040,7 +1350,7 @@ string. (newsticker--treeview-load): Change wording of the questions the user is asked when `newsticker-groups-filename' is found to be - used and we offer to read and remove the groups file. (bug#19165) + used and we offer to read and remove the groups file. (Bug#19165) 2014-11-27 Lars Magne Ingebrigtsen <larsi@gnus.org> @@ -1245,7 +1555,7 @@ 2014-11-22 Ulf Jasper <ulf.jasper@web.de> * net/newst-backend.el (newsticker--sentinel-work): - Tell `libxml-parse-xml-region' to discard comments. Fixes bug#18787. + Tell `libxml-parse-xml-region' to discard comments. Fixes bug#18787. 2014-11-22 Michael Albinus <michael.albinus@gmx.de> @@ -1262,7 +1572,7 @@ live in vc.el and certainly not in vc-hooks.el. * vc/vc-hooks.el, vc-rcs.el, vc-sccs.el: vc-name -> vc-master-name. - This is preaparatory to isolating all the 'master' functions + This is preparatory to isolating all the 'master' functions used only by the file-oriented back ends. With this done first, the substantive diffs will be easier to read. @@ -1611,7 +1921,7 @@ 2014-11-16 Oscar Fuentes <ofv@wanadoo.es> Add faces for the VC modeline state indicator. - * lisp/vc/vc-hooks.el: + * vc/vc-hooks.el: (vc-state-faces, vc-state-base-face) (vc-up-to-date-state, vc-needs-update-state) (vc-locked-state, vc-locally-added-state) @@ -2305,9 +2615,9 @@ * ses.el (macroexp): Add require for this package, so that function `ses--cell gets macroexp-quote. (ses--cell): Makes formula a macroexp-quote of value when formula - is nil. The rationale of this changr is to allow in the future + is nil. The rationale of this changr is to allow in the future shorter SES files, e.g. we could have only `(ses-cell A1 1.0)' - instead of `(ses-cell A1 1.0 1.0 nil REFLIST)'. In such a case + instead of `(ses-cell A1 1.0 1.0 nil REFLIST)'. In such a case reference list REFLIST would be re-computed after load --- thus trading off load time against file size. @@ -3312,7 +3622,7 @@ HTML code has become part of the xml parse tree. (newsticker--parse-rss-1.0, newsticker--parse-rss-2.0): Take care of possibly missing namespace prefixes. - (newsticker--parse-generic-items): Code formatting. Typo. + (newsticker--parse-generic-items): Code formatting. Typo. (newsticker--images-dir): Add trailing slash. (newsticker--image-get): Fix error message. @@ -3477,7 +3787,7 @@ * vc/add-log.el (change-log-next-buffer): Don't create an empty buffer "ChangeLog" when the current buffer doesn't match ChangeLog.[0-9]. Return the current buffer if no files match the default pattern - ChangeLog.[0-9]. Signal "end of multi" when file is nil. (Bug#18547) + ChangeLog.[0-9]. Signal "end of multi" when file is nil. (Bug#18547) 2014-09-25 Stefan Monnier <monnier@iro.umontreal.ca> @@ -3615,7 +3925,7 @@ * textmodes/reftex-sel.el (reftex-select-label-mode) (reftex-select-bib-mode, reftex-insert-docstruct): Derive modes from special-mode (instead of fundamental-mode) and propertize - with font-lock-face instead of just face. (Bug#18496) + with font-lock-face instead of just face. (Bug#18496) * textmodes/reftex-toc.el (reftex-toc-mode, reftex-toc): Ditto. @@ -4009,7 +4319,7 @@ of local overrides. (ibuffer): Don't store previous windows configuration. Let `quit-window' handle restoring. - (ibuffer-quit): Remove function. Use `quit-window' instead. + (ibuffer-quit): Remove function. Use `quit-window' instead. (ibuffer-restore-window-config-on-quit): Remove variable. (ibuffer-prev-window-config): Remove variable. @@ -4263,10 +4573,10 @@ 2014-08-11 Ulf Jasper <ulf.jasper@web.de> - Newsticker: introduce `newsticker-treeview-date-format'. (Bug#17227) - + Newsticker: introduce `newsticker-treeview-date-format'. (Bug#17227) * net/newst-treeview.el (newsticker-treeview-date-format): New. - (newsticker--treeview-list-add-item): Use `newsticker-treeview-date-format'. + (newsticker--treeview-list-add-item): + Use `newsticker-treeview-date-format'. 2014-08-11 Glenn Morris <rgm@gnu.org> @@ -4475,7 +4785,7 @@ 2014-07-30 Christophe Deleuze <christophe.deleuze@free.fr> (tiny change) * calendar/icalendar.el (icalendar--decode-isodatetime): - Use actual current-time-zone when converting to local time. (Bug#15408) + Use actual current-time-zone when converting to local time. (Bug#15408) 2014-07-29 Martin Rudalics <rudalics@gmx.at> @@ -4567,12 +4877,6 @@ 2014-07-28 Fabián Ezequiel Gallina <fgallina@gnu.org> - Prevent Python process shell buffer to pop twice. - * progmodes/python.el (python-shell-switch-to-shell): Do not call - pop-to-buffer. - -2014-07-28 Fabián Ezequiel Gallina <fgallina@gnu.org> - * progmodes/python.el (python-shell-with-shell-buffer): New macro. (python-shell-font-lock-get-or-create-buffer) @@ -4864,7 +5168,7 @@ 2014-07-12 Fabián Ezequiel Gallina <fgallina@gnu.org> - Fix dedenters and electric colon handling. (Bug#15163) + Fix dedenters and electric colon handling. (Bug#15163) * progmodes/python.el (python-rx-constituents): Add dedenter and block-ender. (python-indent-dedenters, python-indent-block-enders): Delete. @@ -5112,7 +5416,7 @@ * progmodes/python.el (python-indent-post-self-insert-function): Enhancements to electric indentation behavior inside - parens. (Bug#17658) + parens. (Bug#17658) 2014-07-03 Stefan Monnier <monnier@iro.umontreal.ca> @@ -5903,7 +6207,7 @@ * help.el (help--key-binding-keymap): New function. (help--binding-locus): New function. (describe-key): Mention the keymap in which the binding was - found. (bug#13948) + found. (bug#13948) 2014-06-12 Stefan Monnier <monnier@iro.umontreal.ca> @@ -6584,7 +6888,7 @@ 2014-05-24 Daniel Colascione <dancol@dancol.org> * progmodes/subword.el (subword-find-word-boundary): Move point to - correct spot before search. (Bug#17580) + correct spot before search. (Bug#17580) * emacs-lisp/nadvice.el (defun): Write in eval-and-compile to avoid breaking the build. @@ -6613,7 +6917,7 @@ mksh. Improve custom spec; allow regular expressions. (sh-shell): Delegate name splitting to `sh-canonicalize-shell'. (sh-after-hack-local-variables): New function. - (sh-mode): Use it; respect file-local `sh-shell' variable. (bug#17333) + (sh-mode): Use it; respect file-local `sh-shell' variable. (Bug#17333) (sh-set-shell): Use `sh-canonicalize-shell' instead of open-coding the normalization. (sh-canonicalize-shell): Rewrite to support regexes. @@ -7601,7 +7905,7 @@ 2014-04-07 João Távora <joaotavora@gmail.com> Fix `electric-pair-delete-adjacent-pairs' in modes binding - backspace. (bug#16981) + backspace. (Bug#16981) * elec-pair.el (electric-pair-backward-delete-char): Delete. (electric-pair-backward-delete-char-untabify): Delete. (electric-pair-mode-map): Bind backspace to a menu item filtering diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index a43e94c5686..0c9158dffe2 100644 --- a/lisp/cedet/ChangeLog +++ b/lisp/cedet/ChangeLog @@ -17,6 +17,11 @@ (semantic-analyze-nolongprefix-completion-at-point-function): Do nothing if the current buffer is not using Semantic (bug#19077). +2014-12-14 Paul Eggert <eggert@cs.ucla.edu> + + * semantic/lex-spp.el (semantic-lex-spp-analyzer-do-replace): + Rename from semantic-lex-spp-anlyzer-do-replace. + 2014-12-08 Matt Curtis <matt.r.curtis@gmail.com> (tiny change) * pulse.el (pulse-momentary-highlight-one-line): Respect the POINT @@ -215,7 +220,7 @@ (ede-project-autoload): Remove dirmatch entry - it is no longer needed. - * lisp/cedet/ede/proj.el (project-rescan): Replace direct + * ede/proj.el (project-rescan): Replace direct manipulation of `ede-projects' with equivalent and better functions. (ede-proj-load): Replace call to test if dir has project to @@ -267,11 +272,10 @@ 2014-11-09 David Engster <dengste@eml.cc> - * lisp/cedet/ede/proj-elisp.el - (ede-proj-target-elisp::ede-proj-tweak-autoconf): Kill buffer - after saving modified elisp-comp script, as to avoid "file has - changed on disk; really edit the buffer" questions when script - gets rewritten. + * ede/proj-elisp.el (ede-proj-target-elisp::ede-proj-tweak-autoconf): + Kill buffer after saving modified elisp-comp script, so as to avoid + "file has changed on disk; really edit the buffer" questions when + script gets rewritten. 2014-10-29 Paul Eggert <eggert@cs.ucla.edu> diff --git a/lisp/cus-start.el b/lisp/cus-start.el index 4049974841e..5394a1c3744 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -520,7 +520,12 @@ since it could result in memory overflow and make Emacs crash." (const :tag "Hourglass" :value hourglass))) (display-hourglass cursor boolean) (hourglass-delay cursor number) - + (resize-mini-windows + windows (choice + (const :tag "Off (nil)" :value nil) + (const :tag "Fit (t)" :value t) + (const :tag "Grow only" :value grow-only)) + "25.1") ;; xfaces.c (scalable-fonts-allowed display boolean "22.1") ;; xfns.c diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index bb93cce6500..acc7e767d69 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -2062,7 +2062,10 @@ See Info node `(emacs)Subdir switches' for more details." ;; inserted *after* opoint. (setq dirname (file-name-as-directory dirname)) (or (and (not switches) - (dired-goto-subdir dirname)) + (when (dired-goto-subdir dirname) + (unless (dired-subdir-hidden-p dirname) + (dired-initial-position dirname)) + t)) (dired-insert-subdir dirname switches no-error-if-not-dir-p)) ;; Push mark so that it's easy to find back. Do this after the ;; insert message so that the user sees the `Mark set' message. diff --git a/lisp/dired.el b/lisp/dired.el index 909ba22985a..7f7251f29ce 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -3884,7 +3884,7 @@ Ask means pop up a menu for the user to select one of copy, move or link." ;;; Start of automatically extracted autoloads. -;;;### (autoloads nil "dired-aux" "dired-aux.el" "1448837b5f3e2b9ad63f723361f1e32e") +;;;### (autoloads nil "dired-aux" "dired-aux.el" "73269f48e7fe2fd0ac580fd69252b33a") ;;; Generated autoloads from dired-aux.el (autoload 'dired-diff "dired-aux" "\ diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index c372117b104..e1586a96716 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -311,6 +311,39 @@ The search is done in the source for library LIBRARY." (cons (current-buffer) (point))) (cons (current-buffer) nil)))))))) +(defun find-function-library (function &optional lisp-only verbose) + "Return the library FUNCTION is defined in. + +If FUNCTION is a built-in function and LISP-ONLY is non-nil, +signal an error. + +If VERBOSE is non-nil, and FUNCTION is an alias, display a +message about the whole chain of aliases." + (let ((def (symbol-function (find-function-advised-original function))) + aliases) + ;; FIXME for completeness, it might be nice to print something like: + ;; foo (which is advised), which is an alias for bar (which is advised). + (while (symbolp def) + (or (eq def function) + (not verbose) + (if aliases + (setq aliases (concat aliases + (format ", which is an alias for `%s'" + (symbol-name def)))) + (setq aliases (format "`%s' is an alias for `%s'" + function (symbol-name def))))) + (setq function (symbol-function (find-function-advised-original function)) + def (symbol-function (find-function-advised-original function)))) + (if aliases + (message "%s" aliases)) + (cond + ((autoloadp def) (nth 1 def)) + ((subrp def) + (if lisp-only + (error "%s is a built-in function" function)) + (help-C-file-name def 'subr)) + ((symbol-file function 'defun))))) + ;;;###autoload (defun find-function-noselect (function &optional lisp-only) "Return a pair (BUFFER . POINT) pointing to the definition of FUNCTION. @@ -329,30 +362,8 @@ searched for in `find-function-source-path' if non-nil, otherwise in `load-path'." (if (not function) (error "You didn't specify a function")) - (let ((def (symbol-function (find-function-advised-original function))) - aliases) - ;; FIXME for completeness, it might be nice to print something like: - ;; foo (which is advised), which is an alias for bar (which is advised). - (while (symbolp def) - (or (eq def function) - (if aliases - (setq aliases (concat aliases - (format ", which is an alias for `%s'" - (symbol-name def)))) - (setq aliases (format "`%s' is an alias for `%s'" - function (symbol-name def))))) - (setq function (symbol-function (find-function-advised-original function)) - def (symbol-function (find-function-advised-original function)))) - (if aliases - (message "%s" aliases)) - (let ((library - (cond ((autoloadp def) (nth 1 def)) - ((subrp def) - (if lisp-only - (error "%s is a built-in function" function)) - (help-C-file-name def 'subr)) - ((symbol-file function 'defun))))) - (find-function-search-for-symbol function nil library)))) + (let ((library (find-function-library function lisp-only t))) + (find-function-search-for-symbol function nil library))) (defun find-function-read (&optional type) "Read and return an interned symbol, defaulting to the one near point. diff --git a/lisp/eshell/esh-ext.el b/lisp/eshell/esh-ext.el index 2654bf21e6a..d7fea47601c 100644 --- a/lisp/eshell/esh-ext.el +++ b/lisp/eshell/esh-ext.el @@ -296,6 +296,11 @@ line of the form #!<interp>." (let ((fullname (if (file-name-directory file) file (eshell-search-path file))) (suffixes eshell-binary-suffixes)) + (if (and fullname + (not (file-remote-p fullname)) + (file-remote-p default-directory)) + (setq fullname (expand-file-name + (concat "./" fullname) default-directory))) (if (and fullname (not (or eshell-force-execution (file-executable-p fullname)))) (while suffixes diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el index ee06e34eef4..b56d31f6e16 100644 --- a/lisp/language/misc-lang.el +++ b/lisp/language/misc-lang.el @@ -78,7 +78,8 @@ and Italian."))) (set-char-table-range composition-function-table '(#x600 . #x6FF) - (list ["[\u0600-\u06FF]+" 0 font-shape-gstring])) + (list ["\u200D?[\u0600-\u074F]+[\u200D\u200C]*[\u0600-\u074F]+\u200D?" + 0 font-shape-gstring])) (provide 'misc-lang) diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index 41579222295..92933b6a2e1 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el @@ -3,7 +3,7 @@ ;;; Code: -;;;### (autoloads nil "5x5" "play/5x5.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "5x5" "play/5x5.el" (21604 48550 301934 225000)) ;;; Generated autoloads from play/5x5.el (autoload '5x5 "5x5" "\ @@ -65,8 +65,8 @@ should return a grid vector array that is the new solution. ;;;*** -;;;### (autoloads nil "ada-mode" "progmodes/ada-mode.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "ada-mode" "progmodes/ada-mode.el" (21604 48550 +;;;;;; 313934 225000)) ;;; Generated autoloads from progmodes/ada-mode.el (autoload 'ada-add-extensions "ada-mode" "\ @@ -85,8 +85,8 @@ Ada mode is the major mode for editing Ada code. ;;;*** -;;;### (autoloads nil "ada-stmt" "progmodes/ada-stmt.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "ada-stmt" "progmodes/ada-stmt.el" (21604 48550 +;;;;;; 313934 225000)) ;;; Generated autoloads from progmodes/ada-stmt.el (autoload 'ada-header "ada-stmt" "\ @@ -96,8 +96,8 @@ Insert a descriptive header at the top of the file. ;;;*** -;;;### (autoloads nil "ada-xref" "progmodes/ada-xref.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "ada-xref" "progmodes/ada-xref.el" (21604 48550 +;;;;;; 313934 225000)) ;;; Generated autoloads from progmodes/ada-xref.el (autoload 'ada-find-file "ada-xref" "\ @@ -108,8 +108,8 @@ Completion is available. ;;;*** -;;;### (autoloads nil "add-log" "vc/add-log.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "add-log" "vc/add-log.el" (21604 48550 421934 +;;;;;; 229000)) ;;; Generated autoloads from vc/add-log.el (put 'change-log-default-name 'safe-local-variable 'string-or-null-p) @@ -238,8 +238,8 @@ old-style time formats for entries are supported. ;;;*** -;;;### (autoloads nil "advice" "emacs-lisp/advice.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "advice" "emacs-lisp/advice.el" (21604 48550 +;;;;;; 1934 214000)) ;;; Generated autoloads from emacs-lisp/advice.el (defvar ad-redefinition-action 'warn "\ @@ -374,7 +374,7 @@ usage: (defadvice FUNCTION (CLASS NAME [POSITION] [ARGLIST] FLAG...) ;;;*** -;;;### (autoloads nil "align" "align.el" (21607 54477 800124 118000)) +;;;### (autoloads nil "align" "align.el" (21604 48549 921934 211000)) ;;; Generated autoloads from align.el (autoload 'align "align" "\ @@ -477,7 +477,7 @@ A replacement function for `newline-and-indent', aligning as it goes. ;;;*** -;;;### (autoloads nil "allout" "allout.el" (21607 54477 800124 118000)) +;;;### (autoloads nil "allout" "allout.el" (21604 48549 925934 211000)) ;;; Generated autoloads from allout.el (push (purecopy '(allout 2 3)) package--builtin-versions) @@ -837,8 +837,8 @@ for details on preparing Emacs for automatic allout activation. ;;;*** -;;;### (autoloads nil "allout-widgets" "allout-widgets.el" (21609 -;;;;;; 55608 852266 580000)) +;;;### (autoloads nil "allout-widgets" "allout-widgets.el" (21631 +;;;;;; 35966 795121 865000)) ;;; Generated autoloads from allout-widgets.el (push (purecopy '(allout-widgets 1 0)) package--builtin-versions) @@ -896,8 +896,8 @@ outline hot-spot navigation (see `allout-mode'). ;;;*** -;;;### (autoloads nil "ange-ftp" "net/ange-ftp.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "ange-ftp" "net/ange-ftp.el" (21640 32530 974334 +;;;;;; 457000)) ;;; Generated autoloads from net/ange-ftp.el (defalias 'ange-ftp-re-read-dir 'ange-ftp-reread-dir) @@ -918,8 +918,8 @@ directory, so that Emacs will know its current contents. ;;;*** -;;;### (autoloads nil "animate" "play/animate.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "animate" "play/animate.el" (21604 48550 301934 +;;;;;; 225000)) ;;; Generated autoloads from play/animate.el (autoload 'animate-string "animate" "\ @@ -951,8 +951,8 @@ the buffer *Birthday-Present-for-Name*. ;;;*** -;;;### (autoloads nil "ansi-color" "ansi-color.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "ansi-color" "ansi-color.el" (21604 48549 925934 +;;;;;; 211000)) ;;; Generated autoloads from ansi-color.el (push (purecopy '(ansi-color 3 4 2)) package--builtin-versions) @@ -978,8 +978,8 @@ This is a good function to put in `comint-output-filter-functions'. ;;;*** -;;;### (autoloads nil "antlr-mode" "progmodes/antlr-mode.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "antlr-mode" "progmodes/antlr-mode.el" (21604 +;;;;;; 48550 313934 225000)) ;;; Generated autoloads from progmodes/antlr-mode.el (push (purecopy '(antlr-mode 2 2 3)) package--builtin-versions) @@ -1015,8 +1015,8 @@ Used in `antlr-mode'. Also a useful function in `java-mode-hook'. ;;;*** -;;;### (autoloads nil "appt" "calendar/appt.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "appt" "calendar/appt.el" (21604 48549 945934 +;;;;;; 212000)) ;;; Generated autoloads from calendar/appt.el (autoload 'appt-add "appt" "\ @@ -1037,8 +1037,8 @@ ARG is positive, otherwise off. ;;;*** -;;;### (autoloads nil "apropos" "apropos.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "apropos" "apropos.el" (21604 48549 925934 +;;;;;; 211000)) ;;; Generated autoloads from apropos.el (autoload 'apropos-read-pattern "apropos" "\ @@ -1153,8 +1153,8 @@ Returns list of symbols and documentation found. ;;;*** -;;;### (autoloads nil "arc-mode" "arc-mode.el" (21621 7062 810116 -;;;;;; 332000)) +;;;### (autoloads nil "arc-mode" "arc-mode.el" (21631 35966 799121 +;;;;;; 866000)) ;;; Generated autoloads from arc-mode.el (autoload 'archive-mode "arc-mode" "\ @@ -1174,7 +1174,7 @@ archive. ;;;*** -;;;### (autoloads nil "array" "array.el" (21607 54477 800124 118000)) +;;;### (autoloads nil "array" "array.el" (21604 48549 925934 211000)) ;;; Generated autoloads from array.el (autoload 'array-mode "array" "\ @@ -1245,8 +1245,8 @@ Entering array mode calls the function `array-mode-hook'. ;;;*** -;;;### (autoloads nil "artist" "textmodes/artist.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "artist" "textmodes/artist.el" (21604 48550 +;;;;;; 393934 228000)) ;;; Generated autoloads from textmodes/artist.el (push (purecopy '(artist 1 2 6)) package--builtin-versions) @@ -1452,8 +1452,8 @@ Keymap summary ;;;*** -;;;### (autoloads nil "asm-mode" "progmodes/asm-mode.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "asm-mode" "progmodes/asm-mode.el" (21604 48550 +;;;;;; 313934 225000)) ;;; Generated autoloads from progmodes/asm-mode.el (autoload 'asm-mode "asm-mode" "\ @@ -1480,8 +1480,8 @@ Special commands: ;;;*** -;;;### (autoloads nil "auth-source" "gnus/auth-source.el" (21625 -;;;;;; 43838 483701 627000)) +;;;### (autoloads nil "auth-source" "gnus/auth-source.el" (21631 +;;;;;; 35966 847121 867000)) ;;; Generated autoloads from gnus/auth-source.el (defvar auth-source-cache-expiry 7200 "\ @@ -1493,8 +1493,8 @@ let-binding.") ;;;*** -;;;### (autoloads nil "autoarg" "autoarg.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "autoarg" "autoarg.el" (21604 48549 925934 +;;;;;; 211000)) ;;; Generated autoloads from autoarg.el (defvar autoarg-mode nil "\ @@ -1554,8 +1554,8 @@ This is similar to `autoarg-mode' but rebinds the keypad keys ;;;*** -;;;### (autoloads nil "autoconf" "progmodes/autoconf.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "autoconf" "progmodes/autoconf.el" (21604 48550 +;;;;;; 313934 225000)) ;;; Generated autoloads from progmodes/autoconf.el (autoload 'autoconf-mode "autoconf" "\ @@ -1565,8 +1565,8 @@ Major mode for editing Autoconf configure.ac files. ;;;*** -;;;### (autoloads nil "autoinsert" "autoinsert.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "autoinsert" "autoinsert.el" (21637 50476 651217 +;;;;;; 120000)) ;;; Generated autoloads from autoinsert.el (autoload 'auto-insert "autoinsert" "\ @@ -1604,8 +1604,8 @@ insert a template for the file depending on the mode of the buffer. ;;;*** -;;;### (autoloads nil "autoload" "emacs-lisp/autoload.el" (21628 -;;;;;; 43483 380149 771000)) +;;;### (autoloads nil "autoload" "emacs-lisp/autoload.el" (21631 +;;;;;; 35966 819121 866000)) ;;; Generated autoloads from emacs-lisp/autoload.el (put 'generated-autoload-file 'safe-local-variable 'stringp) @@ -1656,8 +1656,8 @@ should be non-nil). ;;;*** -;;;### (autoloads nil "autorevert" "autorevert.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "autorevert" "autorevert.el" (21604 48549 929934 +;;;;;; 211000)) ;;; Generated autoloads from autorevert.el (autoload 'auto-revert-mode "autorevert" "\ @@ -1745,7 +1745,7 @@ specifies in the mode line. ;;;*** -;;;### (autoloads nil "avoid" "avoid.el" (21607 54477 800124 118000)) +;;;### (autoloads nil "avoid" "avoid.el" (21604 48549 929934 211000)) ;;; Generated autoloads from avoid.el (defvar mouse-avoidance-mode nil "\ @@ -1783,8 +1783,8 @@ definition of \"random distance\".) ;;;*** -;;;### (autoloads nil "bat-mode" "progmodes/bat-mode.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "bat-mode" "progmodes/bat-mode.el" (21604 48550 +;;;;;; 313934 225000)) ;;; Generated autoloads from progmodes/bat-mode.el (add-to-list 'auto-mode-alist '("\\.\\(bat\\|cmd\\)\\'" . bat-mode)) @@ -1802,8 +1802,8 @@ Run script using `bat-run' and `bat-run-args'. ;;;*** -;;;### (autoloads nil "battery" "battery.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "battery" "battery.el" (21604 48549 929934 +;;;;;; 211000)) ;;; Generated autoloads from battery.el (put 'battery-mode-line-string 'risky-local-variable t) @@ -1838,8 +1838,8 @@ seconds. ;;;*** -;;;### (autoloads nil "benchmark" "emacs-lisp/benchmark.el" (21607 -;;;;;; 54477 800124 118000)) +;;;### (autoloads nil "benchmark" "emacs-lisp/benchmark.el" (21604 +;;;;;; 48550 1934 214000)) ;;; Generated autoloads from emacs-lisp/benchmark.el (autoload 'benchmark-run "benchmark" "\ @@ -1875,8 +1875,8 @@ For non-interactive use see also `benchmark-run' and ;;;*** -;;;### (autoloads nil "bibtex" "textmodes/bibtex.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "bibtex" "textmodes/bibtex.el" (21604 48550 +;;;;;; 393934 228000)) ;;; Generated autoloads from textmodes/bibtex.el (autoload 'bibtex-initialize "bibtex" "\ @@ -1968,7 +1968,7 @@ A prefix arg negates the value of `bibtex-search-entry-globally'. ;;;*** ;;;### (autoloads nil "bibtex-style" "textmodes/bibtex-style.el" -;;;;;; (21607 54478 800121 42000)) +;;;;;; (21604 48550 393934 228000)) ;;; Generated autoloads from textmodes/bibtex-style.el (autoload 'bibtex-style-mode "bibtex-style" "\ @@ -1978,8 +1978,8 @@ Major mode for editing BibTeX style files. ;;;*** -;;;### (autoloads nil "binhex" "mail/binhex.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "binhex" "mail/binhex.el" (21604 48550 181934 +;;;;;; 220000)) ;;; Generated autoloads from mail/binhex.el (defconst binhex-begin-line "^:...............................................................$" "\ @@ -2003,8 +2003,8 @@ Binhex decode region between START and END. ;;;*** -;;;### (autoloads nil "blackbox" "play/blackbox.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "blackbox" "play/blackbox.el" (21604 48550 +;;;;;; 301934 225000)) ;;; Generated autoloads from play/blackbox.el (autoload 'blackbox "blackbox" "\ @@ -2123,8 +2123,8 @@ a reflection. ;;;*** -;;;### (autoloads nil "bookmark" "bookmark.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "bookmark" "bookmark.el" (21604 48549 929934 +;;;;;; 211000)) ;;; Generated autoloads from bookmark.el (define-key ctl-x-r-map "b" 'bookmark-jump) (define-key ctl-x-r-map "m" 'bookmark-set) @@ -2317,8 +2317,8 @@ Incremental search of bookmarks, hiding the non-matches as we go. ;;;*** -;;;### (autoloads nil "browse-url" "net/browse-url.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "browse-url" "net/browse-url.el" (21604 48550 +;;;;;; 213934 222000)) ;;; Generated autoloads from net/browse-url.el (defvar browse-url-browser-function 'browse-url-default-browser "\ @@ -2633,7 +2633,7 @@ from `browse-url-elinks-wrapper'. ;;;*** -;;;### (autoloads nil "bs" "bs.el" (21607 54477 800124 118000)) +;;;### (autoloads nil "bs" "bs.el" (21604 48549 929934 211000)) ;;; Generated autoloads from bs.el (push (purecopy '(bs 1 17)) package--builtin-versions) @@ -2674,8 +2674,8 @@ name of buffer configuration. ;;;*** -;;;### (autoloads nil "bubbles" "play/bubbles.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "bubbles" "play/bubbles.el" (21604 48550 301934 +;;;;;; 225000)) ;;; Generated autoloads from play/bubbles.el (autoload 'bubbles "bubbles" "\ @@ -2697,7 +2697,7 @@ columns on its right towards the left. ;;;*** ;;;### (autoloads nil "bug-reference" "progmodes/bug-reference.el" -;;;;;; (21607 54478 800121 42000)) +;;;;;; (21604 48550 313934 225000)) ;;; Generated autoloads from progmodes/bug-reference.el (put 'bug-reference-url-format 'safe-local-variable (lambda (s) (or (stringp s) (and (symbolp s) (get s 'bug-reference-url-format))))) @@ -2717,8 +2717,8 @@ Like `bug-reference-mode', but only buttonize in comments and strings. ;;;*** -;;;### (autoloads nil "bytecomp" "emacs-lisp/bytecomp.el" (21607 -;;;;;; 54477 800124 118000)) +;;;### (autoloads nil "bytecomp" "emacs-lisp/bytecomp.el" (21645 +;;;;;; 25761 789186 828000)) ;;; Generated autoloads from emacs-lisp/bytecomp.el (put 'byte-compile-dynamic 'safe-local-variable 'booleanp) (put 'byte-compile-disable-print-circle 'safe-local-variable 'booleanp) @@ -2838,8 +2838,8 @@ and corresponding effects. ;;;*** -;;;### (autoloads nil "cal-china" "calendar/cal-china.el" (21617 -;;;;;; 49721 420132 227000)) +;;;### (autoloads nil "cal-china" "calendar/cal-china.el" (21631 +;;;;;; 35966 799121 866000)) ;;; Generated autoloads from calendar/cal-china.el (put 'calendar-chinese-time-zone 'risky-local-variable t) @@ -2848,8 +2848,8 @@ and corresponding effects. ;;;*** -;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (21609 55608 -;;;;;; 852266 580000)) +;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (21631 35966 +;;;;;; 799121 866000)) ;;; Generated autoloads from calendar/cal-dst.el (put 'calendar-daylight-savings-starts 'risky-local-variable t) @@ -2860,8 +2860,8 @@ and corresponding effects. ;;;*** -;;;### (autoloads nil "cal-hebrew" "calendar/cal-hebrew.el" (21607 -;;;;;; 54477 800124 118000)) +;;;### (autoloads nil "cal-hebrew" "calendar/cal-hebrew.el" (21604 +;;;;;; 48549 949934 212000)) ;;; Generated autoloads from calendar/cal-hebrew.el (autoload 'calendar-hebrew-list-yahrzeits "cal-hebrew" "\ @@ -2873,7 +2873,7 @@ from the cursor position. ;;;*** -;;;### (autoloads nil "calc" "calc/calc.el" (21607 54477 800124 118000)) +;;;### (autoloads nil "calc" "calc/calc.el" (21604 48549 945934 212000)) ;;; Generated autoloads from calc/calc.el (define-key ctl-x-map "*" 'calc-dispatch) @@ -2959,8 +2959,8 @@ See Info node `(calc)Defining Functions'. ;;;*** -;;;### (autoloads nil "calc-undo" "calc/calc-undo.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "calc-undo" "calc/calc-undo.el" (21604 48549 +;;;;;; 941934 211000)) ;;; Generated autoloads from calc/calc-undo.el (autoload 'calc-undo "calc-undo" "\ @@ -2970,8 +2970,8 @@ See Info node `(calc)Defining Functions'. ;;;*** -;;;### (autoloads nil "calculator" "calculator.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "calculator" "calculator.el" (21604 48549 945934 +;;;;;; 212000)) ;;; Generated autoloads from calculator.el (autoload 'calculator "calculator" "\ @@ -2982,8 +2982,8 @@ See the documentation for `calculator-mode' for more information. ;;;*** -;;;### (autoloads nil "calendar" "calendar/calendar.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "calendar" "calendar/calendar.el" (21604 48549 +;;;;;; 953934 212000)) ;;; Generated autoloads from calendar/calendar.el (autoload 'calendar "calendar" "\ @@ -3026,8 +3026,8 @@ This function is suitable for execution in an init file. ;;;*** -;;;### (autoloads nil "canlock" "gnus/canlock.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "canlock" "gnus/canlock.el" (21604 48550 81934 +;;;;;; 217000)) ;;; Generated autoloads from gnus/canlock.el (autoload 'canlock-insert-header "canlock" "\ @@ -3044,8 +3044,8 @@ it fails. ;;;*** -;;;### (autoloads nil "cc-engine" "progmodes/cc-engine.el" (21623 -;;;;;; 2108 292281 129000)) +;;;### (autoloads nil "cc-engine" "progmodes/cc-engine.el" (21659 +;;;;;; 61733 214949 164000)) ;;; Generated autoloads from progmodes/cc-engine.el (autoload 'c-guess-basic-syntax "cc-engine" "\ @@ -3055,8 +3055,8 @@ Return the syntactic context of the current line. ;;;*** -;;;### (autoloads nil "cc-guess" "progmodes/cc-guess.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "cc-guess" "progmodes/cc-guess.el" (21631 35966 +;;;;;; 903121 869000)) ;;; Generated autoloads from progmodes/cc-guess.el (defvar c-guess-guessed-offsets-alist nil "\ @@ -3154,8 +3154,8 @@ the absolute file name of the file if STYLE-NAME is nil. ;;;*** -;;;### (autoloads nil "cc-mode" "progmodes/cc-mode.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "cc-mode" "progmodes/cc-mode.el" (21651 20707 +;;;;;; 184225 752000)) ;;; Generated autoloads from progmodes/cc-mode.el (autoload 'c-initialize-cc-mode "cc-mode" "\ @@ -3312,8 +3312,8 @@ Key bindings: ;;;*** -;;;### (autoloads nil "cc-styles" "progmodes/cc-styles.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "cc-styles" "progmodes/cc-styles.el" (21631 +;;;;;; 35966 907121 870000)) ;;; Generated autoloads from progmodes/cc-styles.el (autoload 'c-set-style "cc-styles" "\ @@ -3364,8 +3364,8 @@ and exists only for compatibility reasons. ;;;*** -;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (21631 35966 +;;;;;; 907121 870000)) ;;; Generated autoloads from progmodes/cc-vars.el (put 'c-basic-offset 'safe-local-variable 'integerp) (put 'c-backslash-column 'safe-local-variable 'integerp) @@ -3373,8 +3373,8 @@ and exists only for compatibility reasons. ;;;*** -;;;### (autoloads nil "ccl" "international/ccl.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "ccl" "international/ccl.el" (21604 48550 133934 +;;;;;; 219000)) ;;; Generated autoloads from international/ccl.el (autoload 'ccl-compile "ccl" "\ @@ -3634,8 +3634,8 @@ See the documentation of `define-ccl-program' for the detail of CCL program. ;;;*** -;;;### (autoloads nil "cconv" "emacs-lisp/cconv.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "cconv" "emacs-lisp/cconv.el" (21645 25761 +;;;;;; 789186 828000)) ;;; Generated autoloads from emacs-lisp/cconv.el (autoload 'cconv-closure-convert "cconv" "\ @@ -3654,15 +3654,15 @@ Add the warnings that closure conversion would encounter. ;;;*** -;;;### (autoloads nil "cedet" "cedet/cedet.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "cedet" "cedet/cedet.el" (21604 48549 957934 +;;;;;; 212000)) ;;; Generated autoloads from cedet/cedet.el (push (purecopy '(cedet 2 0)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "cfengine" "progmodes/cfengine.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "cfengine" "progmodes/cfengine.el" (21604 48550 +;;;;;; 321934 226000)) ;;; Generated autoloads from progmodes/cfengine.el (push (purecopy '(cfengine 1 3)) package--builtin-versions) @@ -3691,15 +3691,15 @@ Choose `cfengine2-mode' or `cfengine3-mode' by buffer contents. ;;;*** -;;;### (autoloads nil "chart" "emacs-lisp/chart.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "chart" "emacs-lisp/chart.el" (21604 48550 +;;;;;; 5934 214000)) ;;; Generated autoloads from emacs-lisp/chart.el (push (purecopy '(chart 0 2)) package--builtin-versions) ;;;*** ;;;### (autoloads nil "check-declare" "emacs-lisp/check-declare.el" -;;;;;; (21607 54477 800124 118000)) +;;;;;; (21604 48550 5934 214000)) ;;; Generated autoloads from emacs-lisp/check-declare.el (autoload 'check-declare-file "check-declare" "\ @@ -3716,8 +3716,8 @@ Returns non-nil if any false statements are found. ;;;*** -;;;### (autoloads nil "checkdoc" "emacs-lisp/checkdoc.el" (21607 -;;;;;; 54477 800124 118000)) +;;;### (autoloads nil "checkdoc" "emacs-lisp/checkdoc.el" (21604 +;;;;;; 48550 9934 214000)) ;;; Generated autoloads from emacs-lisp/checkdoc.el (push (purecopy '(checkdoc 0 6 2)) package--builtin-versions) (put 'checkdoc-force-docstrings-flag 'safe-local-variable #'booleanp) @@ -3917,8 +3917,8 @@ checking of documentation strings. ;;;*** -;;;### (autoloads nil "china-util" "language/china-util.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "china-util" "language/china-util.el" (21604 +;;;;;; 48550 145934 219000)) ;;; Generated autoloads from language/china-util.el (autoload 'decode-hz-region "china-util" "\ @@ -3955,8 +3955,8 @@ Encode the text in the current buffer to HZ. ;;;*** -;;;### (autoloads nil "chistory" "chistory.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "chistory" "chistory.el" (21604 48549 985934 +;;;;;; 213000)) ;;; Generated autoloads from chistory.el (autoload 'repeat-matching-complex-command "chistory" "\ @@ -3995,8 +3995,8 @@ and runs the normal hook `command-history-hook'. ;;;*** -;;;### (autoloads nil "cl-indent" "emacs-lisp/cl-indent.el" (21607 -;;;;;; 54477 800124 118000)) +;;;### (autoloads nil "cl-indent" "emacs-lisp/cl-indent.el" (21604 +;;;;;; 48550 9934 214000)) ;;; Generated autoloads from emacs-lisp/cl-indent.el (autoload 'common-lisp-indent-function "cl-indent" "\ @@ -4079,8 +4079,8 @@ instead. ;;;*** -;;;### (autoloads nil "cl-lib" "emacs-lisp/cl-lib.el" (21619 26501 -;;;;;; 970129 581000)) +;;;### (autoloads nil "cl-lib" "emacs-lisp/cl-lib.el" (21631 35966 +;;;;;; 823121 866000)) ;;; Generated autoloads from emacs-lisp/cl-lib.el (push (purecopy '(cl-lib 1 0)) package--builtin-versions) @@ -4110,8 +4110,8 @@ a future Emacs interpreter will be able to use it.") ;;;*** -;;;### (autoloads nil "cmacexp" "progmodes/cmacexp.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "cmacexp" "progmodes/cmacexp.el" (21604 48550 +;;;;;; 325934 226000)) ;;; Generated autoloads from progmodes/cmacexp.el (autoload 'c-macro-expand "cmacexp" "\ @@ -4131,8 +4131,8 @@ For use inside Lisp programs, see also `c-macro-expansion'. ;;;*** -;;;### (autoloads nil "cmuscheme" "cmuscheme.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "cmuscheme" "cmuscheme.el" (21604 48549 985934 +;;;;;; 213000)) ;;; Generated autoloads from cmuscheme.el (autoload 'run-scheme "cmuscheme" "\ @@ -4152,7 +4152,7 @@ is run). ;;;*** -;;;### (autoloads nil "color" "color.el" (21607 54477 800124 118000)) +;;;### (autoloads nil "color" "color.el" (21604 48549 985934 213000)) ;;; Generated autoloads from color.el (autoload 'color-name-to-rgb "color" "\ @@ -4171,7 +4171,7 @@ If FRAME cannot display COLOR, return nil. ;;;*** -;;;### (autoloads nil "comint" "comint.el" (21607 54477 800124 118000)) +;;;### (autoloads nil "comint" "comint.el" (21637 50476 651217 120000)) ;;; Generated autoloads from comint.el (defvar comint-output-filter-functions '(ansi-color-process-output comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt) "\ @@ -4272,12 +4272,15 @@ REGEXP-GROUP is the regular expression group in REGEXP to use. ;;;*** -;;;### (autoloads nil "compare-w" "vc/compare-w.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "compare-w" "vc/compare-w.el" (21637 50476 +;;;;;; 683217 122000)) ;;; Generated autoloads from vc/compare-w.el (autoload 'compare-windows "compare-w" "\ -Compare text in current window with text in next window. +Compare text in current window with text in another window. +The option `compare-windows-get-window-function' defines how +to get another window. + Compares the text starting at point in each window, moving over text in each one as far as they match. @@ -4306,8 +4309,8 @@ on third call it again advances points to the next difference and so on. ;;;*** -;;;### (autoloads nil "compile" "progmodes/compile.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "compile" "progmodes/compile.el" (21604 48550 +;;;;;; 325934 226000)) ;;; Generated autoloads from progmodes/compile.el (defvar compilation-mode-hook nil "\ @@ -4488,8 +4491,8 @@ This is the value of `next-error-function' in Compilation buffers. ;;;*** -;;;### (autoloads nil "completion" "completion.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "completion" "completion.el" (21659 61733 206949 +;;;;;; 164000)) ;;; Generated autoloads from completion.el (defvar dynamic-completion-mode nil "\ @@ -4511,8 +4514,8 @@ if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "conf-mode" "textmodes/conf-mode.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "conf-mode" "textmodes/conf-mode.el" (21604 +;;;;;; 48550 393934 228000)) ;;; Generated autoloads from textmodes/conf-mode.el (autoload 'conf-mode "conf-mode" "\ @@ -4667,8 +4670,8 @@ For details see `conf-mode'. Example: ;;;*** -;;;### (autoloads nil "cookie1" "play/cookie1.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "cookie1" "play/cookie1.el" (21604 48550 301934 +;;;;;; 225000)) ;;; Generated autoloads from play/cookie1.el (autoload 'cookie "cookie1" "\ @@ -4696,8 +4699,8 @@ and subsequent calls on the same file won't go to disk. ;;;*** -;;;### (autoloads nil "copyright" "emacs-lisp/copyright.el" (21607 -;;;;;; 54477 800124 118000)) +;;;### (autoloads nil "copyright" "emacs-lisp/copyright.el" (21604 +;;;;;; 48550 9934 214000)) ;;; Generated autoloads from emacs-lisp/copyright.el (put 'copyright-at-end-flag 'safe-local-variable 'booleanp) (put 'copyright-names-regexp 'safe-local-variable 'stringp) @@ -4735,8 +4738,8 @@ If FIX is non-nil, run `copyright-fix-years' instead. ;;;*** -;;;### (autoloads nil "cperl-mode" "progmodes/cperl-mode.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "cperl-mode" "progmodes/cperl-mode.el" (21604 +;;;;;; 48550 325934 226000)) ;;; Generated autoloads from progmodes/cperl-mode.el (put 'cperl-indent-level 'safe-local-variable 'integerp) (put 'cperl-brace-offset 'safe-local-variable 'integerp) @@ -4934,8 +4937,8 @@ Run a `perldoc' on the word around point. ;;;*** -;;;### (autoloads nil "cpp" "progmodes/cpp.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "cpp" "progmodes/cpp.el" (21604 48550 329934 +;;;;;; 226000)) ;;; Generated autoloads from progmodes/cpp.el (autoload 'cpp-highlight-buffer "cpp" "\ @@ -4953,8 +4956,8 @@ Edit display information for cpp conditionals. ;;;*** -;;;### (autoloads nil "crm" "emacs-lisp/crm.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "crm" "emacs-lisp/crm.el" (21604 48550 9934 +;;;;;; 214000)) ;;; Generated autoloads from emacs-lisp/crm.el (autoload 'completing-read-multiple "crm" "\ @@ -4980,8 +4983,8 @@ with empty strings removed. ;;;*** -;;;### (autoloads nil "css-mode" "textmodes/css-mode.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "css-mode" "textmodes/css-mode.el" (21604 48550 +;;;;;; 393934 228000)) ;;; Generated autoloads from textmodes/css-mode.el (autoload 'css-mode "css-mode" "\ @@ -4997,8 +5000,8 @@ Major mode to edit \"Sassy CSS\" files. ;;;*** -;;;### (autoloads nil "cua-base" "emulation/cua-base.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "cua-base" "emulation/cua-base.el" (21604 48550 +;;;;;; 25934 215000)) ;;; Generated autoloads from emulation/cua-base.el (defvar cua-mode nil "\ @@ -5043,8 +5046,8 @@ Enable CUA selection mode without the C-z/C-x/C-c/C-v bindings. ;;;*** -;;;### (autoloads nil "cua-rect" "emulation/cua-rect.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "cua-rect" "emulation/cua-rect.el" (21604 48550 +;;;;;; 29934 215000)) ;;; Generated autoloads from emulation/cua-rect.el (autoload 'cua-rectangle-mark-mode "cua-rect" "\ @@ -5055,8 +5058,8 @@ Activates the region if needed. Only lasts until the region is deactivated. ;;;*** -;;;### (autoloads nil "cus-edit" "cus-edit.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "cus-edit" "cus-edit.el" (21645 38383 209524 +;;;;;; 819000)) ;;; Generated autoloads from cus-edit.el (defvar custom-browse-sort-alphabetically nil "\ @@ -5282,6 +5285,13 @@ Customize all loaded groups matching REGEXP. \(fn REGEXP)" t nil) +(autoload 'custom-prompt-customize-unsaved-options "cus-edit" "\ +Prompt user to customize any unsaved customization options. +Return non-nil if user chooses to customize, for use in +`kill-emacs-query-functions'. + +\(fn)" nil nil) + (autoload 'custom-buffer-create "cus-edit" "\ Create a buffer containing OPTIONS. Optional NAME is the name of the buffer. @@ -5368,8 +5378,8 @@ The format is suitable for use with `easy-menu-define'. ;;;*** -;;;### (autoloads nil "cus-theme" "cus-theme.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "cus-theme" "cus-theme.el" (21604 48549 993934 +;;;;;; 213000)) ;;; Generated autoloads from cus-theme.el (autoload 'customize-create-theme "cus-theme" "\ @@ -5402,8 +5412,8 @@ omitted, a buffer named *Custom Themes* is used. ;;;*** -;;;### (autoloads nil "cvs-status" "vc/cvs-status.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "cvs-status" "vc/cvs-status.el" (21604 48550 +;;;;;; 421934 229000)) ;;; Generated autoloads from vc/cvs-status.el (autoload 'cvs-status-mode "cvs-status" "\ @@ -5413,8 +5423,8 @@ Mode used for cvs status output. ;;;*** -;;;### (autoloads nil "cwarn" "progmodes/cwarn.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "cwarn" "progmodes/cwarn.el" (21604 48550 329934 +;;;;;; 226000)) ;;; Generated autoloads from progmodes/cwarn.el (push (purecopy '(cwarn 1 3 1)) package--builtin-versions) @@ -5458,8 +5468,8 @@ See `cwarn-mode' for more information on Cwarn mode. ;;;*** -;;;### (autoloads nil "cyril-util" "language/cyril-util.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "cyril-util" "language/cyril-util.el" (21604 +;;;;;; 48550 145934 219000)) ;;; Generated autoloads from language/cyril-util.el (autoload 'cyrillic-encode-koi8-r-char "cyril-util" "\ @@ -5487,8 +5497,8 @@ If the argument is nil, we return the display table to its standard state. ;;;*** -;;;### (autoloads nil "dabbrev" "dabbrev.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "dabbrev" "dabbrev.el" (21604 48549 993934 +;;;;;; 213000)) ;;; Generated autoloads from dabbrev.el (put 'dabbrev-case-fold-search 'risky-local-variable t) (put 'dabbrev-case-replace 'risky-local-variable t) @@ -5534,8 +5544,8 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]. ;;;*** -;;;### (autoloads nil "data-debug" "cedet/data-debug.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "data-debug" "cedet/data-debug.el" (21604 48549 +;;;;;; 961934 212000)) ;;; Generated autoloads from cedet/data-debug.el (autoload 'data-debug-new-buffer "data-debug" "\ @@ -5545,7 +5555,7 @@ Create a new data-debug buffer with NAME. ;;;*** -;;;### (autoloads nil "dbus" "net/dbus.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "dbus" "net/dbus.el" (21604 48550 213934 222000)) ;;; Generated autoloads from net/dbus.el (autoload 'dbus-handle-event "dbus" "\ @@ -5558,8 +5568,8 @@ If the HANDLER returns a `dbus-error', it is propagated as return message. ;;;*** -;;;### (autoloads nil "dcl-mode" "progmodes/dcl-mode.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "dcl-mode" "progmodes/dcl-mode.el" (21604 48550 +;;;;;; 329934 226000)) ;;; Generated autoloads from progmodes/dcl-mode.el (autoload 'dcl-mode "dcl-mode" "\ @@ -5685,8 +5695,8 @@ There is some minimal font-lock support (see vars ;;;*** -;;;### (autoloads nil "debug" "emacs-lisp/debug.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "debug" "emacs-lisp/debug.el" (21604 48550 +;;;;;; 9934 214000)) ;;; Generated autoloads from emacs-lisp/debug.el (setq debugger 'debug) @@ -5729,8 +5739,8 @@ To specify a nil argument interactively, exit with an empty minibuffer. ;;;*** -;;;### (autoloads nil "decipher" "play/decipher.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "decipher" "play/decipher.el" (21604 48550 +;;;;;; 301934 225000)) ;;; Generated autoloads from play/decipher.el (autoload 'decipher "decipher" "\ @@ -5758,8 +5768,8 @@ The most useful commands are: ;;;*** -;;;### (autoloads nil "delim-col" "delim-col.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "delim-col" "delim-col.el" (21604 48549 993934 +;;;;;; 213000)) ;;; Generated autoloads from delim-col.el (push (purecopy '(delim-col 2 1)) package--builtin-versions) @@ -5784,7 +5794,7 @@ START and END delimits the corners of text rectangle. ;;;*** -;;;### (autoloads nil "delsel" "delsel.el" (21607 54477 800124 118000)) +;;;### (autoloads nil "delsel" "delsel.el" (21604 48549 993934 213000)) ;;; Generated autoloads from delsel.el (defalias 'pending-delete-mode 'delete-selection-mode) @@ -5812,8 +5822,8 @@ point regardless of any selection. ;;;*** -;;;### (autoloads nil "derived" "emacs-lisp/derived.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "derived" "emacs-lisp/derived.el" (21604 48550 +;;;;;; 9934 214000)) ;;; Generated autoloads from emacs-lisp/derived.el (autoload 'define-derived-mode "derived" "\ @@ -5879,8 +5889,8 @@ the first time the mode is used. ;;;*** -;;;### (autoloads nil "descr-text" "descr-text.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "descr-text" "descr-text.el" (21604 48549 993934 +;;;;;; 213000)) ;;; Generated autoloads from descr-text.el (autoload 'describe-text-properties "descr-text" "\ @@ -5914,7 +5924,8 @@ relevant to POS. ;;;*** -;;;### (autoloads nil "desktop" "desktop.el" (21616 28857 81577 239000)) +;;;### (autoloads nil "desktop" "desktop.el" (21631 35966 815121 +;;;;;; 866000)) ;;; Generated autoloads from desktop.el (defvar desktop-save-mode nil "\ @@ -6119,8 +6130,8 @@ Revert to the last loaded desktop. ;;;*** -;;;### (autoloads nil "deuglify" "gnus/deuglify.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "deuglify" "gnus/deuglify.el" (21604 48550 +;;;;;; 81934 217000)) ;;; Generated autoloads from gnus/deuglify.el (autoload 'gnus-article-outlook-unwrap-lines "deuglify" "\ @@ -6152,8 +6163,8 @@ Deuglify broken Outlook (Express) articles and redisplay. ;;;*** -;;;### (autoloads nil "diary-lib" "calendar/diary-lib.el" (21625 -;;;;;; 43838 483701 627000)) +;;;### (autoloads nil "diary-lib" "calendar/diary-lib.el" (21631 +;;;;;; 35966 803121 866000)) ;;; Generated autoloads from calendar/diary-lib.el (autoload 'diary "diary-lib" "\ @@ -6195,7 +6206,7 @@ Major mode for editing the diary file. ;;;*** -;;;### (autoloads nil "diff" "vc/diff.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "diff" "vc/diff.el" (21604 48550 421934 229000)) ;;; Generated autoloads from vc/diff.el (defvar diff-switches (purecopy "-c") "\ @@ -6243,8 +6254,8 @@ This requires the external program `diff' to be in your `exec-path'. ;;;*** -;;;### (autoloads nil "diff-mode" "vc/diff-mode.el" (21628 45530 -;;;;;; 160140 360000)) +;;;### (autoloads nil "diff-mode" "vc/diff-mode.el" (21631 35966 +;;;;;; 923121 870000)) ;;; Generated autoloads from vc/diff-mode.el (autoload 'diff-mode "diff-mode" "\ @@ -6276,7 +6287,7 @@ the mode if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "dig" "net/dig.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "dig" "net/dig.el" (21604 48550 213934 222000)) ;;; Generated autoloads from net/dig.el (autoload 'dig "dig" "\ @@ -6287,7 +6298,7 @@ Optional arguments are passed to `dig-invoke'. ;;;*** -;;;### (autoloads nil "dired" "dired.el" (21607 54477 800124 118000)) +;;;### (autoloads nil "dired" "dired.el" (21651 20707 164225 751000)) ;;; Generated autoloads from dired.el (defvar dired-listing-switches (purecopy "-al") "\ @@ -6407,8 +6418,8 @@ Keybindings: ;;;*** -;;;### (autoloads nil "dirtrack" "dirtrack.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "dirtrack" "dirtrack.el" (21604 48549 997934 +;;;;;; 214000)) ;;; Generated autoloads from dirtrack.el (autoload 'dirtrack-mode "dirtrack" "\ @@ -6438,8 +6449,8 @@ from `default-directory'. ;;;*** -;;;### (autoloads nil "disass" "emacs-lisp/disass.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "disass" "emacs-lisp/disass.el" (21604 48550 +;;;;;; 13934 214000)) ;;; Generated autoloads from emacs-lisp/disass.el (autoload 'disassemble "disass" "\ @@ -6453,8 +6464,8 @@ redefine OBJECT if it is a symbol. ;;;*** -;;;### (autoloads nil "disp-table" "disp-table.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "disp-table" "disp-table.el" (21604 48549 997934 +;;;;;; 214000)) ;;; Generated autoloads from disp-table.el (autoload 'make-display-table "disp-table" "\ @@ -6575,8 +6586,8 @@ in `.emacs'. ;;;*** -;;;### (autoloads nil "dissociate" "play/dissociate.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "dissociate" "play/dissociate.el" (21604 48550 +;;;;;; 301934 225000)) ;;; Generated autoloads from play/dissociate.el (autoload 'dissociated-press "dissociate" "\ @@ -6592,7 +6603,7 @@ Default is 2. ;;;*** -;;;### (autoloads nil "dnd" "dnd.el" (21607 54477 800124 118000)) +;;;### (autoloads nil "dnd" "dnd.el" (21604 48549 997934 214000)) ;;; Generated autoloads from dnd.el (defvar dnd-protocol-alist `((,(purecopy "^file:///") . dnd-open-local-file) (,(purecopy "^file://") . dnd-open-file) (,(purecopy "^file:") . dnd-open-local-file) (,(purecopy "^\\(https?\\|ftp\\|file\\|nfs\\)://") . dnd-open-file)) "\ @@ -6612,8 +6623,8 @@ if some action was made, or nil if the URL is ignored.") ;;;*** -;;;### (autoloads nil "dns-mode" "textmodes/dns-mode.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "dns-mode" "textmodes/dns-mode.el" (21604 48550 +;;;;;; 393934 228000)) ;;; Generated autoloads from textmodes/dns-mode.el (autoload 'dns-mode "dns-mode" "\ @@ -6636,8 +6647,8 @@ Locate SOA record and increment the serial field. ;;;*** -;;;### (autoloads nil "doc-view" "doc-view.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "doc-view" "doc-view.el" (21604 48549 997934 +;;;;;; 214000)) ;;; Generated autoloads from doc-view.el (autoload 'doc-view-mode-p "doc-view" "\ @@ -6683,8 +6694,8 @@ See the command `doc-view-mode' for more information on this mode. ;;;*** -;;;### (autoloads nil "doctor" "play/doctor.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "doctor" "play/doctor.el" (21604 48550 301934 +;;;;;; 225000)) ;;; Generated autoloads from play/doctor.el (autoload 'doctor "doctor" "\ @@ -6694,7 +6705,7 @@ Switch to *doctor* buffer and start giving psychotherapy. ;;;*** -;;;### (autoloads nil "double" "double.el" (21607 54477 800124 118000)) +;;;### (autoloads nil "double" "double.el" (21604 48549 997934 214000)) ;;; Generated autoloads from double.el (autoload 'double-mode "double" "\ @@ -6710,8 +6721,8 @@ strings when pressed twice. See `double-map' for details. ;;;*** -;;;### (autoloads nil "dunnet" "play/dunnet.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "dunnet" "play/dunnet.el" (21604 48550 305934 +;;;;;; 225000)) ;;; Generated autoloads from play/dunnet.el (push (purecopy '(dunnet 2 1)) package--builtin-versions) @@ -6722,8 +6733,8 @@ Switch to *dungeon* buffer and start game. ;;;*** -;;;### (autoloads nil "easy-mmode" "emacs-lisp/easy-mmode.el" (21607 -;;;;;; 54477 800124 118000)) +;;;### (autoloads nil "easy-mmode" "emacs-lisp/easy-mmode.el" (21604 +;;;;;; 48550 13934 214000)) ;;; Generated autoloads from emacs-lisp/easy-mmode.el (defalias 'easy-mmode-define-minor-mode 'define-minor-mode) @@ -6862,8 +6873,8 @@ CSS contains a list of syntax specifications of the form (CHAR . SYNTAX). ;;;*** -;;;### (autoloads nil "easymenu" "emacs-lisp/easymenu.el" (21607 -;;;;;; 54477 800124 118000)) +;;;### (autoloads nil "easymenu" "emacs-lisp/easymenu.el" (21604 +;;;;;; 48550 13934 214000)) ;;; Generated autoloads from emacs-lisp/easymenu.el (autoload 'easy-menu-define "easymenu" "\ @@ -7001,8 +7012,8 @@ To implement dynamic menus, either call this from ;;;*** -;;;### (autoloads nil "ebnf2ps" "progmodes/ebnf2ps.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "ebnf2ps" "progmodes/ebnf2ps.el" (21604 48550 +;;;;;; 329934 226000)) ;;; Generated autoloads from progmodes/ebnf2ps.el (push (purecopy '(ebnf2ps 4 4)) package--builtin-versions) @@ -7267,8 +7278,8 @@ See `ebnf-style-database' documentation. ;;;*** -;;;### (autoloads nil "ebrowse" "progmodes/ebrowse.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "ebrowse" "progmodes/ebrowse.el" (21604 48550 +;;;;;; 333934 226000)) ;;; Generated autoloads from progmodes/ebrowse.el (autoload 'ebrowse-tree-mode "ebrowse" "\ @@ -7416,8 +7427,8 @@ Display statistics for a class tree. ;;;*** -;;;### (autoloads nil "ebuff-menu" "ebuff-menu.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "ebuff-menu" "ebuff-menu.el" (21604 48549 997934 +;;;;;; 214000)) ;;; Generated autoloads from ebuff-menu.el (autoload 'electric-buffer-list "ebuff-menu" "\ @@ -7449,8 +7460,8 @@ Run hooks in `electric-buffer-menu-mode-hook' on entry. ;;;*** -;;;### (autoloads nil "echistory" "echistory.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "echistory" "echistory.el" (21604 48549 997934 +;;;;;; 214000)) ;;; Generated autoloads from echistory.el (autoload 'Electric-command-history-redo-expression "echistory" "\ @@ -7461,8 +7472,8 @@ With prefix arg NOCONFIRM, execute current line as-is without editing. ;;;*** -;;;### (autoloads nil "ecomplete" "gnus/ecomplete.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "ecomplete" "gnus/ecomplete.el" (21604 48550 +;;;;;; 81934 217000)) ;;; Generated autoloads from gnus/ecomplete.el (autoload 'ecomplete-setup "ecomplete" "\ @@ -7472,7 +7483,7 @@ With prefix arg NOCONFIRM, execute current line as-is without editing. ;;;*** -;;;### (autoloads nil "ede" "cedet/ede.el" (21607 54477 800124 118000)) +;;;### (autoloads nil "ede" "cedet/ede.el" (21604 48549 961934 212000)) ;;; Generated autoloads from cedet/ede.el (push (purecopy '(ede 1 2)) package--builtin-versions) @@ -7498,8 +7509,8 @@ an EDE controlled project. ;;;*** -;;;### (autoloads nil "edebug" "emacs-lisp/edebug.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "edebug" "emacs-lisp/edebug.el" (21604 48550 +;;;;;; 13934 214000)) ;;; Generated autoloads from emacs-lisp/edebug.el (defvar edebug-all-defs nil "\ @@ -7563,7 +7574,7 @@ Toggle edebugging of all forms. ;;;*** -;;;### (autoloads nil "ediff" "vc/ediff.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "ediff" "vc/ediff.el" (21604 48550 429934 230000)) ;;; Generated autoloads from vc/ediff.el (push (purecopy '(ediff 2 81 4)) package--builtin-versions) @@ -7835,8 +7846,8 @@ With optional NODE, goes to that node. ;;;*** -;;;### (autoloads nil "ediff-help" "vc/ediff-help.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "ediff-help" "vc/ediff-help.el" (21604 48550 +;;;;;; 425934 230000)) ;;; Generated autoloads from vc/ediff-help.el (autoload 'ediff-customize "ediff-help" "\ @@ -7846,8 +7857,8 @@ With optional NODE, goes to that node. ;;;*** -;;;### (autoloads nil "ediff-mult" "vc/ediff-mult.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "ediff-mult" "vc/ediff-mult.el" (21604 48550 +;;;;;; 425934 230000)) ;;; Generated autoloads from vc/ediff-mult.el (autoload 'ediff-show-registry "ediff-mult" "\ @@ -7859,8 +7870,8 @@ Display Ediff's registry. ;;;*** -;;;### (autoloads nil "ediff-util" "vc/ediff-util.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "ediff-util" "vc/ediff-util.el" (21604 48550 +;;;;;; 425934 230000)) ;;; Generated autoloads from vc/ediff-util.el (autoload 'ediff-toggle-multiframe "ediff-util" "\ @@ -7879,8 +7890,8 @@ To change the default, set the variable `ediff-use-toolbar-p', which see. ;;;*** -;;;### (autoloads nil "edmacro" "edmacro.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "edmacro" "edmacro.el" (21604 48549 997934 +;;;;;; 214000)) ;;; Generated autoloads from edmacro.el (push (purecopy '(edmacro 2 1)) package--builtin-versions) @@ -7929,8 +7940,8 @@ or nil, use a compact 80-column format. ;;;*** -;;;### (autoloads nil "edt" "emulation/edt.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "edt" "emulation/edt.el" (21604 48550 29934 +;;;;;; 215000)) ;;; Generated autoloads from emulation/edt.el (autoload 'edt-set-scroll-margins "edt" "\ @@ -7947,7 +7958,7 @@ Turn on EDT Emulation. ;;;*** -;;;### (autoloads nil "ehelp" "ehelp.el" (21607 54477 800124 118000)) +;;;### (autoloads nil "ehelp" "ehelp.el" (21604 48549 997934 214000)) ;;; Generated autoloads from ehelp.el (autoload 'with-electric-help "ehelp" "\ @@ -7983,15 +7994,15 @@ BUFFER is put back into its original major mode. ;;;*** -;;;### (autoloads nil "eieio" "emacs-lisp/eieio.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "eieio" "emacs-lisp/eieio.el" (21604 48550 +;;;;;; 17934 214000)) ;;; Generated autoloads from emacs-lisp/eieio.el (push (purecopy '(eieio 1 4)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "eieio-core" "emacs-lisp/eieio-core.el" (21607 -;;;;;; 54477 800124 118000)) +;;;### (autoloads nil "eieio-core" "emacs-lisp/eieio-core.el" (21637 +;;;;;; 50476 655217 121000)) ;;; Generated autoloads from emacs-lisp/eieio-core.el (push (purecopy '(eieio-core 1 4)) package--builtin-versions) @@ -8007,8 +8018,8 @@ It creates an autoload function for CNAME's constructor. ;;;*** -;;;### (autoloads nil "elec-pair" "elec-pair.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "elec-pair" "elec-pair.el" (21604 48550 1934 +;;;;;; 214000)) ;;; Generated autoloads from elec-pair.el (defvar electric-pair-text-pairs '((34 . 34)) "\ @@ -8043,8 +8054,8 @@ closing parenthesis. (Likewise for brackets, etc.). ;;;*** -;;;### (autoloads nil "elide-head" "elide-head.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "elide-head" "elide-head.el" (21604 48550 1934 +;;;;;; 214000)) ;;; Generated autoloads from elide-head.el (autoload 'elide-head "elide-head" "\ @@ -8059,8 +8070,8 @@ This is suitable as an entry on `find-file-hook' or appropriate mode hooks. ;;;*** -;;;### (autoloads nil "elint" "emacs-lisp/elint.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "elint" "emacs-lisp/elint.el" (21604 48550 +;;;;;; 17934 214000)) ;;; Generated autoloads from emacs-lisp/elint.el (autoload 'elint-file "elint" "\ @@ -8095,8 +8106,8 @@ optional prefix argument REINIT is non-nil. ;;;*** -;;;### (autoloads nil "elp" "emacs-lisp/elp.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "elp" "emacs-lisp/elp.el" (21604 48550 17934 +;;;;;; 214000)) ;;; Generated autoloads from emacs-lisp/elp.el (autoload 'elp-instrument-function "elp" "\ @@ -8130,8 +8141,8 @@ displayed. ;;;*** -;;;### (autoloads nil "emacs-lock" "emacs-lock.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "emacs-lock" "emacs-lock.el" (21604 48550 25934 +;;;;;; 215000)) ;;; Generated autoloads from emacs-lock.el (autoload 'emacs-lock-mode "emacs-lock" "\ @@ -8158,8 +8169,8 @@ Other values are interpreted as usual. ;;;*** -;;;### (autoloads nil "emacsbug" "mail/emacsbug.el" (21608 34742 -;;;;;; 2253 811000)) +;;;### (autoloads nil "emacsbug" "mail/emacsbug.el" (21631 35966 +;;;;;; 875121 868000)) ;;; Generated autoloads from mail/emacsbug.el (autoload 'report-emacs-bug "emacsbug" "\ @@ -8172,8 +8183,8 @@ Prompts for bug subject. Leaves you in a mail buffer. ;;;*** -;;;### (autoloads nil "emerge" "vc/emerge.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "emerge" "vc/emerge.el" (21604 48550 429934 +;;;;;; 230000)) ;;; Generated autoloads from vc/emerge.el (autoload 'emerge-files "emerge" "\ @@ -8233,8 +8244,8 @@ Emerge two RCS revisions of a file, with another revision as ancestor. ;;;*** -;;;### (autoloads nil "enriched" "textmodes/enriched.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "enriched" "textmodes/enriched.el" (21604 48550 +;;;;;; 393934 228000)) ;;; Generated autoloads from textmodes/enriched.el (autoload 'enriched-mode "enriched" "\ @@ -8269,7 +8280,7 @@ Commands: ;;;*** -;;;### (autoloads nil "epa" "epa.el" (21624 22971 140149 848000)) +;;;### (autoloads nil "epa" "epa.el" (21631 35966 827121 867000)) ;;; Generated autoloads from epa.el (autoload 'epa-list-keys "epa" "\ @@ -8457,8 +8468,8 @@ Insert selected KEYS after the point. ;;;*** -;;;### (autoloads nil "epa-dired" "epa-dired.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "epa-dired" "epa-dired.el" (21604 48550 33934 +;;;;;; 215000)) ;;; Generated autoloads from epa-dired.el (autoload 'epa-dired-do-decrypt "epa-dired" "\ @@ -8483,8 +8494,8 @@ Encrypt marked files. ;;;*** -;;;### (autoloads nil "epa-file" "epa-file.el" (21611 10937 700236 -;;;;;; 3000)) +;;;### (autoloads nil "epa-file" "epa-file.el" (21631 35966 827121 +;;;;;; 867000)) ;;; Generated autoloads from epa-file.el (autoload 'epa-file-handler "epa-file" "\ @@ -8504,8 +8515,8 @@ Encrypt marked files. ;;;*** -;;;### (autoloads nil "epa-mail" "epa-mail.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "epa-mail" "epa-mail.el" (21604 48550 33934 +;;;;;; 215000)) ;;; Generated autoloads from epa-mail.el (autoload 'epa-mail-mode "epa-mail" "\ @@ -8582,7 +8593,7 @@ if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "epg" "epg.el" (21611 10937 700236 3000)) +;;;### (autoloads nil "epg" "epg.el" (21631 35966 827121 867000)) ;;; Generated autoloads from epg.el (push (purecopy '(epg 1 0 0)) package--builtin-versions) @@ -8593,8 +8604,8 @@ Return a context object. ;;;*** -;;;### (autoloads nil "epg-config" "epg-config.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "epg-config" "epg-config.el" (21604 48550 33934 +;;;;;; 215000)) ;;; Generated autoloads from epg-config.el (autoload 'epg-configuration "epg-config" "\ @@ -8614,7 +8625,7 @@ Look at CONFIG and try to expand GROUP. ;;;*** -;;;### (autoloads nil "erc" "erc/erc.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "erc" "erc/erc.el" (21604 48550 49934 215000)) ;;; Generated autoloads from erc/erc.el (autoload 'erc-select-read-args "erc" "\ @@ -8643,7 +8654,7 @@ then the server and full-name will be set to those values, whereas `erc-compute-port', `erc-compute-nick' and `erc-compute-full-name' will be invoked for the values of the other parameters. -\(fn &key (server (erc-compute-server)) (port (erc-compute-port)) (nick (erc-compute-nick)) PASSWORD (full-name (erc-compute-full-name)))" t nil) +\(fn &key (SERVER (erc-compute-server)) (PORT (erc-compute-port)) (NICK (erc-compute-nick)) PASSWORD (FULL-NAME (erc-compute-full-name)))" t nil) (defalias 'erc-select 'erc) @@ -8662,36 +8673,36 @@ Otherwise, connect to HOST:PORT as USER and /join CHANNEL. ;;;*** -;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (21604 +;;;;;; 48550 37934 215000)) ;;; Generated autoloads from erc/erc-autoaway.el (autoload 'erc-autoaway-mode "erc-autoaway") ;;;*** -;;;### (autoloads nil "erc-button" "erc/erc-button.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "erc-button" "erc/erc-button.el" (21604 48550 +;;;;;; 37934 215000)) ;;; Generated autoloads from erc/erc-button.el (autoload 'erc-button-mode "erc-button" nil t) ;;;*** -;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (21604 48550 +;;;;;; 41934 215000)) ;;; Generated autoloads from erc/erc-capab.el (autoload 'erc-capab-identify-mode "erc-capab" nil t) ;;;*** -;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (21604 48550 +;;;;;; 41934 215000)) ;;; Generated autoloads from erc/erc-compat.el (autoload 'erc-define-minor-mode "erc-compat") ;;;*** -;;;### (autoloads nil "erc-dcc" "erc/erc-dcc.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "erc-dcc" "erc/erc-dcc.el" (21604 48550 41934 +;;;;;; 215000)) ;;; Generated autoloads from erc/erc-dcc.el (autoload 'erc-dcc-mode "erc-dcc") @@ -8721,14 +8732,14 @@ that subcommand. ;;;*** ;;;### (autoloads nil "erc-desktop-notifications" "erc/erc-desktop-notifications.el" -;;;;;; (21617 49721 420132 227000)) +;;;;;; (21631 35966 831121 867000)) ;;; Generated autoloads from erc/erc-desktop-notifications.el (autoload 'erc-notifications-mode "erc-desktop-notifications" "" t) ;;;*** -;;;### (autoloads nil "erc-ezbounce" "erc/erc-ezbounce.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "erc-ezbounce" "erc/erc-ezbounce.el" (21604 +;;;;;; 48550 41934 215000)) ;;; Generated autoloads from erc/erc-ezbounce.el (autoload 'erc-cmd-ezb "erc-ezbounce" "\ @@ -8790,8 +8801,8 @@ Add EZBouncer convenience functions to ERC. ;;;*** -;;;### (autoloads nil "erc-fill" "erc/erc-fill.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "erc-fill" "erc/erc-fill.el" (21604 48550 41934 +;;;;;; 215000)) ;;; Generated autoloads from erc/erc-fill.el (autoload 'erc-fill-mode "erc-fill" nil t) @@ -8803,8 +8814,8 @@ You can put this on `erc-insert-modify-hook' and/or `erc-send-modify-hook'. ;;;*** -;;;### (autoloads nil "erc-identd" "erc/erc-identd.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "erc-identd" "erc/erc-identd.el" (21604 48550 +;;;;;; 45934 215000)) ;;; Generated autoloads from erc/erc-identd.el (autoload 'erc-identd-mode "erc-identd") @@ -8825,8 +8836,8 @@ system. ;;;*** -;;;### (autoloads nil "erc-imenu" "erc/erc-imenu.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "erc-imenu" "erc/erc-imenu.el" (21604 48550 +;;;;;; 45934 215000)) ;;; Generated autoloads from erc/erc-imenu.el (autoload 'erc-create-imenu-index "erc-imenu" "\ @@ -8836,22 +8847,22 @@ system. ;;;*** -;;;### (autoloads nil "erc-join" "erc/erc-join.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "erc-join" "erc/erc-join.el" (21604 48550 45934 +;;;;;; 215000)) ;;; Generated autoloads from erc/erc-join.el (autoload 'erc-autojoin-mode "erc-join" nil t) ;;;*** -;;;### (autoloads nil "erc-list" "erc/erc-list.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "erc-list" "erc/erc-list.el" (21604 48550 45934 +;;;;;; 215000)) ;;; Generated autoloads from erc/erc-list.el (autoload 'erc-list-mode "erc-list") ;;;*** -;;;### (autoloads nil "erc-log" "erc/erc-log.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "erc-log" "erc/erc-log.el" (21604 48550 45934 +;;;;;; 215000)) ;;; Generated autoloads from erc/erc-log.el (autoload 'erc-log-mode "erc-log" nil t) @@ -8880,8 +8891,8 @@ You can save every individual message by putting this function on ;;;*** -;;;### (autoloads nil "erc-match" "erc/erc-match.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "erc-match" "erc/erc-match.el" (21604 48550 +;;;;;; 45934 215000)) ;;; Generated autoloads from erc/erc-match.el (autoload 'erc-match-mode "erc-match") @@ -8927,15 +8938,15 @@ Delete dangerous-host interactively to `erc-dangerous-hosts'. ;;;*** -;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (21604 48550 45934 +;;;;;; 215000)) ;;; Generated autoloads from erc/erc-menu.el (autoload 'erc-menu-mode "erc-menu" nil t) ;;;*** -;;;### (autoloads nil "erc-netsplit" "erc/erc-netsplit.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "erc-netsplit" "erc/erc-netsplit.el" (21604 +;;;;;; 48550 45934 215000)) ;;; Generated autoloads from erc/erc-netsplit.el (autoload 'erc-netsplit-mode "erc-netsplit") @@ -8946,8 +8957,8 @@ Show who's gone. ;;;*** -;;;### (autoloads nil "erc-networks" "erc/erc-networks.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "erc-networks" "erc/erc-networks.el" (21604 +;;;;;; 48550 45934 215000)) ;;; Generated autoloads from erc/erc-networks.el (autoload 'erc-determine-network "erc-networks" "\ @@ -8964,8 +8975,8 @@ Interactively select a server to connect to using `erc-server-alist'. ;;;*** -;;;### (autoloads nil "erc-notify" "erc/erc-notify.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "erc-notify" "erc/erc-notify.el" (21604 48550 +;;;;;; 45934 215000)) ;;; Generated autoloads from erc/erc-notify.el (autoload 'erc-notify-mode "erc-notify" nil t) @@ -8983,36 +8994,36 @@ with args, toggle notify status of people. ;;;*** -;;;### (autoloads nil "erc-page" "erc/erc-page.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "erc-page" "erc/erc-page.el" (21604 48550 45934 +;;;;;; 215000)) ;;; Generated autoloads from erc/erc-page.el (autoload 'erc-page-mode "erc-page") ;;;*** -;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (21604 +;;;;;; 48550 45934 215000)) ;;; Generated autoloads from erc/erc-pcomplete.el (autoload 'erc-completion-mode "erc-pcomplete" nil t) ;;;*** -;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (21604 48550 +;;;;;; 45934 215000)) ;;; Generated autoloads from erc/erc-replace.el (autoload 'erc-replace-mode "erc-replace") ;;;*** -;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (21604 48550 45934 +;;;;;; 215000)) ;;; Generated autoloads from erc/erc-ring.el (autoload 'erc-ring-mode "erc-ring" nil t) ;;;*** -;;;### (autoloads nil "erc-services" "erc/erc-services.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "erc-services" "erc/erc-services.el" (21604 +;;;;;; 48550 45934 215000)) ;;; Generated autoloads from erc/erc-services.el (autoload 'erc-services-mode "erc-services" nil t) @@ -9029,15 +9040,15 @@ When called interactively, read the password using `read-passwd'. ;;;*** -;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (21604 48550 +;;;;;; 45934 215000)) ;;; Generated autoloads from erc/erc-sound.el (autoload 'erc-sound-mode "erc-sound") ;;;*** -;;;### (autoloads nil "erc-speedbar" "erc/erc-speedbar.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "erc-speedbar" "erc/erc-speedbar.el" (21604 +;;;;;; 48550 45934 215000)) ;;; Generated autoloads from erc/erc-speedbar.el (autoload 'erc-speedbar-browser "erc-speedbar" "\ @@ -9048,22 +9059,22 @@ This will add a speedbar major display mode. ;;;*** -;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (21604 +;;;;;; 48550 45934 215000)) ;;; Generated autoloads from erc/erc-spelling.el (autoload 'erc-spelling-mode "erc-spelling" nil t) ;;;*** -;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (21604 48550 +;;;;;; 45934 215000)) ;;; Generated autoloads from erc/erc-stamp.el (autoload 'erc-timestamp-mode "erc-stamp" nil t) ;;;*** -;;;### (autoloads nil "erc-track" "erc/erc-track.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "erc-track" "erc/erc-track.el" (21604 48550 +;;;;;; 45934 215000)) ;;; Generated autoloads from erc/erc-track.el (defvar erc-track-minor-mode nil "\ @@ -9088,8 +9099,8 @@ keybindings will not do anything useful. ;;;*** -;;;### (autoloads nil "erc-truncate" "erc/erc-truncate.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "erc-truncate" "erc/erc-truncate.el" (21604 +;;;;;; 48550 45934 215000)) ;;; Generated autoloads from erc/erc-truncate.el (autoload 'erc-truncate-mode "erc-truncate" nil t) @@ -9108,8 +9119,8 @@ Meant to be used in hooks, like `erc-insert-post-hook'. ;;;*** -;;;### (autoloads nil "erc-xdcc" "erc/erc-xdcc.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "erc-xdcc" "erc/erc-xdcc.el" (21604 48550 45934 +;;;;;; 215000)) ;;; Generated autoloads from erc/erc-xdcc.el (autoload 'erc-xdcc-mode "erc-xdcc") @@ -9120,8 +9131,8 @@ Add a file to `erc-xdcc-files'. ;;;*** -;;;### (autoloads nil "ert" "emacs-lisp/ert.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "ert" "emacs-lisp/ert.el" (21604 48550 17934 +;;;;;; 214000)) ;;; Generated autoloads from emacs-lisp/ert.el (autoload 'ert-deftest "ert" "\ @@ -9139,7 +9150,11 @@ Tests that are expected to fail can be marked as such using :expected-result. See `ert-test-result-type-p' for a description of valid values for RESULT-TYPE. -\(fn NAME () [DOCSTRING] [:expected-result RESULT-TYPE] [:tags '(TAG...)] BODY...)" nil (quote macro)) +\(fn NAME () [DOCSTRING] [:expected-result RESULT-TYPE] [:tags '(TAG...)] BODY...)" nil t) + +(function-put 'ert-deftest 'doc-string-elt '3) + +(function-put 'ert-deftest 'lisp-indent-function '2) (put 'ert-deftest 'lisp-indent-function 2) @@ -9186,8 +9201,8 @@ Display the documentation for TEST-OR-TEST-NAME (a symbol or ert-test). ;;;*** -;;;### (autoloads nil "ert-x" "emacs-lisp/ert-x.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "ert-x" "emacs-lisp/ert-x.el" (21604 48550 +;;;;;; 17934 214000)) ;;; Generated autoloads from emacs-lisp/ert-x.el (put 'ert-with-test-buffer 'lisp-indent-function 1) @@ -9199,8 +9214,8 @@ Kill all test buffers that are still live. ;;;*** -;;;### (autoloads nil "esh-mode" "eshell/esh-mode.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "esh-mode" "eshell/esh-mode.el" (21604 48550 +;;;;;; 53934 216000)) ;;; Generated autoloads from eshell/esh-mode.el (autoload 'eshell-mode "esh-mode" "\ @@ -9210,8 +9225,8 @@ Emacs shell interactive mode. ;;;*** -;;;### (autoloads nil "eshell" "eshell/eshell.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "eshell" "eshell/eshell.el" (21604 48550 53934 +;;;;;; 216000)) ;;; Generated autoloads from eshell/eshell.el (push (purecopy '(eshell 2 4 2)) package--builtin-versions) @@ -9246,8 +9261,8 @@ corresponding to a successful execution. ;;;*** -;;;### (autoloads nil "etags" "progmodes/etags.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "etags" "progmodes/etags.el" (21660 25453 16850 +;;;;;; 17000)) ;;; Generated autoloads from progmodes/etags.el (defvar tags-file-name nil "\ @@ -9340,6 +9355,11 @@ as they appeared in the `etags' command that created the table, usually without directory names. \(fn)" nil nil) + +(autoload 'tags-lazy-completion-table "etags" "\ + + +\(fn)" nil nil) (defun tags-completion-at-point-function () (if (or tags-table-list tags-file-name) (progn @@ -9388,7 +9408,6 @@ Contrast this with the ring of marks gone to by the command. See documentation of variable `tags-file-name'. \(fn TAGNAME &optional NEXT-P REGEXP-P)" t nil) - (define-key esc-map "." 'find-tag) (autoload 'find-tag-other-window "etags" "\ Find tag (in current tags table) whose name contains TAGNAME. @@ -9411,7 +9430,6 @@ Contrast this with the ring of marks gone to by the command. See documentation of variable `tags-file-name'. \(fn TAGNAME &optional NEXT-P REGEXP-P)" t nil) - (define-key ctl-x-4-map "." 'find-tag-other-window) (autoload 'find-tag-other-frame "etags" "\ Find tag (in current tags table) whose name contains TAGNAME. @@ -9434,7 +9452,6 @@ Contrast this with the ring of marks gone to by the command. See documentation of variable `tags-file-name'. \(fn TAGNAME &optional NEXT-P)" t nil) - (define-key ctl-x-5-map "." 'find-tag-other-frame) (autoload 'find-tag-regexp "etags" "\ Find tag (in current tags table) whose name matches REGEXP. @@ -9455,17 +9472,8 @@ Contrast this with the ring of marks gone to by the command. See documentation of variable `tags-file-name'. \(fn REGEXP &optional NEXT-P OTHER-WINDOW)" t nil) - (define-key esc-map [?\C-.] 'find-tag-regexp) - (define-key esc-map "*" 'pop-tag-mark) -(autoload 'pop-tag-mark "etags" "\ -Pop back to where \\[find-tag] was last invoked. - -This is distinct from invoking \\[find-tag] with a negative argument -since that pops a stack of markers at which tags were found, not from -where they were found. - -\(fn)" t nil) +(defalias 'pop-tag-mark 'xref-pop-marker-stack) (autoload 'next-file "etags" "\ Select next file among files in current tags table. @@ -9494,7 +9502,6 @@ evaluate to operate on an interesting file. If the latter evaluates to nil, we exit; otherwise we scan the next file. \(fn &optional FIRST-TIME)" t nil) - (define-key esc-map "," 'tags-loop-continue) (autoload 'tags-search "etags" "\ Search through all files listed in tags table for match for REGEXP. @@ -9553,10 +9560,15 @@ for \\[find-tag] (which see). \(fn)" t nil) +(autoload 'etags-xref-find "etags" "\ + + +\(fn ACTION ID)" nil nil) + ;;;*** -;;;### (autoloads nil "ethio-util" "language/ethio-util.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "ethio-util" "language/ethio-util.el" (21604 +;;;;;; 48550 145934 219000)) ;;; Generated autoloads from language/ethio-util.el (autoload 'setup-ethiopic-environment-internal "ethio-util" "\ @@ -9724,7 +9736,7 @@ With ARG, insert that many delimiters. ;;;*** -;;;### (autoloads nil "eudc" "net/eudc.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "eudc" "net/eudc.el" (21604 48550 213934 222000)) ;;; Generated autoloads from net/eudc.el (autoload 'eudc-set-server "eudc" "\ @@ -9778,8 +9790,8 @@ This does nothing except loading eudc by autoload side-effect. ;;;*** -;;;### (autoloads nil "eudc-bob" "net/eudc-bob.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "eudc-bob" "net/eudc-bob.el" (21604 48550 213934 +;;;;;; 222000)) ;;; Generated autoloads from net/eudc-bob.el (autoload 'eudc-display-generic-binary "eudc-bob" "\ @@ -9814,8 +9826,8 @@ Display a button for the JPEG DATA. ;;;*** -;;;### (autoloads nil "eudc-export" "net/eudc-export.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "eudc-export" "net/eudc-export.el" (21604 48550 +;;;;;; 213934 222000)) ;;; Generated autoloads from net/eudc-export.el (autoload 'eudc-insert-record-at-point-into-bbdb "eudc-export" "\ @@ -9831,8 +9843,8 @@ Call `eudc-insert-record-at-point-into-bbdb' if on a record. ;;;*** -;;;### (autoloads nil "eudc-hotlist" "net/eudc-hotlist.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "eudc-hotlist" "net/eudc-hotlist.el" (21604 +;;;;;; 48550 213934 222000)) ;;; Generated autoloads from net/eudc-hotlist.el (autoload 'eudc-edit-hotlist "eudc-hotlist" "\ @@ -9842,8 +9854,8 @@ Edit the hotlist of directory servers in a specialized buffer. ;;;*** -;;;### (autoloads nil "ewoc" "emacs-lisp/ewoc.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "ewoc" "emacs-lisp/ewoc.el" (21604 48550 17934 +;;;;;; 214000)) ;;; Generated autoloads from emacs-lisp/ewoc.el (autoload 'ewoc-create "ewoc" "\ @@ -9869,7 +9881,7 @@ fourth arg NOSEP non-nil inhibits this. ;;;*** -;;;### (autoloads nil "eww" "net/eww.el" (21628 44513 720130 219000)) +;;;### (autoloads nil "eww" "net/eww.el" (21640 32530 974334 457000)) ;;; Generated autoloads from net/eww.el (autoload 'eww "eww" "\ @@ -9903,8 +9915,8 @@ Display the bookmarks. ;;;*** -;;;### (autoloads nil "executable" "progmodes/executable.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "executable" "progmodes/executable.el" (21604 +;;;;;; 48550 333934 226000)) ;;; Generated autoloads from progmodes/executable.el (autoload 'executable-command-find-posix-p "executable" "\ @@ -9945,7 +9957,7 @@ file modes. ;;;*** -;;;### (autoloads nil "expand" "expand.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "expand" "expand.el" (21604 48550 53934 216000)) ;;; Generated autoloads from expand.el (autoload 'expand-add-abbrevs "expand" "\ @@ -9994,8 +10006,8 @@ This is used only in conjunction with `expand-add-abbrevs'. ;;;*** -;;;### (autoloads nil "f90" "progmodes/f90.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "f90" "progmodes/f90.el" (21604 48550 333934 +;;;;;; 226000)) ;;; Generated autoloads from progmodes/f90.el (autoload 'f90-mode "f90" "\ @@ -10062,8 +10074,8 @@ with no args, if that value is non-nil. ;;;*** -;;;### (autoloads nil "face-remap" "face-remap.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "face-remap" "face-remap.el" (21604 48550 53934 +;;;;;; 216000)) ;;; Generated autoloads from face-remap.el (autoload 'face-remap-add-relative "face-remap" "\ @@ -10222,8 +10234,8 @@ Besides the choice of face, it is the same as `buffer-face-mode'. ;;;*** -;;;### (autoloads nil "feedmail" "mail/feedmail.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "feedmail" "mail/feedmail.el" (21604 48550 +;;;;;; 181934 220000)) ;;; Generated autoloads from mail/feedmail.el (push (purecopy '(feedmail 11)) package--builtin-versions) @@ -10277,7 +10289,7 @@ you can set `feedmail-queue-reminder-alist' to nil. ;;;*** -;;;### (autoloads nil "ffap" "ffap.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "ffap" "ffap.el" (21604 48550 57934 216000)) ;;; Generated autoloads from ffap.el (autoload 'ffap-next "ffap" "\ @@ -10340,8 +10352,8 @@ Evaluate the forms in variable `ffap-bindings'. ;;;*** -;;;### (autoloads nil "filecache" "filecache.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "filecache" "filecache.el" (21604 48550 57934 +;;;;;; 216000)) ;;; Generated autoloads from filecache.el (autoload 'file-cache-add-directory "filecache" "\ @@ -10398,8 +10410,8 @@ the name is considered already unique; only the second substitution ;;;*** -;;;### (autoloads nil "filenotify" "filenotify.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "filenotify" "filenotify.el" (21604 48550 57934 +;;;;;; 216000)) ;;; Generated autoloads from filenotify.el (autoload 'file-notify-handle-event "filenotify" "\ @@ -10411,8 +10423,7 @@ Otherwise, signal a `file-notify-error'. ;;;*** -;;;### (autoloads nil "files-x" "files-x.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "files-x" "files-x.el" (21604 48550 57934 216000)) ;;; Generated autoloads from files-x.el (autoload 'add-file-local-variable "files-x" "\ @@ -10477,8 +10488,8 @@ Copy directory-local variables to the -*- line. ;;;*** -;;;### (autoloads nil "filesets" "filesets.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "filesets" "filesets.el" (21604 48550 61934 +;;;;;; 216000)) ;;; Generated autoloads from filesets.el (autoload 'filesets-init "filesets" "\ @@ -10489,8 +10500,8 @@ Set up hooks, load the cache file -- if existing -- and build the menu. ;;;*** -;;;### (autoloads nil "find-cmd" "find-cmd.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "find-cmd" "find-cmd.el" (21604 48550 61934 +;;;;;; 216000)) ;;; Generated autoloads from find-cmd.el (push (purecopy '(find-cmd 0 6)) package--builtin-versions) @@ -10510,8 +10521,8 @@ result is a string that should be ready for the command line. ;;;*** -;;;### (autoloads nil "find-dired" "find-dired.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "find-dired" "find-dired.el" (21604 48550 61934 +;;;;;; 216000)) ;;; Generated autoloads from find-dired.el (autoload 'find-dired "find-dired" "\ @@ -10551,8 +10562,8 @@ use in place of \"-ls\" as the final argument. ;;;*** -;;;### (autoloads nil "find-file" "find-file.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "find-file" "find-file.el" (21604 48550 61934 +;;;;;; 216000)) ;;; Generated autoloads from find-file.el (defvar ff-special-constructs `((,(purecopy "^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]") lambda nil (buffer-substring (match-beginning 2) (match-end 2)))) "\ @@ -10642,8 +10653,8 @@ Visit the file you click on in another window. ;;;*** -;;;### (autoloads nil "find-func" "emacs-lisp/find-func.el" (21607 -;;;;;; 54477 800124 118000)) +;;;### (autoloads nil "find-func" "emacs-lisp/find-func.el" (21640 +;;;;;; 60472 610520 813000)) ;;; Generated autoloads from emacs-lisp/find-func.el (autoload 'find-library "find-func" "\ @@ -10801,8 +10812,8 @@ Define some key bindings for the find-function family of functions. ;;;*** -;;;### (autoloads nil "find-lisp" "find-lisp.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "find-lisp" "find-lisp.el" (21604 48550 61934 +;;;;;; 216000)) ;;; Generated autoloads from find-lisp.el (autoload 'find-lisp-find-dired "find-lisp" "\ @@ -10822,7 +10833,7 @@ Change the filter on a `find-lisp-find-dired' buffer to REGEXP. ;;;*** -;;;### (autoloads nil "finder" "finder.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "finder" "finder.el" (21604 48550 61934 216000)) ;;; Generated autoloads from finder.el (push (purecopy '(finder 1 0)) package--builtin-versions) @@ -10844,8 +10855,8 @@ Find packages matching a given keyword. ;;;*** -;;;### (autoloads nil "flow-ctrl" "flow-ctrl.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "flow-ctrl" "flow-ctrl.el" (21604 48550 61934 +;;;;;; 216000)) ;;; Generated autoloads from flow-ctrl.el (autoload 'enable-flow-control "flow-ctrl" "\ @@ -10866,8 +10877,8 @@ to get the effect of a C-q. ;;;*** -;;;### (autoloads nil "flow-fill" "gnus/flow-fill.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "flow-fill" "gnus/flow-fill.el" (21604 48550 +;;;;;; 81934 217000)) ;;; Generated autoloads from gnus/flow-fill.el (autoload 'fill-flowed-encode "flow-fill" "\ @@ -10882,8 +10893,8 @@ to get the effect of a C-q. ;;;*** -;;;### (autoloads nil "flymake" "progmodes/flymake.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "flymake" "progmodes/flymake.el" (21604 48550 +;;;;;; 333934 226000)) ;;; Generated autoloads from progmodes/flymake.el (push (purecopy '(flymake 0 3)) package--builtin-versions) @@ -10913,8 +10924,8 @@ Turn flymake mode off. ;;;*** -;;;### (autoloads nil "flyspell" "textmodes/flyspell.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "flyspell" "textmodes/flyspell.el" (21604 48550 +;;;;;; 397934 228000)) ;;; Generated autoloads from textmodes/flyspell.el (autoload 'flyspell-prog-mode "flyspell" "\ @@ -10984,14 +10995,13 @@ Flyspell whole buffer. ;;;*** -;;;### (autoloads nil "foldout" "foldout.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "foldout" "foldout.el" (21604 48550 61934 216000)) ;;; Generated autoloads from foldout.el (push (purecopy '(foldout 1 10)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "follow" "follow.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "follow" "follow.el" (21604 48550 61934 216000)) ;;; Generated autoloads from follow.el (autoload 'turn-on-follow-mode "follow" "\ @@ -11059,8 +11069,8 @@ selected if the original window is the first one in the frame. ;;;*** -;;;### (autoloads nil "footnote" "mail/footnote.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "footnote" "mail/footnote.el" (21604 48550 +;;;;;; 181934 220000)) ;;; Generated autoloads from mail/footnote.el (push (purecopy '(footnote 0 19)) package--builtin-versions) @@ -11079,7 +11089,7 @@ play around with the following keys: ;;;*** -;;;### (autoloads nil "forms" "forms.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "forms" "forms.el" (21604 48550 65934 216000)) ;;; Generated autoloads from forms.el (autoload 'forms-mode "forms" "\ @@ -11115,8 +11125,8 @@ Visit a file in Forms mode in other window. ;;;*** -;;;### (autoloads nil "fortran" "progmodes/fortran.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "fortran" "progmodes/fortran.el" (21604 48550 +;;;;;; 337934 226000)) ;;; Generated autoloads from progmodes/fortran.el (autoload 'fortran-mode "fortran" "\ @@ -11193,8 +11203,8 @@ with no args, if that value is non-nil. ;;;*** -;;;### (autoloads nil "fortune" "play/fortune.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "fortune" "play/fortune.el" (21604 48550 305934 +;;;;;; 225000)) ;;; Generated autoloads from play/fortune.el (autoload 'fortune-add-fortune "fortune" "\ @@ -11242,8 +11252,8 @@ and choose the directory as the fortune-file. ;;;*** -;;;### (autoloads nil "frameset" "frameset.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "frameset" "frameset.el" (21604 48550 65934 +;;;;;; 216000)) ;;; Generated autoloads from frameset.el (defvar frameset-session-filter-alist '((name . :never) (left . frameset-filter-iconified) (minibuffer . frameset-filter-minibuffer) (top . frameset-filter-iconified)) "\ @@ -11429,15 +11439,15 @@ Interactively, reads the register using `register-read-with-preview'. ;;;*** -;;;### (autoloads nil "gamegrid" "play/gamegrid.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "gamegrid" "play/gamegrid.el" (21604 48550 +;;;;;; 305934 225000)) ;;; Generated autoloads from play/gamegrid.el (push (purecopy '(gamegrid 1 2)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "gdb-mi" "progmodes/gdb-mi.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "gdb-mi" "progmodes/gdb-mi.el" (21604 48550 +;;;;;; 337934 226000)) ;;; Generated autoloads from progmodes/gdb-mi.el (defvar gdb-enable-debug nil "\ @@ -11514,8 +11524,8 @@ detailed description of this mode. ;;;*** -;;;### (autoloads nil "generic" "emacs-lisp/generic.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "generic" "emacs-lisp/generic.el" (21604 48550 +;;;;;; 17934 214000)) ;;; Generated autoloads from emacs-lisp/generic.el (defvar generic-mode-list nil "\ @@ -11595,8 +11605,8 @@ regular expression that can be used as an element of ;;;*** -;;;### (autoloads nil "glasses" "progmodes/glasses.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "glasses" "progmodes/glasses.el" (21604 48550 +;;;;;; 337934 226000)) ;;; Generated autoloads from progmodes/glasses.el (autoload 'glasses-mode "glasses" "\ @@ -11610,8 +11620,8 @@ add virtual separators (like underscores) at places they belong to. ;;;*** -;;;### (autoloads nil "gmm-utils" "gnus/gmm-utils.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gmm-utils" "gnus/gmm-utils.el" (21604 48550 +;;;;;; 81934 217000)) ;;; Generated autoloads from gnus/gmm-utils.el (autoload 'gmm-regexp-concat "gmm-utils" "\ @@ -11665,7 +11675,7 @@ DEFAULT-MAP specifies the default key map for ICON-LIST. ;;;*** -;;;### (autoloads nil "gnus" "gnus/gnus.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "gnus" "gnus/gnus.el" (21604 48550 101934 217000)) ;;; Generated autoloads from gnus/gnus.el (push (purecopy '(gnus 5 13)) package--builtin-versions) (when (fboundp 'custom-autoload) @@ -11715,8 +11725,8 @@ prompt the user for the name of an NNTP server to use. ;;;*** -;;;### (autoloads nil "gnus-agent" "gnus/gnus-agent.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gnus-agent" "gnus/gnus-agent.el" (21604 48550 +;;;;;; 85934 217000)) ;;; Generated autoloads from gnus/gnus-agent.el (autoload 'gnus-unplugged "gnus-agent" "\ @@ -11806,8 +11816,8 @@ CLEAN is obsolete and ignored. ;;;*** -;;;### (autoloads nil "gnus-art" "gnus/gnus-art.el" (21623 2108 292281 -;;;;;; 129000)) +;;;### (autoloads nil "gnus-art" "gnus/gnus-art.el" (21651 20707 +;;;;;; 176225 752000)) ;;; Generated autoloads from gnus/gnus-art.el (autoload 'gnus-article-prepare-display "gnus-art" "\ @@ -11817,8 +11827,8 @@ Make the current buffer look like a nice article. ;;;*** -;;;### (autoloads nil "gnus-bookmark" "gnus/gnus-bookmark.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "gnus-bookmark" "gnus/gnus-bookmark.el" (21645 +;;;;;; 25761 793186 828000)) ;;; Generated autoloads from gnus/gnus-bookmark.el (autoload 'gnus-bookmark-set "gnus-bookmark" "\ @@ -11841,8 +11851,8 @@ deletion, or > if it is flagged for displaying. ;;;*** -;;;### (autoloads nil "gnus-cache" "gnus/gnus-cache.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gnus-cache" "gnus/gnus-cache.el" (21604 48550 +;;;;;; 85934 217000)) ;;; Generated autoloads from gnus/gnus-cache.el (autoload 'gnus-jog-cache "gnus-cache" "\ @@ -11883,8 +11893,8 @@ supported. ;;;*** -;;;### (autoloads nil "gnus-delay" "gnus/gnus-delay.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gnus-delay" "gnus/gnus-delay.el" (21604 48550 +;;;;;; 89934 217000)) ;;; Generated autoloads from gnus/gnus-delay.el (autoload 'gnus-delay-article "gnus-delay" "\ @@ -11919,8 +11929,8 @@ Checking delayed messages is skipped if optional arg NO-CHECK is non-nil. ;;;*** -;;;### (autoloads nil "gnus-diary" "gnus/gnus-diary.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gnus-diary" "gnus/gnus-diary.el" (21604 48550 +;;;;;; 89934 217000)) ;;; Generated autoloads from gnus/gnus-diary.el (autoload 'gnus-user-format-function-d "gnus-diary" "\ @@ -11935,8 +11945,8 @@ Checking delayed messages is skipped if optional arg NO-CHECK is non-nil. ;;;*** -;;;### (autoloads nil "gnus-dired" "gnus/gnus-dired.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gnus-dired" "gnus/gnus-dired.el" (21604 48550 +;;;;;; 89934 217000)) ;;; Generated autoloads from gnus/gnus-dired.el (autoload 'turn-on-gnus-dired-mode "gnus-dired" "\ @@ -11946,8 +11956,8 @@ Convenience method to turn on gnus-dired-mode. ;;;*** -;;;### (autoloads nil "gnus-draft" "gnus/gnus-draft.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gnus-draft" "gnus/gnus-draft.el" (21604 48550 +;;;;;; 89934 217000)) ;;; Generated autoloads from gnus/gnus-draft.el (autoload 'gnus-draft-reminder "gnus-draft" "\ @@ -11957,8 +11967,8 @@ Reminder user if there are unsent drafts. ;;;*** -;;;### (autoloads nil "gnus-fun" "gnus/gnus-fun.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gnus-fun" "gnus/gnus-fun.el" (21604 48550 +;;;;;; 89934 217000)) ;;; Generated autoloads from gnus/gnus-fun.el (autoload 'gnus--random-face-with-type "gnus-fun" "\ @@ -12023,8 +12033,8 @@ Insert a random Face header from `gnus-face-directory'. ;;;*** -;;;### (autoloads nil "gnus-gravatar" "gnus/gnus-gravatar.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "gnus-gravatar" "gnus/gnus-gravatar.el" (21604 +;;;;;; 48550 89934 217000)) ;;; Generated autoloads from gnus/gnus-gravatar.el (autoload 'gnus-treat-from-gravatar "gnus-gravatar" "\ @@ -12041,8 +12051,8 @@ If gravatars are already displayed, remove them. ;;;*** -;;;### (autoloads nil "gnus-group" "gnus/gnus-group.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gnus-group" "gnus/gnus-group.el" (21604 48550 +;;;;;; 89934 217000)) ;;; Generated autoloads from gnus/gnus-group.el (autoload 'gnus-fetch-group "gnus-group" "\ @@ -12059,8 +12069,8 @@ Pop up a frame and enter GROUP. ;;;*** -;;;### (autoloads nil "gnus-html" "gnus/gnus-html.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gnus-html" "gnus/gnus-html.el" (21604 48550 +;;;;;; 89934 217000)) ;;; Generated autoloads from gnus/gnus-html.el (autoload 'gnus-article-html "gnus-html" "\ @@ -12075,8 +12085,8 @@ Pop up a frame and enter GROUP. ;;;*** -;;;### (autoloads nil "gnus-kill" "gnus/gnus-kill.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gnus-kill" "gnus/gnus-kill.el" (21604 48550 +;;;;;; 93934 217000)) ;;; Generated autoloads from gnus/gnus-kill.el (defalias 'gnus-batch-kill 'gnus-batch-score) @@ -12089,8 +12099,8 @@ Usage: emacs -batch -l ~/.emacs -l gnus -f gnus-batch-score ;;;*** -;;;### (autoloads nil "gnus-ml" "gnus/gnus-ml.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "gnus-ml" "gnus/gnus-ml.el" (21604 48550 93934 +;;;;;; 217000)) ;;; Generated autoloads from gnus/gnus-ml.el (autoload 'turn-on-gnus-mailing-list-mode "gnus-ml" "\ @@ -12113,8 +12123,8 @@ Minor mode for providing mailing-list commands. ;;;*** -;;;### (autoloads nil "gnus-mlspl" "gnus/gnus-mlspl.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gnus-mlspl" "gnus/gnus-mlspl.el" (21604 48550 +;;;;;; 93934 217000)) ;;; Generated autoloads from gnus/gnus-mlspl.el (autoload 'gnus-group-split-setup "gnus-mlspl" "\ @@ -12214,8 +12224,8 @@ Calling (gnus-group-split-fancy nil nil \"mail.others\") returns: ;;;*** -;;;### (autoloads nil "gnus-msg" "gnus/gnus-msg.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gnus-msg" "gnus/gnus-msg.el" (21604 48550 +;;;;;; 93934 217000)) ;;; Generated autoloads from gnus/gnus-msg.el (autoload 'gnus-msg-mail "gnus-msg" "\ @@ -12242,7 +12252,7 @@ Like `message-reply'. ;;;*** ;;;### (autoloads nil "gnus-notifications" "gnus/gnus-notifications.el" -;;;;;; (21607 54478 300138 641000)) +;;;;;; (21631 35966 851121 868000)) ;;; Generated autoloads from gnus/gnus-notifications.el (autoload 'gnus-notifications "gnus-notifications" "\ @@ -12258,8 +12268,8 @@ This is typically a function to add in ;;;*** -;;;### (autoloads nil "gnus-picon" "gnus/gnus-picon.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gnus-picon" "gnus/gnus-picon.el" (21604 48550 +;;;;;; 93934 217000)) ;;; Generated autoloads from gnus/gnus-picon.el (autoload 'gnus-treat-from-picon "gnus-picon" "\ @@ -12282,8 +12292,8 @@ If picons are already displayed, remove them. ;;;*** -;;;### (autoloads nil "gnus-range" "gnus/gnus-range.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gnus-range" "gnus/gnus-range.el" (21604 48550 +;;;;;; 93934 217000)) ;;; Generated autoloads from gnus/gnus-range.el (autoload 'gnus-sorted-difference "gnus-range" "\ @@ -12350,8 +12360,8 @@ Add NUM into sorted LIST by side effect. ;;;*** -;;;### (autoloads nil "gnus-registry" "gnus/gnus-registry.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "gnus-registry" "gnus/gnus-registry.el" (21650 +;;;;;; 56624 523745 975000)) ;;; Generated autoloads from gnus/gnus-registry.el (autoload 'gnus-registry-initialize "gnus-registry" "\ @@ -12366,8 +12376,8 @@ Install the registry hooks. ;;;*** -;;;### (autoloads nil "gnus-sieve" "gnus/gnus-sieve.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gnus-sieve" "gnus/gnus-sieve.el" (21604 48550 +;;;;;; 93934 217000)) ;;; Generated autoloads from gnus/gnus-sieve.el (autoload 'gnus-sieve-update "gnus-sieve" "\ @@ -12394,8 +12404,8 @@ See the documentation for these variables and functions for details. ;;;*** -;;;### (autoloads nil "gnus-spec" "gnus/gnus-spec.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gnus-spec" "gnus/gnus-spec.el" (21604 48550 +;;;;;; 93934 217000)) ;;; Generated autoloads from gnus/gnus-spec.el (autoload 'gnus-update-format "gnus-spec" "\ @@ -12405,8 +12415,8 @@ Update the format specification near point. ;;;*** -;;;### (autoloads nil "gnus-start" "gnus/gnus-start.el" (21620 25920 -;;;;;; 601566 783000)) +;;;### (autoloads nil "gnus-start" "gnus/gnus-start.el" (21631 35966 +;;;;;; 851121 868000)) ;;; Generated autoloads from gnus/gnus-start.el (autoload 'gnus-declare-backend "gnus-start" "\ @@ -12416,8 +12426,8 @@ Declare back end NAME with ABILITIES as a Gnus back end. ;;;*** -;;;### (autoloads nil "gnus-sum" "gnus/gnus-sum.el" (21623 2108 292281 -;;;;;; 129000)) +;;;### (autoloads nil "gnus-sum" "gnus/gnus-sum.el" (21631 35966 +;;;;;; 855121 868000)) ;;; Generated autoloads from gnus/gnus-sum.el (autoload 'gnus-summary-bookmark-jump "gnus-sum" "\ @@ -12428,8 +12438,8 @@ BOOKMARK is a bookmark name or a bookmark record. ;;;*** -;;;### (autoloads nil "gnus-sync" "gnus/gnus-sync.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gnus-sync" "gnus/gnus-sync.el" (21604 48550 +;;;;;; 101934 217000)) ;;; Generated autoloads from gnus/gnus-sync.el (autoload 'gnus-sync-initialize "gnus-sync" "\ @@ -12444,8 +12454,8 @@ Install the sync hooks. ;;;*** -;;;### (autoloads nil "gnus-win" "gnus/gnus-win.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gnus-win" "gnus/gnus-win.el" (21604 48550 +;;;;;; 101934 217000)) ;;; Generated autoloads from gnus/gnus-win.el (autoload 'gnus-add-configuration "gnus-win" "\ @@ -12455,8 +12465,8 @@ Add the window configuration CONF to `gnus-buffer-configuration'. ;;;*** -;;;### (autoloads nil "gnutls" "net/gnutls.el" (21620 46140 530123 -;;;;;; 341000)) +;;;### (autoloads nil "gnutls" "net/gnutls.el" (21640 32530 974334 +;;;;;; 457000)) ;;; Generated autoloads from net/gnutls.el (defvar gnutls-min-prime-bits 256 "\ @@ -12472,8 +12482,8 @@ A value of nil says to use the default GnuTLS value.") ;;;*** -;;;### (autoloads nil "gomoku" "play/gomoku.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "gomoku" "play/gomoku.el" (21604 48550 305934 +;;;;;; 225000)) ;;; Generated autoloads from play/gomoku.el (autoload 'gomoku "gomoku" "\ @@ -12499,8 +12509,8 @@ Use \\[describe-mode] for more info. ;;;*** -;;;### (autoloads nil "goto-addr" "net/goto-addr.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "goto-addr" "net/goto-addr.el" (21604 48550 +;;;;;; 217934 222000)) ;;; Generated autoloads from net/goto-addr.el (define-obsolete-function-alias 'goto-address-at-mouse 'goto-address-at-point "22.1") @@ -12541,8 +12551,8 @@ Like `goto-address-mode', but only for comments and strings. ;;;*** -;;;### (autoloads nil "gravatar" "gnus/gravatar.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "gravatar" "gnus/gravatar.el" (21604 48550 +;;;;;; 101934 217000)) ;;; Generated autoloads from gnus/gravatar.el (autoload 'gravatar-retrieve "gravatar" "\ @@ -12558,8 +12568,8 @@ Retrieve MAIL-ADDRESS gravatar and returns it. ;;;*** -;;;### (autoloads nil "grep" "progmodes/grep.el" (21612 31801 50825 -;;;;;; 711000)) +;;;### (autoloads nil "grep" "progmodes/grep.el" (21631 35966 907121 +;;;;;; 870000)) ;;; Generated autoloads from progmodes/grep.el (defvar grep-window-height nil "\ @@ -12723,7 +12733,7 @@ file name to `*.gz', and sets `grep-highlight-matches' to `always'. ;;;*** -;;;### (autoloads nil "gs" "gs.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "gs" "gs.el" (21604 48550 121934 218000)) ;;; Generated autoloads from gs.el (autoload 'gs-load-image "gs" "\ @@ -12736,8 +12746,8 @@ the form \"WINDOW-ID PIXMAP-ID\". Value is non-nil if successful. ;;;*** -;;;### (autoloads nil "gud" "progmodes/gud.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "gud" "progmodes/gud.el" (21640 32530 986334 +;;;;;; 458000)) ;;; Generated autoloads from progmodes/gud.el (autoload 'gud-gdb "gud" "\ @@ -12832,8 +12842,8 @@ it if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "gv" "emacs-lisp/gv.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "gv" "emacs-lisp/gv.el" (21604 48550 17934 +;;;;;; 214000)) ;;; Generated autoloads from emacs-lisp/gv.el (autoload 'gv-get "gv" "\ @@ -12935,8 +12945,8 @@ binding mode. ;;;*** -;;;### (autoloads nil "handwrite" "play/handwrite.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "handwrite" "play/handwrite.el" (21604 48550 +;;;;;; 305934 225000)) ;;; Generated autoloads from play/handwrite.el (autoload 'handwrite "handwrite" "\ @@ -12953,8 +12963,8 @@ Variables: `handwrite-linespace' (default 12) ;;;*** -;;;### (autoloads nil "hanoi" "play/hanoi.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "hanoi" "play/hanoi.el" (21604 48550 305934 +;;;;;; 225000)) ;;; Generated autoloads from play/hanoi.el (autoload 'hanoi "hanoi" "\ @@ -12981,8 +12991,8 @@ to be updated. ;;;*** -;;;### (autoloads nil "hashcash" "mail/hashcash.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "hashcash" "mail/hashcash.el" (21604 48550 +;;;;;; 181934 220000)) ;;; Generated autoloads from mail/hashcash.el (autoload 'hashcash-insert-payment "hashcash" "\ @@ -13024,8 +13034,8 @@ Prefix arg sets default accept amount temporarily. ;;;*** -;;;### (autoloads nil "help-at-pt" "help-at-pt.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "help-at-pt" "help-at-pt.el" (21604 48550 121934 +;;;;;; 218000)) ;;; Generated autoloads from help-at-pt.el (autoload 'help-at-pt-string "help-at-pt" "\ @@ -13152,8 +13162,8 @@ different regions. With numeric argument ARG, behaves like ;;;*** -;;;### (autoloads nil "help-fns" "help-fns.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "help-fns" "help-fns.el" (21604 48550 121934 +;;;;;; 218000)) ;;; Generated autoloads from help-fns.el (autoload 'describe-function "help-fns" "\ @@ -13232,8 +13242,8 @@ Produce a texinfo buffer with sorted doc-strings from the DOC file. ;;;*** -;;;### (autoloads nil "help-macro" "help-macro.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "help-macro" "help-macro.el" (21604 48550 121934 +;;;;;; 218000)) ;;; Generated autoloads from help-macro.el (defvar three-step-help nil "\ @@ -13247,8 +13257,8 @@ gives the window that lists the options.") ;;;*** -;;;### (autoloads nil "help-mode" "help-mode.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "help-mode" "help-mode.el" (21604 48550 121934 +;;;;;; 218000)) ;;; Generated autoloads from help-mode.el (autoload 'help-mode "help-mode" "\ @@ -13347,8 +13357,8 @@ BOOKMARK is a bookmark name or a bookmark record. ;;;*** -;;;### (autoloads nil "helper" "emacs-lisp/helper.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "helper" "emacs-lisp/helper.el" (21604 48550 +;;;;;; 17934 214000)) ;;; Generated autoloads from emacs-lisp/helper.el (autoload 'Helper-describe-bindings "helper" "\ @@ -13363,7 +13373,7 @@ Provide help for current mode. ;;;*** -;;;### (autoloads nil "hexl" "hexl.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "hexl" "hexl.el" (21604 48550 125934 218000)) ;;; Generated autoloads from hexl.el (autoload 'hexl-mode "hexl" "\ @@ -13457,8 +13467,8 @@ This discards the buffer's undo information. ;;;*** -;;;### (autoloads nil "hi-lock" "hi-lock.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "hi-lock" "hi-lock.el" (21604 48550 125934 +;;;;;; 218000)) ;;; Generated autoloads from hi-lock.el (autoload 'hi-lock-mode "hi-lock" "\ @@ -13625,8 +13635,8 @@ be found in variable `hi-lock-interactive-patterns'. ;;;*** -;;;### (autoloads nil "hideif" "progmodes/hideif.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "hideif" "progmodes/hideif.el" (21604 48550 +;;;;;; 337934 226000)) ;;; Generated autoloads from progmodes/hideif.el (autoload 'hide-ifdef-mode "hideif" "\ @@ -13673,8 +13683,8 @@ Several variables affect how the hiding is done: ;;;*** -;;;### (autoloads nil "hideshow" "progmodes/hideshow.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "hideshow" "progmodes/hideshow.el" (21604 48550 +;;;;;; 341934 226000)) ;;; Generated autoloads from progmodes/hideshow.el (defvar hs-special-modes-alist (mapcar 'purecopy '((c-mode "{" "}" "/[*/]" nil nil) (c++-mode "{" "}" "/[*/]" nil nil) (bibtex-mode ("@\\S(*\\(\\s(\\)" 1)) (java-mode "{" "}" "/[*/]" nil nil) (js-mode "{" "}" "/[*/]" nil))) "\ @@ -13736,8 +13746,8 @@ Unconditionally turn off `hs-minor-mode'. ;;;*** -;;;### (autoloads nil "hilit-chg" "hilit-chg.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "hilit-chg" "hilit-chg.el" (21604 48550 125934 +;;;;;; 218000)) ;;; Generated autoloads from hilit-chg.el (autoload 'highlight-changes-mode "hilit-chg" "\ @@ -13868,8 +13878,8 @@ See `highlight-changes-mode' for more information on Highlight-Changes mode. ;;;*** -;;;### (autoloads nil "hippie-exp" "hippie-exp.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "hippie-exp" "hippie-exp.el" (21604 48550 125934 +;;;;;; 218000)) ;;; Generated autoloads from hippie-exp.el (push (purecopy '(hippie-exp 1 6)) package--builtin-versions) @@ -13901,8 +13911,8 @@ argument VERBOSE non-nil makes the function verbose. ;;;*** -;;;### (autoloads nil "hl-line" "hl-line.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "hl-line" "hl-line.el" (21604 48550 125934 +;;;;;; 218000)) ;;; Generated autoloads from hl-line.el (autoload 'hl-line-mode "hl-line" "\ @@ -13951,8 +13961,8 @@ Global-Hl-Line mode uses the functions `global-hl-line-unhighlight' and ;;;*** -;;;### (autoloads nil "holidays" "calendar/holidays.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "holidays" "calendar/holidays.el" (21604 48549 +;;;;;; 953934 212000)) ;;; Generated autoloads from calendar/holidays.el (defvar holiday-general-holidays (mapcar 'purecopy '((holiday-fixed 1 1 "New Year's Day") (holiday-float 1 1 3 "Martin Luther King Day") (holiday-fixed 2 2 "Groundhog Day") (holiday-fixed 2 14 "Valentine's Day") (holiday-float 2 1 3 "President's Day") (holiday-fixed 3 17 "St. Patrick's Day") (holiday-fixed 4 1 "April Fools' Day") (holiday-float 5 0 2 "Mother's Day") (holiday-float 5 1 -1 "Memorial Day") (holiday-fixed 6 14 "Flag Day") (holiday-float 6 0 3 "Father's Day") (holiday-fixed 7 4 "Independence Day") (holiday-float 9 1 1 "Labor Day") (holiday-float 10 1 2 "Columbus Day") (holiday-fixed 10 31 "Halloween") (holiday-fixed 11 11 "Veteran's Day") (holiday-float 11 4 4 "Thanksgiving"))) "\ @@ -14062,8 +14072,8 @@ The optional LABEL is used to label the buffer created. ;;;*** -;;;### (autoloads nil "html2text" "gnus/html2text.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "html2text" "gnus/html2text.el" (21604 48550 +;;;;;; 101934 217000)) ;;; Generated autoloads from gnus/html2text.el (autoload 'html2text "html2text" "\ @@ -14073,8 +14083,8 @@ Convert HTML to plain text in the current buffer. ;;;*** -;;;### (autoloads nil "htmlfontify" "htmlfontify.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "htmlfontify" "htmlfontify.el" (21604 48550 +;;;;;; 125934 218000)) ;;; Generated autoloads from htmlfontify.el (push (purecopy '(htmlfontify 0 21)) package--builtin-versions) @@ -14107,8 +14117,8 @@ You may also want to set `hfy-page-header' and `hfy-page-footer'. ;;;*** -;;;### (autoloads nil "ibuf-macs" "ibuf-macs.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "ibuf-macs" "ibuf-macs.el" (21604 48550 125934 +;;;;;; 218000)) ;;; Generated autoloads from ibuf-macs.el (autoload 'define-ibuffer-column "ibuf-macs" "\ @@ -14134,7 +14144,9 @@ inlined into the compiled format versions. This means that if you change its definition, you should explicitly call `ibuffer-recompile-formats'. -\(fn SYMBOL (&key NAME INLINE PROPS SUMMARIZER) &rest BODY)" nil (quote macro)) +\(fn SYMBOL (&key NAME INLINE PROPS SUMMARIZER) &rest BODY)" nil t) + +(function-put 'define-ibuffer-column 'lisp-indent-function 'defun) (autoload 'define-ibuffer-sorter "ibuf-macs" "\ Define a method of sorting named NAME. @@ -14146,7 +14158,11 @@ For sorting, the forms in BODY will be evaluated with `a' bound to one buffer object, and `b' bound to another. BODY should return a non-nil value if and only if `a' is \"less than\" `b'. -\(fn NAME DOCUMENTATION (&key DESCRIPTION) &rest BODY)" nil (quote macro)) +\(fn NAME DOCUMENTATION (&key DESCRIPTION) &rest BODY)" nil t) + +(function-put 'define-ibuffer-sorter 'lisp-indent-function '1) + +(function-put 'define-ibuffer-sorter 'doc-string-elt '2) (autoload 'define-ibuffer-op "ibuf-macs" "\ Generate a function which operates on a buffer. @@ -14179,7 +14195,11 @@ confirmation message, in the form: COMPLEX means this function is special; see the source code of this macro for exactly what it does. -\(fn OP ARGS DOCUMENTATION (&key INTERACTIVE MARK MODIFIER-P DANGEROUS OPSTRING ACTIVE-OPSTRING COMPLEX) &rest BODY)" nil (quote macro)) +\(fn OP ARGS DOCUMENTATION (&key INTERACTIVE MARK MODIFIER-P DANGEROUS OPSTRING ACTIVE-OPSTRING COMPLEX) &rest BODY)" nil t) + +(function-put 'define-ibuffer-op 'lisp-indent-function '2) + +(function-put 'define-ibuffer-op 'doc-string-elt '3) (autoload 'define-ibuffer-filter "ibuf-macs" "\ Define a filter named NAME. @@ -14192,12 +14212,16 @@ not a particular buffer should be displayed or not. The forms in BODY will be evaluated with BUF bound to the buffer object, and QUALIFIER bound to the current value of the filter. -\(fn NAME DOCUMENTATION (&key READER DESCRIPTION) &rest BODY)" nil (quote macro)) +\(fn NAME DOCUMENTATION (&key READER DESCRIPTION) &rest BODY)" nil t) + +(function-put 'define-ibuffer-filter 'lisp-indent-function '2) + +(function-put 'define-ibuffer-filter 'doc-string-elt '2) ;;;*** -;;;### (autoloads nil "ibuffer" "ibuffer.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "ibuffer" "ibuffer.el" (21604 48550 129934 +;;;;;; 218000)) ;;; Generated autoloads from ibuffer.el (autoload 'ibuffer-list-buffers "ibuffer" "\ @@ -14236,8 +14260,8 @@ FORMATS is the value to use for `ibuffer-formats'. ;;;*** -;;;### (autoloads nil "icalendar" "calendar/icalendar.el" (21611 -;;;;;; 10937 700236 3000)) +;;;### (autoloads nil "icalendar" "calendar/icalendar.el" (21631 +;;;;;; 35966 803121 866000)) ;;; Generated autoloads from calendar/icalendar.el (push (purecopy '(icalendar 0 19)) package--builtin-versions) @@ -14290,8 +14314,8 @@ buffer `*icalendar-errors*'. ;;;*** -;;;### (autoloads nil "icomplete" "icomplete.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "icomplete" "icomplete.el" (21604 48550 129934 +;;;;;; 218000)) ;;; Generated autoloads from icomplete.el (defvar icomplete-mode nil "\ @@ -14330,8 +14354,8 @@ completions: ;;;*** -;;;### (autoloads nil "icon" "progmodes/icon.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "icon" "progmodes/icon.el" (21604 48550 341934 +;;;;;; 226000)) ;;; Generated autoloads from progmodes/icon.el (autoload 'icon-mode "icon" "\ @@ -14371,8 +14395,8 @@ with no args, if that value is non-nil. ;;;*** -;;;### (autoloads nil "idlw-shell" "progmodes/idlw-shell.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "idlw-shell" "progmodes/idlw-shell.el" (21604 +;;;;;; 48550 341934 226000)) ;;; Generated autoloads from progmodes/idlw-shell.el (autoload 'idlwave-shell "idlw-shell" "\ @@ -14397,8 +14421,8 @@ See also the variable `idlwave-shell-prompt-pattern'. ;;;*** -;;;### (autoloads nil "idlwave" "progmodes/idlwave.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "idlwave" "progmodes/idlwave.el" (21645 25761 +;;;;;; 805186 828000)) ;;; Generated autoloads from progmodes/idlwave.el (push (purecopy '(idlwave 6 1 22)) package--builtin-versions) @@ -14527,7 +14551,7 @@ The main features of this mode are ;;;*** -;;;### (autoloads nil "ido" "ido.el" (21612 31801 50825 711000)) +;;;### (autoloads nil "ido" "ido.el" (21631 35966 863121 868000)) ;;; Generated autoloads from ido.el (defvar ido-mode nil "\ @@ -14789,7 +14813,7 @@ DEF, if non-nil, is the default value. ;;;*** -;;;### (autoloads nil "ielm" "ielm.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "ielm" "ielm.el" (21604 48550 129934 218000)) ;;; Generated autoloads from ielm.el (autoload 'ielm "ielm" "\ @@ -14801,7 +14825,7 @@ See `inferior-emacs-lisp-mode' for details. ;;;*** -;;;### (autoloads nil "iimage" "iimage.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "iimage" "iimage.el" (21604 48550 129934 218000)) ;;; Generated autoloads from iimage.el (define-obsolete-function-alias 'turn-on-iimage-mode 'iimage-mode "24.1") @@ -14817,7 +14841,7 @@ the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'. ;;;*** -;;;### (autoloads nil "image" "image.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "image" "image.el" (21604 48550 133934 219000)) ;;; Generated autoloads from image.el (autoload 'image-type-from-data "image" "\ @@ -15010,8 +15034,8 @@ If Emacs is compiled without ImageMagick support, this does nothing. ;;;*** -;;;### (autoloads nil "image-dired" "image-dired.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "image-dired" "image-dired.el" (21604 48550 +;;;;;; 129934 218000)) ;;; Generated autoloads from image-dired.el (push (purecopy '(image-dired 0 4 11)) package--builtin-versions) @@ -15148,8 +15172,8 @@ easy-to-use form. ;;;*** -;;;### (autoloads nil "image-file" "image-file.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "image-file" "image-file.el" (21604 48550 129934 +;;;;;; 218000)) ;;; Generated autoloads from image-file.el (defvar image-file-name-extensions (purecopy '("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm" "svg")) "\ @@ -15211,8 +15235,8 @@ An image file is one whose name has an extension in ;;;*** -;;;### (autoloads nil "image-mode" "image-mode.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "image-mode" "image-mode.el" (21604 48550 129934 +;;;;;; 218000)) ;;; Generated autoloads from image-mode.el (autoload 'image-mode "image-mode" "\ @@ -15259,7 +15283,7 @@ on these modes. ;;;*** -;;;### (autoloads nil "imenu" "imenu.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "imenu" "imenu.el" (21604 48550 133934 219000)) ;;; Generated autoloads from imenu.el (defvar imenu-sort-function nil "\ @@ -15397,8 +15421,8 @@ for more information. ;;;*** -;;;### (autoloads nil "ind-util" "language/ind-util.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "ind-util" "language/ind-util.el" (21604 48550 +;;;;;; 153934 219000)) ;;; Generated autoloads from language/ind-util.el (autoload 'indian-compose-region "ind-util" "\ @@ -15428,8 +15452,8 @@ Convert old Emacs Devanagari characters to UCS. ;;;*** -;;;### (autoloads nil "inf-lisp" "progmodes/inf-lisp.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "inf-lisp" "progmodes/inf-lisp.el" (21604 48550 +;;;;;; 345934 227000)) ;;; Generated autoloads from progmodes/inf-lisp.el (autoload 'inferior-lisp "inf-lisp" "\ @@ -15447,7 +15471,7 @@ of `inferior-lisp-program'). Runs the hooks from ;;;*** -;;;### (autoloads nil "info" "info.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "info" "info.el" (21640 32530 970334 457000)) ;;; Generated autoloads from info.el (defcustom Info-default-directory-list (let* ((config-dir (file-name-as-directory (or (and (featurep 'ns) (let ((dir (expand-file-name "../info" data-directory))) (if (file-directory-p dir) dir))) configure-info-directory))) (prefixes (prune-directory-list '("/usr/local/" "/usr/" "/opt/" "/"))) (suffixes '("share/" "" "gnu/" "gnu/lib/" "gnu/lib/emacs/" "emacs/" "lib/" "lib/emacs/")) (standard-info-dirs (apply #'nconc (mapcar (lambda (pfx) (let ((dirs (mapcar (lambda (sfx) (concat pfx sfx "info/")) suffixes))) (prune-directory-list dirs))) prefixes))) (dirs (if (member config-dir standard-info-dirs) (nconc standard-info-dirs (list config-dir)) (cons config-dir standard-info-dirs)))) (if (not (eq system-type 'windows-nt)) dirs (let* ((instdir (file-name-directory invocation-directory)) (dir1 (expand-file-name "../info/" instdir)) (dir2 (expand-file-name "../../../info/" instdir))) (cond ((file-exists-p dir1) (append dirs (list dir1))) ((file-exists-p dir2) (append dirs (list dir2))) (t dirs))))) "\ @@ -15657,8 +15681,8 @@ Otherwise, visit the manual in a new Info buffer. ;;;*** -;;;### (autoloads nil "info-look" "info-look.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "info-look" "info-look.el" (21604 48550 133934 +;;;;;; 219000)) ;;; Generated autoloads from info-look.el (autoload 'info-lookup-reset "info-look" "\ @@ -15705,8 +15729,8 @@ Perform completion on file preceding point. ;;;*** -;;;### (autoloads nil "info-xref" "info-xref.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "info-xref" "info-xref.el" (21604 48550 133934 +;;;;;; 219000)) ;;; Generated autoloads from info-xref.el (push (purecopy '(info-xref 3)) package--builtin-versions) @@ -15789,8 +15813,8 @@ the sources handy. ;;;*** -;;;### (autoloads nil "informat" "informat.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "informat" "informat.el" (21604 48550 133934 +;;;;;; 219000)) ;;; Generated autoloads from informat.el (autoload 'Info-tagify "informat" "\ @@ -15835,8 +15859,8 @@ For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\" ;;;*** -;;;### (autoloads nil "inline" "emacs-lisp/inline.el" (21628 43483 -;;;;;; 380149 771000)) +;;;### (autoloads nil "inline" "emacs-lisp/inline.el" (21631 35966 +;;;;;; 827121 867000)) ;;; Generated autoloads from emacs-lisp/inline.el (autoload 'define-inline "inline" "\ @@ -15850,8 +15874,8 @@ For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\" ;;;*** -;;;### (autoloads nil "inversion" "cedet/inversion.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "inversion" "cedet/inversion.el" (21604 48549 +;;;;;; 965934 212000)) ;;; Generated autoloads from cedet/inversion.el (push (purecopy '(inversion 1 3)) package--builtin-versions) @@ -15863,8 +15887,8 @@ Only checks one based on which kind of Emacs is being run. ;;;*** -;;;### (autoloads nil "isearch-x" "international/isearch-x.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "isearch-x" "international/isearch-x.el" (21604 +;;;;;; 48550 137934 219000)) ;;; Generated autoloads from international/isearch-x.el (autoload 'isearch-toggle-specified-input-method "isearch-x" "\ @@ -15884,8 +15908,8 @@ Toggle input method in interactive search. ;;;*** -;;;### (autoloads nil "isearchb" "isearchb.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "isearchb" "isearchb.el" (21604 48550 145934 +;;;;;; 219000)) ;;; Generated autoloads from isearchb.el (push (purecopy '(isearchb 1 5)) package--builtin-versions) @@ -15899,8 +15923,8 @@ accessed via isearchb. ;;;*** -;;;### (autoloads nil "iso-cvt" "international/iso-cvt.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "iso-cvt" "international/iso-cvt.el" (21604 +;;;;;; 48550 137934 219000)) ;;; Generated autoloads from international/iso-cvt.el (autoload 'iso-spanish "iso-cvt" "\ @@ -15991,15 +16015,15 @@ Add submenus to the File menu, to convert to and from various formats. ;;;*** ;;;### (autoloads nil "iso-transl" "international/iso-transl.el" -;;;;;; (21607 54478 300138 641000)) +;;;;;; (21604 48550 137934 219000)) ;;; Generated autoloads from international/iso-transl.el (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map) (autoload 'iso-transl-ctl-x-8-map "iso-transl" "Keymap for C-x 8 prefix." t 'keymap) ;;;*** -;;;### (autoloads nil "ispell" "textmodes/ispell.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "ispell" "textmodes/ispell.el" (21659 61733 +;;;;;; 226949 164000)) ;;; Generated autoloads from textmodes/ispell.el (put 'ispell-check-comments 'safe-local-variable (lambda (a) (memq a '(nil t exclusive)))) @@ -16232,8 +16256,8 @@ You can bind this to the key C-c i in GNUS or mail by adding to ;;;*** -;;;### (autoloads nil "japan-util" "language/japan-util.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "japan-util" "language/japan-util.el" (21604 +;;;;;; 48550 153934 219000)) ;;; Generated autoloads from language/japan-util.el (autoload 'setup-japanese-environment-internal "japan-util" "\ @@ -16310,8 +16334,8 @@ If non-nil, second arg INITIAL-INPUT is a string to insert before reading. ;;;*** -;;;### (autoloads nil "jka-compr" "jka-compr.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "jka-compr" "jka-compr.el" (21604 48550 145934 +;;;;;; 219000)) ;;; Generated autoloads from jka-compr.el (defvar jka-compr-inhibit nil "\ @@ -16334,7 +16358,8 @@ by `jka-compr-installed'. ;;;*** -;;;### (autoloads nil "js" "progmodes/js.el" (21623 2108 292281 129000)) +;;;### (autoloads nil "js" "progmodes/js.el" (21659 61733 222949 +;;;;;; 164000)) ;;; Generated autoloads from progmodes/js.el (push (purecopy '(js 9)) package--builtin-versions) @@ -16348,14 +16373,14 @@ Major mode for editing JavaScript. ;;;*** -;;;### (autoloads nil "json" "json.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "json" "json.el" (21604 48550 145934 219000)) ;;; Generated autoloads from json.el (push (purecopy '(json 1 4)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "keypad" "emulation/keypad.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "keypad" "emulation/keypad.el" (21604 48550 +;;;;;; 29934 215000)) ;;; Generated autoloads from emulation/keypad.el (defvar keypad-setup nil "\ @@ -16410,8 +16435,8 @@ the decimal key on the keypad is mapped to DECIMAL instead of `.' ;;;*** -;;;### (autoloads nil "kinsoku" "international/kinsoku.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "kinsoku" "international/kinsoku.el" (21604 +;;;;;; 48550 137934 219000)) ;;; Generated autoloads from international/kinsoku.el (autoload 'kinsoku "kinsoku" "\ @@ -16432,8 +16457,8 @@ the context of text formatting. ;;;*** -;;;### (autoloads nil "kkc" "international/kkc.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "kkc" "international/kkc.el" (21604 48550 137934 +;;;;;; 219000)) ;;; Generated autoloads from international/kkc.el (defvar kkc-after-update-conversion-functions nil "\ @@ -16455,7 +16480,7 @@ and the return value is the length of the conversion. ;;;*** -;;;### (autoloads nil "kmacro" "kmacro.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "kmacro" "kmacro.el" (21604 48550 145934 219000)) ;;; Generated autoloads from kmacro.el (global-set-key "\C-x(" 'kmacro-start-macro) (global-set-key "\C-x)" 'kmacro-end-macro) @@ -16567,8 +16592,8 @@ If kbd macro currently being defined end it before activating it. ;;;*** -;;;### (autoloads nil "korea-util" "language/korea-util.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "korea-util" "language/korea-util.el" (21604 +;;;;;; 48550 153934 219000)) ;;; Generated autoloads from language/korea-util.el (defvar default-korean-keyboard (purecopy (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) "3" "")) "\ @@ -16582,8 +16607,8 @@ The kind of Korean keyboard for Korean input method. ;;;*** -;;;### (autoloads nil "landmark" "play/landmark.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "landmark" "play/landmark.el" (21604 48550 +;;;;;; 305934 225000)) ;;; Generated autoloads from play/landmark.el (push (purecopy '(landmark 1 0)) package--builtin-versions) @@ -16614,8 +16639,8 @@ Use \\[describe-mode] for more info. ;;;*** -;;;### (autoloads nil "lao-util" "language/lao-util.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "lao-util" "language/lao-util.el" (21604 48550 +;;;;;; 153934 219000)) ;;; Generated autoloads from language/lao-util.el (autoload 'lao-compose-string "lao-util" "\ @@ -16652,8 +16677,8 @@ Transcribe Romanized Lao string STR to Lao character string. ;;;*** -;;;### (autoloads nil "latexenc" "international/latexenc.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "latexenc" "international/latexenc.el" (21604 +;;;;;; 48550 137934 219000)) ;;; Generated autoloads from international/latexenc.el (defvar latex-inputenc-coding-alist (purecopy '(("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))) "\ @@ -16685,7 +16710,7 @@ coding system names is determined from `latex-inputenc-coding-alist'. ;;;*** ;;;### (autoloads nil "latin1-disp" "international/latin1-disp.el" -;;;;;; (21607 54478 300138 641000)) +;;;;;; (21604 48550 137934 219000)) ;;; Generated autoloads from international/latin1-disp.el (defvar latin1-display nil "\ @@ -16726,8 +16751,8 @@ use either \\[customize] or the function `latin1-display'.") ;;;*** -;;;### (autoloads nil "ld-script" "progmodes/ld-script.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "ld-script" "progmodes/ld-script.el" (21604 +;;;;;; 48550 345934 227000)) ;;; Generated autoloads from progmodes/ld-script.el (autoload 'ld-script-mode "ld-script" "\ @@ -16737,7 +16762,47 @@ A major mode to edit GNU ld script files ;;;*** -;;;### (autoloads nil "life" "play/life.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "let-alist" "let-alist.el" (21659 61733 206949 +;;;;;; 164000)) +;;; Generated autoloads from let-alist.el +(push (purecopy '(let-alist 1 0 3)) package--builtin-versions) + +(autoload 'let-alist "let-alist" "\ +Let-bind dotted symbols to their cdrs in ALIST and execute BODY. +Dotted symbol is any symbol starting with a `.'. Only those present +in BODY are let-bound and this search is done at compile time. + +For instance, the following code + + (let-alist alist + (if (and .title .body) + .body + .site + .site.contents)) + +essentially expands to + + (let ((.title (cdr (assq 'title alist))) + (.body (cdr (assq 'body alist))) + (.site (cdr (assq 'site alist))) + (.site.contents (cdr (assq 'contents (cdr (assq 'site alist)))))) + (if (and .title .body) + .body + .site + .site.contents)) + +If you nest `let-alist' invocations, the inner one can't access +the variables of the outer one. You can, however, access alists +inside the original alist by using dots inside the symbol, as +displayed in the example above. + +\(fn ALIST &rest BODY)" nil t) + +(function-put 'let-alist 'lisp-indent-function '1) + +;;;*** + +;;;### (autoloads nil "life" "play/life.el" (21604 48550 305934 225000)) ;;; Generated autoloads from play/life.el (autoload 'life "life" "\ @@ -16750,7 +16815,7 @@ generations (this defaults to 1). ;;;*** -;;;### (autoloads nil "linum" "linum.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "linum" "linum.el" (21651 20707 180225 752000)) ;;; Generated autoloads from linum.el (push (purecopy '(linum 0 9 24)) package--builtin-versions) @@ -16787,8 +16852,8 @@ See `linum-mode' for more information on Linum mode. ;;;*** -;;;### (autoloads nil "loadhist" "loadhist.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "loadhist" "loadhist.el" (21604 48550 177934 +;;;;;; 220000)) ;;; Generated autoloads from loadhist.el (autoload 'unload-feature "loadhist" "\ @@ -16819,7 +16884,7 @@ something strange, such as redefining an Emacs function. ;;;*** -;;;### (autoloads nil "locate" "locate.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "locate" "locate.el" (21604 48550 177934 220000)) ;;; Generated autoloads from locate.el (defvar locate-ls-subdir-switches (purecopy "-al") "\ @@ -16871,8 +16936,8 @@ except that FILTER is not optional. ;;;*** -;;;### (autoloads nil "log-edit" "vc/log-edit.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "log-edit" "vc/log-edit.el" (21604 48550 429934 +;;;;;; 230000)) ;;; Generated autoloads from vc/log-edit.el (autoload 'log-edit "log-edit" "\ @@ -16903,8 +16968,8 @@ done. Otherwise, it uses the current buffer. ;;;*** -;;;### (autoloads nil "log-view" "vc/log-view.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "log-view" "vc/log-view.el" (21604 48550 429934 +;;;;;; 230000)) ;;; Generated autoloads from vc/log-view.el (autoload 'log-view-mode "log-view" "\ @@ -16914,7 +16979,7 @@ Major mode for browsing CVS log output. ;;;*** -;;;### (autoloads nil "lpr" "lpr.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "lpr" "lpr.el" (21604 48550 181934 220000)) ;;; Generated autoloads from lpr.el (defvar lpr-windows-system (memq system-type '(ms-dos windows-nt)) "\ @@ -17009,8 +17074,8 @@ for further customization of the printer command. ;;;*** -;;;### (autoloads nil "ls-lisp" "ls-lisp.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "ls-lisp" "ls-lisp.el" (21604 48550 181934 +;;;;;; 220000)) ;;; Generated autoloads from ls-lisp.el (defvar ls-lisp-support-shell-wildcards t "\ @@ -17021,8 +17086,8 @@ Otherwise they are treated as Emacs regexps (for backward compatibility).") ;;;*** -;;;### (autoloads nil "lunar" "calendar/lunar.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "lunar" "calendar/lunar.el" (21604 48549 953934 +;;;;;; 212000)) ;;; Generated autoloads from calendar/lunar.el (autoload 'lunar-phases "lunar" "\ @@ -17034,8 +17099,8 @@ This function is suitable for execution in an init file. ;;;*** -;;;### (autoloads nil "m4-mode" "progmodes/m4-mode.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "m4-mode" "progmodes/m4-mode.el" (21604 48550 +;;;;;; 345934 227000)) ;;; Generated autoloads from progmodes/m4-mode.el (autoload 'm4-mode "m4-mode" "\ @@ -17045,7 +17110,7 @@ A major mode to edit m4 macro files. ;;;*** -;;;### (autoloads nil "macros" "macros.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "macros" "macros.el" (21604 48550 181934 220000)) ;;; Generated autoloads from macros.el (autoload 'name-last-kbd-macro "macros" "\ @@ -17134,8 +17199,8 @@ and then select the region of un-tablified names and use ;;;*** -;;;### (autoloads nil "mail-extr" "mail/mail-extr.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "mail-extr" "mail/mail-extr.el" (21604 48550 +;;;;;; 181934 220000)) ;;; Generated autoloads from mail/mail-extr.el (autoload 'mail-extract-address-components "mail-extr" "\ @@ -17165,8 +17230,8 @@ Convert mail domain DOMAIN to the country it corresponds to. ;;;*** -;;;### (autoloads nil "mail-hist" "mail/mail-hist.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "mail-hist" "mail/mail-hist.el" (21604 48550 +;;;;;; 181934 220000)) ;;; Generated autoloads from mail/mail-hist.el (autoload 'mail-hist-define-keys "mail-hist" "\ @@ -17195,8 +17260,8 @@ This function normally would be called when the message is sent. ;;;*** -;;;### (autoloads nil "mail-utils" "mail/mail-utils.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "mail-utils" "mail/mail-utils.el" (21604 48550 +;;;;;; 181934 220000)) ;;; Generated autoloads from mail/mail-utils.el (defvar mail-use-rfc822 nil "\ @@ -17270,8 +17335,8 @@ matches may be returned from the message body. ;;;*** -;;;### (autoloads nil "mailabbrev" "mail/mailabbrev.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "mailabbrev" "mail/mailabbrev.el" (21604 48550 +;;;;;; 181934 220000)) ;;; Generated autoloads from mail/mailabbrev.el (defvar mail-abbrevs-mode nil "\ @@ -17320,8 +17385,8 @@ double-quotes. ;;;*** -;;;### (autoloads nil "mailalias" "mail/mailalias.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "mailalias" "mail/mailalias.el" (21604 48550 +;;;;;; 185934 221000)) ;;; Generated autoloads from mail/mailalias.el (defvar mail-complete-style 'angles "\ @@ -17374,8 +17439,8 @@ current header, calls `mail-complete-function' and passes prefix ARG if any. ;;;*** -;;;### (autoloads nil "mailclient" "mail/mailclient.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "mailclient" "mail/mailclient.el" (21604 48550 +;;;;;; 185934 221000)) ;;; Generated autoloads from mail/mailclient.el (autoload 'mailclient-send-it "mailclient" "\ @@ -17387,8 +17452,8 @@ The mail client is taken to be the handler of mailto URLs. ;;;*** -;;;### (autoloads nil "make-mode" "progmodes/make-mode.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "make-mode" "progmodes/make-mode.el" (21604 +;;;;;; 48550 349934 227000)) ;;; Generated autoloads from progmodes/make-mode.el (autoload 'makefile-mode "make-mode" "\ @@ -17505,8 +17570,8 @@ An adapted `makefile-mode' that knows about imake. ;;;*** -;;;### (autoloads nil "makesum" "makesum.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "makesum" "makesum.el" (21604 48550 189934 +;;;;;; 221000)) ;;; Generated autoloads from makesum.el (autoload 'make-command-summary "makesum" "\ @@ -17517,7 +17582,7 @@ Previous contents of that buffer are killed first. ;;;*** -;;;### (autoloads nil "man" "man.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "man" "man.el" (21604 48550 189934 221000)) ;;; Generated autoloads from man.el (defalias 'manual-entry 'man) @@ -17573,7 +17638,7 @@ Default bookmark handler for Man buffers. ;;;*** -;;;### (autoloads nil "master" "master.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "master" "master.el" (21604 48550 193934 221000)) ;;; Generated autoloads from master.el (push (purecopy '(master 1 0 2)) package--builtin-versions) @@ -17596,8 +17661,8 @@ yourself the value of `master-of' by calling `master-show-slave'. ;;;*** -;;;### (autoloads nil "mb-depth" "mb-depth.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "mb-depth" "mb-depth.el" (21604 48550 193934 +;;;;;; 221000)) ;;; Generated autoloads from mb-depth.el (defvar minibuffer-depth-indicate-mode nil "\ @@ -17624,14 +17689,14 @@ recursion depth in the minibuffer prompt. This is only useful if ;;;*** -;;;### (autoloads nil "md4" "md4.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "md4" "md4.el" (21604 48550 193934 221000)) ;;; Generated autoloads from md4.el (push (purecopy '(md4 1 0)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "message" "gnus/message.el" (21623 2108 292281 -;;;;;; 129000)) +;;;### (autoloads nil "message" "gnus/message.el" (21637 50476 671217 +;;;;;; 121000)) ;;; Generated autoloads from gnus/message.el (define-mail-user-agent 'message-user-agent 'message-mail 'message-send-and-exit 'message-kill-buffer 'message-send-hook) @@ -17796,8 +17861,8 @@ which specify the range to operate on. ;;;*** -;;;### (autoloads nil "meta-mode" "progmodes/meta-mode.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "meta-mode" "progmodes/meta-mode.el" (21604 +;;;;;; 48550 349934 227000)) ;;; Generated autoloads from progmodes/meta-mode.el (push (purecopy '(meta-mode 1 0)) package--builtin-versions) @@ -17813,8 +17878,8 @@ Major mode for editing MetaPost sources. ;;;*** -;;;### (autoloads nil "metamail" "mail/metamail.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "metamail" "mail/metamail.el" (21604 48550 +;;;;;; 185934 221000)) ;;; Generated autoloads from mail/metamail.el (autoload 'metamail-interpret-header "metamail" "\ @@ -17857,8 +17922,8 @@ redisplayed as output is inserted. ;;;*** -;;;### (autoloads nil "mh-comp" "mh-e/mh-comp.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "mh-comp" "mh-e/mh-comp.el" (21604 48550 197934 +;;;;;; 221000)) ;;; Generated autoloads from mh-e/mh-comp.el (autoload 'mh-smail "mh-comp" "\ @@ -17948,7 +18013,7 @@ delete the draft message. ;;;*** -;;;### (autoloads nil "mh-e" "mh-e/mh-e.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "mh-e" "mh-e/mh-e.el" (21604 48550 197934 221000)) ;;; Generated autoloads from mh-e/mh-e.el (push (purecopy '(mh-e 8 6)) package--builtin-versions) @@ -17965,8 +18030,8 @@ Display version information about MH-E and the MH mail handling system. ;;;*** -;;;### (autoloads nil "mh-folder" "mh-e/mh-folder.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "mh-folder" "mh-e/mh-folder.el" (21604 48550 +;;;;;; 201934 221000)) ;;; Generated autoloads from mh-e/mh-folder.el (autoload 'mh-rmail "mh-folder" "\ @@ -18047,8 +18112,8 @@ perform the operation on all messages in that region. ;;;*** -;;;### (autoloads nil "midnight" "midnight.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "midnight" "midnight.el" (21604 48550 205934 +;;;;;; 221000)) ;;; Generated autoloads from midnight.el (autoload 'clean-buffer-list "midnight" "\ @@ -18074,8 +18139,8 @@ to its second argument TM. ;;;*** -;;;### (autoloads nil "minibuf-eldef" "minibuf-eldef.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "minibuf-eldef" "minibuf-eldef.el" (21604 48550 +;;;;;; 205934 221000)) ;;; Generated autoloads from minibuf-eldef.el (defvar minibuffer-electric-default-mode nil "\ @@ -18104,7 +18169,7 @@ is modified to remove the default indication. ;;;*** -;;;### (autoloads nil "misc" "misc.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "misc" "misc.el" (21604 48550 209934 221000)) ;;; Generated autoloads from misc.el (autoload 'butterfly "misc" "\ @@ -18132,8 +18197,8 @@ The return value is always nil. ;;;*** -;;;### (autoloads nil "misearch" "misearch.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "misearch" "misearch.el" (21604 48550 209934 +;;;;;; 221000)) ;;; Generated autoloads from misearch.el (add-hook 'isearch-mode-hook 'multi-isearch-setup) @@ -18218,8 +18283,8 @@ whose file names match the specified wildcard. ;;;*** -;;;### (autoloads nil "mixal-mode" "progmodes/mixal-mode.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "mixal-mode" "progmodes/mixal-mode.el" (21604 +;;;;;; 48550 349934 227000)) ;;; Generated autoloads from progmodes/mixal-mode.el (push (purecopy '(mixal-mode 0 1)) package--builtin-versions) @@ -18230,8 +18295,8 @@ Major mode for the mixal asm language. ;;;*** -;;;### (autoloads nil "mm-encode" "gnus/mm-encode.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "mm-encode" "gnus/mm-encode.el" (21604 48550 +;;;;;; 105934 218000)) ;;; Generated autoloads from gnus/mm-encode.el (autoload 'mm-default-file-encoding "mm-encode" "\ @@ -18241,8 +18306,8 @@ Return a default encoding for FILE. ;;;*** -;;;### (autoloads nil "mm-extern" "gnus/mm-extern.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "mm-extern" "gnus/mm-extern.el" (21604 48550 +;;;;;; 105934 218000)) ;;; Generated autoloads from gnus/mm-extern.el (autoload 'mm-extern-cache-contents "mm-extern" "\ @@ -18260,8 +18325,8 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing. ;;;*** -;;;### (autoloads nil "mm-partial" "gnus/mm-partial.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "mm-partial" "gnus/mm-partial.el" (21604 48550 +;;;;;; 105934 218000)) ;;; Generated autoloads from gnus/mm-partial.el (autoload 'mm-inline-partial "mm-partial" "\ @@ -18274,8 +18339,8 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing. ;;;*** -;;;### (autoloads nil "mm-url" "gnus/mm-url.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "mm-url" "gnus/mm-url.el" (21604 48550 109934 +;;;;;; 218000)) ;;; Generated autoloads from gnus/mm-url.el (autoload 'mm-url-insert-file-contents "mm-url" "\ @@ -18291,8 +18356,8 @@ Insert file contents of URL using `mm-url-program'. ;;;*** -;;;### (autoloads nil "mm-uu" "gnus/mm-uu.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "mm-uu" "gnus/mm-uu.el" (21604 48550 109934 +;;;;;; 218000)) ;;; Generated autoloads from gnus/mm-uu.el (autoload 'mm-uu-dissect "mm-uu" "\ @@ -18311,7 +18376,7 @@ Assume text has been decoded if DECODED is non-nil. ;;;*** -;;;### (autoloads nil "mml" "gnus/mml.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "mml" "gnus/mml.el" (21604 48550 109934 218000)) ;;; Generated autoloads from gnus/mml.el (autoload 'mml-to-mime "mml" "\ @@ -18336,8 +18401,8 @@ body) or \"attachment\" (separate from the body). ;;;*** -;;;### (autoloads nil "mml1991" "gnus/mml1991.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "mml1991" "gnus/mml1991.el" (21604 48550 109934 +;;;;;; 218000)) ;;; Generated autoloads from gnus/mml1991.el (autoload 'mml1991-encrypt "mml1991" "\ @@ -18352,8 +18417,8 @@ body) or \"attachment\" (separate from the body). ;;;*** -;;;### (autoloads nil "mml2015" "gnus/mml2015.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "mml2015" "gnus/mml2015.el" (21604 48550 109934 +;;;;;; 218000)) ;;; Generated autoloads from gnus/mml2015.el (autoload 'mml2015-decrypt "mml2015" "\ @@ -18393,16 +18458,16 @@ body) or \"attachment\" (separate from the body). ;;;*** -;;;### (autoloads nil "mode-local" "cedet/mode-local.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "mode-local" "cedet/mode-local.el" (21604 48549 +;;;;;; 965934 212000)) ;;; Generated autoloads from cedet/mode-local.el (put 'define-overloadable-function 'doc-string-elt 3) ;;;*** -;;;### (autoloads nil "modula2" "progmodes/modula2.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "modula2" "progmodes/modula2.el" (21604 48550 +;;;;;; 349934 227000)) ;;; Generated autoloads from progmodes/modula2.el (defalias 'modula-2-mode 'm2-mode) @@ -18435,8 +18500,8 @@ followed by the first character of the construct. ;;;*** -;;;### (autoloads nil "morse" "play/morse.el" (21616 28857 81577 -;;;;;; 239000)) +;;;### (autoloads nil "morse" "play/morse.el" (21631 35966 895121 +;;;;;; 869000)) ;;; Generated autoloads from play/morse.el (autoload 'morse-region "morse" "\ @@ -18461,8 +18526,8 @@ Convert NATO phonetic alphabet in region to ordinary ASCII text. ;;;*** -;;;### (autoloads nil "mouse-drag" "mouse-drag.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "mouse-drag" "mouse-drag.el" (21604 48550 209934 +;;;;;; 221000)) ;;; Generated autoloads from mouse-drag.el (autoload 'mouse-drag-throw "mouse-drag" "\ @@ -18509,7 +18574,7 @@ To test this function, evaluate: ;;;*** -;;;### (autoloads nil "mpc" "mpc.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "mpc" "mpc.el" (21604 48550 209934 221000)) ;;; Generated autoloads from mpc.el (autoload 'mpc "mpc" "\ @@ -18519,7 +18584,7 @@ Main entry point for MPC. ;;;*** -;;;### (autoloads nil "mpuz" "play/mpuz.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "mpuz" "play/mpuz.el" (21604 48550 305934 225000)) ;;; Generated autoloads from play/mpuz.el (autoload 'mpuz "mpuz" "\ @@ -18529,7 +18594,7 @@ Multiplication puzzle with GNU Emacs. ;;;*** -;;;### (autoloads nil "msb" "msb.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "msb" "msb.el" (21604 48550 209934 221000)) ;;; Generated autoloads from msb.el (defvar msb-mode nil "\ @@ -18554,8 +18619,8 @@ different buffer menu using the function `msb'. ;;;*** -;;;### (autoloads nil "mule-diag" "international/mule-diag.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "mule-diag" "international/mule-diag.el" (21651 +;;;;;; 20707 180225 752000)) ;;; Generated autoloads from international/mule-diag.el (autoload 'list-character-sets "mule-diag" "\ @@ -18687,8 +18752,8 @@ The default is 20. If LIMIT is negative, do not limit the listing. ;;;*** -;;;### (autoloads nil "mule-util" "international/mule-util.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "mule-util" "international/mule-util.el" (21604 +;;;;;; 48550 141934 219000)) ;;; Generated autoloads from international/mule-util.el (defsubst string-to-list (string) "\ @@ -18819,8 +18884,8 @@ per-character basis, this may not be accurate. ;;;*** -;;;### (autoloads nil "net-utils" "net/net-utils.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "net-utils" "net/net-utils.el" (21604 48550 +;;;;;; 217934 222000)) ;;; Generated autoloads from net/net-utils.el (autoload 'ifconfig "net-utils" "\ @@ -18914,8 +18979,8 @@ Open a network connection to HOST on PORT. ;;;*** -;;;### (autoloads nil "netrc" "net/netrc.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "netrc" "net/netrc.el" (21604 48550 217934 +;;;;;; 222000)) ;;; Generated autoloads from net/netrc.el (autoload 'netrc-credentials "netrc" "\ @@ -18927,8 +18992,8 @@ listed in the PORTS list. ;;;*** -;;;### (autoloads nil "network-stream" "net/network-stream.el" (21619 -;;;;;; 5051 260148 536000)) +;;;### (autoloads nil "network-stream" "net/network-stream.el" (21645 +;;;;;; 25761 793186 828000)) ;;; Generated autoloads from net/network-stream.el (autoload 'open-network-stream "network-stream" "\ @@ -19024,8 +19089,8 @@ asynchronously, if possible. ;;;*** -;;;### (autoloads nil "newst-backend" "net/newst-backend.el" (21628 -;;;;;; 45530 160140 360000)) +;;;### (autoloads nil "newst-backend" "net/newst-backend.el" (21631 +;;;;;; 35966 879121 869000)) ;;; Generated autoloads from net/newst-backend.el (autoload 'newsticker-running-p "newst-backend" "\ @@ -19047,7 +19112,7 @@ Run `newsticker-start-hook' if newsticker was not running already. ;;;*** ;;;### (autoloads nil "newst-plainview" "net/newst-plainview.el" -;;;;;; (21607 54478 300138 641000)) +;;;;;; (21604 48550 217934 222000)) ;;; Generated autoloads from net/newst-plainview.el (autoload 'newsticker-plainview "newst-plainview" "\ @@ -19057,8 +19122,8 @@ Start newsticker plainview. ;;;*** -;;;### (autoloads nil "newst-reader" "net/newst-reader.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "newst-reader" "net/newst-reader.el" (21604 +;;;;;; 48550 217934 222000)) ;;; Generated autoloads from net/newst-reader.el (autoload 'newsticker-show-news "newst-reader" "\ @@ -19068,8 +19133,8 @@ Start reading news. You may want to bind this to a key. ;;;*** -;;;### (autoloads nil "newst-ticker" "net/newst-ticker.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "newst-ticker" "net/newst-ticker.el" (21604 +;;;;;; 48550 221934 222000)) ;;; Generated autoloads from net/newst-ticker.el (autoload 'newsticker-ticker-running-p "newst-ticker" "\ @@ -19089,8 +19154,8 @@ running already. ;;;*** -;;;### (autoloads nil "newst-treeview" "net/newst-treeview.el" (21628 -;;;;;; 45530 160140 360000)) +;;;### (autoloads nil "newst-treeview" "net/newst-treeview.el" (21637 +;;;;;; 50476 675217 121000)) ;;; Generated autoloads from net/newst-treeview.el (autoload 'newsticker-treeview "newst-treeview" "\ @@ -19100,8 +19165,8 @@ Start newsticker treeview. ;;;*** -;;;### (autoloads nil "nndiary" "gnus/nndiary.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "nndiary" "gnus/nndiary.el" (21604 48550 109934 +;;;;;; 218000)) ;;; Generated autoloads from gnus/nndiary.el (autoload 'nndiary-generate-nov-databases "nndiary" "\ @@ -19111,8 +19176,8 @@ Generate NOV databases in all nndiary directories. ;;;*** -;;;### (autoloads nil "nndoc" "gnus/nndoc.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "nndoc" "gnus/nndoc.el" (21604 48550 109934 +;;;;;; 218000)) ;;; Generated autoloads from gnus/nndoc.el (autoload 'nndoc-add-type "nndoc" "\ @@ -19126,8 +19191,8 @@ symbol in the alist. ;;;*** -;;;### (autoloads nil "nnfolder" "gnus/nnfolder.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "nnfolder" "gnus/nnfolder.el" (21604 48550 +;;;;;; 113934 218000)) ;;; Generated autoloads from gnus/nnfolder.el (autoload 'nnfolder-generate-active-file "nnfolder" "\ @@ -19138,7 +19203,7 @@ This command does not work if you use short group names. ;;;*** -;;;### (autoloads nil "nnml" "gnus/nnml.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "nnml" "gnus/nnml.el" (21604 48550 117934 218000)) ;;; Generated autoloads from gnus/nnml.el (autoload 'nnml-generate-nov-databases "nnml" "\ @@ -19148,7 +19213,7 @@ Generate NOV databases in all nnml directories. ;;;*** -;;;### (autoloads nil "novice" "novice.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "novice" "novice.el" (21604 48550 237934 223000)) ;;; Generated autoloads from novice.el (define-obsolete-variable-alias 'disabled-command-hook 'disabled-command-function "22.1") @@ -19180,8 +19245,8 @@ future sessions. ;;;*** -;;;### (autoloads nil "nroff-mode" "textmodes/nroff-mode.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "nroff-mode" "textmodes/nroff-mode.el" (21604 +;;;;;; 48550 397934 228000)) ;;; Generated autoloads from textmodes/nroff-mode.el (autoload 'nroff-mode "nroff-mode" "\ @@ -19195,14 +19260,14 @@ closing requests for requests that are used in matched pairs. ;;;*** -;;;### (autoloads nil "ntlm" "net/ntlm.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "ntlm" "net/ntlm.el" (21604 48550 221934 222000)) ;;; Generated autoloads from net/ntlm.el (push (purecopy '(ntlm 1 0)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "nxml-glyph" "nxml/nxml-glyph.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "nxml-glyph" "nxml/nxml-glyph.el" (21604 48550 +;;;;;; 237934 223000)) ;;; Generated autoloads from nxml/nxml-glyph.el (autoload 'nxml-glyph-display-string "nxml-glyph" "\ @@ -19214,8 +19279,8 @@ Return nil if the face cannot display a glyph for N. ;;;*** -;;;### (autoloads nil "nxml-mode" "nxml/nxml-mode.el" (21611 10937 -;;;;;; 700236 3000)) +;;;### (autoloads nil "nxml-mode" "nxml/nxml-mode.el" (21631 35966 +;;;;;; 887121 869000)) ;;; Generated autoloads from nxml/nxml-mode.el (autoload 'nxml-mode "nxml-mode" "\ @@ -19275,8 +19340,8 @@ Many aspects this mode can be customized using ;;;*** -;;;### (autoloads nil "nxml-uchnm" "nxml/nxml-uchnm.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "nxml-uchnm" "nxml/nxml-uchnm.el" (21604 48550 +;;;;;; 237934 223000)) ;;; Generated autoloads from nxml/nxml-uchnm.el (autoload 'nxml-enable-unicode-char-name-sets "nxml-uchnm" "\ @@ -19288,8 +19353,8 @@ the variable `nxml-enabled-unicode-blocks'. ;;;*** -;;;### (autoloads nil "octave" "progmodes/octave.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "octave" "progmodes/octave.el" (21631 35966 +;;;;;; 907121 870000)) ;;; Generated autoloads from progmodes/octave.el (autoload 'octave-mode "octave" "\ @@ -19326,8 +19391,8 @@ startup file, `~/.emacs-octave'. ;;;*** -;;;### (autoloads nil "opascal" "progmodes/opascal.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "opascal" "progmodes/opascal.el" (21604 48550 +;;;;;; 349934 227000)) ;;; Generated autoloads from progmodes/opascal.el (define-obsolete-function-alias 'delphi-mode 'opascal-mode "24.4") @@ -19362,7 +19427,7 @@ Coloring: ;;;*** -;;;### (autoloads nil "org" "org/org.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "org" "org/org.el" (21645 25761 805186 828000)) ;;; Generated autoloads from org/org.el (autoload 'org-babel-do-load-languages "org" "\ @@ -19583,8 +19648,8 @@ Call the customize function with org as argument. ;;;*** -;;;### (autoloads nil "org-agenda" "org/org-agenda.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "org-agenda" "org/org-agenda.el" (21604 48550 +;;;;;; 269934 224000)) ;;; Generated autoloads from org/org-agenda.el (autoload 'org-toggle-sticky-agenda "org-agenda" "\ @@ -19857,8 +19922,8 @@ to override `appt-message-warning-time'. ;;;*** -;;;### (autoloads nil "org-capture" "org/org-capture.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "org-capture" "org/org-capture.el" (21604 48550 +;;;;;; 273934 224000)) ;;; Generated autoloads from org/org-capture.el (autoload 'org-capture-string "org-capture" "\ @@ -19900,8 +19965,8 @@ Set `org-capture-templates' to be similar to `org-remember-templates'. ;;;*** -;;;### (autoloads nil "org-colview" "org/org-colview.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "org-colview" "org/org-colview.el" (21604 48550 +;;;;;; 273934 224000)) ;;; Generated autoloads from org/org-colview.el (autoload 'org-columns-remove-overlays "org-colview" "\ @@ -19964,8 +20029,8 @@ Turn on or update column view in the agenda. ;;;*** -;;;### (autoloads nil "org-compat" "org/org-compat.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "org-compat" "org/org-compat.el" (21604 48550 +;;;;;; 273934 224000)) ;;; Generated autoloads from org/org-compat.el (autoload 'org-check-version "org-compat" "\ @@ -19975,8 +20040,8 @@ Try very hard to provide sensible version strings. ;;;*** -;;;### (autoloads nil "org-macs" "org/org-macs.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "org-macs" "org/org-macs.el" (21604 48550 277934 +;;;;;; 224000)) ;;; Generated autoloads from org/org-macs.el (autoload 'org-load-noerror-mustsuffix "org-macs" "\ @@ -19986,8 +20051,8 @@ Load FILE with optional arguments NOERROR and MUSTSUFFIX. Drop the MUSTSUFFIX a ;;;*** -;;;### (autoloads nil "org-version" "org/org-version.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "org-version" "org/org-version.el" (21604 48550 +;;;;;; 281934 224000)) ;;; Generated autoloads from org/org-version.el (autoload 'org-release "org-version" "\ @@ -20004,8 +20069,8 @@ The Git version of org-mode. ;;;*** -;;;### (autoloads nil "outline" "outline.el" (21626 64704 823711 -;;;;;; 579000)) +;;;### (autoloads nil "outline" "outline.el" (21631 35966 895121 +;;;;;; 869000)) ;;; Generated autoloads from outline.el (put 'outline-regexp 'safe-local-variable 'stringp) (put 'outline-heading-end-regexp 'safe-local-variable 'stringp) @@ -20066,8 +20131,8 @@ See the command `outline-mode' for more information on this mode. ;;;*** -;;;### (autoloads nil "package" "emacs-lisp/package.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "package" "emacs-lisp/package.el" (21651 20707 +;;;;;; 168225 752000)) ;;; Generated autoloads from emacs-lisp/package.el (push (purecopy '(package 1 0 1)) package--builtin-versions) @@ -20139,7 +20204,7 @@ The list is displayed in a buffer named `*Packages*'. ;;;*** -;;;### (autoloads nil "paren" "paren.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "paren" "paren.el" (21604 48550 301934 225000)) ;;; Generated autoloads from paren.el (defvar show-paren-mode nil "\ @@ -20165,8 +20230,8 @@ matching parenthesis is highlighted in `show-paren-style' after ;;;*** -;;;### (autoloads nil "parse-time" "calendar/parse-time.el" (21607 -;;;;;; 54477 800124 118000)) +;;;### (autoloads nil "parse-time" "calendar/parse-time.el" (21604 +;;;;;; 48549 953934 212000)) ;;; Generated autoloads from calendar/parse-time.el (put 'parse-time-rules 'risky-local-variable t) @@ -20179,8 +20244,8 @@ unknown are returned as nil. ;;;*** -;;;### (autoloads nil "pascal" "progmodes/pascal.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "pascal" "progmodes/pascal.el" (21604 48550 +;;;;;; 349934 227000)) ;;; Generated autoloads from progmodes/pascal.el (autoload 'pascal-mode "pascal" "\ @@ -20229,8 +20294,8 @@ See also the user variables `pascal-type-keywords', `pascal-start-keywords' and ;;;*** -;;;### (autoloads nil "password-cache" "password-cache.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "password-cache" "password-cache.el" (21604 +;;;;;; 48550 301934 225000)) ;;; Generated autoloads from password-cache.el (defvar password-cache t "\ @@ -20251,8 +20316,8 @@ Check if KEY is in the cache. ;;;*** -;;;### (autoloads nil "pcase" "emacs-lisp/pcase.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "pcase" "emacs-lisp/pcase.el" (21604 48550 +;;;;;; 21934 214000)) ;;; Generated autoloads from emacs-lisp/pcase.el (autoload 'pcase "pcase" "\ @@ -20334,8 +20399,8 @@ Define a pcase UPattern macro. ;;;*** -;;;### (autoloads nil "pcmpl-cvs" "pcmpl-cvs.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "pcmpl-cvs" "pcmpl-cvs.el" (21604 48550 301934 +;;;;;; 225000)) ;;; Generated autoloads from pcmpl-cvs.el (autoload 'pcomplete/cvs "pcmpl-cvs" "\ @@ -20345,8 +20410,8 @@ Completion rules for the `cvs' command. ;;;*** -;;;### (autoloads nil "pcmpl-gnu" "pcmpl-gnu.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "pcmpl-gnu" "pcmpl-gnu.el" (21631 35966 895121 +;;;;;; 869000)) ;;; Generated autoloads from pcmpl-gnu.el (autoload 'pcomplete/gzip "pcmpl-gnu" "\ @@ -20373,8 +20438,8 @@ Completion for the GNU tar utility. ;;;*** -;;;### (autoloads nil "pcmpl-linux" "pcmpl-linux.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "pcmpl-linux" "pcmpl-linux.el" (21604 48550 +;;;;;; 301934 225000)) ;;; Generated autoloads from pcmpl-linux.el (autoload 'pcomplete/kill "pcmpl-linux" "\ @@ -20394,8 +20459,8 @@ Completion for GNU/Linux `mount'. ;;;*** -;;;### (autoloads nil "pcmpl-rpm" "pcmpl-rpm.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "pcmpl-rpm" "pcmpl-rpm.el" (21604 48550 301934 +;;;;;; 225000)) ;;; Generated autoloads from pcmpl-rpm.el (autoload 'pcomplete/rpm "pcmpl-rpm" "\ @@ -20405,8 +20470,8 @@ Completion for the `rpm' command. ;;;*** -;;;### (autoloads nil "pcmpl-unix" "pcmpl-unix.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "pcmpl-unix" "pcmpl-unix.el" (21604 48550 301934 +;;;;;; 225000)) ;;; Generated autoloads from pcmpl-unix.el (autoload 'pcomplete/cd "pcmpl-unix" "\ @@ -20461,8 +20526,8 @@ Includes files as well as host names followed by a colon. ;;;*** -;;;### (autoloads nil "pcmpl-x" "pcmpl-x.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "pcmpl-x" "pcmpl-x.el" (21604 48550 301934 +;;;;;; 225000)) ;;; Generated autoloads from pcmpl-x.el (autoload 'pcomplete/tlmgr "pcmpl-x" "\ @@ -20486,8 +20551,8 @@ Completion for the `ag' command. ;;;*** -;;;### (autoloads nil "pcomplete" "pcomplete.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "pcomplete" "pcomplete.el" (21604 48550 301934 +;;;;;; 225000)) ;;; Generated autoloads from pcomplete.el (autoload 'pcomplete "pcomplete" "\ @@ -20544,7 +20609,7 @@ Setup `shell-mode' to use pcomplete. ;;;*** -;;;### (autoloads nil "pcvs" "vc/pcvs.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "pcvs" "vc/pcvs.el" (21604 48550 429934 230000)) ;;; Generated autoloads from vc/pcvs.el (autoload 'cvs-checkout "pcvs" "\ @@ -20619,8 +20684,8 @@ The exact behavior is determined also by `cvs-dired-use-hook'." (when (stringp d ;;;*** -;;;### (autoloads nil "pcvs-defs" "vc/pcvs-defs.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "pcvs-defs" "vc/pcvs-defs.el" (21604 48550 +;;;;;; 429934 230000)) ;;; Generated autoloads from vc/pcvs-defs.el (defvar cvs-global-menu (let ((m (make-sparse-keymap "PCL-CVS"))) (define-key m [status] `(menu-item ,(purecopy "Directory Status") cvs-status :help ,(purecopy "A more verbose status of a workarea"))) (define-key m [checkout] `(menu-item ,(purecopy "Checkout Module") cvs-checkout :help ,(purecopy "Check out a module from the repository"))) (define-key m [update] `(menu-item ,(purecopy "Update Directory") cvs-update :help ,(purecopy "Fetch updates from the repository"))) (define-key m [examine] `(menu-item ,(purecopy "Examine Directory") cvs-examine :help ,(purecopy "Examine the current state of a workarea"))) (fset 'cvs-global-menu m)) "\ @@ -20628,8 +20693,8 @@ Global menu used by PCL-CVS.") ;;;*** -;;;### (autoloads nil "perl-mode" "progmodes/perl-mode.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "perl-mode" "progmodes/perl-mode.el" (21604 +;;;;;; 48550 353934 227000)) ;;; Generated autoloads from progmodes/perl-mode.el (put 'perl-indent-level 'safe-local-variable 'integerp) (put 'perl-continued-statement-offset 'safe-local-variable 'integerp) @@ -20690,8 +20755,8 @@ Turning on Perl mode runs the normal hook `perl-mode-hook'. ;;;*** -;;;### (autoloads nil "picture" "textmodes/picture.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "picture" "textmodes/picture.el" (21604 48550 +;;;;;; 397934 228000)) ;;; Generated autoloads from textmodes/picture.el (autoload 'picture-mode "picture" "\ @@ -20771,8 +20836,8 @@ they are not by default assigned to keys. ;;;*** -;;;### (autoloads nil "plstore" "gnus/plstore.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "plstore" "gnus/plstore.el" (21604 48550 117934 +;;;;;; 218000)) ;;; Generated autoloads from gnus/plstore.el (autoload 'plstore-open "plstore" "\ @@ -20787,8 +20852,8 @@ Major mode for editing PLSTORE files. ;;;*** -;;;### (autoloads nil "po" "textmodes/po.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "po" "textmodes/po.el" (21604 48550 397934 +;;;;;; 228000)) ;;; Generated autoloads from textmodes/po.el (autoload 'po-find-file-coding-system "po" "\ @@ -20799,7 +20864,7 @@ Called through `file-coding-system-alist', before the file is visited for real. ;;;*** -;;;### (autoloads nil "pong" "play/pong.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "pong" "play/pong.el" (21604 48550 305934 225000)) ;;; Generated autoloads from play/pong.el (autoload 'pong "pong" "\ @@ -20815,7 +20880,7 @@ pong-mode keybindings:\\<pong-mode-map> ;;;*** -;;;### (autoloads nil "pop3" "gnus/pop3.el" (21619 5051 260148 536000)) +;;;### (autoloads nil "pop3" "gnus/pop3.el" (21631 35966 859121 868000)) ;;; Generated autoloads from gnus/pop3.el (autoload 'pop3-movemail "pop3" "\ @@ -20826,8 +20891,8 @@ Use streaming commands. ;;;*** -;;;### (autoloads nil "pp" "emacs-lisp/pp.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "pp" "emacs-lisp/pp.el" (21604 48550 21934 +;;;;;; 214000)) ;;; Generated autoloads from emacs-lisp/pp.el (autoload 'pp-to-string "pp" "\ @@ -20877,8 +20942,8 @@ Ignores leading comment characters. ;;;*** -;;;### (autoloads nil "printing" "printing.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "printing" "printing.el" (21604 48550 309934 +;;;;;; 225000)) ;;; Generated autoloads from printing.el (push (purecopy '(printing 6 9 3)) package--builtin-versions) @@ -21466,7 +21531,7 @@ are both set to t. ;;;*** -;;;### (autoloads nil "proced" "proced.el" (21609 55608 852266 580000)) +;;;### (autoloads nil "proced" "proced.el" (21631 35966 895121 869000)) ;;; Generated autoloads from proced.el (autoload 'proced "proced" "\ @@ -21484,8 +21549,8 @@ Proced buffers. ;;;*** -;;;### (autoloads nil "profiler" "profiler.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "profiler" "profiler.el" (21604 48550 309934 +;;;;;; 225000)) ;;; Generated autoloads from profiler.el (autoload 'profiler-start "profiler" "\ @@ -21513,8 +21578,8 @@ Open profile FILENAME. ;;;*** -;;;### (autoloads nil "prolog" "progmodes/prolog.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "prolog" "progmodes/prolog.el" (21604 48550 +;;;;;; 353934 227000)) ;;; Generated autoloads from progmodes/prolog.el (autoload 'prolog-mode "prolog" "\ @@ -21547,7 +21612,7 @@ With prefix argument ARG, restart the Prolog process if running before. ;;;*** -;;;### (autoloads nil "ps-bdf" "ps-bdf.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "ps-bdf" "ps-bdf.el" (21604 48550 369934 227000)) ;;; Generated autoloads from ps-bdf.el (defvar bdf-directory-list (if (memq system-type '(ms-dos windows-nt)) (list (expand-file-name "fonts/bdf" installation-directory)) '("/usr/local/share/emacs/fonts/bdf")) "\ @@ -21558,8 +21623,8 @@ The default value is '(\"/usr/local/share/emacs/fonts/bdf\").") ;;;*** -;;;### (autoloads nil "ps-mode" "progmodes/ps-mode.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "ps-mode" "progmodes/ps-mode.el" (21604 48550 +;;;;;; 353934 227000)) ;;; Generated autoloads from progmodes/ps-mode.el (push (purecopy '(ps-mode 1 1 9)) package--builtin-versions) @@ -21605,8 +21670,8 @@ Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number ;;;*** -;;;### (autoloads nil "ps-print" "ps-print.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "ps-print" "ps-print.el" (21604 48550 369934 +;;;;;; 227000)) ;;; Generated autoloads from ps-print.el (push (purecopy '(ps-print 7 3 5)) package--builtin-versions) @@ -21803,15 +21868,15 @@ If EXTENSION is any other symbol, it is ignored. ;;;*** -;;;### (autoloads nil "pulse" "cedet/pulse.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "pulse" "cedet/pulse.el" (21640 32530 958334 +;;;;;; 457000)) ;;; Generated autoloads from cedet/pulse.el (push (purecopy '(pulse 1 0)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "python" "progmodes/python.el" (21625 43838 -;;;;;; 980113 968000)) +;;;### (autoloads nil "python" "progmodes/python.el" (21645 25761 +;;;;;; 809186 828000)) ;;; Generated autoloads from progmodes/python.el (push (purecopy '(python 0 24 4)) package--builtin-versions) @@ -21846,7 +21911,7 @@ Major mode for editing Python files. ;;;*** -;;;### (autoloads nil "qp" "gnus/qp.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "qp" "gnus/qp.el" (21604 48550 117934 218000)) ;;; Generated autoloads from gnus/qp.el (autoload 'quoted-printable-decode-region "qp" "\ @@ -21865,8 +21930,8 @@ them into characters should be done separately. ;;;*** -;;;### (autoloads nil "quail" "international/quail.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "quail" "international/quail.el" (21604 48550 +;;;;;; 141934 219000)) ;;; Generated autoloads from international/quail.el (autoload 'quail-title "quail" "\ @@ -22096,8 +22161,8 @@ of each directory. ;;;*** -;;;### (autoloads nil "quail/hangul" "leim/quail/hangul.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "quail/hangul" "leim/quail/hangul.el" (21604 +;;;;;; 48550 173934 220000)) ;;; Generated autoloads from leim/quail/hangul.el (autoload 'hangul-input-method-activate "quail/hangul" "\ @@ -22110,7 +22175,7 @@ HELP-TEXT is a text set in `hangul-input-method-help-text'. ;;;*** ;;;### (autoloads nil "quail/uni-input" "leim/quail/uni-input.el" -;;;;;; (21607 54478 300138 641000)) +;;;;;; (21604 48550 177934 220000)) ;;; Generated autoloads from leim/quail/uni-input.el (autoload 'ucs-input-activate "quail/uni-input" "\ @@ -22124,8 +22189,8 @@ While this input method is active, the variable ;;;*** -;;;### (autoloads nil "quickurl" "net/quickurl.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "quickurl" "net/quickurl.el" (21604 48550 221934 +;;;;;; 222000)) ;;; 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" "\ @@ -22196,8 +22261,8 @@ Display `quickurl-list' as a formatted list using `quickurl-list-mode'. ;;;*** -;;;### (autoloads nil "rcirc" "net/rcirc.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "rcirc" "net/rcirc.el" (21604 48550 221934 +;;;;;; 222000)) ;;; Generated autoloads from net/rcirc.el (autoload 'rcirc "rcirc" "\ @@ -22235,8 +22300,8 @@ if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "re-builder" "emacs-lisp/re-builder.el" (21607 -;;;;;; 54477 800124 118000)) +;;;### (autoloads nil "re-builder" "emacs-lisp/re-builder.el" (21604 +;;;;;; 48550 21934 214000)) ;;; Generated autoloads from emacs-lisp/re-builder.el (defalias 'regexp-builder 're-builder) @@ -22254,8 +22319,8 @@ matching parts of the target buffer will be highlighted. ;;;*** -;;;### (autoloads nil "recentf" "recentf.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "recentf" "recentf.el" (21604 48550 369934 +;;;;;; 227000)) ;;; Generated autoloads from recentf.el (defvar recentf-mode nil "\ @@ -22281,7 +22346,7 @@ were operated on recently. ;;;*** -;;;### (autoloads nil "rect" "rect.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "rect" "rect.el" (21604 48550 369934 227000)) ;;; Generated autoloads from rect.el (autoload 'delete-rectangle "rect" "\ @@ -22421,8 +22486,8 @@ Activates the region if needed. Only lasts until the region is deactivated. ;;;*** -;;;### (autoloads nil "refill" "textmodes/refill.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "refill" "textmodes/refill.el" (21604 48550 +;;;;;; 401934 229000)) ;;; Generated autoloads from textmodes/refill.el (autoload 'refill-mode "refill" "\ @@ -22442,8 +22507,8 @@ For true \"word wrap\" behavior, use `visual-line-mode' instead. ;;;*** -;;;### (autoloads nil "reftex" "textmodes/reftex.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "reftex" "textmodes/reftex.el" (21604 48550 +;;;;;; 405934 229000)) ;;; Generated autoloads from textmodes/reftex.el (autoload 'reftex-citation "reftex-cite" nil t) (autoload 'reftex-all-document-files "reftex-parse") @@ -22496,8 +22561,8 @@ This enforces rescanning the buffer on next use. ;;;*** -;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (21604 +;;;;;; 48550 401934 229000)) ;;; 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)))) @@ -22506,8 +22571,8 @@ This enforces rescanning the buffer on next use. ;;;*** -;;;### (autoloads nil "regexp-opt" "emacs-lisp/regexp-opt.el" (21607 -;;;;;; 54477 800124 118000)) +;;;### (autoloads nil "regexp-opt" "emacs-lisp/regexp-opt.el" (21604 +;;;;;; 48550 21934 214000)) ;;; Generated autoloads from emacs-lisp/regexp-opt.el (autoload 'regexp-opt "regexp-opt" "\ @@ -22536,15 +22601,15 @@ This means the number of non-shy regexp grouping constructs ;;;*** -;;;### (autoloads nil "regi" "emacs-lisp/regi.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "regi" "emacs-lisp/regi.el" (21604 48550 21934 +;;;;;; 214000)) ;;; Generated autoloads from emacs-lisp/regi.el (push (purecopy '(regi 1 8)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "remember" "textmodes/remember.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "remember" "textmodes/remember.el" (21604 48550 +;;;;;; 405934 229000)) ;;; Generated autoloads from textmodes/remember.el (push (purecopy '(remember 2 0)) package--builtin-versions) @@ -22598,7 +22663,7 @@ to turn the *scratch* buffer into your notes buffer. ;;;*** -;;;### (autoloads nil "repeat" "repeat.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "repeat" "repeat.el" (21604 48550 373934 228000)) ;;; Generated autoloads from repeat.el (push (purecopy '(repeat 0 51)) package--builtin-versions) @@ -22621,8 +22686,8 @@ recently executed command not bound to an input event\". ;;;*** -;;;### (autoloads nil "reporter" "mail/reporter.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "reporter" "mail/reporter.el" (21604 48550 +;;;;;; 185934 221000)) ;;; Generated autoloads from mail/reporter.el (autoload 'reporter-submit-bug-report "reporter" "\ @@ -22653,8 +22718,8 @@ mail-sending package is used for editing and sending the message. ;;;*** -;;;### (autoloads nil "reposition" "reposition.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "reposition" "reposition.el" (21604 48550 373934 +;;;;;; 228000)) ;;; Generated autoloads from reposition.el (autoload 'reposition-window "reposition" "\ @@ -22680,7 +22745,7 @@ first comment line visible (if point is in a comment). ;;;*** -;;;### (autoloads nil "reveal" "reveal.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "reveal" "reveal.el" (21604 48550 373934 228000)) ;;; Generated autoloads from reveal.el (autoload 'reveal-mode "reveal" "\ @@ -22715,8 +22780,8 @@ the mode if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "ring" "emacs-lisp/ring.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "ring" "emacs-lisp/ring.el" (21604 48550 21934 +;;;;;; 214000)) ;;; Generated autoloads from emacs-lisp/ring.el (autoload 'ring-p "ring" "\ @@ -22731,8 +22796,8 @@ Make a ring that can contain SIZE elements. ;;;*** -;;;### (autoloads nil "rlogin" "net/rlogin.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "rlogin" "net/rlogin.el" (21604 48550 221934 +;;;;;; 222000)) ;;; Generated autoloads from net/rlogin.el (autoload 'rlogin "rlogin" "\ @@ -22776,8 +22841,8 @@ variable. ;;;*** -;;;### (autoloads nil "rmail" "mail/rmail.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "rmail" "mail/rmail.el" (21604 48550 185934 +;;;;;; 221000)) ;;; Generated autoloads from mail/rmail.el (defvar rmail-file-name (purecopy "~/RMAIL") "\ @@ -22974,8 +23039,8 @@ Set PASSWORD to be used for retrieving mail from a POP or IMAP server. ;;;*** -;;;### (autoloads nil "rmailout" "mail/rmailout.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "rmailout" "mail/rmailout.el" (21604 48550 +;;;;;; 185934 221000)) ;;; Generated autoloads from mail/rmailout.el (put 'rmail-output-file-alist 'risky-local-variable t) @@ -23039,8 +23104,8 @@ than appending to it. Deletes the message after writing if ;;;*** -;;;### (autoloads nil "rng-cmpct" "nxml/rng-cmpct.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "rng-cmpct" "nxml/rng-cmpct.el" (21604 48550 +;;;;;; 237934 223000)) ;;; Generated autoloads from nxml/rng-cmpct.el (autoload 'rng-c-load-schema "rng-cmpct" "\ @@ -23051,8 +23116,8 @@ Return a pattern. ;;;*** -;;;### (autoloads nil "rng-nxml" "nxml/rng-nxml.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "rng-nxml" "nxml/rng-nxml.el" (21604 48550 +;;;;;; 241934 223000)) ;;; Generated autoloads from nxml/rng-nxml.el (autoload 'rng-nxml-mode-init "rng-nxml" "\ @@ -23064,8 +23129,8 @@ Validation will be enabled if `rng-nxml-auto-validate-flag' is non-nil. ;;;*** -;;;### (autoloads nil "rng-valid" "nxml/rng-valid.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "rng-valid" "nxml/rng-valid.el" (21604 48550 +;;;;;; 241934 223000)) ;;; Generated autoloads from nxml/rng-valid.el (autoload 'rng-validate-mode "rng-valid" "\ @@ -23095,8 +23160,8 @@ to use for finding the schema. ;;;*** -;;;### (autoloads nil "rng-xsd" "nxml/rng-xsd.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "rng-xsd" "nxml/rng-xsd.el" (21604 48550 241934 +;;;;;; 223000)) ;;; Generated autoloads from nxml/rng-xsd.el (put 'http://www\.w3\.org/2001/XMLSchema-datatypes 'rng-dt-compile 'rng-xsd-compile) @@ -23123,8 +23188,8 @@ must be equal. ;;;*** -;;;### (autoloads nil "robin" "international/robin.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "robin" "international/robin.el" (21604 48550 +;;;;;; 141934 219000)) ;;; Generated autoloads from international/robin.el (autoload 'robin-define-package "robin" "\ @@ -23156,7 +23221,7 @@ Start using robin package NAME, which is a string. ;;;*** -;;;### (autoloads nil "rot13" "rot13.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "rot13" "rot13.el" (21604 48550 373934 228000)) ;;; Generated autoloads from rot13.el (autoload 'rot13 "rot13" "\ @@ -23193,8 +23258,8 @@ Toggle the use of ROT13 encoding for the current window. ;;;*** -;;;### (autoloads nil "rst" "textmodes/rst.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "rst" "textmodes/rst.el" (21604 48550 405934 +;;;;;; 229000)) ;;; Generated autoloads from textmodes/rst.el (add-to-list 'auto-mode-alist (purecopy '("\\.re?st\\'" . rst-mode))) @@ -23224,8 +23289,8 @@ for modes derived from Text mode, like Mail mode. ;;;*** -;;;### (autoloads nil "ruby-mode" "progmodes/ruby-mode.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "ruby-mode" "progmodes/ruby-mode.el" (21659 +;;;;;; 61733 222949 164000)) ;;; Generated autoloads from progmodes/ruby-mode.el (push (purecopy '(ruby-mode 1 2)) package--builtin-versions) @@ -23236,14 +23301,14 @@ Major mode for editing Ruby code. \(fn)" t nil) -(add-to-list 'auto-mode-alist (cons (purecopy (concat "\\(?:\\." "rb\\|ru\\|rake\\|thor" "\\|jbuilder\\|gemspec\\|podspec" "\\|/" "\\(?:Gem\\|Rake\\|Cap\\|Thor" "\\|Vagrant\\|Guard\\|Pod\\)file" "\\)\\'")) 'ruby-mode)) +(add-to-list 'auto-mode-alist (cons (purecopy (concat "\\(?:\\." "rb\\|ru\\|rake\\|thor" "\\|jbuilder\\|rabl\\|gemspec\\|podspec" "\\|/" "\\(?:Gem\\|Rake\\|Cap\\|Thor" "\\|Puppet\\|Berks" "\\|Vagrant\\|Guard\\|Pod\\)file" "\\)\\'")) 'ruby-mode)) (dolist (name (list "ruby" "rbx" "jruby" "ruby1.9" "ruby1.8")) (add-to-list 'interpreter-mode-alist (cons (purecopy name) 'ruby-mode))) ;;;*** -;;;### (autoloads nil "ruler-mode" "ruler-mode.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "ruler-mode" "ruler-mode.el" (21604 48550 373934 +;;;;;; 228000)) ;;; Generated autoloads from ruler-mode.el (push (purecopy '(ruler-mode 1 6)) package--builtin-versions) @@ -23261,8 +23326,8 @@ if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "rx" "emacs-lisp/rx.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "rx" "emacs-lisp/rx.el" (21604 48550 25934 +;;;;;; 215000)) ;;; Generated autoloads from emacs-lisp/rx.el (autoload 'rx-to-string "rx" "\ @@ -23573,15 +23638,15 @@ enclosed in `(and ...)'. ;;;*** -;;;### (autoloads nil "sasl-ntlm" "net/sasl-ntlm.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "sasl-ntlm" "net/sasl-ntlm.el" (21604 48550 +;;;;;; 221934 222000)) ;;; Generated autoloads from net/sasl-ntlm.el (push (purecopy '(sasl 1 0)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "savehist" "savehist.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "savehist" "savehist.el" (21604 48550 373934 +;;;;;; 228000)) ;;; Generated autoloads from savehist.el (push (purecopy '(savehist 24)) package--builtin-versions) @@ -23613,8 +23678,8 @@ histories, which is probably undesirable. ;;;*** -;;;### (autoloads nil "scheme" "progmodes/scheme.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "scheme" "progmodes/scheme.el" (21604 48550 +;;;;;; 353934 227000)) ;;; Generated autoloads from progmodes/scheme.el (autoload 'scheme-mode "scheme" "\ @@ -23653,8 +23718,8 @@ that variable's value is a string. ;;;*** -;;;### (autoloads nil "score-mode" "gnus/score-mode.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "score-mode" "gnus/score-mode.el" (21604 48550 +;;;;;; 121934 218000)) ;;; Generated autoloads from gnus/score-mode.el (autoload 'gnus-score-mode "score-mode" "\ @@ -23667,8 +23732,8 @@ This mode is an extended emacs-lisp mode. ;;;*** -;;;### (autoloads nil "scroll-all" "scroll-all.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "scroll-all" "scroll-all.el" (21604 48550 373934 +;;;;;; 228000)) ;;; Generated autoloads from scroll-all.el (defvar scroll-all-mode nil "\ @@ -23693,8 +23758,8 @@ one window apply to all visible windows in the same frame. ;;;*** -;;;### (autoloads nil "scroll-lock" "scroll-lock.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "scroll-lock" "scroll-lock.el" (21604 48550 +;;;;;; 373934 228000)) ;;; Generated autoloads from scroll-lock.el (autoload 'scroll-lock-mode "scroll-lock" "\ @@ -23710,16 +23775,16 @@ vertically fixed relative to window boundaries during scrolling. ;;;*** -;;;### (autoloads nil "secrets" "net/secrets.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "secrets" "net/secrets.el" (21604 48550 221934 +;;;;;; 222000)) ;;; Generated autoloads from net/secrets.el (when (featurep 'dbusbind) (autoload 'secrets-show-secrets "secrets" nil t)) ;;;*** -;;;### (autoloads nil "semantic" "cedet/semantic.el" (21609 55608 -;;;;;; 852266 580000)) +;;;### (autoloads nil "semantic" "cedet/semantic.el" (21645 25875 +;;;;;; 821189 881000)) ;;; Generated autoloads from cedet/semantic.el (push (purecopy '(semantic 2 2)) package--builtin-versions) @@ -23777,7 +23842,7 @@ Semantic mode. ;;;*** ;;;### (autoloads nil "semantic/bovine/grammar" "cedet/semantic/bovine/grammar.el" -;;;;;; (21607 54477 800124 118000)) +;;;;;; (21604 48549 969934 213000)) ;;; Generated autoloads from cedet/semantic/bovine/grammar.el (autoload 'bovine-grammar-mode "semantic/bovine/grammar" "\ @@ -23788,7 +23853,7 @@ Major mode for editing Bovine grammars. ;;;*** ;;;### (autoloads nil "semantic/wisent/grammar" "cedet/semantic/wisent/grammar.el" -;;;;;; (21607 54477 800124 118000)) +;;;;;; (21604 48549 981934 213000)) ;;; Generated autoloads from cedet/semantic/wisent/grammar.el (autoload 'wisent-grammar-mode "semantic/wisent/grammar" "\ @@ -23798,8 +23863,8 @@ Major mode for editing Wisent grammars. ;;;*** -;;;### (autoloads nil "sendmail" "mail/sendmail.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "sendmail" "mail/sendmail.el" (21604 48550 +;;;;;; 189934 221000)) ;;; Generated autoloads from mail/sendmail.el (defvar mail-from-style 'default "\ @@ -24080,7 +24145,14 @@ Like `mail' command, but display mail buffer in another frame. ;;;*** -;;;### (autoloads nil "server" "server.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "seq" "emacs-lisp/seq.el" (21648 55877 412874 +;;;;;; 916000)) +;;; Generated autoloads from emacs-lisp/seq.el +(push (purecopy '(seq 1 0)) package--builtin-versions) + +;;;*** + +;;;### (autoloads nil "server" "server.el" (21604 48550 373934 228000)) ;;; Generated autoloads from server.el (put 'server-host 'risky-local-variable t) @@ -24147,7 +24219,7 @@ only these files will be asked to be saved. ;;;*** -;;;### (autoloads nil "ses" "ses.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "ses" "ses.el" (21604 48550 377934 228000)) ;;; Generated autoloads from ses.el (autoload 'ses-mode "ses" "\ @@ -24191,8 +24263,8 @@ formula: ;;;*** -;;;### (autoloads nil "sgml-mode" "textmodes/sgml-mode.el" (21623 -;;;;;; 2108 292281 129000)) +;;;### (autoloads nil "sgml-mode" "textmodes/sgml-mode.el" (21631 +;;;;;; 35966 915121 870000)) ;;; Generated autoloads from textmodes/sgml-mode.el (autoload 'sgml-mode "sgml-mode" "\ @@ -24257,8 +24329,8 @@ To work around that, do: ;;;*** -;;;### (autoloads nil "sh-script" "progmodes/sh-script.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "sh-script" "progmodes/sh-script.el" (21637 +;;;;;; 50476 679217 121000)) ;;; Generated autoloads from progmodes/sh-script.el (push (purecopy '(sh-script 2 0 6)) package--builtin-versions) (put 'sh-shell 'safe-local-variable 'symbolp) @@ -24322,8 +24394,8 @@ with your script for an edit-interpret-debug cycle. ;;;*** -;;;### (autoloads nil "shadow" "emacs-lisp/shadow.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "shadow" "emacs-lisp/shadow.el" (21604 48550 +;;;;;; 25934 215000)) ;;; Generated autoloads from emacs-lisp/shadow.el (autoload 'list-load-path-shadows "shadow" "\ @@ -24372,8 +24444,8 @@ function, `load-path-shadows-find'. ;;;*** -;;;### (autoloads nil "shadowfile" "shadowfile.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "shadowfile" "shadowfile.el" (21604 48550 377934 +;;;;;; 228000)) ;;; Generated autoloads from shadowfile.el (autoload 'shadow-define-cluster "shadowfile" "\ @@ -24411,7 +24483,7 @@ Set up file shadowing. ;;;*** -;;;### (autoloads nil "shell" "shell.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "shell" "shell.el" (21659 61733 222949 164000)) ;;; Generated autoloads from shell.el (defvar shell-dumb-shell-regexp (purecopy "cmd\\(proxy\\)?\\.exe") "\ @@ -24459,7 +24531,7 @@ Otherwise, one argument `-i' is passed to the shell. ;;;*** -;;;### (autoloads nil "shr" "net/shr.el" (21623 2108 292281 129000)) +;;;### (autoloads nil "shr" "net/shr.el" (21646 54881 267721 623000)) ;;; Generated autoloads from net/shr.el (autoload 'shr-render-region "shr" "\ @@ -24476,8 +24548,8 @@ DOM should be a parse tree as generated by ;;;*** -;;;### (autoloads nil "sieve" "gnus/sieve.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "sieve" "gnus/sieve.el" (21604 48550 121934 +;;;;;; 218000)) ;;; Generated autoloads from gnus/sieve.el (autoload 'sieve-manage "sieve" "\ @@ -24502,8 +24574,8 @@ DOM should be a parse tree as generated by ;;;*** -;;;### (autoloads nil "sieve-mode" "gnus/sieve-mode.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "sieve-mode" "gnus/sieve-mode.el" (21604 48550 +;;;;;; 121934 218000)) ;;; Generated autoloads from gnus/sieve-mode.el (autoload 'sieve-mode "sieve-mode" "\ @@ -24518,8 +24590,8 @@ Turning on Sieve mode runs `sieve-mode-hook'. ;;;*** -;;;### (autoloads nil "simula" "progmodes/simula.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "simula" "progmodes/simula.el" (21604 48550 +;;;;;; 357934 227000)) ;;; Generated autoloads from progmodes/simula.el (autoload 'simula-mode "simula" "\ @@ -24567,8 +24639,8 @@ with no arguments, if that value is non-nil. ;;;*** -;;;### (autoloads nil "skeleton" "skeleton.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "skeleton" "skeleton.el" (21604 48550 377934 +;;;;;; 228000)) ;;; Generated autoloads from skeleton.el (defvar skeleton-filter-function 'identity "\ @@ -24686,8 +24758,8 @@ symmetrical ones, and the same character twice for the others. ;;;*** -;;;### (autoloads nil "smerge-mode" "vc/smerge-mode.el" (21628 45530 -;;;;;; 160140 360000)) +;;;### (autoloads nil "smerge-mode" "vc/smerge-mode.el" (21631 35966 +;;;;;; 923121 870000)) ;;; Generated autoloads from vc/smerge-mode.el (autoload 'smerge-ediff "smerge-mode" "\ @@ -24714,8 +24786,8 @@ If no conflict maker is found, turn off `smerge-mode'. ;;;*** -;;;### (autoloads nil "smiley" "gnus/smiley.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "smiley" "gnus/smiley.el" (21604 48550 121934 +;;;;;; 218000)) ;;; Generated autoloads from gnus/smiley.el (autoload 'smiley-region "smiley" "\ @@ -24732,8 +24804,8 @@ interactively. If there's no argument, do it at the current buffer. ;;;*** -;;;### (autoloads nil "smtpmail" "mail/smtpmail.el" (21619 5051 260148 -;;;;;; 536000)) +;;;### (autoloads nil "smtpmail" "mail/smtpmail.el" (21631 35966 +;;;;;; 875121 868000)) ;;; Generated autoloads from mail/smtpmail.el (autoload 'smtpmail-send-it "smtpmail" "\ @@ -24748,8 +24820,8 @@ Send mail that was queued as a result of setting `smtpmail-queue-mail'. ;;;*** -;;;### (autoloads nil "snake" "play/snake.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "snake" "play/snake.el" (21604 48550 305934 +;;;;;; 225000)) ;;; Generated autoloads from play/snake.el (autoload 'snake "snake" "\ @@ -24772,8 +24844,8 @@ Snake mode keybindings: ;;;*** -;;;### (autoloads nil "snmp-mode" "net/snmp-mode.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "snmp-mode" "net/snmp-mode.el" (21604 48550 +;;;;;; 225934 222000)) ;;; Generated autoloads from net/snmp-mode.el (autoload 'snmp-mode "snmp-mode" "\ @@ -24802,8 +24874,8 @@ then `snmpv2-mode-hook'. ;;;*** -;;;### (autoloads nil "solar" "calendar/solar.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "solar" "calendar/solar.el" (21604 48549 953934 +;;;;;; 212000)) ;;; Generated autoloads from calendar/solar.el (autoload 'sunrise-sunset "solar" "\ @@ -24818,8 +24890,8 @@ This function is suitable for execution in an init file. ;;;*** -;;;### (autoloads nil "solitaire" "play/solitaire.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "solitaire" "play/solitaire.el" (21604 48550 +;;;;;; 305934 225000)) ;;; Generated autoloads from play/solitaire.el (autoload 'solitaire "solitaire" "\ @@ -24894,7 +24966,7 @@ Pick your favorite shortcuts: ;;;*** -;;;### (autoloads nil "sort" "sort.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "sort" "sort.el" (21604 48550 377934 228000)) ;;; Generated autoloads from sort.el (put 'sort-fold-case 'safe-local-variable 'booleanp) @@ -25069,7 +25141,7 @@ is non-nil, it also prints a message describing the number of deletions. ;;;*** -;;;### (autoloads nil "spam" "gnus/spam.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "spam" "gnus/spam.el" (21604 48550 121934 218000)) ;;; Generated autoloads from gnus/spam.el (autoload 'spam-initialize "spam" "\ @@ -25083,8 +25155,8 @@ installed through `spam-necessary-extra-headers'. ;;;*** -;;;### (autoloads nil "spam-report" "gnus/spam-report.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "spam-report" "gnus/spam-report.el" (21604 +;;;;;; 48550 121934 218000)) ;;; Generated autoloads from gnus/spam-report.el (autoload 'spam-report-process-queue "spam-report" "\ @@ -25126,8 +25198,8 @@ Spam reports will be queued with the method used when ;;;*** -;;;### (autoloads nil "speedbar" "speedbar.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "speedbar" "speedbar.el" (21604 48550 381934 +;;;;;; 228000)) ;;; Generated autoloads from speedbar.el (defalias 'speedbar 'speedbar-frame-mode) @@ -25151,8 +25223,8 @@ selected. If the speedbar frame is active, then select the attached frame. ;;;*** -;;;### (autoloads nil "spook" "play/spook.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "spook" "play/spook.el" (21604 48550 305934 +;;;;;; 225000)) ;;; Generated autoloads from play/spook.el (autoload 'spook "spook" "\ @@ -25167,8 +25239,8 @@ Return a vector containing the lines from `spook-phrases-file'. ;;;*** -;;;### (autoloads nil "sql" "progmodes/sql.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "sql" "progmodes/sql.el" (21604 48550 357934 +;;;;;; 227000)) ;;; Generated autoloads from progmodes/sql.el (push (purecopy '(sql 3 4)) package--builtin-versions) @@ -25634,15 +25706,15 @@ Run vsql as an inferior process. ;;;*** -;;;### (autoloads nil "srecode" "cedet/srecode.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "srecode" "cedet/srecode.el" (21604 48549 981934 +;;;;;; 213000)) ;;; Generated autoloads from cedet/srecode.el (push (purecopy '(srecode 1 2)) package--builtin-versions) ;;;*** ;;;### (autoloads nil "srecode/srt-mode" "cedet/srecode/srt-mode.el" -;;;;;; (21607 54477 800124 118000)) +;;;;;; (21659 61733 202949 164000)) ;;; Generated autoloads from cedet/srecode/srt-mode.el (autoload 'srecode-template-mode "srecode/srt-mode" "\ @@ -25654,8 +25726,8 @@ Major-mode for writing SRecode macros. ;;;*** -;;;### (autoloads nil "starttls" "gnus/starttls.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "starttls" "gnus/starttls.el" (21604 48550 +;;;;;; 121934 218000)) ;;; Generated autoloads from gnus/starttls.el (autoload 'starttls-open-stream "starttls" "\ @@ -25678,8 +25750,8 @@ GnuTLS requires a port number. ;;;*** -;;;### (autoloads nil "strokes" "strokes.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "strokes" "strokes.el" (21604 48550 381934 +;;;;;; 228000)) ;;; Generated autoloads from strokes.el (autoload 'strokes-global-set-stroke "strokes" "\ @@ -25792,8 +25864,8 @@ Read a complex stroke and insert its glyph into the current buffer. ;;;*** -;;;### (autoloads nil "studly" "play/studly.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "studly" "play/studly.el" (21604 48550 305934 +;;;;;; 225000)) ;;; Generated autoloads from play/studly.el (autoload 'studlify-region "studly" "\ @@ -25813,8 +25885,8 @@ Studlify-case the current buffer. ;;;*** -;;;### (autoloads nil "subword" "progmodes/subword.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "subword" "progmodes/subword.el" (21604 48550 +;;;;;; 357934 227000)) ;;; Generated autoloads from progmodes/subword.el (define-obsolete-function-alias 'capitalized-words-mode 'subword-mode "25.1") @@ -25906,8 +25978,8 @@ See `superword-mode' for more information on Superword mode. ;;;*** -;;;### (autoloads nil "supercite" "mail/supercite.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "supercite" "mail/supercite.el" (21604 48550 +;;;;;; 189934 221000)) ;;; Generated autoloads from mail/supercite.el (autoload 'sc-cite-original "supercite" "\ @@ -25939,8 +26011,8 @@ and `sc-post-hook' is run after the guts of this function. ;;;*** -;;;### (autoloads nil "t-mouse" "t-mouse.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "t-mouse" "t-mouse.el" (21604 48550 385934 +;;;;;; 228000)) ;;; Generated autoloads from t-mouse.el (define-obsolete-function-alias 't-mouse-mode 'gpm-mouse-mode "23.1") @@ -25968,7 +26040,7 @@ It relies on the `gpm' daemon being activated. ;;;*** -;;;### (autoloads nil "tabify" "tabify.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "tabify" "tabify.el" (21604 48550 385934 228000)) ;;; Generated autoloads from tabify.el (autoload 'untabify "tabify" "\ @@ -25997,8 +26069,8 @@ The variable `tab-width' controls the spacing of tab stops. ;;;*** -;;;### (autoloads nil "table" "textmodes/table.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "table" "textmodes/table.el" (21604 48550 409934 +;;;;;; 229000)) ;;; Generated autoloads from textmodes/table.el (defvar table-cell-map-hook nil "\ @@ -26590,7 +26662,7 @@ converts a table into plain text without frames. It is a companion to ;;;*** -;;;### (autoloads nil "talk" "talk.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "talk" "talk.el" (21604 48550 385934 228000)) ;;; Generated autoloads from talk.el (autoload 'talk-connect "talk" "\ @@ -26605,8 +26677,8 @@ Connect to the Emacs talk group from the current X display or tty frame. ;;;*** -;;;### (autoloads nil "tar-mode" "tar-mode.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "tar-mode" "tar-mode.el" (21604 48550 385934 +;;;;;; 228000)) ;;; Generated autoloads from tar-mode.el (autoload 'tar-mode "tar-mode" "\ @@ -26629,8 +26701,8 @@ See also: variables `tar-update-datestamp' and `tar-anal-blocksize'. ;;;*** -;;;### (autoloads nil "tcl" "progmodes/tcl.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "tcl" "progmodes/tcl.el" (21604 48550 357934 +;;;;;; 227000)) ;;; Generated autoloads from progmodes/tcl.el (autoload 'tcl-mode "tcl" "\ @@ -26678,8 +26750,8 @@ Prefix argument means invert sense of `tcl-use-smart-word-finder'. ;;;*** -;;;### (autoloads nil "telnet" "net/telnet.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "telnet" "net/telnet.el" (21604 48550 225934 +;;;;;; 222000)) ;;; Generated autoloads from net/telnet.el (autoload 'telnet "telnet" "\ @@ -26704,7 +26776,7 @@ Normally input is edited in Emacs and sent a line at a time. ;;;*** -;;;### (autoloads nil "term" "term.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "term" "term.el" (21604 48550 385934 228000)) ;;; Generated autoloads from term.el (autoload 'make-term "term" "\ @@ -26746,8 +26818,8 @@ use in that buffer. ;;;*** -;;;### (autoloads nil "testcover" "emacs-lisp/testcover.el" (21607 -;;;;;; 54477 800124 118000)) +;;;### (autoloads nil "testcover" "emacs-lisp/testcover.el" (21604 +;;;;;; 48550 25934 215000)) ;;; Generated autoloads from emacs-lisp/testcover.el (autoload 'testcover-this-defun "testcover" "\ @@ -26757,8 +26829,8 @@ Start coverage on function under point. ;;;*** -;;;### (autoloads nil "tetris" "play/tetris.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "tetris" "play/tetris.el" (21604 48550 305934 +;;;;;; 225000)) ;;; Generated autoloads from play/tetris.el (push (purecopy '(tetris 2 1)) package--builtin-versions) @@ -26783,8 +26855,8 @@ tetris-mode keybindings: ;;;*** -;;;### (autoloads nil "tex-mode" "textmodes/tex-mode.el" (21611 10938 -;;;;;; 204397 226000)) +;;;### (autoloads nil "tex-mode" "textmodes/tex-mode.el" (21647 39327 +;;;;;; 896553 751000)) ;;; Generated autoloads from textmodes/tex-mode.el (defvar tex-shell-file-name nil "\ @@ -27085,8 +27157,8 @@ Major mode to edit DocTeX files. ;;;*** -;;;### (autoloads nil "texinfmt" "textmodes/texinfmt.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "texinfmt" "textmodes/texinfmt.el" (21604 48550 +;;;;;; 409934 229000)) ;;; Generated autoloads from textmodes/texinfmt.el (autoload 'texinfo-format-buffer "texinfmt" "\ @@ -27125,8 +27197,8 @@ if large. You can use `Info-split' to do this manually. ;;;*** -;;;### (autoloads nil "texinfo" "textmodes/texinfo.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "texinfo" "textmodes/texinfo.el" (21604 48550 +;;;;;; 409934 229000)) ;;; Generated autoloads from textmodes/texinfo.el (defvar texinfo-open-quote (purecopy "``") "\ @@ -27210,8 +27282,8 @@ value of `texinfo-mode-hook'. ;;;*** -;;;### (autoloads nil "thai-util" "language/thai-util.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "thai-util" "language/thai-util.el" (21604 +;;;;;; 48550 153934 219000)) ;;; Generated autoloads from language/thai-util.el (autoload 'thai-compose-region "thai-util" "\ @@ -27238,8 +27310,8 @@ Compose Thai characters in the current buffer. ;;;*** -;;;### (autoloads nil "thingatpt" "thingatpt.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "thingatpt" "thingatpt.el" (21604 48550 413934 +;;;;;; 229000)) ;;; Generated autoloads from thingatpt.el (autoload 'forward-thing "thingatpt" "\ @@ -27303,7 +27375,7 @@ Return the Lisp list at point, or nil if none is found. ;;;*** -;;;### (autoloads nil "thumbs" "thumbs.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "thumbs" "thumbs.el" (21604 48550 413934 229000)) ;;; Generated autoloads from thumbs.el (autoload 'thumbs-find-thumb "thumbs" "\ @@ -27337,8 +27409,8 @@ In dired, call the setroot program on the image at point. ;;;*** -;;;### (autoloads nil "tibet-util" "language/tibet-util.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "tibet-util" "language/tibet-util.el" (21604 +;;;;;; 48550 157934 220000)) ;;; Generated autoloads from language/tibet-util.el (autoload 'tibetan-char-p "tibet-util" "\ @@ -27411,8 +27483,8 @@ See also docstring of the function tibetan-compose-region. ;;;*** -;;;### (autoloads nil "tildify" "textmodes/tildify.el" (21611 10938 -;;;;;; 204397 226000)) +;;;### (autoloads nil "tildify" "textmodes/tildify.el" (21631 35966 +;;;;;; 919121 870000)) ;;; Generated autoloads from textmodes/tildify.el (push (purecopy '(tildify 4 5 7)) package--builtin-versions) @@ -27440,7 +27512,7 @@ won't be prompted for confirmation of each substitution. ;;;*** -;;;### (autoloads nil "time" "time.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "time" "time.el" (21604 48550 413934 229000)) ;;; Generated autoloads from time.el (defvar display-time-day-and-date nil "\ @@ -27502,8 +27574,8 @@ Return a string giving the duration of the Emacs initialization. ;;;*** -;;;### (autoloads nil "time-date" "calendar/time-date.el" (21611 -;;;;;; 10937 700236 3000)) +;;;### (autoloads nil "time-date" "calendar/time-date.el" (21631 +;;;;;; 35966 803121 866000)) ;;; Generated autoloads from calendar/time-date.el (autoload 'date-to-time "time-date" "\ @@ -27606,8 +27678,8 @@ Convert the time interval in seconds to a short string. ;;;*** -;;;### (autoloads nil "time-stamp" "time-stamp.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "time-stamp" "time-stamp.el" (21604 48550 413934 +;;;;;; 229000)) ;;; Generated autoloads from time-stamp.el (put 'time-stamp-format 'safe-local-variable 'stringp) (put 'time-stamp-time-zone 'safe-local-variable 'string-or-null-p) @@ -27647,8 +27719,8 @@ With ARG, turn time stamping on if and only if arg is positive. ;;;*** -;;;### (autoloads nil "timeclock" "calendar/timeclock.el" (21607 -;;;;;; 54477 800124 118000)) +;;;### (autoloads nil "timeclock" "calendar/timeclock.el" (21604 +;;;;;; 48549 957934 212000)) ;;; Generated autoloads from calendar/timeclock.el (push (purecopy '(timeclock 2 6 1)) package--builtin-versions) @@ -27758,7 +27830,7 @@ relative only to the time worked today, and not to past time. ;;;*** ;;;### (autoloads nil "titdic-cnv" "international/titdic-cnv.el" -;;;;;; (21607 54478 300138 641000)) +;;;;;; (21604 48550 141934 219000)) ;;; Generated autoloads from international/titdic-cnv.el (autoload 'titdic-convert "titdic-cnv" "\ @@ -27780,7 +27852,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\". ;;;*** -;;;### (autoloads nil "tmm" "tmm.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "tmm" "tmm.el" (21651 20707 188225 752000)) ;;; Generated autoloads from tmm.el (define-key global-map "\M-`" 'tmm-menubar) (define-key global-map [menu-bar mouse-1] 'tmm-menubar-mouse) @@ -27822,8 +27894,8 @@ Its value should be an event that has a binding in MENU. ;;;*** -;;;### (autoloads nil "todo-mode" "calendar/todo-mode.el" (21625 -;;;;;; 43838 483701 627000)) +;;;### (autoloads nil "todo-mode" "calendar/todo-mode.el" (21631 +;;;;;; 35966 807121 866000)) ;;; Generated autoloads from calendar/todo-mode.el (autoload 'todo-show "todo-mode" "\ @@ -27890,8 +27962,8 @@ Mode for displaying and reprioritizing top priority Todo. ;;;*** -;;;### (autoloads nil "tool-bar" "tool-bar.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "tool-bar" "tool-bar.el" (21604 48550 413934 +;;;;;; 229000)) ;;; Generated autoloads from tool-bar.el (autoload 'toggle-tool-bar-mode-from-frame "tool-bar" "\ @@ -27961,8 +28033,8 @@ holds a keymap. ;;;*** -;;;### (autoloads nil "tq" "emacs-lisp/tq.el" (21607 54477 800124 -;;;;;; 118000)) +;;;### (autoloads nil "tq" "emacs-lisp/tq.el" (21604 48550 25934 +;;;;;; 215000)) ;;; Generated autoloads from emacs-lisp/tq.el (autoload 'tq-create "tq" "\ @@ -27975,8 +28047,8 @@ to a tcp server on another machine. ;;;*** -;;;### (autoloads nil "trace" "emacs-lisp/trace.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "trace" "emacs-lisp/trace.el" (21604 48550 +;;;;;; 25934 215000)) ;;; Generated autoloads from emacs-lisp/trace.el (defvar trace-buffer "*trace-output*" "\ @@ -28021,8 +28093,8 @@ the output buffer or changing the window configuration. ;;;*** -;;;### (autoloads nil "tramp" "net/tramp.el" (21625 43838 483701 -;;;;;; 627000)) +;;;### (autoloads nil "tramp" "net/tramp.el" (21640 32530 974334 +;;;;;; 457000)) ;;; Generated autoloads from net/tramp.el (defvar tramp-mode t "\ @@ -28137,8 +28209,8 @@ Discard Tramp from loading remote files. ;;;*** -;;;### (autoloads nil "tramp-ftp" "net/tramp-ftp.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "tramp-ftp" "net/tramp-ftp.el" (21604 48550 +;;;;;; 225934 222000)) ;;; Generated autoloads from net/tramp-ftp.el (autoload 'tramp-ftp-enable-ange-ftp "tramp-ftp" "\ @@ -28148,8 +28220,8 @@ Discard Tramp from loading remote files. ;;;*** -;;;### (autoloads nil "tutorial" "tutorial.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "tutorial" "tutorial.el" (21604 48550 417934 +;;;;;; 229000)) ;;; Generated autoloads from tutorial.el (autoload 'help-with-tutorial "tutorial" "\ @@ -28173,8 +28245,8 @@ resumed later. ;;;*** -;;;### (autoloads nil "tv-util" "language/tv-util.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "tv-util" "language/tv-util.el" (21604 48550 +;;;;;; 157934 220000)) ;;; Generated autoloads from language/tv-util.el (autoload 'tai-viet-composition-function "tv-util" "\ @@ -28184,8 +28256,8 @@ resumed later. ;;;*** -;;;### (autoloads nil "two-column" "textmodes/two-column.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "two-column" "textmodes/two-column.el" (21604 +;;;;;; 48550 413934 229000)) ;;; Generated autoloads from textmodes/two-column.el (autoload '2C-command "two-column" () t 'keymap) (global-set-key "\C-x6" '2C-command) @@ -28232,8 +28304,8 @@ First column's text sSs Second column's text ;;;*** -;;;### (autoloads nil "type-break" "type-break.el" (21609 55608 852266 -;;;;;; 580000)) +;;;### (autoloads nil "type-break" "type-break.el" (21631 35966 919121 +;;;;;; 870000)) ;;; Generated autoloads from type-break.el (defvar type-break-mode nil "\ @@ -28365,7 +28437,7 @@ FRAC should be the inverse of the fractional value; for example, a value of ;;;*** -;;;### (autoloads nil "uce" "mail/uce.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "uce" "mail/uce.el" (21604 48550 189934 221000)) ;;; Generated autoloads from mail/uce.el (autoload 'uce-reply-to-uce "uce" "\ @@ -28379,7 +28451,7 @@ You might need to set `uce-mail-reader' before using this. ;;;*** ;;;### (autoloads nil "ucs-normalize" "international/ucs-normalize.el" -;;;;;; (21607 54478 300138 641000)) +;;;;;; (21604 48550 141934 219000)) ;;; Generated autoloads from international/ucs-normalize.el (autoload 'ucs-normalize-NFD-region "ucs-normalize" "\ @@ -28444,8 +28516,8 @@ Normalize the string STR by the Unicode NFC and Mac OS's HFS Plus. ;;;*** -;;;### (autoloads nil "underline" "textmodes/underline.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "underline" "textmodes/underline.el" (21604 +;;;;;; 48550 413934 229000)) ;;; Generated autoloads from textmodes/underline.el (autoload 'underline-region "underline" "\ @@ -28465,8 +28537,8 @@ which specify the range to operate on. ;;;*** -;;;### (autoloads nil "unrmail" "mail/unrmail.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "unrmail" "mail/unrmail.el" (21604 48550 189934 +;;;;;; 221000)) ;;; Generated autoloads from mail/unrmail.el (autoload 'batch-unrmail "unrmail" "\ @@ -28486,8 +28558,8 @@ The variable `unrmail-mbox-format' controls which mbox format to use. ;;;*** -;;;### (autoloads nil "unsafep" "emacs-lisp/unsafep.el" (21607 54477 -;;;;;; 800124 118000)) +;;;### (autoloads nil "unsafep" "emacs-lisp/unsafep.el" (21604 48550 +;;;;;; 25934 215000)) ;;; Generated autoloads from emacs-lisp/unsafep.el (autoload 'unsafep "unsafep" "\ @@ -28499,7 +28571,7 @@ UNSAFEP-VARS is a list of symbols with local bindings. ;;;*** -;;;### (autoloads nil "url" "url/url.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "url" "url/url.el" (21604 48550 421934 229000)) ;;; Generated autoloads from url/url.el (autoload 'url-retrieve "url" "\ @@ -28546,8 +28618,8 @@ no further processing). URL is either a string or a parsed URL. ;;;*** -;;;### (autoloads nil "url-auth" "url/url-auth.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "url-auth" "url/url-auth.el" (21604 48550 417934 +;;;;;; 229000)) ;;; Generated autoloads from url/url-auth.el (autoload 'url-get-authentication "url-auth" "\ @@ -28588,8 +28660,8 @@ RATING a rating between 1 and 10 of the strength of the authentication. ;;;*** -;;;### (autoloads nil "url-cache" "url/url-cache.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "url-cache" "url/url-cache.el" (21604 48550 +;;;;;; 417934 229000)) ;;; Generated autoloads from url/url-cache.el (autoload 'url-store-in-cache "url-cache" "\ @@ -28610,8 +28682,8 @@ Extract FNAM from the local disk cache. ;;;*** -;;;### (autoloads nil "url-cid" "url/url-cid.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "url-cid" "url/url-cid.el" (21604 48550 417934 +;;;;;; 229000)) ;;; Generated autoloads from url/url-cid.el (autoload 'url-cid "url-cid" "\ @@ -28621,8 +28693,8 @@ Extract FNAM from the local disk cache. ;;;*** -;;;### (autoloads nil "url-dav" "url/url-dav.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "url-dav" "url/url-dav.el" (21637 50476 683217 +;;;;;; 122000)) ;;; Generated autoloads from url/url-dav.el (autoload 'url-dav-supported-p "url-dav" "\ @@ -28656,8 +28728,8 @@ added to this list, so most requests can just pass in nil. ;;;*** -;;;### (autoloads nil "url-file" "url/url-file.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "url-file" "url/url-file.el" (21604 48550 417934 +;;;;;; 229000)) ;;; Generated autoloads from url/url-file.el (autoload 'url-file "url-file" "\ @@ -28667,8 +28739,8 @@ Handle file: and ftp: URLs. ;;;*** -;;;### (autoloads nil "url-gw" "url/url-gw.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "url-gw" "url/url-gw.el" (21604 48550 417934 +;;;;;; 229000)) ;;; Generated autoloads from url/url-gw.el (autoload 'url-gateway-nslookup-host "url-gw" "\ @@ -28689,8 +28761,8 @@ overriding the value of `url-gateway-method'. ;;;*** -;;;### (autoloads nil "url-handlers" "url/url-handlers.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "url-handlers" "url/url-handlers.el" (21604 +;;;;;; 48550 417934 229000)) ;;; Generated autoloads from url/url-handlers.el (defvar url-handler-mode nil "\ @@ -28744,8 +28816,8 @@ accessible. ;;;*** -;;;### (autoloads nil "url-http" "url/url-http.el" (21619 5051 260148 -;;;;;; 536000)) +;;;### (autoloads nil "url-http" "url/url-http.el" (21640 32530 998334 +;;;;;; 458000)) ;;; Generated autoloads from url/url-http.el (autoload 'url-default-expander "url-expand") @@ -28757,8 +28829,8 @@ accessible. ;;;*** -;;;### (autoloads nil "url-irc" "url/url-irc.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "url-irc" "url/url-irc.el" (21604 48550 421934 +;;;;;; 229000)) ;;; Generated autoloads from url/url-irc.el (autoload 'url-irc "url-irc" "\ @@ -28768,8 +28840,8 @@ accessible. ;;;*** -;;;### (autoloads nil "url-ldap" "url/url-ldap.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "url-ldap" "url/url-ldap.el" (21604 48550 421934 +;;;;;; 229000)) ;;; Generated autoloads from url/url-ldap.el (autoload 'url-ldap "url-ldap" "\ @@ -28782,8 +28854,8 @@ URL can be a URL string, or a URL vector of the type returned by ;;;*** -;;;### (autoloads nil "url-mailto" "url/url-mailto.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "url-mailto" "url/url-mailto.el" (21604 48550 +;;;;;; 421934 229000)) ;;; Generated autoloads from url/url-mailto.el (autoload 'url-mail "url-mailto" "\ @@ -28798,8 +28870,8 @@ Handle the mailto: URL syntax. ;;;*** -;;;### (autoloads nil "url-misc" "url/url-misc.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "url-misc" "url/url-misc.el" (21604 48550 421934 +;;;;;; 229000)) ;;; Generated autoloads from url/url-misc.el (autoload 'url-man "url-misc" "\ @@ -28830,8 +28902,8 @@ Fetch a data URL (RFC 2397). ;;;*** -;;;### (autoloads nil "url-news" "url/url-news.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "url-news" "url/url-news.el" (21604 48550 421934 +;;;;;; 229000)) ;;; Generated autoloads from url/url-news.el (autoload 'url-news "url-news" "\ @@ -28846,8 +28918,8 @@ Fetch a data URL (RFC 2397). ;;;*** -;;;### (autoloads nil "url-ns" "url/url-ns.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "url-ns" "url/url-ns.el" (21604 48550 421934 +;;;;;; 229000)) ;;; Generated autoloads from url/url-ns.el (autoload 'isPlainHostName "url-ns" "\ @@ -28887,8 +28959,8 @@ Fetch a data URL (RFC 2397). ;;;*** -;;;### (autoloads nil "url-parse" "url/url-parse.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "url-parse" "url/url-parse.el" (21604 48550 +;;;;;; 421934 229000)) ;;; Generated autoloads from url/url-parse.el (autoload 'url-recreate-url "url-parse" "\ @@ -28939,8 +29011,8 @@ parses to ;;;*** -;;;### (autoloads nil "url-privacy" "url/url-privacy.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "url-privacy" "url/url-privacy.el" (21604 48550 +;;;;;; 421934 229000)) ;;; Generated autoloads from url/url-privacy.el (autoload 'url-setup-privacy-info "url-privacy" "\ @@ -28950,8 +29022,8 @@ Setup variables that expose info about you and your system. ;;;*** -;;;### (autoloads nil "url-queue" "url/url-queue.el" (21619 5051 -;;;;;; 260148 536000)) +;;;### (autoloads nil "url-queue" "url/url-queue.el" (21631 35966 +;;;;;; 919121 870000)) ;;; Generated autoloads from url/url-queue.el (autoload 'url-queue-retrieve "url-queue" "\ @@ -28965,8 +29037,8 @@ The variable `url-queue-timeout' sets a timeout. ;;;*** -;;;### (autoloads nil "url-tramp" "url/url-tramp.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "url-tramp" "url/url-tramp.el" (21604 48550 +;;;;;; 421934 229000)) ;;; Generated autoloads from url/url-tramp.el (defvar url-tramp-protocols '("ftp" "ssh" "scp" "rsync" "telnet") "\ @@ -28984,8 +29056,8 @@ would have been passed to OPERATION. ;;;*** -;;;### (autoloads nil "url-util" "url/url-util.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "url-util" "url/url-util.el" (21604 48550 421934 +;;;;;; 229000)) ;;; Generated autoloads from url/url-util.el (defvar url-debug nil "\ @@ -29153,8 +29225,8 @@ This uses `url-current-object', set locally to the buffer. ;;;*** -;;;### (autoloads nil "userlock" "userlock.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "userlock" "userlock.el" (21604 48550 421934 +;;;;;; 229000)) ;;; Generated autoloads from userlock.el (autoload 'ask-user-about-lock "userlock" "\ @@ -29182,8 +29254,8 @@ The buffer in question is current when this function is called. ;;;*** -;;;### (autoloads nil "utf-7" "international/utf-7.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "utf-7" "international/utf-7.el" (21604 48550 +;;;;;; 141934 219000)) ;;; Generated autoloads from international/utf-7.el (autoload 'utf-7-post-read-conversion "utf-7" "\ @@ -29208,7 +29280,7 @@ The buffer in question is current when this function is called. ;;;*** -;;;### (autoloads nil "utf7" "gnus/utf7.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "utf7" "gnus/utf7.el" (21604 48550 121934 218000)) ;;; Generated autoloads from gnus/utf7.el (autoload 'utf7-encode "utf7" "\ @@ -29218,8 +29290,8 @@ Encode UTF-7 STRING. Use IMAP modification if FOR-IMAP is non-nil. ;;;*** -;;;### (autoloads nil "uudecode" "mail/uudecode.el" (21607 54478 -;;;;;; 300138 641000)) +;;;### (autoloads nil "uudecode" "mail/uudecode.el" (21604 48550 +;;;;;; 189934 221000)) ;;; Generated autoloads from mail/uudecode.el (autoload 'uudecode-decode-region-external "uudecode" "\ @@ -29243,7 +29315,7 @@ If FILE-NAME is non-nil, save the result to FILE-NAME. ;;;*** -;;;### (autoloads nil "vc" "vc/vc.el" (21628 45530 160140 360000)) +;;;### (autoloads nil "vc" "vc/vc.el" (21649 1806 157181 933000)) ;;; Generated autoloads from vc/vc.el (defvar vc-checkout-hook nil "\ @@ -29282,8 +29354,7 @@ For old-style locking-based version control systems, like RCS: If every file is registered and unlocked, check out (lock) the file(s) for editing. If every file is locked by you and has changes, pop up a - *vc-log* buffer to check in the changes. If the variable - `vc-keep-workfiles' is non-nil (the default), leave a + *vc-log* buffer to check in the changes. Leave a read-only copy of each changed file after checking in. If every file is locked by you and unchanged, unlock them. If every file is locked by someone else, offer to steal the lock. @@ -29453,13 +29524,6 @@ to the working revision (except for keyword expansion). \(fn)" t nil) -(autoload 'vc-rollback "vc" "\ -Roll back (remove) the most recent changeset committed to the repository. -This may be either a file-level or a repository-level operation, -depending on the underlying version-control system. - -\(fn)" t nil) - (define-obsolete-function-alias 'vc-revert-buffer 'vc-revert "23.1") (autoload 'vc-pull "vc" "\ @@ -29538,8 +29602,8 @@ Return the branch part of a revision number REV. ;;;*** -;;;### (autoloads nil "vc-annotate" "vc/vc-annotate.el" (21607 54478 -;;;;;; 800121 42000)) +;;;### (autoloads nil "vc-annotate" "vc/vc-annotate.el" (21604 48550 +;;;;;; 433934 230000)) ;;; Generated autoloads from vc/vc-annotate.el (autoload 'vc-annotate "vc-annotate" "\ @@ -29578,19 +29642,8 @@ should be applied to the background or to the foreground. ;;;*** -;;;### (autoloads nil "vc-arch" "vc/vc-arch.el" (21628 43483 380149 -;;;;;; 771000)) -;;; Generated autoloads from vc/vc-arch.el - (defun vc-arch-registered (file) - (if (vc-find-root file "{arch}/=tagging-method") - (progn - (load "vc-arch" nil t) - (vc-arch-registered file)))) - -;;;*** - -;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (21628 43483 380149 -;;;;;; 771000)) +;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (21645 25875 825189 +;;;;;; 881000)) ;;; Generated autoloads from vc/vc-bzr.el (defconst vc-bzr-admin-dirname ".bzr" "\ @@ -29606,8 +29659,8 @@ Name of the format file in a .bzr directory.") ;;;*** -;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (21628 43483 380149 -;;;;;; 771000)) +;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (21645 25875 825189 +;;;;;; 881000)) ;;; Generated autoloads from vc/vc-cvs.el (defun vc-cvs-registered (f) "Return non-nil if file F is registered with CVS." @@ -29618,8 +29671,8 @@ Name of the format file in a .bzr directory.") ;;;*** -;;;### (autoloads nil "vc-dir" "vc/vc-dir.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "vc-dir" "vc/vc-dir.el" (21645 25761 817186 +;;;;;; 828000)) ;;; Generated autoloads from vc/vc-dir.el (autoload 'vc-dir "vc-dir" "\ @@ -29643,8 +29696,8 @@ These are the commands available for use in the file status buffer: ;;;*** -;;;### (autoloads nil "vc-dispatcher" "vc/vc-dispatcher.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "vc-dispatcher" "vc/vc-dispatcher.el" (21645 +;;;;;; 25761 817186 828000)) ;;; Generated autoloads from vc/vc-dispatcher.el (autoload 'vc-do-command "vc-dispatcher" "\ @@ -29667,8 +29720,7 @@ case, and the process object in the asynchronous case. ;;;*** -;;;### (autoloads nil "vc-git" "vc/vc-git.el" (21628 45530 160140 -;;;;;; 360000)) +;;;### (autoloads nil "vc-git" "vc/vc-git.el" (21649 1521 25174 297000)) ;;; Generated autoloads from vc/vc-git.el (defun vc-git-registered (file) "Return non-nil if FILE is registered with git." @@ -29679,7 +29731,7 @@ case, and the process object in the asynchronous case. ;;;*** -;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (21628 43483 380149 771000)) +;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (21645 25875 841189 882000)) ;;; Generated autoloads from vc/vc-hg.el (defun vc-hg-registered (file) "Return non-nil if FILE is registered with hg." @@ -29690,8 +29742,8 @@ case, and the process object in the asynchronous case. ;;;*** -;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (21628 43483 380149 -;;;;;; 771000)) +;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (21645 25875 841189 +;;;;;; 882000)) ;;; Generated autoloads from vc/vc-mtn.el (defconst vc-mtn-admin-dir "_MTN" "\ @@ -29707,8 +29759,8 @@ Name of the monotone directory's format file.") ;;;*** -;;;### (autoloads nil "vc-rcs" "vc/vc-rcs.el" (21628 43483 380149 -;;;;;; 771000)) +;;;### (autoloads nil "vc-rcs" "vc/vc-rcs.el" (21645 25875 841189 +;;;;;; 882000)) ;;; Generated autoloads from vc/vc-rcs.el (defvar vc-rcs-master-templates (purecopy '("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) "\ @@ -29721,8 +29773,8 @@ For a description of possible values, see `vc-check-master-templates'.") ;;;*** -;;;### (autoloads nil "vc-sccs" "vc/vc-sccs.el" (21628 43483 380149 -;;;;;; 771000)) +;;;### (autoloads nil "vc-sccs" "vc/vc-sccs.el" (21645 25875 837189 +;;;;;; 882000)) ;;; Generated autoloads from vc/vc-sccs.el (defvar vc-sccs-master-templates (purecopy '("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)) "\ @@ -29740,8 +29792,8 @@ find any project directory." (let ((project-dir (getenv "PROJECTDIR")) dirs dir) ;;;*** -;;;### (autoloads nil "vc-src" "vc/vc-src.el" (21628 43483 380149 -;;;;;; 771000)) +;;;### (autoloads nil "vc-src" "vc/vc-src.el" (21645 25875 837189 +;;;;;; 882000)) ;;; Generated autoloads from vc/vc-src.el (defvar vc-src-master-templates (purecopy '("%s.src/%s,v")) "\ @@ -29754,8 +29806,8 @@ For a description of possible values, see `vc-check-master-templates'.") ;;;*** -;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (21628 43483 380149 -;;;;;; 771000)) +;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (21650 56624 523745 +;;;;;; 975000)) ;;; Generated autoloads from vc/vc-svn.el (defun vc-svn-registered (f) (let ((admin-dir (cond ((and (eq system-type 'windows-nt) @@ -29768,8 +29820,8 @@ For a description of possible values, see `vc-check-master-templates'.") ;;;*** -;;;### (autoloads nil "vera-mode" "progmodes/vera-mode.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "vera-mode" "progmodes/vera-mode.el" (21604 +;;;;;; 48550 361934 227000)) ;;; Generated autoloads from progmodes/vera-mode.el (push (purecopy '(vera-mode 2 28)) package--builtin-versions) (add-to-list 'auto-mode-alist (cons (purecopy "\\.vr[hi]?\\'") 'vera-mode)) @@ -29828,7 +29880,7 @@ Key bindings: ;;;*** ;;;### (autoloads nil "verilog-mode" "progmodes/verilog-mode.el" -;;;;;; (21607 54478 800121 42000)) +;;;;;; (21645 25761 813186 828000)) ;;; Generated autoloads from progmodes/verilog-mode.el (autoload 'verilog-mode "verilog-mode" "\ @@ -29967,8 +30019,8 @@ Key bindings specific to `verilog-mode-map' are: ;;;*** -;;;### (autoloads nil "vhdl-mode" "progmodes/vhdl-mode.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "vhdl-mode" "progmodes/vhdl-mode.el" (21640 +;;;;;; 32530 994334 458000)) ;;; Generated autoloads from progmodes/vhdl-mode.el (autoload 'vhdl-mode "vhdl-mode" "\ @@ -30522,8 +30574,8 @@ Key bindings: ;;;*** -;;;### (autoloads nil "viet-util" "language/viet-util.el" (21607 -;;;;;; 54478 300138 641000)) +;;;### (autoloads nil "viet-util" "language/viet-util.el" (21604 +;;;;;; 48550 157934 220000)) ;;; Generated autoloads from language/viet-util.el (autoload 'viet-encode-viscii-char "viet-util" "\ @@ -30567,7 +30619,7 @@ Convert Vietnamese characters of the current buffer to `VIQR' mnemonics. ;;;*** -;;;### (autoloads nil "view" "view.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "view" "view.el" (21604 48550 437934 230000)) ;;; Generated autoloads from view.el (defvar view-remove-frame-by-deleting t "\ @@ -30823,8 +30875,8 @@ Exit View mode and make the current buffer editable. ;;;*** -;;;### (autoloads nil "viper" "emulation/viper.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "viper" "emulation/viper.el" (21604 48550 33934 +;;;;;; 215000)) ;;; Generated autoloads from emulation/viper.el (push (purecopy '(viper 3 14 1)) package--builtin-versions) @@ -30841,8 +30893,8 @@ Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Top'. ;;;*** -;;;### (autoloads nil "warnings" "emacs-lisp/warnings.el" (21607 -;;;;;; 54477 800124 118000)) +;;;### (autoloads nil "warnings" "emacs-lisp/warnings.el" (21604 +;;;;;; 48550 25934 215000)) ;;; Generated autoloads from emacs-lisp/warnings.el (defvar warning-prefix-function nil "\ @@ -30932,7 +30984,7 @@ this is equivalent to `display-warning', using ;;;*** -;;;### (autoloads nil "wdired" "wdired.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "wdired" "wdired.el" (21604 48550 441934 230000)) ;;; Generated autoloads from wdired.el (push (purecopy '(wdired 2 0)) package--builtin-versions) @@ -30950,8 +31002,8 @@ See `wdired-mode'. ;;;*** -;;;### (autoloads nil "webjump" "net/webjump.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "webjump" "net/webjump.el" (21604 48550 233934 +;;;;;; 222000)) ;;; Generated autoloads from net/webjump.el (autoload 'webjump "webjump" "\ @@ -30967,8 +31019,8 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke ;;;*** -;;;### (autoloads nil "which-func" "progmodes/which-func.el" (21607 -;;;;;; 54478 800121 42000)) +;;;### (autoloads nil "which-func" "progmodes/which-func.el" (21604 +;;;;;; 48550 365934 227000)) ;;; Generated autoloads from progmodes/which-func.el (put 'which-func-format 'risky-local-variable t) (put 'which-func-current 'risky-local-variable t) @@ -30998,8 +31050,8 @@ in certain major modes. ;;;*** -;;;### (autoloads nil "whitespace" "whitespace.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "whitespace" "whitespace.el" (21631 35966 927121 +;;;;;; 870000)) ;;; Generated autoloads from whitespace.el (push (purecopy '(whitespace 13 2 2)) package--builtin-versions) @@ -31367,8 +31419,8 @@ cleaning up these problems. ;;;*** -;;;### (autoloads nil "wid-browse" "wid-browse.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "wid-browse" "wid-browse.el" (21604 48550 441934 +;;;;;; 230000)) ;;; Generated autoloads from wid-browse.el (autoload 'widget-browse-at "wid-browse" "\ @@ -31396,8 +31448,8 @@ if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "wid-edit" "wid-edit.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "wid-edit" "wid-edit.el" (21637 50476 687217 +;;;;;; 122000)) ;;; Generated autoloads from wid-edit.el (autoload 'widgetp "wid-edit" "\ @@ -31439,8 +31491,8 @@ Setup current buffer so editing string widgets works. ;;;*** -;;;### (autoloads nil "windmove" "windmove.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "windmove" "windmove.el" (21604 48550 441934 +;;;;;; 230000)) ;;; Generated autoloads from windmove.el (autoload 'windmove-left "windmove" "\ @@ -31492,7 +31544,7 @@ Default MODIFIER is 'shift. ;;;*** -;;;### (autoloads nil "winner" "winner.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "winner" "winner.el" (21604 48550 445934 230000)) ;;; Generated autoloads from winner.el (defvar winner-mode nil "\ @@ -31515,7 +31567,7 @@ the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'. ;;;*** -;;;### (autoloads nil "woman" "woman.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "woman" "woman.el" (21604 48550 445934 230000)) ;;; Generated autoloads from woman.el (push (purecopy '(woman 0 551)) package--builtin-versions) @@ -31564,7 +31616,7 @@ Default bookmark handler for Woman buffers. ;;;*** -;;;### (autoloads nil "xml" "xml.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "xml" "xml.el" (21604 48550 445934 230000)) ;;; Generated autoloads from xml.el (autoload 'xml-parse-file "xml" "\ @@ -31620,8 +31672,8 @@ Both features can be combined by providing a cons cell ;;;*** -;;;### (autoloads nil "xmltok" "nxml/xmltok.el" (21607 54478 300138 -;;;;;; 641000)) +;;;### (autoloads nil "xmltok" "nxml/xmltok.el" (21604 48550 241934 +;;;;;; 223000)) ;;; Generated autoloads from nxml/xmltok.el (autoload 'xmltok-get-declared-encoding-position "xmltok" "\ @@ -31639,8 +31691,52 @@ If LIMIT is non-nil, then do not consider characters beyond LIMIT. ;;;*** -;;;### (autoloads nil "xt-mouse" "xt-mouse.el" (21607 54478 800121 -;;;;;; 42000)) +;;;### (autoloads nil "xref" "progmodes/xref.el" (21660 28432 372929 +;;;;;; 801000)) +;;; Generated autoloads from progmodes/xref.el + +(autoload 'xref-pop-marker-stack "xref" "\ +Pop back to where \\[xref-find-definitions] was last invoked. + +\(fn)" t nil) + +(autoload 'xref-find-definitions "xref" "\ +Find the definition of the identifier at point. +With prefix argument, prompt for the identifier. + +\(fn IDENTIFIER)" t nil) + +(autoload 'xref-find-definitions-other-window "xref" "\ +Like `xref-find-definitions' but switch to the other window. + +\(fn IDENTIFIER)" t nil) + +(autoload 'xref-find-definitions-other-frame "xref" "\ +Like `xref-find-definitions' but switch to the other frame. + +\(fn IDENTIFIER)" t nil) + +(autoload 'xref-find-references "xref" "\ +Find references to the identifier at point. +With prefix argument, prompt for the identifier. + +\(fn IDENTIFIER)" t nil) + +(autoload 'xref-find-apropos "xref" "\ +Find all meaningful symbols that match PATTERN. +The argument has the same meaning as in `apropos'. + +\(fn PATTERN)" t nil) + (define-key esc-map "." #'xref-find-definitions) + (define-key esc-map "," #'xref-pop-marker-stack) + (define-key esc-map [?\C-.] #'xref-find-apropos) + (define-key ctl-x-4-map "." #'xref-find-definitions-other-window) + (define-key ctl-x-5-map "." #'xref-find-definitions-other-frame) + +;;;*** + +;;;### (autoloads nil "xt-mouse" "xt-mouse.el" (21604 48550 445934 +;;;;;; 230000)) ;;; Generated autoloads from xt-mouse.el (defvar xterm-mouse-mode nil "\ @@ -31669,7 +31765,7 @@ down the SHIFT key while pressing the mouse button. ;;;*** -;;;### (autoloads nil "yenc" "gnus/yenc.el" (21607 54478 300138 641000)) +;;;### (autoloads nil "yenc" "gnus/yenc.el" (21604 48550 121934 218000)) ;;; Generated autoloads from gnus/yenc.el (autoload 'yenc-decode-region "yenc" "\ @@ -31684,7 +31780,7 @@ Extract file name from an yenc header. ;;;*** -;;;### (autoloads nil "zone" "play/zone.el" (21607 54478 800121 42000)) +;;;### (autoloads nil "zone" "play/zone.el" (21604 48550 309934 225000)) ;;; Generated autoloads from play/zone.el (autoload 'zone "zone" "\ @@ -31730,9 +31826,11 @@ Zone out, completely. ;;;;;; "cedet/ede/system.el" "cedet/ede/util.el" "cedet/semantic/analyze.el" ;;;;;; "cedet/semantic/analyze/complete.el" "cedet/semantic/analyze/debug.el" ;;;;;; "cedet/semantic/analyze/fcn.el" "cedet/semantic/analyze/refs.el" -;;;;;; "cedet/semantic/bovine.el" "cedet/semantic/bovine/c.el" "cedet/semantic/bovine/debug.el" +;;;;;; "cedet/semantic/bovine.el" "cedet/semantic/bovine/c-by.el" +;;;;;; "cedet/semantic/bovine/c.el" "cedet/semantic/bovine/debug.el" ;;;;;; "cedet/semantic/bovine/el.el" "cedet/semantic/bovine/gcc.el" -;;;;;; "cedet/semantic/bovine/make.el" "cedet/semantic/bovine/scm.el" +;;;;;; "cedet/semantic/bovine/make-by.el" "cedet/semantic/bovine/make.el" +;;;;;; "cedet/semantic/bovine/scm-by.el" "cedet/semantic/bovine/scm.el" ;;;;;; "cedet/semantic/chart.el" "cedet/semantic/complete.el" "cedet/semantic/ctxt.el" ;;;;;; "cedet/semantic/db-debug.el" "cedet/semantic/db-ebrowse.el" ;;;;;; "cedet/semantic/db-el.el" "cedet/semantic/db-file.el" "cedet/semantic/db-find.el" @@ -31755,38 +31853,41 @@ Zone out, completely. ;;;;;; "cedet/semantic/tag.el" "cedet/semantic/texi.el" "cedet/semantic/util-modes.el" ;;;;;; "cedet/semantic/util.el" "cedet/semantic/wisent.el" "cedet/semantic/wisent/comp.el" ;;;;;; "cedet/semantic/wisent/java-tags.el" "cedet/semantic/wisent/javascript.el" -;;;;;; "cedet/semantic/wisent/python.el" "cedet/semantic/wisent/wisent.el" -;;;;;; "cedet/srecode/args.el" "cedet/srecode/compile.el" "cedet/srecode/cpp.el" -;;;;;; "cedet/srecode/ctxt.el" "cedet/srecode/dictionary.el" "cedet/srecode/document.el" +;;;;;; "cedet/semantic/wisent/javat-wy.el" "cedet/semantic/wisent/js-wy.el" +;;;;;; "cedet/semantic/wisent/python-wy.el" "cedet/semantic/wisent/python.el" +;;;;;; "cedet/semantic/wisent/wisent.el" "cedet/srecode/args.el" +;;;;;; "cedet/srecode/compile.el" "cedet/srecode/cpp.el" "cedet/srecode/ctxt.el" +;;;;;; "cedet/srecode/dictionary.el" "cedet/srecode/document.el" ;;;;;; "cedet/srecode/el.el" "cedet/srecode/expandproto.el" "cedet/srecode/extract.el" ;;;;;; "cedet/srecode/fields.el" "cedet/srecode/filters.el" "cedet/srecode/find.el" ;;;;;; "cedet/srecode/getset.el" "cedet/srecode/insert.el" "cedet/srecode/java.el" ;;;;;; "cedet/srecode/loaddefs.el" "cedet/srecode/map.el" "cedet/srecode/mode.el" -;;;;;; "cedet/srecode/semantic.el" "cedet/srecode/srt.el" "cedet/srecode/table.el" -;;;;;; "cedet/srecode/template.el" "cedet/srecode/texi.el" "cus-dep.el" -;;;;;; "dframe.el" "dired-aux.el" "dired-x.el" "dom.el" "dos-fns.el" -;;;;;; "dos-vars.el" "dos-w32.el" "dynamic-setting.el" "emacs-lisp/avl-tree.el" -;;;;;; "emacs-lisp/bindat.el" "emacs-lisp/byte-opt.el" "emacs-lisp/cl-extra.el" -;;;;;; "emacs-lisp/cl-loaddefs.el" "emacs-lisp/cl-macs.el" "emacs-lisp/cl-seq.el" -;;;;;; "emacs-lisp/cl.el" "emacs-lisp/eieio-base.el" "emacs-lisp/eieio-custom.el" -;;;;;; "emacs-lisp/eieio-datadebug.el" "emacs-lisp/eieio-opt.el" -;;;;;; "emacs-lisp/eieio-speedbar.el" "emacs-lisp/lisp-mnt.el" "emacs-lisp/package-x.el" -;;;;;; "emacs-lisp/smie.el" "emacs-lisp/subr-x.el" "emacs-lisp/tcover-ses.el" -;;;;;; "emacs-lisp/tcover-unsafep.el" "emulation/cua-gmrk.el" "emulation/edt-lk201.el" -;;;;;; "emulation/edt-mapper.el" "emulation/edt-pc.el" "emulation/edt-vt100.el" -;;;;;; "emulation/viper-cmd.el" "emulation/viper-ex.el" "emulation/viper-init.el" -;;;;;; "emulation/viper-keym.el" "emulation/viper-macs.el" "emulation/viper-mous.el" -;;;;;; "emulation/viper-util.el" "erc/erc-backend.el" "erc/erc-goodies.el" -;;;;;; "erc/erc-ibuffer.el" "erc/erc-lang.el" "eshell/em-alias.el" -;;;;;; "eshell/em-banner.el" "eshell/em-basic.el" "eshell/em-cmpl.el" -;;;;;; "eshell/em-dirs.el" "eshell/em-glob.el" "eshell/em-hist.el" -;;;;;; "eshell/em-ls.el" "eshell/em-pred.el" "eshell/em-prompt.el" -;;;;;; "eshell/em-rebind.el" "eshell/em-script.el" "eshell/em-smart.el" -;;;;;; "eshell/em-term.el" "eshell/em-tramp.el" "eshell/em-unix.el" -;;;;;; "eshell/em-xtra.el" "eshell/esh-arg.el" "eshell/esh-cmd.el" -;;;;;; "eshell/esh-ext.el" "eshell/esh-groups.el" "eshell/esh-io.el" -;;;;;; "eshell/esh-module.el" "eshell/esh-opt.el" "eshell/esh-proc.el" -;;;;;; "eshell/esh-util.el" "eshell/esh-var.el" "ezimage.el" "format-spec.el" +;;;;;; "cedet/srecode/semantic.el" "cedet/srecode/srt-wy.el" "cedet/srecode/srt.el" +;;;;;; "cedet/srecode/table.el" "cedet/srecode/template.el" "cedet/srecode/texi.el" +;;;;;; "cus-dep.el" "cus-load.el" "dframe.el" "dired-aux.el" "dired-x.el" +;;;;;; "dom.el" "dos-fns.el" "dos-vars.el" "dos-w32.el" "dynamic-setting.el" +;;;;;; "emacs-lisp/avl-tree.el" "emacs-lisp/bindat.el" "emacs-lisp/byte-opt.el" +;;;;;; "emacs-lisp/cl-extra.el" "emacs-lisp/cl-loaddefs.el" "emacs-lisp/cl-macs.el" +;;;;;; "emacs-lisp/cl-seq.el" "emacs-lisp/cl.el" "emacs-lisp/eieio-base.el" +;;;;;; "emacs-lisp/eieio-custom.el" "emacs-lisp/eieio-datadebug.el" +;;;;;; "emacs-lisp/eieio-opt.el" "emacs-lisp/eieio-speedbar.el" +;;;;;; "emacs-lisp/lisp-mnt.el" "emacs-lisp/package-x.el" "emacs-lisp/smie.el" +;;;;;; "emacs-lisp/subr-x.el" "emacs-lisp/tcover-ses.el" "emacs-lisp/tcover-unsafep.el" +;;;;;; "emulation/cua-gmrk.el" "emulation/edt-lk201.el" "emulation/edt-mapper.el" +;;;;;; "emulation/edt-pc.el" "emulation/edt-vt100.el" "emulation/viper-cmd.el" +;;;;;; "emulation/viper-ex.el" "emulation/viper-init.el" "emulation/viper-keym.el" +;;;;;; "emulation/viper-macs.el" "emulation/viper-mous.el" "emulation/viper-util.el" +;;;;;; "erc/erc-backend.el" "erc/erc-goodies.el" "erc/erc-ibuffer.el" +;;;;;; "erc/erc-lang.el" "eshell/em-alias.el" "eshell/em-banner.el" +;;;;;; "eshell/em-basic.el" "eshell/em-cmpl.el" "eshell/em-dirs.el" +;;;;;; "eshell/em-glob.el" "eshell/em-hist.el" "eshell/em-ls.el" +;;;;;; "eshell/em-pred.el" "eshell/em-prompt.el" "eshell/em-rebind.el" +;;;;;; "eshell/em-script.el" "eshell/em-smart.el" "eshell/em-term.el" +;;;;;; "eshell/em-tramp.el" "eshell/em-unix.el" "eshell/em-xtra.el" +;;;;;; "eshell/esh-arg.el" "eshell/esh-cmd.el" "eshell/esh-ext.el" +;;;;;; "eshell/esh-groups.el" "eshell/esh-io.el" "eshell/esh-module.el" +;;;;;; "eshell/esh-opt.el" "eshell/esh-proc.el" "eshell/esh-util.el" +;;;;;; "eshell/esh-var.el" "ezimage.el" "finder-inf.el" "format-spec.el" ;;;;;; "fringe.el" "generic-x.el" "gnus/compface.el" "gnus/gnus-async.el" ;;;;;; "gnus/gnus-bcklg.el" "gnus/gnus-cite.el" "gnus/gnus-cloud.el" ;;;;;; "gnus/gnus-cus.el" "gnus/gnus-demon.el" "gnus/gnus-dup.el" @@ -31810,28 +31911,42 @@ Zone out, completely. ;;;;;; "gnus/smime.el" "gnus/spam-stat.el" "gnus/spam-wash.el" "hex-util.el" ;;;;;; "hfy-cmap.el" "ibuf-ext.el" "international/cp51932.el" "international/eucjp-ms.el" ;;;;;; "international/fontset.el" "international/iso-ascii.el" "international/ja-dic-cnv.el" -;;;;;; "international/ja-dic-utl.el" "international/ogonek.el" "kermit.el" -;;;;;; "language/hanja-util.el" "language/thai-word.el" "ldefs-boot.el" -;;;;;; "leim/quail/arabic.el" "leim/quail/croatian.el" "leim/quail/cyril-jis.el" -;;;;;; "leim/quail/cyrillic.el" "leim/quail/czech.el" "leim/quail/ethiopic.el" -;;;;;; "leim/quail/georgian.el" "leim/quail/greek.el" "leim/quail/hanja-jis.el" -;;;;;; "leim/quail/hanja.el" "leim/quail/hanja3.el" "leim/quail/hebrew.el" -;;;;;; "leim/quail/indian.el" "leim/quail/ipa-praat.el" "leim/quail/ipa.el" -;;;;;; "leim/quail/japanese.el" "leim/quail/lao.el" "leim/quail/latin-alt.el" -;;;;;; "leim/quail/latin-ltx.el" "leim/quail/latin-post.el" "leim/quail/latin-pre.el" -;;;;;; "leim/quail/lrt.el" "leim/quail/persian.el" "leim/quail/py-punct.el" -;;;;;; "leim/quail/pypunct-b5.el" "leim/quail/rfc1345.el" "leim/quail/sgml-input.el" +;;;;;; "international/ja-dic-utl.el" "international/ogonek.el" "international/uni-bidi.el" +;;;;;; "international/uni-brackets.el" "international/uni-category.el" +;;;;;; "international/uni-combining.el" "international/uni-comment.el" +;;;;;; "international/uni-decimal.el" "international/uni-decomposition.el" +;;;;;; "international/uni-digit.el" "international/uni-lowercase.el" +;;;;;; "international/uni-mirrored.el" "international/uni-name.el" +;;;;;; "international/uni-numeric.el" "international/uni-old-name.el" +;;;;;; "international/uni-titlecase.el" "international/uni-uppercase.el" +;;;;;; "kermit.el" "language/hanja-util.el" "language/thai-word.el" +;;;;;; "ldefs-boot.el" "leim/ja-dic/ja-dic.el" "leim/quail/4Corner.el" +;;;;;; "leim/quail/ARRAY30.el" "leim/quail/CCDOSPY.el" "leim/quail/CTLau-b5.el" +;;;;;; "leim/quail/CTLau.el" "leim/quail/ECDICT.el" "leim/quail/ETZY.el" +;;;;;; "leim/quail/PY-b5.el" "leim/quail/PY.el" "leim/quail/Punct-b5.el" +;;;;;; "leim/quail/Punct.el" "leim/quail/QJ-b5.el" "leim/quail/QJ.el" +;;;;;; "leim/quail/SW.el" "leim/quail/TONEPY.el" "leim/quail/ZIRANMA.el" +;;;;;; "leim/quail/ZOZY.el" "leim/quail/arabic.el" "leim/quail/croatian.el" +;;;;;; "leim/quail/cyril-jis.el" "leim/quail/cyrillic.el" "leim/quail/czech.el" +;;;;;; "leim/quail/ethiopic.el" "leim/quail/georgian.el" "leim/quail/greek.el" +;;;;;; "leim/quail/hanja-jis.el" "leim/quail/hanja.el" "leim/quail/hanja3.el" +;;;;;; "leim/quail/hebrew.el" "leim/quail/indian.el" "leim/quail/ipa-praat.el" +;;;;;; "leim/quail/ipa.el" "leim/quail/japanese.el" "leim/quail/lao.el" +;;;;;; "leim/quail/latin-alt.el" "leim/quail/latin-ltx.el" "leim/quail/latin-post.el" +;;;;;; "leim/quail/latin-pre.el" "leim/quail/lrt.el" "leim/quail/persian.el" +;;;;;; "leim/quail/py-punct.el" "leim/quail/pypunct-b5.el" "leim/quail/quick-b5.el" +;;;;;; "leim/quail/quick-cns.el" "leim/quail/rfc1345.el" "leim/quail/sgml-input.el" ;;;;;; "leim/quail/sisheng.el" "leim/quail/slovak.el" "leim/quail/symbol-ksc.el" -;;;;;; "leim/quail/thai.el" "leim/quail/tibetan.el" "leim/quail/viqr.el" -;;;;;; "leim/quail/vntelex.el" "leim/quail/vnvni.el" "leim/quail/welsh.el" -;;;;;; "loadup.el" "mail/blessmail.el" "mail/mailheader.el" "mail/mspools.el" -;;;;;; "mail/rfc2368.el" "mail/rfc822.el" "mail/rmail-spam-filter.el" -;;;;;; "mail/rmailedit.el" "mail/rmailkwd.el" "mail/rmailmm.el" -;;;;;; "mail/rmailmsc.el" "mail/rmailsort.el" "mail/rmailsum.el" -;;;;;; "mail/undigest.el" "mh-e/mh-acros.el" "mh-e/mh-alias.el" -;;;;;; "mh-e/mh-buffers.el" "mh-e/mh-compat.el" "mh-e/mh-funcs.el" -;;;;;; "mh-e/mh-gnus.el" "mh-e/mh-identity.el" "mh-e/mh-inc.el" -;;;;;; "mh-e/mh-junk.el" "mh-e/mh-letter.el" "mh-e/mh-limit.el" +;;;;;; "leim/quail/thai.el" "leim/quail/tibetan.el" "leim/quail/tsang-b5.el" +;;;;;; "leim/quail/tsang-cns.el" "leim/quail/viqr.el" "leim/quail/vntelex.el" +;;;;;; "leim/quail/vnvni.el" "leim/quail/welsh.el" "loadup.el" "mail/blessmail.el" +;;;;;; "mail/mailheader.el" "mail/mspools.el" "mail/rfc2368.el" +;;;;;; "mail/rfc822.el" "mail/rmail-spam-filter.el" "mail/rmailedit.el" +;;;;;; "mail/rmailkwd.el" "mail/rmailmm.el" "mail/rmailmsc.el" "mail/rmailsort.el" +;;;;;; "mail/rmailsum.el" "mail/undigest.el" "mh-e/mh-acros.el" +;;;;;; "mh-e/mh-alias.el" "mh-e/mh-buffers.el" "mh-e/mh-compat.el" +;;;;;; "mh-e/mh-funcs.el" "mh-e/mh-gnus.el" "mh-e/mh-identity.el" +;;;;;; "mh-e/mh-inc.el" "mh-e/mh-junk.el" "mh-e/mh-letter.el" "mh-e/mh-limit.el" ;;;;;; "mh-e/mh-loaddefs.el" "mh-e/mh-mime.el" "mh-e/mh-print.el" ;;;;;; "mh-e/mh-scan.el" "mh-e/mh-search.el" "mh-e/mh-seq.el" "mh-e/mh-show.el" ;;;;;; "mh-e/mh-speed.el" "mh-e/mh-thread.el" "mh-e/mh-tool-bar.el" @@ -31900,8 +32015,8 @@ Zone out, completely. ;;;;;; "vc/ediff-ptch.el" "vc/ediff-vers.el" "vc/ediff-wind.el" ;;;;;; "vc/pcvs-info.el" "vc/pcvs-parse.el" "vc/pcvs-util.el" "vc/vc-dav.el" ;;;;;; "vc/vc-filewise.el" "vcursor.el" "vt-control.el" "vt100-led.el" -;;;;;; "w32-fns.el" "w32-vars.el" "x-dnd.el") (21628 46363 926675 -;;;;;; 999000)) +;;;;;; "w32-fns.el" "w32-vars.el" "x-dnd.el") (21660 28703 181624 +;;;;;; 391000)) ;;;*** diff --git a/lisp/let-alist.el b/lisp/let-alist.el index 7271e391f47..d2145287c85 100644 --- a/lisp/let-alist.el +++ b/lisp/let-alist.el @@ -77,7 +77,7 @@ symbol, and each cdr is the same symbol without the `.'." (mapcar #'let-alist--deep-dot-search data))))) (defun let-alist--access-sexp (symbol variable) - "Return a sexp used to acess SYMBOL inside VARIABLE." + "Return a sexp used to access SYMBOL inside VARIABLE." (let* ((clean (let-alist--remove-dot symbol)) (name (symbol-name clean))) (if (string-match "\\`\\." name) diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index e1e6b0ee907..91989016067 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -1818,8 +1818,9 @@ variables.") ,(if (eq (selected-window) (minibuffer-window)) 'display-buffer-at-bottom 'display-buffer-below-selected)) - ,(when temp-buffer-resize-mode - '(window-height . resize-temp-buffer-window)) + ,(if temp-buffer-resize-mode + '(window-height . resize-temp-buffer-window) + '(window-height . shrink-window-if-larger-than-buffer)) ,(when temp-buffer-resize-mode '(preserve-size . (nil . t)))) nil diff --git a/lisp/net/tramp-gw.el b/lisp/net/tramp-gw.el index 0decd8847cc..e21aaf78914 100644 --- a/lisp/net/tramp-gw.el +++ b/lisp/net/tramp-gw.el @@ -195,11 +195,12 @@ instead of the host name declared in TARGET-VEC." (setq tramp-gw-gw-proc (funcall socks-function - (tramp-get-connection-name gw-vec) - (tramp-get-connection-buffer gw-vec) + (let ((tramp-verbose 0)) (tramp-get-connection-name gw-vec)) + (let ((tramp-verbose 0)) (tramp-get-connection-buffer gw-vec)) (tramp-file-name-real-host target-vec) (tramp-file-name-port target-vec))) (set-process-sentinel tramp-gw-gw-proc 'tramp-gw-gw-proc-sentinel) + (set-process-coding-system tramp-gw-gw-proc 'binary 'binary) (tramp-compat-set-process-query-on-exit-flag tramp-gw-gw-proc nil) (tramp-message vec 4 "Opened %s process `%s'" @@ -260,6 +261,10 @@ authentication is requested from proxy server, provide it." (200 (setq found t)) ;; We need basic authentication. (401 (setq authentication (tramp-gw-basic-authentication nil first))) + ;; Access forbidden. + (403 (tramp-error-with-buffer + (current-buffer) tramp-gw-vector 'file-error + "Connection to %s:%d forbidden." host service)) ;; Target host not found. (404 (tramp-error-with-buffer (current-buffer) tramp-gw-vector 'file-error diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index ba7b7d95a4b..6fc2effbe0f 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el @@ -2471,8 +2471,12 @@ The method used must be an out-of-band method." (mapconcat 'identity (process-command p) " ")) (tramp-set-connection-property p "vector" orig-vec) (tramp-compat-set-process-query-on-exit-flag p nil) - (tramp-process-actions - p v nil tramp-actions-copy-out-of-band) + + ;; We must adapt `tramp-local-end-of-line' for + ;; sending the password. + (let ((tramp-local-end-of-line tramp-rsh-end-of-line)) + (tramp-process-actions + p v nil tramp-actions-copy-out-of-band)) ;; Check the return code. (goto-char (point-max)) @@ -2883,7 +2887,7 @@ the result will be a local, non-Tramp, file name." (name1 name) (i 0) ;; We do not want to raise an error when - ;; `start-file-process' has been started several time in + ;; `start-file-process' has been started several times in ;; `eshell' and friends. (tramp-current-connection nil)) @@ -4510,7 +4514,8 @@ Gateway hops are already opened." ;; Therefore, we must remember the gateway vector. But we ;; cannot do it as connection property, because it shouldn't ;; be persistent. And we have no started process yet either. - (tramp-set-file-property (car target-alist) "" "gateway" hop))) + (let ((tramp-verbose 0)) + (tramp-set-file-property (car target-alist) "" "gateway" hop)))) ;; Foreign and out-of-band methods are not supported for multi-hops. (when (cdr target-alist) @@ -4687,7 +4692,8 @@ connection if a previous connection has died for some reason." l-method 'tramp-connection-timeout)) (gw-args (tramp-get-method-parameter l-method 'tramp-gw-args)) - (gw (tramp-get-file-property hop "" "gateway" nil)) + (gw (let ((tramp-verbose 0)) + (tramp-get-file-property hop "" "gateway" nil))) (g-method (and gw (tramp-file-name-method gw))) (g-user (and gw (tramp-file-name-user gw))) (g-host (and gw (tramp-file-name-real-host gw))) @@ -4715,8 +4721,10 @@ connection if a previous connection has died for some reason." (setq login-args (append async-args login-args))) ;; Add gateway arguments if necessary. - (when (and gw gw-args) - (setq login-args (append gw-args login-args))) + (when gw + (tramp-set-connection-property p "gateway" t) + (when gw-args + (setq login-args (append gw-args login-args)))) ;; Check for port number. Until now, there's no ;; need for handling like method, user, host. @@ -4902,8 +4910,9 @@ FMT and ARGS which are passed to `error'." (or (tramp-send-command-and-check vec command) (apply 'tramp-error vec 'file-error fmt args))) -(defun tramp-send-command-and-read (vec command &optional noerror) +(defun tramp-send-command-and-read (vec command &optional noerror marker) "Run COMMAND and return the output, which must be a Lisp expression. +If MARKER is a regexp, read the output after that string. In case there is no valid Lisp expression and NOERROR is nil, it raises an error." (when (if noerror @@ -4911,8 +4920,17 @@ raises an error." (tramp-barf-unless-okay vec command "`%s' returns with error" command)) (with-current-buffer (tramp-get-connection-buffer vec) - ;; Read the expression. (goto-char (point-min)) + ;; Read the marker. + (when (stringp marker) + (condition-case nil + (re-search-forward marker) + (error (unless noerror + (tramp-error + vec 'file-error + "`%s' does not return the marker `%s': `%s'" + command marker (buffer-string)))))) + ;; Read the expression. (condition-case nil (prog1 (read (current-buffer)) ;; Error handling. @@ -5064,25 +5082,22 @@ Return ATTR." "/bin:/usr/bin") "/bin:/usr/bin")))) (own-remote-path - ;; We cannot apply `tramp-send-command-and-read' because - ;; the login shell could return more than just the $PATH - ;; string. So we emulate that function. + ;; The login shell could return more than just the $PATH + ;; string. So we use `tramp-end-of-heredoc' as marker. (when elt2 - (tramp-send-command + (tramp-send-command-and-read vec (format - "%s -l %s 'echo \\\"$PATH\\\"'" + "%s -l %s 'echo %s \\\"$PATH\\\"'" (tramp-get-method-parameter (tramp-file-name-method vec) 'tramp-remote-shell) (mapconcat 'identity (tramp-get-method-parameter (tramp-file-name-method vec) 'tramp-remote-shell-args) - " "))) - (with-current-buffer (tramp-get-connection-buffer vec) - (goto-char (point-max)) - (forward-line -1) - (read (current-buffer)))))) + " ") + (tramp-shell-quote-argument tramp-end-of-heredoc)) + nil (regexp-quote tramp-end-of-heredoc))))) ;; Replace place holder `tramp-default-remote-path'. (when elt1 diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 2cf9d45b965..3c8b5bbd60e 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -1610,7 +1610,7 @@ an input event arrives. The other arguments are passed to `tramp-error'." (let ((enable-recursive-minibuffers t)) ;; `tramp-error' does not show messages. So we must do it ;; ourselves. - (message fmt-string arguments) + (apply 'message fmt-string arguments) ;; Show buffer. (pop-to-buffer buf) (discard-input) @@ -3086,115 +3086,118 @@ User is always nil." (setq filename (expand-file-name filename)) (let (result local-copy remote-copy) (with-parsed-tramp-file-name filename nil - (with-tramp-progress-reporter - v 3 (format "Inserting `%s'" filename) - (unwind-protect - (if (not (file-exists-p filename)) - (progn - ;; We don't raise a Tramp error, because it might be - ;; suppressed, like in `find-file-noselect-1'. - (tramp-message - v 1 "File not `%s' found on remote host" filename) - (signal 'file-error - (list "File not found on remote host" filename))) - - (if (and (tramp-local-host-p v) - (let (file-name-handler-alist) - (file-readable-p localname))) - ;; Short track: if we are on the local host, we can - ;; run directly. - (setq result - (tramp-run-real-handler - 'insert-file-contents - (list localname visit beg end replace))) - - ;; When we shall insert only a part of the file, we - ;; copy this part. This works only for the shell file - ;; name handlers. - (when (and (or beg end) - (tramp-get-method-parameter - (tramp-file-name-method v) 'tramp-login-program)) - (setq remote-copy (tramp-make-tramp-temp-file v)) - ;; This is defined in tramp-sh.el. Let's assume - ;; this is loaded already. - (tramp-compat-funcall - 'tramp-send-command - v - (cond - ((and beg end) - (format "dd bs=1 skip=%d if=%s count=%d of=%s" - beg (tramp-shell-quote-argument localname) - (- end beg) remote-copy)) - (beg - (format "dd bs=1 skip=%d if=%s of=%s" - beg (tramp-shell-quote-argument localname) - remote-copy)) - (end - (format "dd bs=1 count=%d if=%s of=%s" - end (tramp-shell-quote-argument localname) - remote-copy)))) - (setq tramp-temp-buffer-file-name nil beg nil end nil)) - - ;; `insert-file-contents-literally' takes care to - ;; avoid calling jka-compr. By let-binding - ;; `inhibit-file-name-operation', we propagate that - ;; care to the `file-local-copy' operation. - (setq local-copy - (let ((inhibit-file-name-operation - (when (eq inhibit-file-name-operation - 'insert-file-contents) - 'file-local-copy))) - (cond - ((stringp remote-copy) - (file-local-copy - (tramp-make-tramp-file-name - method user host remote-copy))) - ((stringp tramp-temp-buffer-file-name) - (copy-file filename tramp-temp-buffer-file-name 'ok) - tramp-temp-buffer-file-name) - (t (file-local-copy filename))))) - - ;; When the file is not readable for the owner, it - ;; cannot be inserted, even if it is readable for the - ;; group or for everybody. - (set-file-modes - local-copy (tramp-compat-octal-to-decimal "0600")) - - (when (and (null remote-copy) - (tramp-get-method-parameter - method 'tramp-copy-keep-tmpfile)) - ;; We keep the local file for performance reasons, - ;; useful for "rsync". - (setq tramp-temp-buffer-file-name local-copy)) - - ;; We must ensure that `file-coding-system-alist' - ;; matches `local-copy'. We must also use `visit', - ;; otherwise there might be an error in the - ;; `revert-buffer' function under XEmacs. - (let ((file-coding-system-alist - (tramp-find-file-name-coding-system-alist - filename local-copy))) - (setq result - (insert-file-contents - local-copy visit beg end replace))))) - - ;; Save exit. - (progn - (when visit - (setq buffer-file-name filename) - (setq buffer-read-only (not (file-writable-p filename))) - (set-visited-file-modtime) - (set-buffer-modified-p nil)) - (when (and (stringp local-copy) - (or remote-copy (null tramp-temp-buffer-file-name))) - (delete-file local-copy)) - (when (stringp remote-copy) - (delete-file - (tramp-make-tramp-file-name method user host remote-copy))))))) - - ;; Result. - (list (expand-file-name filename) - (cadr result)))) + (unwind-protect + (if (not (file-exists-p filename)) + (tramp-error + v 'file-error "File `%s' not found on remote host" filename) + + (with-tramp-progress-reporter + v 3 (format "Inserting `%s'" filename) + (condition-case err + (if (and (tramp-local-host-p v) + (let (file-name-handler-alist) + (file-readable-p localname))) + ;; Short track: if we are on the local host, we can + ;; run directly. + (setq result + (tramp-run-real-handler + 'insert-file-contents + (list localname visit beg end replace))) + + ;; When we shall insert only a part of the file, we + ;; copy this part. This works only for the shell file + ;; name handlers. + (when (and (or beg end) + (tramp-get-method-parameter + (tramp-file-name-method v) + 'tramp-login-program)) + (setq remote-copy (tramp-make-tramp-temp-file v)) + ;; This is defined in tramp-sh.el. Let's assume + ;; this is loaded already. + (tramp-compat-funcall + 'tramp-send-command + v + (cond + ((and beg end) + (format "dd bs=1 skip=%d if=%s count=%d of=%s" + beg (tramp-shell-quote-argument localname) + (- end beg) remote-copy)) + (beg + (format "dd bs=1 skip=%d if=%s of=%s" + beg (tramp-shell-quote-argument localname) + remote-copy)) + (end + (format "dd bs=1 count=%d if=%s of=%s" + end (tramp-shell-quote-argument localname) + remote-copy)))) + (setq tramp-temp-buffer-file-name nil beg nil end nil)) + + ;; `insert-file-contents-literally' takes care to + ;; avoid calling jka-compr. By let-binding + ;; `inhibit-file-name-operation', we propagate that + ;; care to the `file-local-copy' operation. + (setq local-copy + (let ((inhibit-file-name-operation + (when (eq inhibit-file-name-operation + 'insert-file-contents) + 'file-local-copy))) + (cond + ((stringp remote-copy) + (file-local-copy + (tramp-make-tramp-file-name + method user host remote-copy))) + ((stringp tramp-temp-buffer-file-name) + (copy-file + filename tramp-temp-buffer-file-name 'ok) + tramp-temp-buffer-file-name) + (t (file-local-copy filename))))) + + ;; When the file is not readable for the owner, it + ;; cannot be inserted, even if it is readable for the + ;; group or for everybody. + (set-file-modes + local-copy (tramp-compat-octal-to-decimal "0600")) + + (when (and (null remote-copy) + (tramp-get-method-parameter + method 'tramp-copy-keep-tmpfile)) + ;; We keep the local file for performance reasons, + ;; useful for "rsync". + (setq tramp-temp-buffer-file-name local-copy)) + + ;; We must ensure that `file-coding-system-alist' + ;; matches `local-copy'. We must also use `visit', + ;; otherwise there might be an error in the + ;; `revert-buffer' function under XEmacs. + (let ((file-coding-system-alist + (tramp-find-file-name-coding-system-alist + filename local-copy))) + (setq result + (insert-file-contents + local-copy visit beg end replace)))) + (error + (add-hook 'find-file-not-found-functions + `(lambda () (signal ',(car err) ',(cdr err))) + nil t) + (signal (car err) (cdr err)))))) + + ;; Save exit. + (progn + (when visit + (setq buffer-file-name filename) + (setq buffer-read-only (not (file-writable-p filename))) + (set-visited-file-modtime) + (set-buffer-modified-p nil)) + (when (and (stringp local-copy) + (or remote-copy (null tramp-temp-buffer-file-name))) + (delete-file local-copy)) + (when (stringp remote-copy) + (delete-file + (tramp-make-tramp-file-name method user host remote-copy))))) + + ;; Result. + (list (expand-file-name filename) + (cadr result))))) (defun tramp-handle-load (file &optional noerror nomessage nosuffix must-suffix) "Like `load' for Tramp files." @@ -3609,15 +3612,19 @@ connection buffer." This is needed in order to hide `last-coding-system-used', which is set for process communication also." (with-current-buffer (process-buffer proc) - (tramp-message proc 10 "%s %s" proc (process-status proc)) - (let (buffer-read-only last-coding-system-used) + ;; FIXME: If there is a gateway process, we need communication + ;; between several processes. Too complicate to implement, so we + ;; read output from all processes. + (let ((p (if (tramp-get-connection-property proc "gateway" nil) nil proc)) + buffer-read-only last-coding-system-used) ;; Under Windows XP, accept-process-output doesn't return ;; sometimes. So we add an additional timeout. (with-timeout ((or timeout 1)) (if (featurep 'xemacs) - (accept-process-output proc timeout timeout-msecs) - (accept-process-output proc timeout timeout-msecs (and proc t))))) - (tramp-message proc 10 "\n%s" (buffer-string)))) + (accept-process-output p timeout timeout-msecs) + (accept-process-output p timeout timeout-msecs (and proc t)))) + (tramp-message proc 10 "%s %s %s\n%s" + proc (process-status proc) p (buffer-string))))) (defun tramp-check-for-regexp (proc regexp) "Check, whether REGEXP is contained in process buffer of PROC. @@ -4184,25 +4191,27 @@ Invokes `password-read' if available, `read-passwd' else." ;; it's bound. `auth-source-user-or-password' is an ;; obsoleted function, it has been replaced by ;; `auth-source-search'. - (and (boundp 'auth-sources) - (tramp-get-connection-property - v "first-password-request" nil) - ;; Try with Tramp's current method. - (if (fboundp 'auth-source-search) - (setq auth-info - (tramp-compat-funcall - 'auth-source-search - :max 1 - :user (or tramp-current-user t) - :host tramp-current-host - :port tramp-current-method) - auth-passwd (plist-get (nth 0 auth-info) :secret) - auth-passwd (if (functionp auth-passwd) - (funcall auth-passwd) - auth-passwd)) - (tramp-compat-funcall - 'auth-source-user-or-password - "password" tramp-current-host tramp-current-method))) + (ignore-errors + (and (boundp 'auth-sources) + (tramp-get-connection-property + v "first-password-request" nil) + ;; Try with Tramp's current method. + (if (fboundp 'auth-source-search) + (setq auth-info + (tramp-compat-funcall + 'auth-source-search + :max 1 + :user (or tramp-current-user t) + :host tramp-current-host + :port tramp-current-method) + auth-passwd (plist-get + (nth 0 auth-info) :secret) + auth-passwd (if (functionp auth-passwd) + (funcall auth-passwd) + auth-passwd)) + (tramp-compat-funcall + 'auth-source-user-or-password + "password" tramp-current-host tramp-current-method)))) ;; Try the password cache. (when (functionp 'password-read) (let ((password diff --git a/lisp/org/org-ctags.el b/lisp/org/org-ctags.el index 41775bdab6d..faf543be1b5 100644 --- a/lisp/org/org-ctags.el +++ b/lisp/org/org-ctags.el @@ -63,19 +63,19 @@ ;; with the same name as the link; then, if unsuccessful, ask the user if ;; he/she wants to rebuild the 'TAGS' database and try again; then ask if ;; the user wishes to append 'tag' as a new toplevel heading at the end of -;; the buffer; and finally, defer to org's default behaviour which is to +;; the buffer; and finally, defer to org's default behavior which is to ;; search the entire text of the current buffer for 'tag'. ;; -;; This behaviour can be modified by changing the value of +;; This behavior can be modified by changing the value of ;; ORG-CTAGS-OPEN-LINK-FUNCTIONS. For example I have the following in my -;; .emacs, which describes the same behaviour as the above paragraph with +;; .emacs, which describes the same behavior as the above paragraph with ;; one difference: ;; ;; (setq org-ctags-open-link-functions ;; '(org-ctags-find-tag ;; org-ctags-ask-rebuild-tags-file-then-find-tag ;; org-ctags-ask-append-topic -;; org-ctags-fail-silently)) ; <-- prevents org default behaviour +;; org-ctags-fail-silently)) ; <-- prevents org default behavior ;; ;; ;; Usage diff --git a/lisp/org/ox-html.el b/lisp/org/ox-html.el index a3f0b501da6..c952a826db8 100644 --- a/lisp/org/ox-html.el +++ b/lisp/org/ox-html.el @@ -581,7 +581,7 @@ The function must accept two parameters: The function should return the string to be exported. For example, the variable could be set to the following function -in order to mimic default behaviour: +in order to mimic default behavior: The default value simply returns the value of CONTENTS." :group 'org-export-html diff --git a/lisp/org/ox-latex.el b/lisp/org/ox-latex.el index 2c71f7d785a..f6f3b220b43 100644 --- a/lisp/org/ox-latex.el +++ b/lisp/org/ox-latex.el @@ -589,7 +589,7 @@ The function must accept six parameters: The function should return the string to be exported. For example, the variable could be set to the following function -in order to mimic default behaviour: +in order to mimic default behavior: \(defun org-latex-format-inlinetask \(todo type priority name tags contents\) \"Format an inline task element for LaTeX export.\" diff --git a/lisp/org/ox-publish.el b/lisp/org/ox-publish.el index efc70d22a83..b33ba459877 100644 --- a/lisp/org/ox-publish.el +++ b/lisp/org/ox-publish.el @@ -228,7 +228,7 @@ If you create a site-map file, adjust the sorting like this: `:sitemap-sort-files' The site map is normally sorted alphabetically. You can - change this behaviour setting this to `anti-chronologically', + change this behavior setting this to `anti-chronologically', `chronologically', or nil. `:sitemap-ignore-case' diff --git a/lisp/org/ox.el b/lisp/org/ox.el index 1327ae409ed..2b0978dfdf0 100644 --- a/lisp/org/ox.el +++ b/lisp/org/ox.el @@ -493,7 +493,7 @@ t Allow export of math snippets." "The last level which is still exported as a headline. Inferior levels will usually produce itemize or enumerate lists -when exported, but back-end behaviour may differ. +when exported, but back-end behavior may differ. This option can also be set with the OPTIONS keyword, e.g. \"H:2\"." @@ -1736,13 +1736,13 @@ Assume buffer is in Org mode. Narrowing, if any, is ignored." (t ;; Options in `org-export-options-alist'. (dolist (property (funcall find-properties key)) - (let ((behaviour (nth 4 (assq property options)))) + (let ((behavior (nth 4 (assq property options)))) (setq plist (plist-put plist property ;; Handle value depending on specified ;; BEHAVIOR. - (case behaviour + (case behavior (space (if (not (plist-get plist property)) (org-trim val) diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el index ba70f903b4b..ac216d99cce 100644 --- a/lisp/progmodes/elisp-mode.el +++ b/lisp/progmodes/elisp-mode.el @@ -227,10 +227,15 @@ Blank lines separate paragraphs. Semicolons start comments. \\{emacs-lisp-mode-map}" :group 'lisp + (defvar xref-find-function) + (defvar xref-identifier-completion-table-function) (lisp-mode-variables nil nil 'elisp) (setq imenu-case-fold-search nil) (setq-local eldoc-documentation-function #'elisp-eldoc-documentation-function) + (setq-local xref-find-function #'elisp-xref-find) + (setq-local xref-identifier-completion-table-function + #'elisp--xref-identifier-completion-table) (add-hook 'completion-at-point-functions #'elisp-completion-at-point nil 'local)) @@ -413,6 +418,7 @@ It can be quoted, or be inside a quoted form." (match-string 0 doc)))) (declare-function find-library-name "find-func" (library)) +(declare-function find-function-library "find-func" (function &optional l-o v)) (defun elisp--company-location (str) (let ((sym (intern-soft str))) @@ -467,11 +473,11 @@ It can be quoted, or be inside a quoted form." :company-location #'elisp--company-location)) ((elisp--form-quoted-p beg) (list nil obarray - ;; Don't include all symbols - ;; (bug#16646). + ;; Don't include all symbols (bug#16646). :predicate (lambda (sym) (or (boundp sym) (fboundp sym) + (featurep sym) (symbol-plist sym))) :annotation-function (lambda (str) (if (fboundp (intern-soft str)) " <f>")) @@ -548,6 +554,75 @@ It can be quoted, or be inside a quoted form." (define-obsolete-function-alias 'lisp-completion-at-point 'elisp-completion-at-point "25.1") +;;; Xref backend + +(declare-function xref-make-elisp-location "xref" (symbol type file)) +(declare-function xref-make-bogus-location "xref" (message)) +(declare-function xref-make "xref" (description location)) + +(defun elisp-xref-find (action id) + (require 'find-func) + (pcase action + (`definitions + (let ((sym (intern-soft id))) + (when sym + (elisp--xref-find-definitions sym)))) + (`apropos + (elisp--xref-find-apropos id)))) + +(defun elisp--xref-identifier-file (type sym) + (pcase type + (`defun (when (fboundp sym) + (find-function-library sym))) + (`defvar (when (boundp sym) + (or (symbol-file sym 'defvar) + (help-C-file-name sym 'var)))) + (`feature (when (featurep sym) + (ignore-errors + (find-library-name (symbol-name sym))))) + (`defface (when (facep sym) + (symbol-file sym 'defface))))) + +(defun elisp--xref-find-definitions (symbol) + (save-excursion + (let (lst) + (dolist (type '(feature defface defvar defun)) + (let ((loc + (condition-case err + (let ((file (elisp--xref-identifier-file type symbol))) + (when file + (when (string-match-p "\\.elc\\'" file) + (setq file (substring file 0 -1))) + (xref-make-elisp-location symbol type file))) + (error + (xref-make-bogus-location (error-message-string err)))))) + (when loc + (push + (xref-make (format "(%s %s)" type symbol) + loc) + lst)))) + lst))) + +(defun elisp--xref-find-apropos (regexp) + (apply #'nconc + (let (lst) + (dolist (sym (apropos-internal regexp)) + (push (elisp--xref-find-definitions sym) lst)) + (nreverse lst)))) + +(defvar elisp--xref-identifier-completion-table + (apply-partially #'completion-table-with-predicate + obarray + (lambda (sym) + (or (boundp sym) + (fboundp sym) + (featurep sym) + (facep sym))) + 'strict)) + +(defun elisp--xref-identifier-completion-table () + elisp--xref-identifier-completion-table) + ;;; Elisp Interaction mode (defvar lisp-interaction-mode-map diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index b89b4cf0fe5..0be99794356 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -28,6 +28,7 @@ (require 'ring) (require 'button) +(require 'xref) ;;;###autoload (defvar tags-file-name nil @@ -141,11 +142,8 @@ Otherwise, `find-tag-default' is used." :group 'etags :type '(choice (const nil) function)) -(defcustom find-tag-marker-ring-length 16 - "Length of marker rings `find-tag-marker-ring' and `tags-location-ring'." - :group 'etags - :type 'integer - :version "20.3") +(define-obsolete-variable-alias 'find-tag-marker-ring-length + 'xref-marker-ring-length "25.1") (defcustom tags-tag-face 'default "Face for tags in the output of `tags-apropos'." @@ -182,15 +180,18 @@ Example value: (sexp :tag "Tags to search"))) :version "21.1") -(defvar find-tag-marker-ring (make-ring find-tag-marker-ring-length) - "Ring of markers which are locations from which \\[find-tag] was invoked.") +(defvaralias 'find-tag-marker-ring 'xref--marker-ring) +(make-obsolete-variable + 'find-tag-marker-ring + "use `xref-push-marker-stack' or `xref-pop-marker-stack' instead." + "25.1") (defvar default-tags-table-function nil "If non-nil, a function to choose a default tags file for a buffer. This function receives no arguments and should return the default tags table file to use for the current buffer.") -(defvar tags-location-ring (make-ring find-tag-marker-ring-length) +(defvar tags-location-ring (make-ring xref-marker-ring-length) "Ring of markers which are locations visited by \\[find-tag]. Pop back to the last location with \\[negative-argument] \\[find-tag].") @@ -713,15 +714,13 @@ Returns t if it visits a tags table, or nil if there are no more in the list." (interactive) ;; Clear out the markers we are throwing away. (let ((i 0)) - (while (< i find-tag-marker-ring-length) + (while (< i xref-marker-ring-length) (if (aref (cddr tags-location-ring) i) (set-marker (aref (cddr tags-location-ring) i) nil)) - (if (aref (cddr find-tag-marker-ring) i) - (set-marker (aref (cddr find-tag-marker-ring) i) nil)) (setq i (1+ i)))) + (xref-clear-marker-stack) (setq tags-file-name nil - tags-location-ring (make-ring find-tag-marker-ring-length) - find-tag-marker-ring (make-ring find-tag-marker-ring-length) + tags-location-ring (make-ring xref-marker-ring-length) tags-table-list nil tags-table-computed-list nil tags-table-computed-list-for nil @@ -780,6 +779,7 @@ tags table and its (recursively) included tags tables." (quit (message "Tags completion table construction aborted.") (setq tags-completion-table nil))))) +;;;###autoload (defun tags-lazy-completion-table () (let ((buf (current-buffer))) (lambda (string pred action) @@ -898,7 +898,7 @@ See documentation of variable `tags-file-name'." ;; Run the user's hook. Do we really want to do this for pop? (run-hooks 'local-find-tag-hook)))) ;; Record whence we came. - (ring-insert find-tag-marker-ring (point-marker)) + (xref-push-marker-stack) (if (and next-p last-tag) ;; Find the same table we last used. (visit-tags-table-buffer 'same) @@ -954,7 +954,6 @@ See documentation of variable `tags-file-name'." (switch-to-buffer buf) (error (pop-to-buffer buf))) (goto-char pos))) -;;;###autoload (define-key esc-map "." 'find-tag) ;;;###autoload (defun find-tag-other-window (tagname &optional next-p regexp-p) @@ -995,7 +994,6 @@ See documentation of variable `tags-file-name'." ;; the window's point from the buffer. (set-window-point (selected-window) tagpoint)) window-point))) -;;;###autoload (define-key ctl-x-4-map "." 'find-tag-other-window) ;;;###autoload (defun find-tag-other-frame (tagname &optional next-p) @@ -1020,7 +1018,6 @@ See documentation of variable `tags-file-name'." (interactive (find-tag-interactive "Find tag other frame: ")) (let ((pop-up-frames t)) (find-tag-other-window tagname next-p))) -;;;###autoload (define-key ctl-x-5-map "." 'find-tag-other-frame) ;;;###autoload (defun find-tag-regexp (regexp &optional next-p other-window) @@ -1044,25 +1041,10 @@ See documentation of variable `tags-file-name'." ;; We go through find-tag-other-window to do all the display hair there. (funcall (if other-window 'find-tag-other-window 'find-tag) regexp next-p t)) -;;;###autoload (define-key esc-map [?\C-.] 'find-tag-regexp) - -;;;###autoload (define-key esc-map "*" 'pop-tag-mark) ;;;###autoload -(defun pop-tag-mark () - "Pop back to where \\[find-tag] was last invoked. +(defalias 'pop-tag-mark 'xref-pop-marker-stack) -This is distinct from invoking \\[find-tag] with a negative argument -since that pops a stack of markers at which tags were found, not from -where they were found." - (interactive) - (if (ring-empty-p find-tag-marker-ring) - (error "No previous locations for find-tag invocation")) - (let ((marker (ring-remove find-tag-marker-ring 0))) - (switch-to-buffer (or (marker-buffer marker) - (error "The marked buffer has been deleted"))) - (goto-char (marker-position marker)) - (set-marker marker nil nil))) (defvar tag-lines-already-matched nil "Matches remembered between calls.") ; Doc string: calls to what? @@ -1859,7 +1841,6 @@ nil, we exit; otherwise we scan the next file." (and messaged (null tags-loop-operate) (message "Scanning file %s...found" buffer-file-name)))) -;;;###autoload (define-key esc-map "," 'tags-loop-continue) ;;;###autoload (defun tags-search (regexp &optional file-list-form) @@ -2077,6 +2058,54 @@ for \\[find-tag] (which see)." (completion-in-region (car comp-data) (cadr comp-data) (nth 2 comp-data) (plist-get (nthcdr 3 comp-data) :predicate))))) + + +;;; Xref backend + +;; Stop searching if we find more than xref-limit matches, as the xref +;; infrastructure is not designed to handle very long lists. +;; Switching to some kind of lazy list might be better, but hopefully +;; we hit the limit rarely. +(defconst etags--xref-limit 1000) + +;;;###autoload +(defun etags-xref-find (action id) + (pcase action + (`definitions (etags--xref-find-definitions id)) + (`apropos (etags--xref-find-definitions id t)))) + +(defun etags--xref-find-definitions (pattern &optional regexp?) + ;; This emulates the behaviour of `find-tag-in-order' but instead of + ;; returning one match at a time all matches are returned as list. + ;; NOTE: find-tag-tag-order is typically a buffer-local variable. + (let* ((xrefs '()) + (first-time t) + (search-fun (if regexp? #'re-search-forward #'search-forward)) + (marks (make-hash-table :test 'equal)) + (case-fold-search (if (memq tags-case-fold-search '(nil t)) + tags-case-fold-search + case-fold-search))) + (save-excursion + (while (visit-tags-table-buffer (not first-time)) + (setq first-time nil) + (dolist (order-fun (cond (regexp? find-tag-regexp-tag-order) + (t find-tag-tag-order))) + (goto-char (point-min)) + (while (and (funcall search-fun pattern nil t) + (< (hash-table-count marks) etags--xref-limit)) + (when (funcall order-fun pattern) + (beginning-of-line) + (cl-destructuring-bind (hint line &rest pos) (etags-snarf-tag) + (unless (eq hint t) ; hint==t if we are in a filename line + (let* ((file (file-of-tag)) + (mark-key (cons file line))) + (unless (gethash mark-key marks) + (let ((loc (xref-make-file-location + (expand-file-name file) line 0))) + (push (xref-make hint loc) xrefs) + (puthash mark-key t marks))))))))))) + (nreverse xrefs))) + (provide 'etags) diff --git a/lisp/progmodes/js.el b/lisp/progmodes/js.el index c2c45aa4ef8..f6a9440610e 100644 --- a/lisp/progmodes/js.el +++ b/lisp/progmodes/js.el @@ -1637,12 +1637,29 @@ This performs fontification according to `js--class-styles'." js--font-lock-keywords-3) "Font lock keywords for `js-mode'. See `font-lock-keywords'.") +(defconst js--syntax-propertize-regexp-syntax-table + (let ((st (make-char-table 'syntax-table (string-to-syntax ".")))) + (modify-syntax-entry ?\[ "(]" st) + (modify-syntax-entry ?\] ")[" st) + (modify-syntax-entry ?\\ "\\" st) + st)) + (defun js-syntax-propertize-regexp (end) - (when (eq (nth 3 (syntax-ppss)) ?/) - ;; A /.../ regexp. - (when (re-search-forward "\\(?:\\=\\|[^\\]\\)\\(?:\\\\\\\\\\)*/" end 'move) - (put-text-property (1- (point)) (point) - 'syntax-table (string-to-syntax "\"/"))))) + (let ((ppss (syntax-ppss))) + (when (eq (nth 3 ppss) ?/) + ;; A /.../ regexp. + (while + (when (re-search-forward "\\(?:\\=\\|[^\\]\\)\\(?:\\\\\\\\\\)*/" + end 'move) + (if (nth 1 (with-syntax-table + js--syntax-propertize-regexp-syntax-table + (let ((parse-sexp-lookup-properties nil)) + (parse-partial-sexp (nth 8 ppss) (point))))) + ;; A / within a character class is not the end of a regexp. + t + (put-text-property (1- (point)) (point) + 'syntax-table (string-to-syntax "\"/")) + nil)))))) (defun js-syntax-propertize (start end) ;; Javascript allows immediate regular expression objects, written /.../. @@ -1656,7 +1673,7 @@ This performs fontification according to `js--class-styles'." ;; We can probably just add +, -, !, <, >, %, ^, ~, |, &, ?, : at which ;; point I think only * and / would be missing which could also be added, ;; but need care to avoid affecting the // and */ comment markers. - ("\\(?:^\\|[=([{,:;]\\)\\(?:[ \t]\\)*\\(/\\)[^/*]" + ("\\(?:^\\|[=([{,:;]\\|\\_<return\\_>\\)\\(?:[ \t]\\)*\\(/\\)[^/*]" (1 (ignore (forward-char -1) (when (or (not (memq (char-after (match-beginning 0)) '(?\s ?\t))) diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index 35e24e14e1c..c46c5d68019 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el @@ -69,7 +69,7 @@ ;; Besides that only the standard CPython (2.x and 3.x) shell and ;; IPython are officially supported out of the box, the interaction ;; should support any other readline based Python shells as well -;; (e.g. Jython and Pypy have been reported to work). You can change +;; (e.g. Jython and PyPy have been reported to work). You can change ;; your default interpreter and commandline arguments by setting the ;; `python-shell-interpreter' and `python-shell-interpreter-args' ;; variables. This example enables IPython globally: @@ -119,18 +119,24 @@ ;; modify its behavior. ;; Shell completion: hitting tab will try to complete the current -;; word. Shell completion is implemented in such way that if you -;; change the `python-shell-interpreter' it should be possible to -;; integrate custom logic to calculate completions. To achieve this -;; you just need to set `python-shell-completion-setup-code' and -;; `python-shell-completion-string-code'. The default provided code, -;; enables autocompletion for both CPython and IPython (and ideally -;; any readline based Python shell). This code depends on the -;; readline module, so if you are using some Operating System that -;; bundles Python without it (like Windows), installing pyreadline -;; from URL `http://ipython.scipy.org/moin/PyReadline/Intro' should -;; suffice. To troubleshoot why you are not getting any completions -;; you can try the following in your Python shell: +;; word. The two built-in mechanisms depend on Python's readline +;; module: the "native" completion is tried first and is activated +;; when `python-shell-completion-native-enable' is non-nil, the +;; current `python-shell-interpreter' is not a member of the +;; `python-shell-completion-native-disabled-interpreters' variable and +;; `python-shell-completion-native-setup' succeeds; the "fallback" or +;; "legacy" mechanism works by executing Python code in the background +;; and enables auto-completion for shells that do not support +;; receiving escape sequences (with some limitations, i.e. completion +;; in blocks does not work). The code executed for the "fallback" +;; completion can be found in `python-shell-completion-setup-code' and +;; `python-shell-completion-string-code' variables. Their default +;; values enable completion for both CPython and IPython, and probably +;; any readline based shell (it's known to work with PyPy). If your +;; Python installation lacks readline (like CPython for Windows), +;; installing pyreadline (URL `http://ipython.org/pyreadline.html') +;; should suffice. To troubleshoot why you are not getting any +;; completions, you can try the following in your Python shell: ;; >>> import readline, rlcompleter @@ -256,6 +262,7 @@ (defvar outline-heading-end-regexp) (autoload 'comint-mode "comint") +(autoload 'help-function-arglist "help-fns") ;;;###autoload (add-to-list 'auto-mode-alist (cons (purecopy "\\.py\\'") 'python-mode)) @@ -395,7 +402,18 @@ (* ?\\ ?\\) (any ?\' ?\"))) (* ?\\ ?\\) ;; Match single or triple quotes of any kind. - (group (or "\"" "\"\"\"" "'" "'''")))))) + (group (or "\"" "\"\"\"" "'" "'''"))))) + (coding-cookie . ,(rx line-start ?# (* space) + (or + ;; # coding=<encoding name> + (: "coding" (or ?: ?=) (* space) (group-n 1 (+ (or word ?-)))) + ;; # -*- coding: <encoding name> -*- + (: "-*-" (* space) "coding:" (* space) + (group-n 1 (+ (or word ?-))) (* space) "-*-") + ;; # vim: set fileencoding=<encoding name> : + (: "vim:" (* space) "set" (+ space) + "fileencoding" (* space) ?= (* space) + (group-n 1 (+ (or word ?-))) (* space) ":"))))) "Additional Python specific sexps for `python-rx'") (defmacro python-rx (&rest regexps) @@ -1206,12 +1224,18 @@ the line will be re-indented automatically if needed." (eolp) ;; Avoid re-indenting on extra colon (not (equal ?: (char-before (1- (point))))) - (not (python-syntax-comment-or-string-p)) - ;; Never re-indent at beginning of defun - (not (save-excursion - (python-nav-beginning-of-statement) - (python-info-looking-at-beginning-of-defun)))) - (python-indent-line))))) + (not (python-syntax-comment-or-string-p))) + ;; Just re-indent dedenters + (let ((dedenter-pos (python-info-dedenter-statement-p)) + (current-pos (point))) + (when dedenter-pos + (save-excursion + (goto-char dedenter-pos) + (python-indent-line) + (unless (= (line-number-at-pos dedenter-pos) + (line-number-at-pos current-pos)) + ;; Reindent region if this is a multiline statement + (python-indent-region dedenter-pos current-pos))))))))) ;;; Navigation @@ -2087,36 +2111,18 @@ and `python-shell-output-prompt-regexp' using the values from (defun python-shell-get-process-name (dedicated) "Calculate the appropriate process name for inferior Python process. -If DEDICATED is t and the variable `buffer-file-name' is non-nil -returns a string with the form -`python-shell-buffer-name'[variable `buffer-file-name'] else -returns the value of `python-shell-buffer-name'." - (let ((process-name - (if (and dedicated - buffer-file-name) - (format "%s[%s]" python-shell-buffer-name buffer-file-name) - (format "%s" python-shell-buffer-name)))) - process-name)) +If DEDICATED is t returns a string with the form +`python-shell-buffer-name'[`buffer-name'] else returns the value +of `python-shell-buffer-name'." + (if dedicated + (format "%s[%s]" python-shell-buffer-name (buffer-name)) + python-shell-buffer-name)) (defun python-shell-internal-get-process-name () "Calculate the appropriate process name for Internal Python process. The name is calculated from `python-shell-global-buffer-name' and -a hash of all relevant global shell settings in order to ensure -uniqueness for different types of configurations." - (format "%s [%s]" - python-shell-internal-buffer-name - (md5 - (concat - python-shell-interpreter - python-shell-interpreter-args - python-shell--prompt-calculated-input-regexp - python-shell--prompt-calculated-output-regexp - (mapconcat #'symbol-value python-shell-setup-codes "") - (mapconcat #'identity python-shell-process-environment "") - (mapconcat #'identity python-shell-extra-pythonpaths "") - (mapconcat #'identity python-shell-exec-path "") - (or python-shell-virtualenv-root "") - (mapconcat #'identity python-shell-exec-path ""))))) +the `buffer-name'." + (format "%s[%s]" python-shell-internal-buffer-name (buffer-name))) (defun python-shell-calculate-command () "Calculate the string used to execute the inferior Python process." @@ -2256,11 +2262,9 @@ Avoids `recenter' calls until OUTPUT is completely sent." "Execute the forms in BODY with the shell buffer temporarily current. Signals an error if no shell buffer is available for current buffer." (declare (indent 0) (debug t)) - (let ((shell-buffer (make-symbol "shell-buffer"))) - `(let ((,shell-buffer (python-shell-get-buffer))) - (when (not ,shell-buffer) - (error "No inferior Python buffer available.")) - (with-current-buffer ,shell-buffer + (let ((shell-process (make-symbol "shell-process"))) + `(let ((,shell-process (python-shell-get-process-or-error))) + (with-current-buffer (process-buffer ,shell-process) ,@body)))) (defvar python-shell--font-lock-buffer nil) @@ -2472,12 +2476,12 @@ variable. (python-shell-accept-process-output (get-buffer-process (current-buffer)))) -(defun python-shell-make-comint (cmd proc-name &optional pop internal) +(defun python-shell-make-comint (cmd proc-name &optional show internal) "Create a Python shell comint buffer. CMD is the Python command to be executed and PROC-NAME is the process name the comint buffer will get. After the comint buffer is created the `inferior-python-mode' is activated. When -optional argument POP is non-nil the buffer is shown. When +optional argument SHOW is non-nil the buffer is shown. When optional argument INTERNAL is non-nil this process is run on a buffer with a name that starts with a space, following the Emacs convention for temporary/internal buffers, and also makes sure @@ -2506,16 +2510,13 @@ killed." (mapconcat #'identity args " "))) (with-current-buffer buffer (inferior-python-mode)) - (and pop (pop-to-buffer buffer t)) + (when show (display-buffer buffer)) (and internal (set-process-query-on-exit-flag process nil)))) proc-buffer-name))) ;;;###autoload (defun run-python (&optional cmd dedicated show) "Run an inferior Python process. -Input and output via buffer named after -`python-shell-buffer-name'. If there is a process already -running in that buffer, just switch to it. Argument CMD defaults to `python-shell-calculate-command' return value. When called interactively with `prefix-arg', it allows @@ -2523,6 +2524,11 @@ the user to edit such value and choose whether the interpreter should be DEDICATED for the current buffer. When numeric prefix arg is other than 0 or 4 do not SHOW. +For a given buffer and same values of DEDICATED, if a process is +already running for it, it will do nothing. This means that if +the current buffer is using a global process, the user is still +able to switch it to use a dedicated one. + Runs the hook `inferior-python-mode-hook' after `comint-mode-hook' is run. (Type \\[describe-mode] in the process buffer for a list of commands.)" @@ -2533,10 +2539,10 @@ process buffer for a list of commands.)" (y-or-n-p "Make dedicated process? ") (= (prefix-numeric-value current-prefix-arg) 4)) (list (python-shell-calculate-command) nil t))) - (python-shell-make-comint - (or cmd (python-shell-calculate-command)) - (python-shell-get-process-name dedicated) show) - dedicated) + (get-buffer-process + (python-shell-make-comint + (or cmd (python-shell-calculate-command)) + (python-shell-get-process-name dedicated) show))) (defun run-python-internal () "Run an inferior Internal Python process. @@ -2579,6 +2585,21 @@ If current buffer is in `inferior-python-mode', return it." "Return inferior Python process for current buffer." (get-buffer-process (python-shell-get-buffer))) +(defun python-shell-get-process-or-error (&optional interactivep) + "Return inferior Python process for current buffer or signal error. +When argument INTERACTIVEP is non-nil, use `user-error' instead +of `error' with a user-friendly message." + (or (python-shell-get-process) + (if interactivep + (user-error + "Start a Python process first with `M-x run-python' or `%s'." + ;; Get the binding. + (key-description + (where-is-internal + #'run-python overriding-local-map t))) + (error + "No inferior Python process running.")))) + (defun python-shell-get-or-create-process (&optional cmd dedicated show) "Get or create an inferior Python process for current buffer and return it. Arguments CMD, DEDICATED and SHOW are those of `run-python' and @@ -2594,6 +2615,11 @@ be asked for their values." (run-python cmd dedicated show))) (or shell-process (python-shell-get-process)))) +(make-obsolete + #'python-shell-get-or-create-process + "Instead call `python-shell-get-process' and create one if returns nil." + "25.1") + (defvar python-shell-internal-buffer nil "Current internal shell buffer for the current buffer. This is really not necessary at all for the code to work but it's @@ -2606,12 +2632,10 @@ there for compatibility with CEDET.") (defun python-shell-internal-get-or-create-process () "Get or create an inferior Internal Python process." - (let* ((proc-name (python-shell-internal-get-process-name)) - (proc-buffer-name (format " *%s*" proc-name))) - (when (not (process-live-p proc-name)) - (run-python-internal) - (setq python-shell-internal-buffer proc-buffer-name)) - (get-buffer-process proc-buffer-name))) + (let ((proc-name (python-shell-internal-get-process-name))) + (if (process-live-p proc-name) + (get-process proc-name) + (run-python-internal)))) (define-obsolete-function-alias 'python-proc 'python-shell-internal-get-or-create-process "24.3") @@ -2628,20 +2652,24 @@ there for compatibility with CEDET.") (concat (file-remote-p default-directory) "/tmp") temporary-file-directory)) (temp-file-name (make-temp-file "py")) - (coding-system-for-write 'utf-8)) + (coding-system-for-write (python-info-encoding))) (with-temp-file temp-file-name - (insert "# -*- coding: utf-8 -*-\n") ;Not needed for Python-3. (insert string) (delete-trailing-whitespace)) temp-file-name)) -(defun python-shell-send-string (string &optional process) - "Send STRING to inferior Python PROCESS." - (interactive "sPython command: ") - (let ((process (or process (python-shell-get-or-create-process)))) +(defun python-shell-send-string (string &optional process msg) + "Send STRING to inferior Python PROCESS. +When optional argument MSG is non-nil, forces display of a +user-friendly message if there's no process running; defaults to +t when called interactively." + (interactive + (list (read-string "Python command: ") nil t)) + (let ((process (or process (python-shell-get-process-or-error msg)))) (if (string-match ".\n+." string) ;Multiline. - (let* ((temp-file-name (python-shell--save-temp-file string))) - (python-shell-send-file temp-file-name process temp-file-name t)) + (let* ((temp-file-name (python-shell--save-temp-file string)) + (file-name (or (buffer-file-name) temp-file-name))) + (python-shell-send-file file-name process temp-file-name t)) (comint-send-string process string) (when (or (not (string-match "\n\\'" string)) (string-match "\n[ \t].*\n?\\'" string)) @@ -2680,7 +2708,7 @@ detecting a prompt at the end of the buffer." (defun python-shell-send-string-no-output (string &optional process) "Send STRING to PROCESS and inhibit output. Return the output." - (let ((process (or process (python-shell-get-or-create-process))) + (let ((process (or process (python-shell-get-process-or-error))) (comint-preoutput-filter-functions '(python-shell-output-filter)) (python-shell-output-filter-in-progress t) @@ -2717,12 +2745,6 @@ Returns the output. See `python-shell-send-string-no-output'." (define-obsolete-function-alias 'python-send-string 'python-shell-internal-send-string "24.3") -(defvar python--use-fake-loc nil - "If non-nil, use `compilation-fake-loc' to trace errors back to the buffer. -If nil, regions of text are prepended by the corresponding number of empty -lines and Python is told to output error messages referring to the whole -source file.") - (defun python-shell-buffer-substring (start end &optional nomain) "Send buffer substring from START to END formatted for shell. This is a wrapper over `buffer-substring' that takes care of @@ -2732,27 +2754,32 @@ the python shell: \"if __name__ == '__main__'\" block will be removed. 2. When a subregion of the buffer is sent, it takes care of appending extra empty lines so tracebacks are correct. - 3. Wraps indented regions under an \"if True:\" block so the + 3. When the region sent is a substring of the current buffer, a + coding cookie is added. + 4. Wraps indented regions under an \"if True:\" block so the interpreter evaluates them correctly." - (let ((substring (buffer-substring-no-properties start end)) - (fillstr (unless python--use-fake-loc - (make-string (1- (line-number-at-pos start)) ?\n))) - (toplevel-block-p (save-excursion - (goto-char start) - (or (zerop (line-number-at-pos start)) - (progn - (python-util-forward-comment 1) - (zerop (current-indentation))))))) + (let* ((substring (buffer-substring-no-properties start end)) + (starts-at-point-min-p (save-restriction + (widen) + (= (point-min) start))) + (encoding (python-info-encoding)) + (fillstr (when (not starts-at-point-min-p) + (concat + (format "# -*- coding: %s -*-\n" encoding) + (make-string + ;; Substract 2 because of the coding cookie. + (- (line-number-at-pos start) 2) ?\n)))) + (toplevel-block-p (save-excursion + (goto-char start) + (or (zerop (line-number-at-pos start)) + (progn + (python-util-forward-comment 1) + (zerop (current-indentation))))))) (with-temp-buffer (python-mode) (if fillstr (insert fillstr)) (insert substring) (goto-char (point-min)) - (unless python--use-fake-loc - ;; python-shell--save-temp-file adds an extra coding line, which would - ;; throw off the line-counts, so let's try to compensate here. - (if (looking-at "[ \t]*[#\n]") - (delete-region (point) (line-beginning-position 2)))) (when (not toplevel-block-p) (insert "if True:") (delete-region (point) (line-end-position))) @@ -2763,53 +2790,65 @@ the python shell: (when (python-nav-if-name-main) (cons (point) (progn (python-nav-forward-sexp-safe) + ;; Include ending newline + (forward-line 1) (point))))))) ;; Oh destructuring bind, how I miss you. (if-name-main-start (car if-name-main-start-end)) - (if-name-main-end (cdr if-name-main-start-end))) + (if-name-main-end (cdr if-name-main-start-end)) + (fillstr (make-string + (- (line-number-at-pos if-name-main-end) + (line-number-at-pos if-name-main-start)) ?\n))) (when if-name-main-start-end (goto-char if-name-main-start) (delete-region if-name-main-start if-name-main-end) - (insert - (make-string - (- (line-number-at-pos if-name-main-end) - (line-number-at-pos if-name-main-start)) ?\n))))) + (insert fillstr)))) + ;; Ensure there's only one coding cookie in the generated string. + (goto-char (point-min)) + (when (looking-at-p (python-rx coding-cookie)) + (forward-line 1) + (when (looking-at-p (python-rx coding-cookie)) + (delete-region + (line-beginning-position) (line-end-position)))) (buffer-substring-no-properties (point-min) (point-max))))) -(declare-function compilation-fake-loc "compile" - (marker file &optional line col)) - -(defun python-shell-send-region (start end &optional nomain) - "Send the region delimited by START and END to inferior Python process." - (interactive "r") - (let* ((python--use-fake-loc - (or python--use-fake-loc (not buffer-file-name))) - (string (python-shell-buffer-substring start end nomain)) - (process (python-shell-get-or-create-process)) - (_ (string-match "\\`\n*\\(.*\\)" string))) - (message "Sent: %s..." (match-string 1 string)) - (let* ((temp-file-name (python-shell--save-temp-file string)) - (file-name (or (buffer-file-name) temp-file-name))) - (python-shell-send-file file-name process temp-file-name t) - (unless python--use-fake-loc - (with-current-buffer (process-buffer process) - (compilation-fake-loc (copy-marker start) temp-file-name - 2)) ;; Not 1, because of the added coding line. - )))) - -(defun python-shell-send-buffer (&optional arg) +(defun python-shell-send-region (start end &optional send-main msg) + "Send the region delimited by START and END to inferior Python process. +When optional argument SEND-MAIN is non-nil, allow execution of +code inside blocks delimited by \"if __name__== '__main__':\". +When called interactively SEND-MAIN defaults to nil, unless it's +called with prefix argument. When optional argument MSG is +non-nil, forces display of a user-friendly message if there's no +process running; defaults to t when called interactively." + (interactive + (list (region-beginning) (region-end) current-prefix-arg t)) + (let* ((string (python-shell-buffer-substring start end (not send-main))) + (process (python-shell-get-process-or-error msg)) + (original-string (buffer-substring-no-properties start end)) + (_ (string-match "\\`\n*\\(.*\\)" original-string))) + (message "Sent: %s..." (match-string 1 original-string)) + (python-shell-send-string string process))) + +(defun python-shell-send-buffer (&optional send-main msg) "Send the entire buffer to inferior Python process. -With prefix ARG allow execution of code inside blocks delimited -by \"if __name__== '__main__':\"." - (interactive "P") +When optional argument SEND-MAIN is non-nil, allow execution of +code inside blocks delimited by \"if __name__== '__main__':\". +When called interactively SEND-MAIN defaults to nil, unless it's +called with prefix argument. When optional argument MSG is +non-nil, forces display of a user-friendly message if there's no +process running; defaults to t when called interactively." + (interactive (list current-prefix-arg t)) (save-restriction (widen) - (python-shell-send-region (point-min) (point-max) (not arg)))) + (python-shell-send-region (point-min) (point-max) send-main msg))) -(defun python-shell-send-defun (arg) +(defun python-shell-send-defun (&optional arg msg) "Send the current defun to inferior Python process. -When argument ARG is non-nil do not include decorators." - (interactive "P") +When argument ARG is non-nil do not include decorators. When +optional argument MSG is non-nil, forces display of a +user-friendly message if there's no process running; defaults to +t when called interactively." + (interactive (list current-prefix-arg t)) (save-excursion (python-shell-send-region (progn @@ -2825,42 +2864,60 @@ When argument ARG is non-nil do not include decorators." (progn (or (python-nav-end-of-defun) (end-of-line 1)) - (point-marker))))) + (point-marker)) + nil ;; noop + msg))) (defun python-shell-send-file (file-name &optional process temp-file-name - delete) + delete msg) "Send FILE-NAME to inferior Python PROCESS. If TEMP-FILE-NAME is passed then that file is used for processing -instead, while internally the shell will continue to use FILE-NAME. -If DELETE is non-nil, delete the file afterwards." - (interactive "fFile to send: ") - (let* ((process (or process (python-shell-get-or-create-process))) +instead, while internally the shell will continue to use +FILE-NAME. If TEMP-FILE-NAME and DELETE are non-nil, then +TEMP-FILE-NAME is deleted after evaluation is performed. When +optional argument MSG is non-nil, forces display of a +user-friendly message if there's no process running; defaults to +t when called interactively." + (interactive + (list + (read-file-name "File to send: ") ; file-name + nil ; process + nil ; temp-file-name + nil ; delete + t)) ; msg + (let* ((process (or process (python-shell-get-process-or-error msg))) + (encoding (with-temp-buffer + (insert-file-contents + (or temp-file-name file-name)) + (python-info-encoding))) + (file-name (expand-file-name + (or (file-remote-p file-name 'localname) + file-name))) (temp-file-name (when temp-file-name (expand-file-name (or (file-remote-p temp-file-name 'localname) - temp-file-name)))) - (file-name (or (when file-name - (expand-file-name - (or (file-remote-p file-name 'localname) - file-name))) - temp-file-name))) - (when (not file-name) - (error "If FILE-NAME is nil then TEMP-FILE-NAME must be non-nil")) + temp-file-name))))) (python-shell-send-string (format - (concat "__pyfile = open('''%s''');" - "exec(compile(__pyfile.read(), '''%s''', 'exec'));" - "__pyfile.close()%s") - (or temp-file-name file-name) file-name - (if delete (format "; import os; os.remove('''%s''')" - (or temp-file-name file-name)) - "")) + (concat + "import codecs, os;" + "__pyfile = codecs.open('''%s''', encoding='''%s''');" + "__code = __pyfile.read().encode('''%s''');" + "__pyfile.close();" + (when (and delete temp-file-name) + (format "os.remove('''%s''');" temp-file-name)) + "exec(compile(__code, '''%s''', 'exec'));") + (or temp-file-name file-name) encoding encoding file-name) process))) -(defun python-shell-switch-to-shell () - "Switch to inferior Python process buffer." - (interactive) - (process-buffer (python-shell-get-or-create-process)) t) +(defun python-shell-switch-to-shell (&optional msg) + "Switch to inferior Python process buffer. +When optional argument MSG is non-nil, forces display of a +user-friendly message if there's no process running; defaults to +t when called interactively." + (interactive "p") + (pop-to-buffer + (process-buffer (python-shell-get-process-or-error msg)) nil t)) (defun python-shell-send-setup-code () "Send all setup code for shell. @@ -2947,6 +3004,194 @@ the full statement in the case of imports." "25.1" "Completion string code must work for (i)pdb.") +(defcustom python-shell-completion-native-disabled-interpreters + ;; PyPy's readline cannot handle some escape sequences yet. + (list "pypy") + "List of disabled interpreters. +When a match is found, native completion is disabled." + :type '(repeat string)) + +(defcustom python-shell-completion-native-enable t + "Enable readline based native completion." + :type 'boolean) + +(defcustom python-shell-completion-native-output-timeout 0.01 + "Time in seconds to wait for completion output before giving up." + :type 'float) + +(defvar python-shell-completion-native-redirect-buffer + " *Python completions redirect*" + "Buffer to be used to redirect output of readline commands.") + +(defun python-shell-completion-native-interpreter-disabled-p () + "Return non-nil if interpreter has native completion disabled." + (when python-shell-completion-native-disabled-interpreters + (string-match + (regexp-opt python-shell-completion-native-disabled-interpreters) + (file-name-nondirectory python-shell-interpreter)))) + +(defun python-shell-completion-native-try () + "Return non-nil if can trigger native completion." + (let ((python-shell-completion-native-enable t)) + (python-shell-completion-native-get-completions + (get-buffer-process (current-buffer)) + nil "int"))) + +(defun python-shell-completion-native-setup () + "Try to setup native completion, return non-nil on success." + (let ((process (python-shell-get-process))) + (python-shell-send-string + (funcall + 'mapconcat + #'identity + (list + "try:" + " import readline, rlcompleter" + ;; Remove parens on callables as it breaks completion on + ;; arguments (e.g. str(Ari<tab>)). + " class Completer(rlcompleter.Completer):" + " def _callable_postfix(self, val, word):" + " return word" + " readline.set_completer(Completer().complete)" + " if readline.__doc__ and 'libedit' in readline.__doc__:" + " readline.parse_and_bind('bind ^I rl_complete')" + " else:" + " readline.parse_and_bind('tab: complete')" + " print ('python.el: readline is available')" + "except:" + " print ('python.el: readline not available')") + "\n") + process) + (python-shell-accept-process-output process) + (when (save-excursion + (re-search-backward + (regexp-quote "python.el: readline is available") nil t 1)) + (python-shell-completion-native-try)))) + +(defun python-shell-completion-native-turn-off (&optional msg) + "Turn off shell native completions. +With argument MSG show deactivation message." + (interactive "p") + (python-shell-with-shell-buffer + (set (make-local-variable 'python-shell-completion-native-enable) nil) + (when msg + (message "Shell native completion is disabled, using fallback")))) + +(defun python-shell-completion-native-turn-on (&optional msg) + "Turn on shell native completions. +With argument MSG show deactivation message." + (interactive "p") + (python-shell-with-shell-buffer + (set (make-local-variable 'python-shell-completion-native-enable) t) + (python-shell-completion-native-turn-on-maybe msg))) + +(defun python-shell-completion-native-turn-on-maybe (&optional msg) + "Turn on native completions if enabled and available. +With argument MSG show activation/deactivation message." + (interactive "p") + (python-shell-with-shell-buffer + (when python-shell-completion-native-enable + (cond + ((python-shell-completion-native-interpreter-disabled-p) + (python-shell-completion-native-turn-off msg)) + ((python-shell-completion-native-setup) + (when msg + (message "Shell native completion is enabled."))) + (t (lwarn + '(python python-shell-completion-native-turn-on-maybe) + :warning + (concat + "Your `python-shell-interpreter' doesn't seem to " + "support readline, yet `python-shell-completion-native' " + (format "was `t' and %S is not part of the " + (file-name-nondirectory python-shell-interpreter)) + "`python-shell-completion-native-disabled-interpreters' " + "list. Native completions have been disabled locally. ")) + (python-shell-completion-native-turn-off msg)))))) + +(defun python-shell-completion-native-turn-on-maybe-with-msg () + "Like `python-shell-completion-native-turn-on-maybe' but force messages." + (python-shell-completion-native-turn-on-maybe t)) + +(add-hook 'inferior-python-mode-hook + #'python-shell-completion-native-turn-on-maybe-with-msg) + +(defun python-shell-completion-native-toggle (&optional msg) + "Toggle shell native completion. +With argument MSG show activation/deactivation message." + (interactive "p") + (python-shell-with-shell-buffer + (if python-shell-completion-native-enable + (python-shell-completion-native-turn-off msg) + (python-shell-completion-native-turn-on msg)) + python-shell-completion-native-enable)) + +(defun python-shell-completion-native-get-completions (process import input) + "Get completions using native readline for PROCESS. +When IMPORT is non-nil takes precedence over INPUT for +completion." + (when (and python-shell-completion-native-enable + (python-util-comint-last-prompt) + (>= (point) (cdr (python-util-comint-last-prompt)))) + (let* ((input (or import input)) + (original-filter-fn (process-filter process)) + (redirect-buffer (get-buffer-create + python-shell-completion-native-redirect-buffer)) + (separators (python-rx + (or whitespace open-paren close-paren))) + (trigger "\t\t\t") + (new-input (concat input trigger)) + (input-length + (save-excursion + (+ (- (point-max) (comint-bol)) (length new-input)))) + (delete-line-command (make-string input-length ?\b)) + (input-to-send (concat new-input delete-line-command))) + ;; Ensure restoring the process filter, even if the user quits + ;; or there's some other error. + (unwind-protect + (with-current-buffer redirect-buffer + ;; Cleanup the redirect buffer + (delete-region (point-min) (point-max)) + ;; Mimic `comint-redirect-send-command', unfortunately it + ;; can't be used here because it expects a newline in the + ;; command and that's exactly what we are trying to avoid. + (let ((comint-redirect-echo-input nil) + (comint-redirect-verbose nil) + (comint-redirect-perform-sanity-check nil) + (comint-redirect-insert-matching-regexp nil) + ;; Feed it some regex that will never match. + (comint-redirect-finished-regexp "^\\'$") + (comint-redirect-output-buffer redirect-buffer)) + ;; Compatibility with Emacs 24.x. Comint changed and + ;; now `comint-redirect-filter' gets 3 args. This + ;; checks which version of `comint-redirect-filter' is + ;; in use based on its args and uses `apply-partially' + ;; to make it up for the 3 args case. + (if (= (length + (help-function-arglist 'comint-redirect-filter)) 3) + (set-process-filter + process (apply-partially + #'comint-redirect-filter original-filter-fn)) + (set-process-filter process #'comint-redirect-filter)) + (process-send-string process input-to-send) + (accept-process-output + process + python-shell-completion-native-output-timeout) + ;; XXX: can't use `python-shell-accept-process-output' + ;; here because there are no guarantees on how output + ;; ends. The workaround here is to call + ;; `accept-process-output' until we don't find anything + ;; else to accept. + (while (accept-process-output + process + python-shell-completion-native-output-timeout)) + (cl-remove-duplicates + (split-string + (buffer-substring-no-properties + (point-min) (point-max)) + separators t)))) + (set-process-filter process original-filter-fn))))) + (defun python-shell-completion-get-completions (process import input) "Do completion at point using PROCESS for IMPORT or INPUT. When IMPORT is non-nil takes precedence over INPUT for @@ -3004,11 +3249,15 @@ using that one instead of current buffer's process." last-prompt-end (forward-char (length (match-string-no-properties 0))) (point)))) - (end (point))) + (end (point)) + (completion-fn + (if python-shell-completion-native-enable + #'python-shell-completion-native-get-completions + #'python-shell-completion-get-completions))) (list start end (completion-table-dynamic (apply-partially - #'python-shell-completion-get-completions + completion-fn process import-statement))))) (define-obsolete-function-alias @@ -4155,6 +4404,32 @@ operator." (* whitespace) line-end)) (string-equal "" (match-string-no-properties 1)))) +(defun python-info-encoding-from-cookie () + "Detect current buffer's encoding from its coding cookie. +Returns the enconding as a symbol." + (let ((first-two-lines + (save-excursion + (save-restriction + (widen) + (goto-char (point-min)) + (forward-line 2) + (buffer-substring-no-properties + (point) + (point-min)))))) + (when (string-match (python-rx coding-cookie) first-two-lines) + (intern (match-string-no-properties 1 first-two-lines))))) + +(defun python-info-encoding () + "Return encoding for file. +Try `python-info-encoding-from-cookie', if none is found then +default to utf-8." + ;; If no enconding is defined, then it's safe to use UTF-8: Python 2 + ;; uses ASCII as default while Python 3 uses UTF-8. This means that + ;; in the worst case escenario python.el will make things work for + ;; Python 2 files with unicode data and no encoding defined. + (or (python-info-encoding-from-cookie) + 'utf-8)) + ;;; Utility functions diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 524749d6266..904e9dfc289 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -2374,7 +2374,7 @@ Calls the value of `sh-set-shell-hook' if set." (sh-make-vars-local)) (message "Indentation setup for shell type %s" sh-shell)) (message "No indentation for this shell type.") - (setq indent-line-function 'sh-basic-indent-line)) + (setq-local indent-line-function 'sh-basic-indent-line)) (when font-lock-mode (setq font-lock-set-defaults nil) (font-lock-set-defaults) diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el new file mode 100644 index 00000000000..8221aebd871 --- /dev/null +++ b/lisp/progmodes/xref.el @@ -0,0 +1,524 @@ +;; xref.el --- Cross-referencing commands -*-lexical-binding:t-*- + +;; Copyright (C) 2014 Free Software Foundation, Inc. + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. + +;;; Commentary: + +;; This file provides a somewhat generic infrastructure for cross +;; referencing commands, in particular "find-definition". +;; +;; Some part of the functionality must be implemented in a language +;; dependent way and that's done by defining `xref-find-function', +;; `xref-identifier-at-point-function' and +;; `xref-identifier-completion-table-function', which see. +;; +;; A major mode should make these variables buffer-local first. +;; +;; `xref-find-function' can be called in several ways, see its +;; description. It has to operate with "xref" and "location" values. +;; +;; One would usually call `make-xref' and `xref-make-file-location', +;; `xref-make-buffer-location' or `xref-make-bogus-location' to create +;; them. +;; +;; Each identifier must be represented as a string. Implementers can +;; use string properties to store additional information about the +;; identifier, but they should keep in mind that values returned from +;; `xref-identifier-completion-table-function' should still be +;; distinct, because the user can't see the properties when making the +;; choice. +;; +;; See the functions `etags-xref-find' and `elisp-xref-find' for full +;; examples. + +;;; Code: + +(require 'cl-lib) +(require 'eieio) +(require 'ring) + +(defgroup xref nil "Cross-referencing commands" + :group 'tools) + + +;;; Locations + +(defclass xref-location () () + :documentation "A location represents a position in a file or buffer.") + +;; If a backend decides to subclass xref-location it can provide +;; methods for some of the following functions: +(defgeneric xref-location-marker (location) + "Return the marker for LOCATION.") + +(defgeneric xref-location-group (location) + "Return a string used to group a set of locations. +This is typically the filename.") + +;;;; Commonly needed location classes are defined here: + +;; FIXME: might be useful to have an optional "hint" i.e. a string to +;; search for in case the line number is sightly out of date. +(defclass xref-file-location (xref-location) + ((file :type string :initarg :file) + (line :type fixnum :initarg :line) + (column :type fixnum :initarg :column)) + :documentation "A file location is a file/line/column triple. +Line numbers start from 1 and columns from 0.") + +(defun xref-make-file-location (file line column) + "Create and return a new xref-file-location." + (make-instance 'xref-file-location :file file :line line :column column)) + +(defmethod xref-location-marker ((l xref-file-location)) + (with-slots (file line column) l + (with-current-buffer + (or (get-file-buffer file) + (let ((find-file-suppress-same-file-warnings t)) + (find-file-noselect file))) + (save-restriction + (widen) + (save-excursion + (goto-char (point-min)) + (beginning-of-line line) + (move-to-column column) + (point-marker)))))) + +(defmethod xref-location-group ((l xref-file-location)) + (oref l :file)) + +(defclass xref-buffer-location (xref-location) + ((buffer :type buffer :initarg :buffer) + (position :type fixnum :initarg :position))) + +(defun xref-make-buffer-location (buffer position) + "Create and return a new xref-buffer-location." + (make-instance 'xref-buffer-location :buffer buffer :position position)) + +(defmethod xref-location-marker ((l xref-buffer-location)) + (with-slots (buffer position) l + (let ((m (make-marker))) + (move-marker m position buffer)))) + +(defmethod xref-location-group ((l xref-buffer-location)) + (with-slots (buffer) l + (or (buffer-file-name buffer) + (format "(buffer %s)" (buffer-name buffer))))) + +(defclass xref-bogus-location (xref-location) + ((message :type string :initarg :message + :reader xref-bogus-location-message)) + :documentation "Bogus locations are sometimes useful to +indicate errors, e.g. when we know that a function exists but the +actual location is not known.") + +(defun xref-make-bogus-location (message) + "Create and return a new xref-bogus-location." + (make-instance 'xref-bogus-location :message message)) + +(defmethod xref-location-marker ((l xref-bogus-location)) + (user-error "%s" (oref l :message))) + +(defmethod xref-location-group ((_ xref-bogus-location)) "(No location)") + +;; This should be in elisp-mode.el, but it's preloaded, and we can't +;; preload defclass and defmethod (at least, not yet). +(defclass xref-elisp-location (xref-location) + ((symbol :type symbol :initarg :symbol) + (type :type symbol :initarg :type) + (file :type string :initarg :file + :reader xref-location-group)) + :documentation "Location of an Emacs Lisp symbol definition.") + +(defun xref-make-elisp-location (symbol type file) + (make-instance 'xref-elisp-location :symbol symbol :type type :file file)) + +(defmethod xref-location-marker ((l xref-elisp-location)) + (with-slots (symbol type file) l + (let ((buffer-point + (pcase type + (`defun (find-function-search-for-symbol symbol nil file)) + ((or `defvar `defface) + (find-function-search-for-symbol symbol type file)) + (`feature + (cons (find-file-noselect file) 1))))) + (with-current-buffer (car buffer-point) + (goto-char (or (cdr buffer-point) (point-min))) + (point-marker))))) + + +;;; Cross-reference + +(defclass xref--xref () + ((description :type string :initarg :description + :reader xref--xref-description) + (location :type xref-location :initarg :location + :reader xref--xref-location)) + :comment "An xref is used to display and locate constructs like +variables or functions.") + +(defun xref-make (description location) + "Create and return a new xref. +DESCRIPTION is a short string to describe the xref. +LOCATION is an `xref-location'." + (make-instance 'xref--xref :description description :location location)) + + +;;; API + +(declare-function etags-xref-find "etags" (action id)) +(declare-function tags-lazy-completion-table "etags" ()) + +;; For now, make the etags backend the default. +(defvar xref-find-function #'etags-xref-find + "Function to look for cross-references. +It can be called in several ways: + + (definitions IDENTIFIER): Find definitions of IDENTIFIER. The +result must be a list of xref objects. If no definitions can be +found, return nil. + + (references IDENTIFIER): Find references of IDENTIFIER. The +result must be a list of xref objects. If no references can be +found, return nil. + + (apropos PATTERN): Find all symbols that match PATTERN. PATTERN +is a regexp. + +IDENTIFIER can be any string returned by +`xref-identifier-at-point-function', or from the table returned +by `xref-identifier-completion-table-function'. + +To create an xref object, call `xref-make'.") + +(defvar xref-identifier-at-point-function #'xref-default-identifier-at-point + "Function to get the relevant identifier at point. + +The return value must be a string or nil. nil means no +identifier at point found. + +If it's hard to determine the identifier precisely (e.g., because +it's a method call on unknown type), the implementation can +return a simple string (such as symbol at point) marked with a +special text property which `xref-find-function' would recognize +and then delegate the work to an external process.") + +(defvar xref-identifier-completion-table-function #'tags-lazy-completion-table + "Function that returns the completion table for identifiers.") + +(defun xref-default-identifier-at-point () + (let ((thing (thing-at-point 'symbol))) + (and thing (substring-no-properties thing)))) + + +;;; misc utilities +(defun xref--alistify (list key test) + "Partition the elements of LIST into an alist. +KEY extracts the key from an element and TEST is used to compare +keys." + (let ((alist '())) + (dolist (e list) + (let* ((k (funcall key e)) + (probe (cl-assoc k alist :test test))) + (if probe + (setcdr probe (cons e (cdr probe))) + (push (cons k (list e)) alist)))) + ;; Put them back in order. + (cl-loop for (key . value) in (reverse alist) + collect (cons key (reverse value))))) + +(defun xref--insert-propertized (props &rest strings) + "Insert STRINGS with text properties PROPS." + (let ((start (point))) + (apply #'insert strings) + (add-text-properties start (point) props))) + +(defun xref--search-property (property &optional backward) + "Search the next text range where text property PROPERTY is non-nil. +Return the value of PROPERTY. If BACKWARD is non-nil, search +backward." + (let ((next (if backward + #'previous-single-char-property-change + #'next-single-char-property-change)) + (start (point)) + (value nil)) + (while (progn + (goto-char (funcall next (point) property)) + (not (or (setq value (get-text-property (point) property)) + (eobp) + (bobp))))) + (cond (value) + (t (goto-char start) nil)))) + + +;;; Marker stack (M-. pushes, M-, pops) + +(defcustom xref-marker-ring-length 16 + "Length of the xref marker ring." + :type 'integer + :version "25.1") + +(defvar xref--marker-ring (make-ring xref-marker-ring-length) + "Ring of markers to implement the marker stack.") + +(defun xref-push-marker-stack () + "Add point to the marker stack." + (ring-insert xref--marker-ring (point-marker))) + +;;;###autoload +(defun xref-pop-marker-stack () + "Pop back to where \\[xref-find-definitions] was last invoked." + (interactive) + (let ((ring xref--marker-ring)) + (when (ring-empty-p ring) + (error "Marker stack is empty")) + (let ((marker (ring-remove ring 0))) + (switch-to-buffer (or (marker-buffer marker) + (error "The marked buffer has been deleted"))) + (goto-char (marker-position marker)) + (set-marker marker nil nil)))) + +;; etags.el needs this +(defun xref-clear-marker-stack () + "Discard all markers from the marker stack." + (let ((ring xref--marker-ring)) + (while (not (ring-empty-p ring)) + (let ((marker (ring-remove ring))) + (set-marker marker nil nil))))) + + +(defun xref--goto-location (location) + "Set buffer and point according to xref-location LOCATION." + (let ((marker (xref-location-marker location))) + (set-buffer (marker-buffer marker)) + (cond ((and (<= (point-min) marker) (<= marker (point-max)))) + (widen-automatically (widen)) + (t (error "Location is outside accessible part of buffer"))) + (goto-char marker))) + +(defun xref--pop-to-location (location &optional window) + "Goto xref-location LOCATION and display the buffer. +WINDOW controls how the buffer is displayed: + nil -- switch-to-buffer + 'window -- pop-to-buffer (other window) + 'frame -- pop-to-buffer (other frame)" + (xref--goto-location location) + (cl-ecase window + ((nil) (switch-to-buffer (current-buffer))) + (window (pop-to-buffer (current-buffer) t)) + (frame (let ((pop-up-frames t)) (pop-to-buffer (current-buffer) t))))) + + +;;; XREF buffer (part of the UI) + +;; The xref buffer is used to display a set of xrefs. + +(defun xref--display-position (pos other-window recenter-arg) + ;; show the location, but don't hijack focus. + (with-selected-window (display-buffer (current-buffer) other-window) + (goto-char pos) + (recenter recenter-arg))) + +(defun xref--show-location (location) + (condition-case err + (progn + (xref--goto-location location) + (xref--display-position (point) t 1)) + (user-error (message (error-message-string err))))) + +(defun xref--next-line (backward) + (let ((loc (xref--search-property 'xref-location backward))) + (when loc + (save-window-excursion + (xref--show-location loc) + (sit-for most-positive-fixnum))))) + +(defun xref-next-line () + "Move to the next xref and display its source in the other window." + (interactive) + (xref--next-line nil)) + +(defun xref-prev-line () + "Move to the previous xref and display its source in the other window." + (interactive) + (xref--next-line t)) + +(defun xref--location-at-point () + (or (get-text-property (point) 'xref-location) + (error "No reference at point"))) + +(defvar-local xref--window nil) + +(defun xref-goto-xref () + "Jump to the xref at point and bury the xref buffer." + (interactive) + (let ((loc (xref--location-at-point)) + (window xref--window)) + (quit-window) + (xref--pop-to-location loc window))) + +(define-derived-mode xref--xref-buffer-mode fundamental-mode "XREF" + "Mode for displaying cross-references." + (setq buffer-read-only t)) + +(let ((map xref--xref-buffer-mode-map)) + (define-key map (kbd "q") #'quit-window) + (define-key map [remap next-line] #'xref-next-line) + (define-key map [remap previous-line] #'xref-prev-line) + (define-key map (kbd "RET") #'xref-goto-xref) + + ;; suggested by Johan Claesson "to further reduce finger movement": + (define-key map (kbd ".") #'xref-next-line) + (define-key map (kbd ",") #'xref-prev-line)) + +(defconst xref-buffer-name "*xref*" + "The name of the buffer to show xrefs.") + +(defun xref--insert-xrefs (xref-alist) + "Insert XREF-ALIST in the current-buffer. +XREF-ALIST is of the form ((GROUP . (XREF ...)) ...). Where +GROUP is a string for decoration purposes and XREF is an +`xref--xref' object." + (cl-loop for ((group . xrefs) . more1) on xref-alist do + (xref--insert-propertized '(face bold) group "\n") + (cl-loop for (xref . more2) on xrefs do + (insert " ") + (with-slots (description location) xref + (xref--insert-propertized + (list 'xref-location location + 'face 'font-lock-keyword-face) + description)) + (when (or more1 more2) + (insert "\n"))))) + +(defun xref--analyze (xrefs) + "Find common filenames in XREFS. +Return an alist of the form ((FILENAME . (XREF ...)) ...)." + (xref--alistify xrefs + (lambda (x) + (xref-location-group (xref--xref-location x))) + #'equal)) + +(defun xref--show-xref-buffer (xrefs window) + (let ((xref-alist (xref--analyze xrefs))) + (with-current-buffer (get-buffer-create xref-buffer-name) + (let ((inhibit-read-only t)) + (erase-buffer) + (xref--insert-xrefs xref-alist) + (xref--xref-buffer-mode) + (pop-to-buffer (current-buffer)) + (goto-char (point-min)) + (setq xref--window window) + (current-buffer))))) + + +;; This part of the UI seems fairly uncontroversial: it reads the +;; identifier and deals with the single definition case. +;; +;; The controversial multiple definitions case is handed off to +;; xref-show-xrefs-function. + +(defvar xref-show-xrefs-function 'xref--show-xref-buffer + "Function to display a list of xrefs.") + +(defun xref--show-xrefs (id kind xrefs window) + (cond + ((null xrefs) + (user-error "No known %s for: %s" kind id)) + ((not (cdr xrefs)) + (xref-push-marker-stack) + (xref--pop-to-location (xref--xref-location (car xrefs)) window)) + (t + (xref-push-marker-stack) + (funcall xref-show-xrefs-function xrefs window)))) + +(defun xref--read-identifier (prompt) + "Return the identifier at point or read it from the minibuffer." + (let ((id (funcall xref-identifier-at-point-function))) + (cond ((or current-prefix-arg (not id)) + (completing-read prompt + (funcall xref-identifier-completion-table-function) + nil t id)) + (t id)))) + + +;;; Commands + +(defun xref--find-definitions (id window) + (xref--show-xrefs id "definitions" + (funcall xref-find-function 'definitions id) + window)) + +;;;###autoload +(defun xref-find-definitions (identifier) + "Find the definition of the identifier at point. +With prefix argument, prompt for the identifier." + (interactive (list (xref--read-identifier "Find definitions of: "))) + (xref--find-definitions identifier nil)) + +;;;###autoload +(defun xref-find-definitions-other-window (identifier) + "Like `xref-find-definitions' but switch to the other window." + (interactive (list (xref--read-identifier "Find definitions of: "))) + (xref--find-definitions identifier 'window)) + +;;;###autoload +(defun xref-find-definitions-other-frame (identifier) + "Like `xref-find-definitions' but switch to the other frame." + (interactive (list (xref--read-identifier "Find definitions of: "))) + (xref--find-definitions identifier 'frame)) + +;;;###autoload +(defun xref-find-references (identifier) + "Find references to the identifier at point. +With prefix argument, prompt for the identifier." + (interactive (list (xref--read-identifier "Find references of: "))) + (xref--show-xrefs identifier "references" + (funcall xref-find-function 'references identifier) + nil)) + +;;;###autoload +(defun xref-find-apropos (pattern) + "Find all meaningful symbols that match PATTERN. +The argument has the same meaning as in `apropos'." + (interactive (list (read-from-minibuffer + "Search for pattern (word list or regexp): "))) + (require 'apropos) + (xref--show-xrefs pattern "apropos" + (funcall xref-find-function 'apropos + (apropos-parse-pattern + (if (string-equal (regexp-quote pattern) pattern) + ;; Split into words + (or (split-string pattern "[ \t]+" t) + (user-error "No word list given")) + pattern))) + nil)) + + +;;; Key bindings + +;;;###autoload (define-key esc-map "." #'xref-find-definitions) +;;;###autoload (define-key esc-map "," #'xref-pop-marker-stack) +;;;###autoload (define-key esc-map [?\C-.] #'xref-find-apropos) +;;;###autoload (define-key ctl-x-4-map "." #'xref-find-definitions-other-window) +;;;###autoload (define-key ctl-x-5-map "." #'xref-find-definitions-other-frame) + + +(provide 'xref) + +;;; xref.el ends here diff --git a/lisp/saveplace.el b/lisp/saveplace.el index a25dba2e39e..985a52a0fc0 100644 --- a/lisp/saveplace.el +++ b/lisp/saveplace.el @@ -138,6 +138,8 @@ disabled, i.e., the position is recorded for all files." :version "24.1" :type 'regexp :group 'save-place) +(declare-function dired-current-directory "dired" (&optional localp)) + (defun toggle-save-place (&optional parg) "Toggle whether to save your place in this file between sessions. If this mode is enabled, point is recorded when you kill the buffer @@ -153,7 +155,7 @@ file: \(setq-default save-place t)" (interactive "P") (if (not (or buffer-file-name (and (derived-mode-p 'dired-mode) - dired-directory))) + (dired-current-directory)))) (message "Buffer `%s' not visiting a file or directory" (buffer-name)) (setq save-place (if parg (> (prefix-numeric-value parg) 0) @@ -172,12 +174,13 @@ file: ;; file. If not, do so, then feel free to modify the alist. It ;; will be saved again when Emacs is killed. (or save-place-loaded (load-save-place-alist-from-file)) - (let ((item (or buffer-file-name - (and (derived-mode-p 'dired-mode) - dired-directory - (expand-file-name (if (consp dired-directory) - (car dired-directory) - dired-directory)))))) + (let* ((directory (and (derived-mode-p 'dired-mode) + (dired-current-directory))) + (item (or buffer-file-name + (and directory + (expand-file-name (if (consp directory) + (car directory) + directory)))))) (when (and item (or (not save-place-ignore-files-regexp) (not (string-match save-place-ignore-files-regexp @@ -186,8 +189,7 @@ file: (position (cond ((eq major-mode 'hexl-mode) (with-no-warnings (1+ (hexl-current-address)))) - ((and (derived-mode-p 'dired-mode) - dired-directory) + ((and (derived-mode-p 'dired-mode) directory) (let ((filename (dired-get-filename nil t))) (if filename `((dired-filename . ,filename)) @@ -305,7 +307,7 @@ may have changed) back to `save-place-alist'." ;; save-place checks buffer-file-name too, but we can avoid ;; overhead of function call by checking here too. (and (or buffer-file-name (and (derived-mode-p 'dired-mode) - dired-directory)) + (dired-current-directory))) (save-place-to-alist)) (setq buf-list (cdr buf-list)))))) @@ -325,19 +327,21 @@ may have changed) back to `save-place-alist'." (defun save-place-dired-hook () "Position the point in a Dired buffer." (or save-place-loaded (load-save-place-alist-from-file)) - (let ((cell (assoc (and (derived-mode-p 'dired-mode) - dired-directory - (expand-file-name (if (consp dired-directory) - (car dired-directory) - dired-directory))) - save-place-alist))) + (let* ((directory (and (derived-mode-p 'dired-mode) + (dired-current-directory))) + (cell (assoc (and directory + (expand-file-name (if (consp directory) + (car directory) + directory))) + save-place-alist))) (if cell (progn (or revert-buffer-in-progress-p - (if (integerp (cdr cell)) - (goto-char (cdr cell)) - (and (assq 'dired-filename (cdr cell)) - (dired-goto-file (cdr (assq 'dired-filename (cdr cell))))))) + (cond + ((integerp (cdr cell)) + (goto-char (cdr cell))) + ((and (listp (cdr cell)) (assq 'dired-filename (cdr cell))) + (dired-goto-file (cdr (assq 'dired-filename (cdr cell))))))) ;; and make sure it will be saved again for later (setq save-place t))))) diff --git a/lisp/shell.el b/lisp/shell.el index 506f944094b..480d04a03eb 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -308,6 +308,13 @@ for Shell mode only." (const :tag "on" t)) :group 'shell) +(defcustom shell-display-buffer-actions display-buffer-base-action + "The `display-buffer' actions for the `*shell*' buffer." + :type display-buffer--action-custom-type + :risky t + :version "25.1" + :group 'shell) + (defvar shell-dirstack nil "List of directories saved by pushd in this buffer's shell. Thus, this does not include the shell's current directory.") @@ -718,7 +725,7 @@ Otherwise, one argument `-i' is passed to the shell. ;; The buffer's window must be correctly set when we call comint (so ;; that comint sets the COLUMNS env var properly). - (pop-to-buffer-same-window buffer) + (pop-to-buffer buffer shell-display-buffer-actions) (unless (comint-check-proc buffer) (let* ((prog (or explicit-shell-file-name (getenv "ESHELL") shell-file-name)) diff --git a/lisp/simple.el b/lisp/simple.el index 0fcd5db45d9..b436dd7699f 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1667,7 +1667,6 @@ invoking, give a prefix argument to `execute-extended-command'." (let ((prefix-arg prefixarg)) (command-execute function 'record)) ;; If enabled, show which key runs this command. - ;; (when binding ;; But first wait, and skip the message if there is input. (let* ((waited ;; If this command displayed something in the echo area; @@ -1675,10 +1674,11 @@ invoking, give a prefix argument to `execute-extended-command'." ;; FIXME: Wait *after* running post-command-hook! ;; FIXME: Don't wait if execute-extended-command--shorter won't ;; find a better answer anyway! - (sit-for (cond - ((zerop (length (current-message))) 0) - ((numberp suggest-key-bindings) suggest-key-bindings) - (t 2))))) + (when suggest-key-bindings + (sit-for (cond + ((zerop (length (current-message))) 0) + ((numberp suggest-key-bindings) suggest-key-bindings) + (t 2)))))) (when (and waited (not (consp unread-command-events))) (unless (or binding executing-kbd-macro (not (symbolp function)) (<= (length (symbol-name function)) 2)) diff --git a/lisp/startup.el b/lisp/startup.el index c04b16c43c4..8e981bbc64a 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1463,9 +1463,7 @@ Each element in the list should be a list of strings or pairs (goto-char (point-min)))) "\tMany people have contributed code included in GNU Emacs\n" :link ("Contributing" - ,(lambda (_button) - (view-file (expand-file-name "CONTRIBUTE" data-directory)) - (goto-char (point-min)))) + ,(lambda (_button) (info "(emacs)Contributing"))) "\tHow to contribute improvements to Emacs\n" "\n" :link ("GNU and Freedom" ,(lambda (_button) (describe-gnu-project))) @@ -2039,9 +2037,7 @@ Type \\[describe-distribution] for information on ")) (insert-button "Contributing" 'action - (lambda (_button) - (view-file (expand-file-name "CONTRIBUTE" data-directory)) - (goto-char (point-min))) + (lambda (_button) (info "(emacs)Contributing")) 'follow-link t) (insert "\tHow to contribute improvements to Emacs\n\n") diff --git a/lisp/subr.el b/lisp/subr.el index 6ce02b79a0a..53ad2729a10 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2166,7 +2166,7 @@ keyboard-quit events while waiting for a valid input." char)) (defun sit-for (seconds &optional nodisp obsolete) - "Perform redisplay, then wait for SECONDS seconds or until input is available. + "Redisplay, then wait for SECONDS seconds. Stop when input is available. SECONDS may be a floating-point value. \(On operating systems that do not support waiting for fractions of a second, floating-point values are rounded down to the nearest integer.) @@ -2184,7 +2184,7 @@ floating point support." (declare (advertised-calling-convention (seconds &optional nodisp) "22.1")) ;; This used to be implemented in C until the following discussion: ;; http://lists.gnu.org/archive/html/emacs-devel/2006-07/msg00401.html - ;; Then it was moved to C using an implementation based on an idle timer, + ;; Then it was moved here using an implementation based on an idle timer, ;; which was then replaced by the use of read-event. (if (numberp nodisp) (setq seconds (+ seconds (* 1e-3 nodisp)) diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 1993ff104f4..12e7fda0f2c 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -1300,18 +1300,48 @@ Inserts the value of `tex-open-quote' (normally ``) or `tex-close-quote' \(normally '') depending on the context. With prefix argument, always inserts \" characters." (interactive "*P") + ;; Discover if we'll be inserting normal double quotes. + ;; (if (or arg (memq (char-syntax (preceding-char)) '(?/ ?\\)) - (eq (get-text-property (point) 'face) 'tex-verbatim) - (save-excursion - (backward-char (length tex-open-quote)) - (when (or (looking-at (regexp-quote tex-open-quote)) - (looking-at (regexp-quote tex-close-quote))) - (delete-char (length tex-open-quote)) - t))) + (eq (get-text-property (point) 'face) 'tex-verbatim) + ;; Discover if a preceding occurrence of `tex-open-quote' + ;; should be morphed to a normal double quote. + ;; + (and (>= (point) (+ (point-min) (length tex-open-quote))) + (save-excursion + (backward-char (length tex-open-quote)) + (when (or (looking-at (regexp-quote tex-open-quote)) + (looking-at (regexp-quote tex-close-quote))) + (delete-char (length tex-open-quote)) + (when (looking-at (regexp-quote tex-close-quote)) + (delete-char (length tex-close-quote))) + t)))) + ;; Insert the normal quote (eventually letting + ;; `electric-pair-mode' do its thing). + ;; (self-insert-command (prefix-numeric-value arg)) - (insert (if (or (memq (char-syntax (preceding-char)) '(?\( ?> ?\s)) - (memq (preceding-char) '(?~))) - tex-open-quote tex-close-quote)))) + ;; We'll be inserting fancy TeX quotes, but consider and imitate + ;; `electric-pair-mode''s two behaviors: pair-insertion and + ;; region wrapping. + ;; + (if (and electric-pair-mode (use-region-p)) + (let* ((saved (point-marker))) + (goto-char (mark)) + (insert (if (> saved (mark)) tex-open-quote tex-close-quote)) + (goto-char saved) + (insert (if (> saved (mark)) tex-close-quote tex-open-quote))) + (if (or (memq (char-syntax (preceding-char)) '(?\( ?> ?\s)) + (memq (preceding-char) '(?~))) + (if electric-pair-mode + (if (looking-at (regexp-quote tex-close-quote)) + (forward-char (length tex-close-quote)) + (insert tex-open-quote) + (insert tex-close-quote) + (backward-char (length tex-close-quote))) + (insert tex-open-quote)) + (if (looking-at (regexp-quote tex-close-quote)) + (forward-char (length tex-close-quote)) + (insert tex-close-quote)))))) (defun tex-validate-buffer () "Check current buffer for paragraphs containing mismatched braces or $s. diff --git a/lisp/vc/compare-w.el b/lisp/vc/compare-w.el index 3b8293cda24..454139e9025 100644 --- a/lisp/vc/compare-w.el +++ b/lisp/vc/compare-w.el @@ -30,6 +30,8 @@ ;;; Code: +(require 'diff-mode) ; For diff faces. + (defgroup compare-windows nil "Compare text between windows." :prefix "compare-" @@ -128,11 +130,19 @@ out all highlighting later with the command `compare-windows-dehighlight'." :group 'compare-windows :version "22.1") -(defface compare-windows - '((t :inherit lazy-highlight)) - "Face for highlighting of compare-windows difference regions." +(defface compare-windows-removed + '((t :inherit diff-removed)) + "Face for highlighting of compare-windows removed regions." :group 'compare-windows - :version "22.1") + :version "25.1") + +(defface compare-windows-added + '((t :inherit diff-added)) + "Face for highlighting of compare-windows added regions." + :group 'compare-windows + :version "25.1") + +(define-obsolete-face-alias 'compare-windows 'compare-windows-added "25.1") (defvar compare-windows-overlay1 nil) (defvar compare-windows-overlay2 nil) @@ -158,7 +168,8 @@ then try to get a window on an iconified frame, and finally consider all existing frames." (or (get-mru-window 'visible t t) (get-mru-window 0 t t) - (get-mru-window t t t))) + (get-mru-window t t t) + (error "No other window"))) (defun compare-windows-get-next-window () "Return the window next in the cyclic ordering of windows. @@ -393,13 +404,13 @@ on third call it again advances points to the next difference and so on." (if compare-windows-overlay1 (move-overlay compare-windows-overlay1 beg1 end1 b1) (setq compare-windows-overlay1 (make-overlay beg1 end1 b1)) - (overlay-put compare-windows-overlay1 'face 'compare-windows) + (overlay-put compare-windows-overlay1 'face 'compare-windows-added) (overlay-put compare-windows-overlay1 'priority 1000)) (overlay-put compare-windows-overlay1 'window w1) (if compare-windows-overlay2 (move-overlay compare-windows-overlay2 beg2 end2 b2) (setq compare-windows-overlay2 (make-overlay beg2 end2 b2)) - (overlay-put compare-windows-overlay2 'face 'compare-windows) + (overlay-put compare-windows-overlay2 'face 'compare-windows-removed) (overlay-put compare-windows-overlay2 'priority 1000)) (overlay-put compare-windows-overlay2 'window w2) (if (not (eq compare-windows-highlight 'persistent)) diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index 65f683c7808..1700bef10b0 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el @@ -371,8 +371,7 @@ or an empty string if none." (goto-char (point-min)) (pcase stage (`update-index - (setq next-stage (if (vc-git--empty-db-p) 'ls-files-added - (if files 'ls-files-up-to-date 'diff-index)))) + (setq next-stage (if (vc-git--empty-db-p) 'ls-files-added 'diff-index))) (`ls-files-added (setq next-stage 'ls-files-unknown) (while (re-search-forward "\\([0-7]\\{6\\}\\) [0-9a-f]\\{40\\} 0\t\\([^\0]+\\)\0" nil t) @@ -381,7 +380,7 @@ or an empty string if none." (push (list name 'added (vc-git-create-extra-fileinfo 0 new-perm)) result)))) (`ls-files-up-to-date - (setq next-stage 'diff-index) + (setq next-stage 'ls-files-unknown) (while (re-search-forward "\\([0-7]\\{6\\}\\) [0-9a-f]\\{40\\} 0\t\\([^\0]+\\)\0" nil t) (let ((perm (string-to-number (match-string 1) 8)) (name (match-string 2))) @@ -400,7 +399,7 @@ or an empty string if none." (vc-git-create-extra-fileinfo 0 0)) result))) (`diff-index - (setq next-stage 'ls-files-unknown) + (setq next-stage (if files 'ls-files-up-to-date 'ls-files-unknown)) (while (re-search-forward ":\\([0-7]\\{6\\}\\) \\([0-7]\\{6\\}\\) [0-9a-f]\\{40\\} [0-9a-f]\\{40\\} \\(\\([ADMUT]\\)\0\\([^\0]+\\)\\|\\([CR]\\)[0-9]*\0\\([^\0]+\\)\0\\([^\0]+\\)\\)\0" nil t 1) diff --git a/lisp/window.el b/lisp/window.el index c95b0d6d418..21bd2c5829b 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -237,7 +237,12 @@ displays the buffer specified by BUFFER-OR-NAME before running BODY." (standard-output ,buffer) ,window ,value) (with-current-buffer ,buffer - (setq ,window (temp-buffer-window-show ,buffer ,vaction))) + (setq ,window (temp-buffer-window-show + ,buffer + ;; Remove window-height when it's handled below. + (if (functionp (cdr (assq 'window-height (cdr ,vaction)))) + (assq-delete-all 'window-height (copy-sequence ,vaction)) + ,vaction)))) (let ((inhibit-read-only t) (inhibit-modification-hooks t)) @@ -7798,6 +7803,9 @@ With arg N, put point N/10 of the way from the true end." (defvar mouse-autoselect-window-timer nil "Timer used by delayed window autoselection.") +(defvar mouse-autoselect-window-position-1 nil + "First mouse position recorded by delayed window autoselection.") + (defvar mouse-autoselect-window-position nil "Last mouse position recorded by delayed window autoselection.") @@ -7822,6 +7830,7 @@ Optional argument FORCE means cancel unconditionally." (memq (nth 4 (event-end last-input-event)) '(handle end-scroll))))) (setq mouse-autoselect-window-state nil) + (setq mouse-autoselect-window-position-1 nil) (when (timerp mouse-autoselect-window-timer) (cancel-timer mouse-autoselect-window-timer)) (remove-hook 'pre-command-hook 'mouse-autoselect-window-cancel))) @@ -7863,21 +7872,32 @@ is active. This function is run by `mouse-autoselect-window-timer'." ;; A menu / popup dialog is active or the mouse is not on the ;; text region of WINDOW: Suspend autoselection temporarily. (mouse-autoselect-window-start mouse-position nil t)) - ((eq mouse-autoselect-window-state 'suspend) + ((or (eq mouse-autoselect-window-state 'suspend) + ;; When the mouse is at its first recorded position, restart + ;; delayed autoselection. This works around a scenario with + ;; two two-window frames with identical dimensions: select the + ;; first window of the first frame, switch to the second + ;; frame, move the mouse to its second window, minimize the + ;; second frame. Now the second window of the first frame + ;; gets selected although the mouse never really "moved" into + ;; that window. + (and (numberp mouse-autoselect-window) + (equal (mouse-position) mouse-autoselect-window-position-1))) ;; Delayed autoselection was temporarily suspended, reenable it. (mouse-autoselect-window-start mouse-position)) ((and window (not (eq window (selected-window))) (or (not (numberp mouse-autoselect-window)) - (and (> mouse-autoselect-window 0) - ;; If `mouse-autoselect-window' is positive, select - ;; window if the window is the same as before. + (and (>= mouse-autoselect-window 0) + ;; If `mouse-autoselect-window' is non-negative, + ;; select window if it's the same as before. (eq window mouse-autoselect-window-window)) - ;; Otherwise select window if the mouse is at the same - ;; position as before. Observe that the first test after - ;; starting autoselection usually fails since the value of - ;; `mouse-autoselect-window-position' recorded there is the - ;; position where the mouse has entered the new window and - ;; not necessarily where the mouse has stopped moving. + ;; Otherwise select window iff the mouse is at the same + ;; position as before. Observe that the first test + ;; after starting autoselection usually fails since the + ;; value of `mouse-autoselect-window-position' recorded + ;; there is the position where the mouse has entered the + ;; new window and not necessarily where the mouse has + ;; stopped moving. (equal mouse-position mouse-autoselect-window-position)) ;; The minibuffer is a candidate window if it's active. (or (not (window-minibuffer-p window)) @@ -7921,14 +7941,14 @@ is active. This function is run by `mouse-autoselect-window-timer'." (not (minibuffer-window-active-p window))) ;; Don't switch when autoselection shall be delayed. (and (numberp mouse-autoselect-window) - (not (zerop mouse-autoselect-window)) (not (eq mouse-autoselect-window-state 'select)) - (progn + (let ((position (mouse-position))) ;; Cancel any delayed autoselection. (mouse-autoselect-window-cancel t) ;; Start delayed autoselection from current mouse ;; position and window. - (mouse-autoselect-window-start (mouse-position) window) + (setq mouse-autoselect-window-position-1 position) + (mouse-autoselect-window-start position window) ;; Executing a command cancels delayed autoselection. (add-hook 'pre-command-hook 'mouse-autoselect-window-cancel)))) |