commit f865e2f1e8878f7992d61a39bceb369c28a77706 (HEAD, refs/remotes/origin/master) Author: Paul Eggert Date: Thu May 26 19:10:26 2016 -0700 Fix byte-compiler pacification for declare-function Problem reported by Michael Heerdegen in: http://lists.gnu.org/archive/html/emacs-devel/2016-05/msg00590.html * lisp/emacs-lisp/bytecomp.el: (byte-compile-macroexpand-declare-function): Revert signature to previous value. * lisp/subr.el (declare-function): Change signature to match the reverted signature used in the byte compiler. diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index aa13210..11eb44c 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -2958,24 +2958,23 @@ for symbols generated by the byte compiler itself." (list body)))) ;; Special macro-expander used during byte-compilation. -(defun byte-compile-macroexpand-declare-function (fn file &optional arglist - fileonly) - (let ((gotargs (listp arglist)) +(defun byte-compile-macroexpand-declare-function (fn file &rest args) + (let ((gotargs (and (consp args) (listp (car args)))) (unresolved (assq fn byte-compile-unresolved-functions))) (when unresolved ; function was called before declaration (if (and gotargs (byte-compile-warning-enabled-p 'callargs)) - (byte-compile-arglist-warn fn arglist nil) + (byte-compile-arglist-warn fn (car args) nil) (setq byte-compile-unresolved-functions (delq unresolved byte-compile-unresolved-functions)))) (push (cons fn (if gotargs - (list 'declared arglist) + (list 'declared (car args)) t)) ; Arglist not specified. byte-compile-function-environment)) ;; We are stating that it _will_ be defined at runtime. (setq byte-compile-noruntime-functions (delq fn byte-compile-noruntime-functions)) ;; Delegate the rest to the normal macro definition. - (macroexpand `(declare-function ,fn ,file ,arglist ,fileonly))) + (macroexpand `(declare-function ,fn ,file ,@args))) ;; This is the recursive entry point for compiling each subform of an diff --git a/lisp/subr.el b/lisp/subr.el index b5d6f6f..7cbf006 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -29,13 +29,13 @@ ;; Beware: while this file has tag `utf-8', before it's compiled, it gets ;; loaded as "raw-text", so non-ASCII chars won't work right during bootstrap. -(defmacro declare-function (_fn _file &optional _arglist _fileonly) +(defmacro declare-function (_fn _file &rest _args) "Tell the byte-compiler that function FN is defined, in FILE. Optional ARGLIST is the argument list used by the function. The FILE argument is not used by the byte-compiler, but by the `check-declare' package, which checks that FILE contains a -definition for FN. ARGLIST is used by both the byte-compiler -and `check-declare' to check for consistency. +definition for FN. Remaining ARGS are used by both the +byte-compiler and `check-declare' to check for consistency. FILE can be either a Lisp file (in which case the \".el\" extension is optional), or a C file. C files are expanded @@ -46,6 +46,8 @@ declaration. A FILE with an \"ext:\" prefix is an external file. `check-declare' will check such files if they are found, and skip them without error if they are not. +ARGS can contain one or two optional args. First optional arg +ARGLIST specifies the function arguments. Second optional arg FILEONLY non-nil means that `check-declare' will only check that FILE exists, not that it defines FN. This is intended for function-definitions that `check-declare' does not recognize, e.g. commit 2f58c503dd8acd3429469d76d04976a9017b87e3 Author: Paul Eggert Date: Thu May 26 13:49:26 2016 -0700 Update texinfo.tex This fixes Bug#23611 in a different (and presumably better) way. * doc/misc/texinfo.tex: Update from gnulib. diff --git a/doc/misc/texinfo.tex b/doc/misc/texinfo.tex index 37e2de8..d7e6b1f 100644 --- a/doc/misc/texinfo.tex +++ b/doc/misc/texinfo.tex @@ -3,7 +3,7 @@ % Load plain if necessary, i.e., if running under initex. \expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi % -\def\texinfoversion{2016-04-14.07} +\def\texinfoversion{2016-05-26.20} % % Copyright 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, 1995, % 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, @@ -67,6 +67,10 @@ \everyjob{\message{[Texinfo version \texinfoversion]}% \catcode`+=\active \catcode`\_=\active} +% LaTeX's \typeout. This ensures that the messages it is used for +% are identical in format to the corresponding ones from latex/pdflatex. +\def\typeout{\immediate\write17}% + \chardef\other=12 % We never want plain's \outer definition of \+ in Texinfo. @@ -1534,7 +1538,6 @@ % % PDF outline support % - \pdfmakepagedesttrue \relax % Emulate the primitive of pdfTeX \def\pdfdest name#1 xyz{% \special{pdf:dest (name#1) [@thispage /XYZ @xpos @ypos]}% @@ -3270,8 +3273,8 @@ % @{ @} @lbracechar{} @rbracechar{} all generate brace characters. % Unless we're in typewriter, use \ecfont because the CM text fonts do % not have braces, and we don't want to switch into math. -\def\mylbrace{{\ifmonospace\else\ecfont\fi \char123}} -\def\myrbrace{{\ifmonospace\else\ecfont\fi \char125}} +\def\mylbrace{{\ifmonospace\char123\else\ensuremath\lbrace\fi}} +\def\myrbrace{{\ifmonospace\char125\else\ensuremath\rbrace\fi}} \let\{=\mylbrace \let\lbracechar=\{ \let\}=\myrbrace \let\rbracechar=\} \begingroup @@ -4603,6 +4606,19 @@ \fi } +% Like \expandablevalue, but completely expandable (the \message in the +% definition above operates at the execution level of TeX). Used when +% writing to auxiliary files, due to the expansion that \write does. +% +% NB flag names containing - or _ may not work here. +\def\dummyvalue#1{% + \expandafter\ifx\csname SET#1\endcsname\relax + [No value for ``#1'']% + \else + \csname SET#1\endcsname + \fi +} + % @ifset VAR ... @end ifset reads the `...' iff VAR has been defined % with @set. % @@ -4753,7 +4769,7 @@ \def\docodeindex#1{\edef\indexname{#1}\parsearg\docodeindexxxx} \def\docodeindexxxx #1{\doind{\indexname}{\code{#1}}} -% Used when writing an index entry out to an index file, to prevent +% Used when writing an index entry out to an index file to prevent % expansion of Texinfo commands that can appear in an index entry. % \def\indexdummies{% @@ -4889,12 +4905,9 @@ % % We want to disable all macros so that they are not expanded by \write. \macrolist + \let\value\dummyvalue % \normalturnoffactive - % - % Handle some cases of @value -- where it does not contain any - % (non-fully-expandable) commands. - \makevalueexpandable } % \commondummiesnofonts: common to \commondummies and \indexnofonts. @@ -5159,9 +5172,10 @@ \ifx\suffix\indexisfl\def\suffix{f1}\fi % Open the file \immediate\openout\csname#1indfile\endcsname \jobname.\suffix - % Using \immediate here prevents an object entering into the current box, - % which could confound checks such as those in \safewhatsit for preceding - % skips. + % Using \immediate above here prevents an object entering into the current + % box, which could confound checks such as those in \safewhatsit for + % preceding skips. + \typeout{Writing index file \jobname.\suffix}% \fi} \def\indexisfl{fl} @@ -5369,6 +5383,7 @@ % index. The easiest way to prevent this problem is to make sure % there is some text. \putwordIndexNonexistent + \typeout{No file \jobname.\indexname s.}% \else \catcode`\\ = 0 % @@ -6682,7 +6697,14 @@ % 1 and 2 (the page numbers aren't printed), and so are the first % two pages of the document. Thus, we'd have two destinations named % `1', and two named `2'. - \ifpdf \global\pdfmakepagedesttrue \fi + \ifpdf + \global\pdfmakepagedesttrue + \else + \ifx\XeTeXrevision\thisisundefined + \else + \global\pdfmakepagedesttrue + \fi + \fi } @@ -8698,6 +8720,8 @@ {% \requireauxfile \atdummies % preserve commands, but don't expand them + % match definition in \xrdef, \refx, \xrefX. + \def\value##1{##1}% \edef\writexrdef##1##2{% \write\auxfile{@xrdef{#1-% #1 of \setref, expanded by the \edef ##1}{##2}}% these are parameters of \writexrdef @@ -8862,6 +8886,7 @@ % include an _ in the xref name, etc. \indexnofonts \turnoffactive + \def\value##1{##1}% \expandafter\global\expandafter\let\expandafter\Xthisreftitle \csname XR#1-title\endcsname }% @@ -9002,14 +9027,14 @@ \fi\fi\fi } -% Define \refx{NAME}{SUFFIX} to reference a cross-reference string named NAME. -% If its value is nonempty, SUFFIX is output afterward. -% +% \refx{NAME}{SUFFIX} - reference a cross-reference string named NAME. SUFFIX +% is output afterwards if non-empty. \def\refx#1#2{% \requireauxfile {% \indexnofonts \otherbackslash + \def\value##1{##1}% \expandafter\global\expandafter\let\expandafter\thisrefX \csname XR#1\endcsname }% @@ -9034,16 +9059,18 @@ #2% Output the suffix in any case. } -% This is the macro invoked by entries in the aux file. Usually it's -% just a \def (we prepend XR to the control sequence name to avoid -% collisions). But if this is a float type, we have more work to do. +% This is the macro invoked by entries in the aux file. Define a control +% sequence for a cross-reference target (we prepend XR to the control sequence +% name to avoid collisions). The value is the page number. If this is a float +% type, we have more work to do. % \def\xrdef#1#2{% - {% The node name might contain 8-bit characters, which in our current - % implementation are changed to commands like @'e. Don't let these - % mess up the control sequence name. + {% Expand the node or anchor name to remove control sequences. + % \turnoffactive stops 8-bit characters being changed to commands + % like @'e. \refx does the same to retrieve the value in the definition. \indexnofonts \turnoffactive + \def\value##1{##1}% \xdef\safexrefname{#1}% }% % commit a6860c56aa9fa1c5d2e8feb621d447f4365f1971 Author: Paul Eggert Date: Thu May 26 13:38:28 2016 -0700 Pacify 'make check-declare' diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 4e3dab4..540a0e9 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -303,7 +303,7 @@ contrast, `package-user-dir' contains packages for personal use." :version "24.1") (declare-function epg-find-configuration "epg-config" - (protocol &optional force)) + (protocol &optional no-cache program-alist)) (defcustom package-check-signature (if (and (require 'epg-config) diff --git a/lisp/progmodes/js.el b/lisp/progmodes/js.el index 40f60c9..5d5d101 100644 --- a/lisp/progmodes/js.el +++ b/lisp/progmodes/js.el @@ -62,7 +62,7 @@ (defvar moz-repl-name) (defvar ido-cur-list) (defvar electric-layout-rules) -(declare-function ido-mode "ido" (arg)) +(declare-function ido-mode "ido" (&optional arg)) (declare-function inferior-moz-process "ext:mozrepl" ()) ;;; Constants commit 9a834970e822db10bc887db343fd8561a3639a66 Merge: 6ca3667 01d70ef Author: Paul Eggert Date: Thu May 26 13:20:29 2016 -0700 Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs commit 6ca36676c96954466bc0f1266115dff641697424 Author: Paul Eggert Date: Thu May 26 13:02:07 2016 -0700 Repair damage from emacs-25 merge * test/lisp/character-fold-tests.el: Remove, as it was renamed to test/lisp/char-fold-tests.el. * test/lisp/emulation/viper-tests.el: Rename from test/automated/viper-tests.el. diff --git a/test/automated/viper-tests.el b/test/automated/viper-tests.el deleted file mode 100644 index 8b30f05..0000000 --- a/test/automated/viper-tests.el +++ /dev/null @@ -1,160 +0,0 @@ -;;; viper-tests.el --- tests for viper. - -;; Copyright (C) 2016 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 . - -;;; Commentary: - -;;; Code: - - -(require 'viper) - -(defun viper-test-undo-kmacro (kmacro) - "In a clean viper buffer, run KMACRO and return `buffer-string'. - -This function makes as many attempts as possible to clean up -after itself, although it will leave a buffer called -*viper-test-buffer* if it fails (this is deliberate!)." - (let ( - ;; Viper just turns itself off during batch use. - (noninteractive nil) - ;; Switch off start up message or it will chew the key presses - (viper-inhibit-startup-message 't) - ;; Select an expert-level for the same reason. - (viper-expert-level 5) - ;; viper loads this even with -q so make sure it's empty! - (viper-custom-file-name (make-temp-file "viper-tests")) - (before-buffer (current-buffer))) - (unwind-protect - (progn - ;; viper-mode is essentially global, so set it here - (viper-mode) - ;; We must switch to buffer because we are using a keyboard macro - ;; which appears to not go to the current-buffer but what ever is - ;; currently taking keyboard events. We use a named buffer because - ;; then we can see what it in it if it all goes wrong. - (switch-to-buffer - (get-buffer-create - "*viper-test-buffer*")) - (erase-buffer) - ;; The new buffer fails to enter vi state so set it. - (viper-change-state-to-vi) - ;; Run the macro - (execute-kbd-macro kmacro) - (let ((rtn - (buffer-substring-no-properties - (point-min) - (point-max)))) - ;; Kill the buffer iff the macro succeeds - (kill-buffer) - rtn)) - ;; switch everthing off and restore the buffer - (toggle-viper-mode) - (switch-to-buffer before-buffer)))) - -(ert-deftest viper-test-go () - "Test that this file is running." - (should t)) - -(ert-deftest viper-test-fix () - "Test that the viper kmacro fixture is working." - (should - (viper-test-undo-kmacro []))) - -(ert-deftest viper-test-undo-1 () - "Test for VI like undo behaviour. - -Insert 1, then 2 on consecutive lines, followed by undo. This -should leave just 1 in the buffer. - -Test for Bug #22295" - (should - (equal - "1\n" - (viper-test-undo-kmacro - [ - ?a - ?1 - escape - ?o - ?2 - escape - ?u - ] - )))) - -(ert-deftest viper-test-undo-2 () - "Test for VI like undo behaviour. - -Insert \"1 2 3 4 5\" then delete the 2, then the 4, and undo. -Should restore the 4, but leave the 2 deleted. - -Test for Bug #22295" - (should - (equal - "1 3 4 5\n" - (viper-test-undo-kmacro - [ - ?i - ?1 ? ?2 ? ?3 ? ?4 ? ?5 - escape - ?F ?2 ?d ?w - ?w ?d ?w - ?u - ])))) - -(ert-deftest viper-test-undo-3 () - "Test for VI like undo behaviour. - -Insert \"1 2 3 4 5 6\", delete the 2, then the 3 4 and 5. -Should restore the 3 4 and 5 but not the 2. - -Test for Bug #22295" - (should - (equal - "1 3 4 5 6\n" - (viper-test-undo-kmacro - [ - ;; Insert this lot. - ?i ?1 ? ?2 ? ?3 ? ?4 ? ?5 ? ?6 - escape - ;; Start of line. - ?0 - ;; Move to 2, delete - ?w ?d ?w - ;; Delete 3 4 5 - ?. ?. ?. - ;; Undo del 5, then - ?u ?. ?. - ])))) - - -(ert-deftest viper-test-undo-4() - (should - (equal - "" - (viper-test-undo-kmacro - [ - ?i ?1 escape - ?o ?2 escape - ?o ?3 escape - ?u ?. ?. - ]) - ))) - -;;; viper-tests.el ends here diff --git a/test/lisp/character-fold-tests.el b/test/lisp/character-fold-tests.el deleted file mode 100644 index dc7e927..0000000 --- a/test/lisp/character-fold-tests.el +++ /dev/null @@ -1,122 +0,0 @@ -;;; character-fold-tests.el --- Tests for character-fold.el -*- lexical-binding: t; -*- - -;; Copyright (C) 2013-2016 Free Software Foundation, Inc. - -;; Author: Artur Malabarba - -;; This program 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. - -;; This program 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 this program. If not, see . - -;;; Code: - -(require 'ert) -(require 'character-fold) - -(defun character-fold--random-word (n) - (mapconcat (lambda (_) (string (+ 9 (random 117)))) - (make-list n nil) "")) - -(defun character-fold--test-search-with-contents (contents string) - (with-temp-buffer - (insert contents) - (goto-char (point-min)) - (should (search-forward-regexp (character-fold-to-regexp string) nil 'noerror)) - (goto-char (point-min)) - (should (character-fold-search-forward string nil 'noerror)) - (should (character-fold-search-backward string nil 'noerror)))) - - -(ert-deftest character-fold--test-consistency () - (dotimes (n 30) - (let ((w (character-fold--random-word n))) - ;; A folded string should always match the original string. - (character-fold--test-search-with-contents w w)))) - -(ert-deftest character-fold--test-lax-whitespace () - (dotimes (n 40) - (let ((w1 (character-fold--random-word n)) - (w2 (character-fold--random-word n)) - (search-spaces-regexp "\\s-+")) - (character-fold--test-search-with-contents - (concat w1 "\s\n\s\t\f\t\n\r\t" w2) - (concat w1 " " w2)) - (character-fold--test-search-with-contents - (concat w1 "\s\n\s\t\f\t\n\r\t" w2) - (concat w1 (make-string 10 ?\s) w2))))) - -(defun character-fold--test-match-exactly (string &rest strings-to-match) - (let ((re (concat "\\`" (character-fold-to-regexp string) "\\'"))) - (dolist (it strings-to-match) - (should (string-match re it))) - ;; Case folding - (let ((case-fold-search t)) - (dolist (it strings-to-match) - (should (string-match (upcase re) (downcase it))) - (should (string-match (downcase re) (upcase it))))))) - -(ert-deftest character-fold--test-some-defaults () - (dolist (it '(("ffl" . "ffl") ("ffi" . "ffi") - ("fi" . "fi") ("ff" . "ff") - ("ä" . "ä"))) - (character-fold--test-search-with-contents (cdr it) (car it)) - (let ((multi (char-table-extra-slot character-fold-table 0)) - (character-fold-table (make-char-table 'character-fold-table))) - (set-char-table-extra-slot character-fold-table 0 multi) - (character-fold--test-match-exactly (car it) (cdr it))))) - -(ert-deftest character-fold--test-fold-to-regexp () - (let ((character-fold-table (make-char-table 'character-fold-table)) - (multi (make-char-table 'character-fold-table))) - (set-char-table-extra-slot character-fold-table 0 multi) - (aset character-fold-table ?a "xx") - (aset character-fold-table ?1 "44") - (aset character-fold-table ?\s "-!-") - (character-fold--test-match-exactly "a1a1" "xx44xx44") - (character-fold--test-match-exactly "a1 a 1" "xx44-!--!-xx-!-44") - (aset multi ?a '(("1" . "99") - ("2" . "88") - ("12" . "77"))) - (character-fold--test-match-exactly "a" "xx") - (character-fold--test-match-exactly "a1" "xx44" "99") - (character-fold--test-match-exactly "a12" "77" "xx442" "992") - (character-fold--test-match-exactly "a2" "88") - (aset multi ?1 '(("2" . "yy"))) - (character-fold--test-match-exactly "a1" "xx44" "99") - (character-fold--test-match-exactly "a12" "77" "xx442" "992") - ;; Support for this case is disabled. See function definition or: - ;; https://lists.gnu.org/archive/html/emacs-devel/2015-11/msg02562.html - ;; (character-fold--test-match-exactly "a12" "xxyy") - )) - -(ert-deftest character-fold--speed-test () - (dolist (string (append '("tty-set-up-initial-frame-face" - "tty-set-up-initial-frame-face-frame-faceframe-faceframe-faceframe-face") - (mapcar #'character-fold--random-word '(10 50 100 - 50 100)))) - (message "Testing %s" string) - ;; Make sure we didn't just fallback on the trivial search. - (should-not (string= (regexp-quote string) - (character-fold-to-regexp string))) - (with-temp-buffer - (save-excursion (insert string)) - (let ((time (float-time))) - ;; Our initial implementation of case-folding in char-folding - ;; created a lot of redundant paths in the regexp. Because of - ;; that, if a really long string "almost" matches, the regexp - ;; engine took a long time to realize that it doesn't match. - (should-not (character-fold-search-forward (concat string "c") nil 'noerror)) - ;; Ensure it took less than a second. - (should (< (- (float-time) time) 1)))))) - -(provide 'character-fold-tests) -;;; character-fold-tests.el ends here diff --git a/test/lisp/emulation/viper-tests.el b/test/lisp/emulation/viper-tests.el new file mode 100644 index 0000000..8b30f05 --- /dev/null +++ b/test/lisp/emulation/viper-tests.el @@ -0,0 +1,160 @@ +;;; viper-tests.el --- tests for viper. + +;; Copyright (C) 2016 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 . + +;;; Commentary: + +;;; Code: + + +(require 'viper) + +(defun viper-test-undo-kmacro (kmacro) + "In a clean viper buffer, run KMACRO and return `buffer-string'. + +This function makes as many attempts as possible to clean up +after itself, although it will leave a buffer called +*viper-test-buffer* if it fails (this is deliberate!)." + (let ( + ;; Viper just turns itself off during batch use. + (noninteractive nil) + ;; Switch off start up message or it will chew the key presses + (viper-inhibit-startup-message 't) + ;; Select an expert-level for the same reason. + (viper-expert-level 5) + ;; viper loads this even with -q so make sure it's empty! + (viper-custom-file-name (make-temp-file "viper-tests")) + (before-buffer (current-buffer))) + (unwind-protect + (progn + ;; viper-mode is essentially global, so set it here + (viper-mode) + ;; We must switch to buffer because we are using a keyboard macro + ;; which appears to not go to the current-buffer but what ever is + ;; currently taking keyboard events. We use a named buffer because + ;; then we can see what it in it if it all goes wrong. + (switch-to-buffer + (get-buffer-create + "*viper-test-buffer*")) + (erase-buffer) + ;; The new buffer fails to enter vi state so set it. + (viper-change-state-to-vi) + ;; Run the macro + (execute-kbd-macro kmacro) + (let ((rtn + (buffer-substring-no-properties + (point-min) + (point-max)))) + ;; Kill the buffer iff the macro succeeds + (kill-buffer) + rtn)) + ;; switch everthing off and restore the buffer + (toggle-viper-mode) + (switch-to-buffer before-buffer)))) + +(ert-deftest viper-test-go () + "Test that this file is running." + (should t)) + +(ert-deftest viper-test-fix () + "Test that the viper kmacro fixture is working." + (should + (viper-test-undo-kmacro []))) + +(ert-deftest viper-test-undo-1 () + "Test for VI like undo behaviour. + +Insert 1, then 2 on consecutive lines, followed by undo. This +should leave just 1 in the buffer. + +Test for Bug #22295" + (should + (equal + "1\n" + (viper-test-undo-kmacro + [ + ?a + ?1 + escape + ?o + ?2 + escape + ?u + ] + )))) + +(ert-deftest viper-test-undo-2 () + "Test for VI like undo behaviour. + +Insert \"1 2 3 4 5\" then delete the 2, then the 4, and undo. +Should restore the 4, but leave the 2 deleted. + +Test for Bug #22295" + (should + (equal + "1 3 4 5\n" + (viper-test-undo-kmacro + [ + ?i + ?1 ? ?2 ? ?3 ? ?4 ? ?5 + escape + ?F ?2 ?d ?w + ?w ?d ?w + ?u + ])))) + +(ert-deftest viper-test-undo-3 () + "Test for VI like undo behaviour. + +Insert \"1 2 3 4 5 6\", delete the 2, then the 3 4 and 5. +Should restore the 3 4 and 5 but not the 2. + +Test for Bug #22295" + (should + (equal + "1 3 4 5 6\n" + (viper-test-undo-kmacro + [ + ;; Insert this lot. + ?i ?1 ? ?2 ? ?3 ? ?4 ? ?5 ? ?6 + escape + ;; Start of line. + ?0 + ;; Move to 2, delete + ?w ?d ?w + ;; Delete 3 4 5 + ?. ?. ?. + ;; Undo del 5, then + ?u ?. ?. + ])))) + + +(ert-deftest viper-test-undo-4() + (should + (equal + "" + (viper-test-undo-kmacro + [ + ?i ?1 escape + ?o ?2 escape + ?o ?3 escape + ?u ?. ?. + ]) + ))) + +;;; viper-tests.el ends here commit 0bf5739b77c75f13d46fc49d5e3c098fe49a5070 Merge: 764f048 c3489d0 Author: Paul Eggert Date: Thu May 26 12:55:06 2016 -0700 Merge from origin/emacs-25 c3489d0 * lisp/w32-fns.el (set-message-beep, w32-get-locale-info) (w3... a4d882c Correct old cell name unbinding when renaming cell. 6c12c53 Merge branch 'emacs-25' of git.sv.gnu.org:/srv/git/emacs into... 0be6725 Document problem: slow screen refresh on missing font. 853b9b9 * admin/admin.el (add-release-logs): Basic check of existing ... 5fa80cf * build-aux/gitlog-to-emacslog: Handle empty generated Change... 3c79e51 * admin/admin.el (add-release-logs): Generate ChangeLog if ne... 42275df * doc/misc/texinfo.tex: Revert previous change (Bug#23611). 3f4a9d9 * admin/authors.el (authors): First update the ChangeLog. 897fb6f ; 'Changes from the pre-25.1 API' copyedits 825ca25 Rename vc-stay-local back to vc-cvs-stay-local 4efb3e8 * doc/emacs/files.texi (Comparing Files): * doc/emacs/trouble... b995d1e * doc/misc/eww.texi (Advanced): Fix xref. 2e589c0 Fix cross-references between manuals f3d2ded * doc/misc/vhdl-mode.texi (Sample Init File): Rename node to ... 906c810 ; * admin/release-process: Move etc/HISTORY from here... ; * ... bea1b65 * admin/admin.el (add-release-logs): Also update etc/HISTORY. 503e752 ; * CONTRIBUTE: Fix a typo. fbfd478 Avoid aborting due to errors in arguments of 'set-face-attrib... bdfbe6d ; * admin/release-process: Copyedits. 44a6aed ; * test/automated/data-tests.el: Standardize license notice. c33ed39 ; * test/automated/viper-tests.el: Standardize license notice. df4a14b Add automated test for viper-tests.el c0139e3 Fix viper undo breakage from undo-boundary changes 920d76c Fix reference to obsolete fn ps-eval-switch 18a9bc1 Do not trash symlinks to init file 2671179 Don't print the "decomposition" line for control chars in wha... 869092c Bring back xterm pasting with middle mouse 5ab0830 Provide workaround for xftfont rendering problem c9f7ec7 * lisp/desktop.el: Disable restore frameset if in non-graphic... 30989a0 Mention GTK+ problems in etc/PROBLEMS 421e3c4 * lisp/emacs-lisp/package.el (package-refresh-contents): dadfc30 Revert "epg: Add a way to detect gpg1 executable for tests" e41a5cb Avoid errors with Czech and Slovak input methods d4ae6d7 epg: Add a way to detect gpg1 executable for tests ebc3a94 * lisp/emacs-lisp/package.el: Fix free variable warnings. 6e71295 * lisp/emacs-lisp/package.el (package--with-response-buffer): c45d9f6 Improve documentation of 'server-name' 3b5e38c Modernize ASLR advice in etc/PROBLEMS 1fe1e0a * lisp/char-fold.el: Rename from character-fold.el. commit 01d70ef7e620c7e8331f41d2a1e17d2c5a000c82 Author: Eli Zaretskii Date: Thu May 26 22:48:35 2016 +0300 Avoid byte-compiler warnings due to 'declare-function' * lisp/w32-fns.el (set-message-beep, w32-get-locale-info) (w32-get-valid-locale-ids): * lisp/progmodes/js.el (ido-mode): Specify arglist in 'declare-function' forms, to avoid byte-compiler warnings. diff --git a/lisp/progmodes/js.el b/lisp/progmodes/js.el index a35c4a3..40f60c9 100644 --- a/lisp/progmodes/js.el +++ b/lisp/progmodes/js.el @@ -62,7 +62,7 @@ (defvar moz-repl-name) (defvar ido-cur-list) (defvar electric-layout-rules) -(declare-function ido-mode "ido") +(declare-function ido-mode "ido" (arg)) (declare-function inferior-moz-process "ext:mozrepl" ()) ;;; Constants diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index 4815f4b..91c0253 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el @@ -31,9 +31,9 @@ ;;;; Function keys -(declare-function set-message-beep "w32fns.c") -(declare-function w32-get-locale-info "w32proc.c") -(declare-function w32-get-valid-locale-ids "w32proc.c") +(declare-function set-message-beep "w32fns.c" (sound)) +(declare-function w32-get-locale-info "w32proc.c" (lcid &optional longform)) +(declare-function w32-get-valid-locale-ids "w32proc.c" ()) ;; Map all versions of a filename (8.3, longname, mixed case) to the ;; same buffer. commit 2a2c6ee8d18267c16e3953194c6066d9a22b88a5 Author: Glenn Morris Date: Thu May 26 15:46:06 2016 -0400 * lisp/info.el (Info-default-directory-list): Don't check /share,info. No-one puts info pages there. If /share does exist, it's likely to contain remote file systems where access could be slow. ; Ref eg https://bugs.debian.org/786707 diff --git a/lisp/info.el b/lisp/info.el index 5a1cec1..70d218f 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -189,7 +189,7 @@ A header-line does not scroll with the rest of the buffer." configure-info-directory))) (prefixes ;; Directory trees in which to look for info subdirectories - (prune-directory-list '("/usr/local/" "/usr/" "/opt/" "/"))) + (prune-directory-list '("/usr/local/" "/usr/" "/opt/"))) (suffixes ;; Subdirectories in each directory tree that may contain info ;; directories. commit 764f04871d67a5aad8943136d5142ed59bfa9a51 Merge: 018be26 a35826d Author: Paul Eggert Date: Thu May 26 12:41:39 2016 -0700 ; Merge from origin/emacs-25 The following commit was skipped: a35826d Bump version to 25.0.94 commit 018be26a1a1851e7f7f92cb0289b0c30c329aa1c Merge: 7ed7675 2d76405 Author: Paul Eggert Date: Thu May 26 12:41:38 2016 -0700 Merge from origin/emacs-25 2d76405 etc/AUTHORS: Update the AUTHORS file commit 7ed767557eb608a0ad7097dc80d84af568ab00b1 Merge: 17b8d63 a8a2384 Author: Paul Eggert Date: Thu May 26 12:41:38 2016 -0700 ; Merge from origin/emacs-25 The following commit was skipped: a8a2384 ; Auto-commit of loaddefs files. commit 17b8d63057af2f1ad930bfe4bcd3aee5dd8996a4 Merge: fa419c2 06cb28f Author: Paul Eggert Date: Thu May 26 12:41:38 2016 -0700 Merge from origin/emacs-25 06cb28f Fix bug#23462: Crash when iconifying frame on OS X. commit fa419c2398349f201cfac89c9754c400b709db29 Merge: 745dd91 9ca5dbf Author: Paul Eggert Date: Thu May 26 12:41:38 2016 -0700 ; Merge from origin/emacs-25 The following commit was skipped: 9ca5dbf Avoid shrinking windows with Gtk+ 3.20.3 commit 745dd912e628aff1ebcafa672dd16e99cb9db0ba Merge: 8ff9c41 939eb75 Author: Paul Eggert Date: Thu May 26 12:41:37 2016 -0700 Merge from origin/emacs-25 939eb75 Fix bug in default setting of 'ps-paper-type' commit c3489d050405ccb026cd44a280ead3a5f6b456d9 Author: Glenn Morris Date: Thu May 26 14:57:29 2016 -0400 * lisp/w32-fns.el (set-message-beep, w32-get-locale-info) (w32-get-valid-locale-ids): Improve declarations. diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index 4723557..0f31c4a 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el @@ -31,9 +31,9 @@ ;;;; Function keys -(declare-function set-message-beep "w32fns.c") -(declare-function w32-get-locale-info "w32proc.c") -(declare-function w32-get-valid-locale-ids "w32proc.c") +(declare-function set-message-beep "w32fns.c" (sound)) +(declare-function w32-get-locale-info "w32proc.c" (lcid &optional longform)) +(declare-function w32-get-valid-locale-ids "w32proc.c" ()) ;; Map all versions of a filename (8.3, longname, mixed case) to the ;; same buffer. commit 8ff9c4109fd8ca239ce6af83d9dd3b124d2f0e3f Author: Glenn Morris Date: Thu May 26 14:48:17 2016 -0400 * lisp/info.el (Info-default-directory-list): Remove obsolete suffixes. ; * etc/NEWS: Mention this. diff --git a/etc/NEWS b/etc/NEWS index d74e570..4e8567e 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -253,6 +253,11 @@ details. *** New setf-able function to access and set image parameters is provided: 'image-property'. +--- +** The default 'Info-default-directory-list' no longer checks some obsolete +directory suffixes (gnu, gnu/lib, gnu/lib/emacs, emacs, lib, lib/emacs) +when searching for info directories. + +++ ** The commands that add ChangeLog entries now prefer a VCS root directory for the ChangeLog file, if none already exists. Customize diff --git a/lisp/info.el b/lisp/info.el index ae46fba..5a1cec1 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -192,12 +192,8 @@ A header-line does not scroll with the rest of the buffer." (prune-directory-list '("/usr/local/" "/usr/" "/opt/" "/"))) (suffixes ;; Subdirectories in each directory tree that may contain info - ;; directories. Most of these are rather outdated. - ;; It ought to be fine to stop checking the "emacs" ones now, - ;; since this is Emacs and we have not installed info files - ;; into such directories for a looong time... - '("share/" "" "gnu/" "gnu/lib/" "gnu/lib/emacs/" - "emacs/" "lib/" "lib/emacs/")) + ;; directories. + '("share/" "")) (standard-info-dirs (apply #'nconc (mapcar (lambda (pfx) commit 21e87ece97e90f5500bd49b84dca08d97bd4f155 Author: Michael Albinus Date: Thu May 26 19:57:13 2016 +0200 Fix Bug#23614. * lisp/net/tramp-sh.el (tramp-maybe-open-connection): Let-bind `process-coding-system-alist' in order to suppress the value for "cmdproxy". * lisp/net/tramp.el (tramp-encoding-shell): `w32-shell-name' is a function. (tramp-encoding-command-switch) (tramp-encoding-command-interactive): Use `w32-shell-dos-semantics'. * test/lisp/net/tramp-tests.el (tramp-test24-file-name-completion): Suppress some tests on MS Windows. (Bug#23614) diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index 3fb1588..14c6f94 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el @@ -4790,6 +4790,9 @@ connection if a previous connection has died for some reason." (options (tramp-ssh-controlmaster-options vec)) (process-connection-type tramp-process-connection-type) (process-adaptive-read-buffering nil) + ;; There are unfortune settings for "cmdproxy" on + ;; W32 systems. + (process-coding-system-alist nil) (coding-system-for-read nil) ;; This must be done in order to avoid our file ;; name handler. diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index d6911de..28fc9c7 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -120,9 +120,7 @@ This setting has precedence over `auto-save-file-name-transforms'." (directory :tag "Auto save directory name"))) (defcustom tramp-encoding-shell - (if (boundp 'w32-shell-name) - (symbol-value 'w32-shell-name) - "/bin/sh") + (or (tramp-compat-funcall 'w32-shell-name) "/bin/sh") "Use this program for encoding and decoding commands on the local host. This shell is used to execute the encoding and decoding command on the local host, so if you want to use `~' in those commands, you should @@ -145,14 +143,15 @@ use for the remote host." :group 'tramp :type '(file :must-match t)) -(defcustom tramp-encoding-command-switch (if (boundp 'w32-shell-name) "/c" "-c") +(defcustom tramp-encoding-command-switch + (if (tramp-compat-funcall 'w32-shell-dos-semantics) "/c" "-c") "Use this switch together with `tramp-encoding-shell' for local commands. See the variable `tramp-encoding-shell' for more information." :group 'tramp :type 'string) (defcustom tramp-encoding-command-interactive - (unless (boundp 'w32-shell-name) "-i") + (unless (tramp-compat-funcall 'w32-shell-dos-semantics) "-i") "Use this switch together with `tramp-encoding-shell' for interactive shells. See the variable `tramp-encoding-shell' for more information." :version "24.1" diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 6553421..468ed4a 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -1380,8 +1380,10 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." (unwind-protect (progn - ;; Method and host name in completion mode. - (when (tramp-completion-mode-p) + ;; Method and host name in completion mode. This kind of + ;; completion does not work on MS Windows. + (when (and (tramp-completion-mode-p) + (not (memq system-type '(cygwin windows-nt)))) (unless (zerop (length method)) (should (member commit 16be3e90545972dec16014253a843229d5bdf388 Author: Stephen Berman Date: Thu May 26 11:30:29 2016 +0200 hl-line.el: Fix flickering of highlighted line (bug#23510) * lisp/hl-line.el (hl-line-maybe-unhighlight) (global-hl-line-highlight-all) (global-hl-line-maybe-unhighlight): New functions. (hl-line-overlay-buffer): New variable. (hl-line-mode): Use it. Replace hl-line-unhighlight on pre-command-hook by hl-line-maybe-unhighlight on post-command-hook, to prevent hl-line from flickering. Adjust document string. (global-hl-line-mode): Use global-hl-line-highlight-all to simultaneously highlight the current line in all live windows. Replace global-hl-line-unhighlight on pre-command-hook by global-hl-line-maybe-unhighlight on post-command-hook, to prevent global-hl-line from flickering. Remove global-hl-line-unhighlight from change-major-mode-hook on disabling the mode. Adjust document string. diff --git a/lisp/hl-line.el b/lisp/hl-line.el index 25c8a08..d75e52f 100644 --- a/lisp/hl-line.el +++ b/lisp/hl-line.el @@ -126,6 +126,9 @@ It should return nil if there's no region to be highlighted. This variable is expected to be made buffer-local by modes.") +(defvar hl-line-overlay-buffer nil + "Most recently visited buffer in which Hl-Line mode is enabled.") + ;;;###autoload (define-minor-mode hl-line-mode "Toggle highlighting of the current line (Hl-Line mode). @@ -142,22 +145,21 @@ non-selected window. Hl-Line mode uses the function When `hl-line-sticky-flag' is nil, Hl-Line mode highlights the line about point in the selected window only. In this case, it -uses the function `hl-line-unhighlight' on `pre-command-hook' in +uses the function `hl-line-maybe-unhighlight' in addition to `hl-line-highlight' on `post-command-hook'." :group 'hl-line (if hl-line-mode (progn ;; In case `kill-all-local-variables' is called. (add-hook 'change-major-mode-hook #'hl-line-unhighlight nil t) - (if hl-line-sticky-flag - (remove-hook 'pre-command-hook #'hl-line-unhighlight t) - (add-hook 'pre-command-hook #'hl-line-unhighlight nil t)) (hl-line-highlight) - (add-hook 'post-command-hook #'hl-line-highlight nil t)) + (setq hl-line-overlay-buffer (current-buffer)) + (add-hook 'post-command-hook #'hl-line-highlight nil t) + (add-hook 'post-command-hook #'hl-line-maybe-unhighlight nil t)) (remove-hook 'post-command-hook #'hl-line-highlight t) (hl-line-unhighlight) (remove-hook 'change-major-mode-hook #'hl-line-unhighlight t) - (remove-hook 'pre-command-hook #'hl-line-unhighlight t))) + (remove-hook 'post-command-hook #'hl-line-maybe-unhighlight t))) (defun hl-line-make-overlay () (let ((ol (make-overlay (point) (point)))) @@ -181,6 +183,22 @@ addition to `hl-line-highlight' on `post-command-hook'." (when hl-line-overlay (delete-overlay hl-line-overlay))) +(defun hl-line-maybe-unhighlight () + "Maybe deactivate the Hl-Line overlay on the current line. +Specifically, when `hl-line-sticky-flag' is nil deactivate all +such overlays in all buffers except the current one." + (let ((hlob hl-line-overlay-buffer) + (curbuf (current-buffer))) + (when (and (not hl-line-sticky-flag) + (not (eq curbuf hlob)) + (not (minibufferp))) + (with-current-buffer hlob + (when (overlayp hl-line-overlay) + (delete-overlay hl-line-overlay)))) + (when (and (overlayp hl-line-overlay) + (eq (overlay-buffer hl-line-overlay) curbuf)) + (setq hl-line-overlay-buffer curbuf)))) + ;;;###autoload (define-minor-mode global-hl-line-mode "Toggle line highlighting in all buffers (Global Hl-Line mode). @@ -189,25 +207,24 @@ positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. If `global-hl-line-sticky-flag' is non-nil, Global Hl-Line mode -highlights the line about the current buffer's point in all +highlights the line about the current buffer's point in all live windows. -Global-Hl-Line mode uses the functions `global-hl-line-unhighlight' and -`global-hl-line-highlight' on `pre-command-hook' and `post-command-hook'." +Global-Hl-Line mode uses the functions `global-hl-line-highlight' +and `global-hl-line-maybe-unhighlight' on `post-command-hook'." :global t :group 'hl-line (if global-hl-line-mode (progn ;; In case `kill-all-local-variables' is called. (add-hook 'change-major-mode-hook #'global-hl-line-unhighlight) - (if global-hl-line-sticky-flag - (remove-hook 'pre-command-hook #'global-hl-line-unhighlight) - (add-hook 'pre-command-hook #'global-hl-line-unhighlight)) - (global-hl-line-highlight) - (add-hook 'post-command-hook #'global-hl-line-highlight)) + (global-hl-line-highlight-all) + (add-hook 'post-command-hook #'global-hl-line-highlight) + (add-hook 'post-command-hook #'global-hl-line-maybe-unhighlight)) (global-hl-line-unhighlight-all) - (remove-hook 'pre-command-hook #'global-hl-line-unhighlight) - (remove-hook 'post-command-hook #'global-hl-line-highlight))) + (remove-hook 'post-command-hook #'global-hl-line-highlight) + (remove-hook 'change-major-mode-hook #'global-hl-line-unhighlight) + (remove-hook 'post-command-hook #'global-hl-line-maybe-unhighlight))) (defun global-hl-line-highlight () "Highlight the current line in the current window." @@ -222,11 +239,33 @@ Global-Hl-Line mode uses the functions `global-hl-line-unhighlight' and (selected-window))) (hl-line-move global-hl-line-overlay)))) +(defun global-hl-line-highlight-all () + "Highlight the current line in all live windows." + (walk-windows (lambda (w) + (with-current-buffer (window-buffer w) + (global-hl-line-highlight))) + nil t)) + (defun global-hl-line-unhighlight () "Deactivate the Global-Hl-Line overlay on the current line." (when global-hl-line-overlay (delete-overlay global-hl-line-overlay))) +(defun global-hl-line-maybe-unhighlight () + "Maybe deactivate the Global-Hl-Line overlay on the current line. +Specifically, when `global-hl-line-sticky-flag' is nil deactivate +all such overlays in all buffers except the current one." + (mapc (lambda (ov) + (let ((ovb (overlay-buffer ov))) + (when (and (not global-hl-line-sticky-flag) + (bufferp ovb) + (not (eq ovb (current-buffer))) + (not (minibufferp))) + (with-current-buffer ovb + (when (overlayp global-hl-line-overlay) + (delete-overlay global-hl-line-overlay)))))) + global-hl-line-overlays)) + (defun global-hl-line-unhighlight-all () "Deactivate all Global-Hl-Line overlays." (mapc (lambda (ov) commit a4d882cd09507fa1f891984fc7435923de3566fe Author: Vincent Belaïche Date: Thu May 26 11:03:21 2016 +0200 Correct old cell name unbinding when renaming cell. Bug is to unbind old cell names when renaming a cell with 'makunbound'. when the old cell name is of A1 type, then 'kill-local-variable' must be used instead, so that only the current spreadsheet is affected. When the old cell name is a renamed cell, then 'ses--unbind-cell-name' must be used in order to remove the old name from the name hashmap. * ses.el (ses-rename-cell): check consistency of cell symbol from text-property and from array object. Instead of 'makunbound', use either 'ses--unbind-cell-name' or 'kill-local-variable' depending on whether the cell old name is a named cell or an A1 type cell diff --git a/lisp/ses.el b/lisp/ses.el index 5010194..ab9f071 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -3454,9 +3454,18 @@ highlighted range in the spreadsheet." (setq cell (or cell (ses-get-cell row col)) old-name (ses-cell-symbol cell) new-rowcol (ses-decode-cell-symbol (symbol-name new-name))) + ;; when ses-rename-cell is called interactively, then 'sym' is the + ;; 'cursor-intangible' property of text at cursor position, while + ;; 'old-name' is the symbol stored in array cell at coordinate + ;; 'rowcol' corresponding to 'ses-cell' property of symbol + ;; 'sym'. Both must be the same. + (unless (eq sym old-name) + (error "Spreadsheet is broken, both symbols %S and %S refering to cell (%d,%d)" sym old-name row col)) (if new-rowcol + ;; the new name is of A1 type, so we test that the coordinate + ;; inferred from new name (if (equal new-rowcol rowcol) - (put new-name 'ses-cell rowcol) + (put new-name 'ses-cell rowcol) (error "Not a valid name for this cell location")) (setq ses--named-cell-hashmap (or ses--named-cell-hashmap (make-hash-table :test 'eq))) @@ -3470,7 +3479,7 @@ highlighted range in the spreadsheet." (setf (ses-cell-formula xcell) (ses-replace-name-in-formula (ses-cell-formula xcell) - sym + old-name new-name)))) ;; Replace name by new name in reference list of cells to which renamed ;; cell refers to. @@ -3478,11 +3487,14 @@ highlighted range in the spreadsheet." (let* ((x (ses-sym-rowcol ref)) (xcell (ses-get-cell (car x) (cdr x)))) (setf (ses-cell-references xcell) - (cons new-name (delq sym + (cons new-name (delq old-name (ses-cell-references xcell)))))) (set (make-local-variable new-name) (symbol-value sym)) (setf (ses-cell--symbol cell) new-name) - (makunbound sym) + ;; Unbind old name + (if (eq (get old-name 'ses-cell) :ses-named) + (ses--unbind-cell-name old-name) + (kill-local-variable old-name)) (and curcell (setq ses--curcell new-name)) (save-excursion (or curcell (ses-goto-print row col)) commit 6c12c53949acafbfcad2e08b1ac5cbe283d71597 Merge: 0be6725 853b9b9 Author: Vincent Belaïche Date: Wed May 25 23:44:18 2016 +0200 Merge branch 'emacs-25' of git.sv.gnu.org:/srv/git/emacs into emacs-25 commit 0be672542ad60e6c73d36b7fdc1b6786786595ad Author: Vincent Belaïche Date: Wed May 25 23:42:54 2016 +0200 Document problem: slow screen refresh on missing font. See discussion of bug#22519 for more on this. diff --git a/etc/PROBLEMS b/etc/PROBLEMS index 31f38e3..84d39a4 100644 --- a/etc/PROBLEMS +++ b/etc/PROBLEMS @@ -749,6 +749,20 @@ the following variables: tex-font-script-display (how much to lower/raise); tex-suscript-height-ratio (how much smaller than normal); tex-suscript-height-minimum (minimum height). +** Screen refresh is slow when there are special characters for which no suitable font is available + +If the display is too slow in refreshing when you scroll to a new +region, or when you edit the buffer, it might be due to the fact that +some characters cannot be displayed in the default font, and Emacs is +spending too much time in looking for a suitable font to display them. + +You can suspect this if you have several characters that are displayed +as small rectangles containing a hexadecimal code inside. + +The solution is to install the appropriate fonts on your machine. For +instance if you are editing a text with a lot of math symbols, then +installing a font like 'Symbola' should solve this problem. + * Internationalization problems ** M-{ does not work on a Spanish PC keyboard. commit 853b9b92072e9eff11aff9c0110380c9a93864ca Author: Glenn Morris Date: Wed May 25 14:45:05 2016 -0400 * admin/admin.el (add-release-logs): Basic check of existing ChangeLog. diff --git a/admin/admin.el b/admin/admin.el index 33b0808..4af1ff9 100644 --- a/admin/admin.el +++ b/admin/admin.el @@ -43,13 +43,19 @@ Optional argument DATE is the release date, default today." (setq root (expand-file-name root)) (unless (file-exists-p (expand-file-name "src/emacs.c" root)) (user-error "%s doesn't seem to be the root of an Emacs source tree" root)) - ;; FIXME this does not check that a ChangeLog that exists is not - ;; your own personal one. Perhaps we should move any existing file - ;; and unconditionally call make ChangeLog? - ;; Or make ChangeLog CHANGELOG=temp and compare with the existing? - (or (file-exists-p (expand-file-name "ChangeLog" root)) - (zerop (call-process "make" nil nil nil "-C" root "ChangeLog")) - (error "Problem generating ChangeLog")) + (let ((clog (expand-file-name "ChangeLog" root))) + (if (file-exists-p clog) + ;; Basic check that a ChangeLog that exists is not your personal one. + ;; TODO Perhaps we should move any existing file and unconditionally + ;; call make ChangeLog? Or make ChangeLog CHANGELOG=temp and compare + ;; with the existing? + (with-temp-buffer + (insert-file-contents clog) + (or (re-search-forward "^[ \t]*Copyright.*Free Software" nil t) + (user-error "ChangeLog looks like a personal one - remove it?"))) + (or + (zerop (call-process "make" nil nil nil "-C" root "ChangeLog")) + (error "Problem generating ChangeLog")))) (require 'add-log) (or date (setq date (funcall add-log-time-format nil t))) (let* ((logs (process-lines "find" root "-name" "ChangeLog")) commit 5fa80cfe9fc1b7056b5cbf7fa6a44a23611d6f01 Author: Glenn Morris Date: Wed May 25 14:35:44 2016 -0400 * build-aux/gitlog-to-emacslog: Handle empty generated ChangeLog. This is relevant for M-x add-release-logs right after M-x authors. diff --git a/build-aux/gitlog-to-emacslog b/build-aux/gitlog-to-emacslog index 5c187f5..345c37f 100755 --- a/build-aux/gitlog-to-emacslog +++ b/build-aux/gitlog-to-emacslog @@ -81,7 +81,7 @@ test -d .git || { --ignore-line='^; ' --format='%B' \ "$gen_origin..$new_origin" >"ChangeLog.tmp" || exit -if test -s "ChangeLog.tmp"; then +if test -e "ChangeLog.tmp"; then # Fix up bug references. # This would be better as eg a --transform option to gitlog-to-changelog, @@ -99,7 +99,7 @@ if test -s "ChangeLog.tmp"; then ` start_year= end_year= - for year in $years; do + for year in ${years:-`date +%Y`}; do : ${start_year:=$year} end_year=$year done @@ -110,13 +110,19 @@ if test -s "ChangeLog.tmp"; then year_range=$start_year-$end_year fi - # Update gen_origin and append a proper copyright notice. - sed -n ' - 1i\ + # Update gen_origin + if test "$gen_origin" != "$new_origin"; then + sed -n ' + 1i\ + + /^This file records repository revisions/p + s/^commit [0-9a-f]* (exclusive)/commit '"$gen_origin"' (exclusive)/p + s/^commit [0-9a-f]* (inclusive)/commit '"$new_origin"' (inclusive)/p + ' >"ChangeLog.tmp" || exit + fi - /^This file records repository revisions/p - s/^commit [0-9a-f]* (exclusive)/commit '"$gen_origin"' (exclusive)/p - s/^commit [0-9a-f]* (inclusive)/commit '"$new_origin"' (inclusive)/p + # Append a proper copyright notice. + sed -n ' /^See ChangeLog.[0-9]* for earlier/,${ s/ChangeLog\.[0-9]*/ChangeLog.'$nmax'/ s/\(Copyright[ (C)]*\)[0-9]*-[0-9]*/\1'"$year_range"'/ commit 3c79e51821720a32782a7601d01b7e97a110dc67 Author: Glenn Morris Date: Wed May 25 14:17:25 2016 -0400 * admin/admin.el (add-release-logs): Generate ChangeLog if needed. diff --git a/admin/admin.el b/admin/admin.el index a3d5627..33b0808 100644 --- a/admin/admin.el +++ b/admin/admin.el @@ -47,8 +47,9 @@ Optional argument DATE is the release date, default today." ;; your own personal one. Perhaps we should move any existing file ;; and unconditionally call make ChangeLog? ;; Or make ChangeLog CHANGELOG=temp and compare with the existing? - (unless (file-exists-p (expand-file-name "ChangeLog" root)) - (user-error "No top-level ChangeLog - run \"make ChangeLog\" first")) + (or (file-exists-p (expand-file-name "ChangeLog" root)) + (zerop (call-process "make" nil nil nil "-C" root "ChangeLog")) + (error "Problem generating ChangeLog")) (require 'add-log) (or date (setq date (funcall add-log-time-format nil t))) (let* ((logs (process-lines "find" root "-name" "ChangeLog")) commit 42275df3dff4b81c7c6aa15df84deace9cfc9d6f Author: Paul Eggert Date: Wed May 25 10:39:14 2016 -0700 * doc/misc/texinfo.tex: Revert previous change (Bug#23611). diff --git a/doc/misc/texinfo.tex b/doc/misc/texinfo.tex index 314063c..37e2de8 100644 --- a/doc/misc/texinfo.tex +++ b/doc/misc/texinfo.tex @@ -3,7 +3,7 @@ % Load plain if necessary, i.e., if running under initex. \expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi % -\def\texinfoversion{2016-05-07.20} +\def\texinfoversion{2016-04-14.07} % % Copyright 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, 1995, % 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, @@ -67,10 +67,6 @@ \everyjob{\message{[Texinfo version \texinfoversion]}% \catcode`+=\active \catcode`\_=\active} -% LaTeX's \typeout. This ensures that the messages it is used for -% are identical in format to the corresponding ones from latex/pdflatex. -\def\typeout{\immediate\write17}% - \chardef\other=12 % We never want plain's \outer definition of \+ in Texinfo. @@ -1538,6 +1534,7 @@ % % PDF outline support % + \pdfmakepagedesttrue \relax % Emulate the primitive of pdfTeX \def\pdfdest name#1 xyz{% \special{pdf:dest (name#1) [@thispage /XYZ @xpos @ypos]}% @@ -3273,8 +3270,8 @@ % @{ @} @lbracechar{} @rbracechar{} all generate brace characters. % Unless we're in typewriter, use \ecfont because the CM text fonts do % not have braces, and we don't want to switch into math. -\def\mylbrace{{\ifmonospace\char123\else\ensuremath\lbrace\fi}} -\def\myrbrace{{\ifmonospace\char125\else\ensuremath\rbrace\fi}} +\def\mylbrace{{\ifmonospace\else\ecfont\fi \char123}} +\def\myrbrace{{\ifmonospace\else\ecfont\fi \char125}} \let\{=\mylbrace \let\lbracechar=\{ \let\}=\myrbrace \let\rbracechar=\} \begingroup @@ -4756,7 +4753,7 @@ \def\docodeindex#1{\edef\indexname{#1}\parsearg\docodeindexxxx} \def\docodeindexxxx #1{\doind{\indexname}{\code{#1}}} -% Used when writing an index entry out to an index file to prevent +% Used when writing an index entry out to an index file, to prevent % expansion of Texinfo commands that can appear in an index entry. % \def\indexdummies{% @@ -4892,9 +4889,12 @@ % % We want to disable all macros so that they are not expanded by \write. \macrolist - \definedummyword\value % \normalturnoffactive + % + % Handle some cases of @value -- where it does not contain any + % (non-fully-expandable) commands. + \makevalueexpandable } % \commondummiesnofonts: common to \commondummies and \indexnofonts. @@ -5159,10 +5159,9 @@ \ifx\suffix\indexisfl\def\suffix{f1}\fi % Open the file \immediate\openout\csname#1indfile\endcsname \jobname.\suffix - % Using \immediate above here prevents an object entering into the current - % box, which could confound checks such as those in \safewhatsit for - % preceding skips. - \typeout{Writing index file \jobname.\suffix}% + % Using \immediate here prevents an object entering into the current box, + % which could confound checks such as those in \safewhatsit for preceding + % skips. \fi} \def\indexisfl{fl} @@ -5370,7 +5369,6 @@ % index. The easiest way to prevent this problem is to make sure % there is some text. \putwordIndexNonexistent - \typeout{No file \jobname.\indexname s.}% \else \catcode`\\ = 0 % @@ -6684,14 +6682,7 @@ % 1 and 2 (the page numbers aren't printed), and so are the first % two pages of the document. Thus, we'd have two destinations named % `1', and two named `2'. - \ifpdf - \global\pdfmakepagedesttrue - \else - \ifx\XeTeXrevision\thisisundefined - \else - \global\pdfmakepagedesttrue - \fi - \fi + \ifpdf \global\pdfmakepagedesttrue \fi } @@ -8871,7 +8862,6 @@ % include an _ in the xref name, etc. \indexnofonts \turnoffactive - \def\value##1{##1}% \expandafter\global\expandafter\let\expandafter\Xthisreftitle \csname XR#1-title\endcsname }% @@ -9012,14 +9002,14 @@ \fi\fi\fi } -% \refx{NAME}{SUFFIX} - reference a cross-reference string named NAME. SUFFIX -% is output afterwards if non-empty. +% Define \refx{NAME}{SUFFIX} to reference a cross-reference string named NAME. +% If its value is nonempty, SUFFIX is output afterward. +% \def\refx#1#2{% \requireauxfile {% \indexnofonts \otherbackslash - \def\value##1{##1}% \expandafter\global\expandafter\let\expandafter\thisrefX \csname XR#1\endcsname }% @@ -9044,18 +9034,16 @@ #2% Output the suffix in any case. } -% This is the macro invoked by entries in the aux file. Define a control -% sequence for a cross-reference target (we prepend XR to the control sequence -% name to avoid collisions). The value is the page number. If this is a float -% type, we have more work to do. +% This is the macro invoked by entries in the aux file. Usually it's +% just a \def (we prepend XR to the control sequence name to avoid +% collisions). But if this is a float type, we have more work to do. % \def\xrdef#1#2{% - {% Expand the node or anchor name to remove control sequences. - % \turnoffactive stops 8-bit characters being changed to commands - % like @'e. \refx does the same to retrieve the value in the definition. + {% The node name might contain 8-bit characters, which in our current + % implementation are changed to commands like @'e. Don't let these + % mess up the control sequence name. \indexnofonts \turnoffactive - \def\value##1{##1}% \xdef\safexrefname{#1}% }% % commit 3f4a9d9d262d63562cdc9dde8d157567cb7c243c Author: Glenn Morris Date: Wed May 25 12:47:13 2016 -0400 * admin/authors.el (authors): First update the ChangeLog. * admin/make-tarball.txt: Related updates. diff --git a/admin/authors.el b/admin/authors.el index f1aa2fa..b93c9b2 100644 --- a/admin/authors.el +++ b/admin/authors.el @@ -1361,24 +1361,36 @@ and changed by AUTHOR." (cons (list author wrote-list cowrote-list changed-list) authors-author-list))))) -(defun authors (root) +(defun authors (root &optional nologupdate) "Extract author information from change logs and Lisp source files. -ROOT is the root directory under which to find the files. If called -interactively, ROOT is read from the minibuffer. -Result is a buffer *Authors* containing authorship information, and a -buffer *Authors Errors* containing references to unknown files." - (interactive "DEmacs source directory: ") +ROOT is the root directory under which to find the files. +Interactively, read ROOT from the minibuffer. +Accurate author information requires up-to-date change logs, so this +first updates them, unless optional prefix argument NOLOGUPDATE is non-nil. +The result is a buffer *Authors* containing authorship information, +and a buffer *Authors Errors* containing references to unknown files." + (interactive "DEmacs source directory: \nP") (setq root (expand-file-name root)) + (unless (file-exists-p (expand-file-name "src/emacs.c" root)) + (unless (y-or-n-p + (format "Not the root directory of Emacs: %s, continue? " root)) + (user-error "Not the root directory"))) + ;; May contain your personal entries. + (or (not (file-exists-p (expand-file-name "ChangeLog" root))) + (y-or-n-p "Unversioned ChangeLog present, continue?") + (user-error "Unversioned ChangeLog may have irrelevant entries")) + (or nologupdate + ;; There are likely to be things that need fixing, so we update + ;; the versioned ChangeLog.N rather than the unversioned ChangeLog. + (zerop (call-process "make" nil nil nil + "-C" root "change-history-nocommit")) + (error "Problem updating ChangeLog")) (let ((logs (process-lines find-program root "-name" "ChangeLog*")) (table (make-hash-table :test 'equal)) (buffer-name "*Authors*") authors-checked-files-alist authors-invalid-file-names) (authors-add-fixed-entries table) - (unless (file-exists-p (expand-file-name "src/emacs.c" root)) - (unless (y-or-n-p - (format "Not the root directory of Emacs: %s, continue? " root)) - (error "Not the root directory"))) (dolist (log logs) (when (string-match "ChangeLog\\(.[0-9]+\\)?$" log) (message "Scanning %s..." log) diff --git a/admin/make-tarball.txt b/admin/make-tarball.txt index af18ff6..77486cc 100644 --- a/admin/make-tarball.txt +++ b/admin/make-tarball.txt @@ -37,14 +37,15 @@ General steps (for each step, check for possible errors): M-: (require 'authors) RET M-x authors RET + (This first updates the current versioned ChangeLog.N) + If there is an "*Authors Errors*" buffer, address the issues. - If there was a ChangeLog typo, run "make change-history" and then - fix the newest ChangeLog history file. If a file was deleted or - renamed, consider adding an appropriate entry to - authors-ignored-files, authors-valid-file-names, or + If there was a ChangeLog typo, fix the relevant entry. + If a file was deleted or renamed, consider adding an appropriate + entry to authors-ignored-files, authors-valid-file-names, or authors-renamed-files-alist. - If necessary, repeat M-x authors after making those changes. + If necessary, repeat 'C-u M-x authors' after making those changes. Save the "*Authors*" buffer as etc/AUTHORS. Check the diff looks reasonable. Maybe add entries to authors-ambiguous-files or authors-aliases, and repeat. @@ -85,8 +86,8 @@ General steps (for each step, check for possible errors): 5. Copy lisp/loaddefs.el to lisp/ldefs-boot.el. - Commit etc/AUTHORS, lisp/ldefs-boot.el, and the files changed - by M-x set-version. + Commit ChangeLog.N, etc/AUTHORS, lisp/ldefs-boot.el, and the + files changed by M-x set-version. If someone else made a commit between step 1 and now, you need to repeat from step 4 onwards. (You can commit the files commit 897fb6fa49d5ffc85f0a796e7414a43ef05ad096 Author: Dmitry Gutov Date: Wed May 25 04:01:12 2016 +0300 ; 'Changes from the pre-25.1 API' copyedits diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 790272c..af875e8 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -552,7 +552,7 @@ ;; argument, since on no system since RCS has setting the initial ;; revision been even possible, let alone sane. ;; -;; INCOMPATIBLE CHANGE: In older versions of the API, vc-diff did +;; - INCOMPATIBLE CHANGE: In older versions of the API, vc-diff did ;; not take an async-mode flag as a fourth optional argument. (This ;; change eliminated a particularly ugly global.) ;; @@ -563,12 +563,12 @@ ;; SVN.) ;; ;; - INCOMPATIBLE CHANGE: The old fourth 'default-state' argument of -;; vc-dir-status-files is gone; none of the back ends actually used it. +;; dir-status-files is gone; none of the back ends actually used it. ;; -;; - vc-dir-status is no longer a public method; it has been replaced -;; by vc-dir-status-files. +;; - dir-status is no longer a public method; it has been replaced by +;; dir-status-files. ;; -;; - vc-state-heuristic is no longer a public method (the CVS backend +;; - state-heuristic is no longer a public method (the CVS backend ;; retains it as a private one). ;; ;; - the vc-mistrust-permissions configuration variable is gone; the commit 825ca2542e01879715cf9c112d0f04e849b8d863 Author: Dmitry Gutov Date: Wed May 25 03:49:35 2016 +0300 Rename vc-stay-local back to vc-cvs-stay-local * lisp/vc/vc-cvs.el (vc-cvs-stay-local): Rename back from vc-stay-local (bug#19548). Improve the docstring. (vc-cvs-stay-local-p): Update accordingly. diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el index 2dca708..a2499a2 100644 --- a/lisp/vc/vc-cvs.el +++ b/lisp/vc/vc-cvs.el @@ -121,7 +121,7 @@ This is only meaningful if you don't use the implicit checkout model :version "21.1" :group 'vc-cvs) -(defcustom vc-stay-local 'only-file +(defcustom vc-cvs-stay-local 'only-file "Non-nil means use local operations when possible for remote repositories. This avoids slow queries over the network and instead uses heuristics and past information to determine the current status of a file. @@ -131,11 +131,11 @@ server, but heuristics will be used to determine the status for all other VC operations. The value can also be a regular expression or list of regular -expressions to match against the host name of a repository; then VC -only stays local for hosts that match it. Alternatively, the value -can be a list of regular expressions where the first element is the -symbol `except'; then VC always stays local except for hosts matched -by these regular expressions." +expressions to match against the host name of a repository; then +vc-cvs only stays local for hosts that match it. Alternatively, +the value can be a list of regular expressions where the first +element is the symbol `except'; then vc-cvs always stays local +except for hosts matched by these regular expressions." :type '(choice (const :tag "Always stay local" t) (const :tag "Only for file operations" only-file) (const :tag "Don't stay local" nil) @@ -789,8 +789,7 @@ If FILE is a list of files, return non-nil if any of them individually should stay local." (if (listp file) (delq nil (mapcar (lambda (arg) (vc-cvs-stay-local-p arg)) file)) - (let* ((sym (vc-make-backend-sym 'CVS 'stay-local)) - (stay-local (if (boundp sym) (symbol-value sym) vc-stay-local))) + (let ((stay-local vc-cvs-stay-local)) (if (symbolp stay-local) stay-local (let ((dirname (if (file-directory-p file) (directory-file-name file) diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 25b41e3..790272c 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -577,8 +577,8 @@ ;; only affected back ends were SCCS and RCS. ;; ;; - vc-stay-local-p and repository-hostname are no longer part -;; of the public API. The vc-stay-local configuration variable -;; remains but only affects the CVS back end. +;; of the public API. The vc-cvs-stay-local configuration variable +;; remains and only affects the CVS back end. ;; ;; - The init-revision function and the default-initial-revision ;; variable are gone. These have't made sense on anything shipped commit 4efb3e8169e8a75f3e2016c8780746785fc6b85f Author: Glenn Morris Date: Tue May 24 14:58:27 2016 -0400 * doc/emacs/files.texi (Comparing Files): * doc/emacs/trouble.texi (Sending Patches): Fix external xrefs. diff --git a/doc/emacs/files.texi b/doc/emacs/files.texi index af7a2fc..3bbb3cd 100644 --- a/doc/emacs/files.texi +++ b/doc/emacs/files.texi @@ -1281,7 +1281,7 @@ The value of @code{diff-switches} should be a string; the default is @c Note that the actual name of the info file is diffutils.info, @c but it adds a dir entry for diff too. @c On older systems, only "info diff" works, not "info diffutils". -@xref{Top,, Diff, diff, Comparing and Merging Files}, for more +@xref{Top,, Diff, diffutils, Comparing and Merging Files}, for more information about the @command{diff} program. The output of the @code{diff} command is shown using a major mode diff --git a/doc/emacs/trouble.texi b/doc/emacs/trouble.texi index bff3a58..6f6071b 100644 --- a/doc/emacs/trouble.texi +++ b/doc/emacs/trouble.texi @@ -1175,7 +1175,7 @@ see @url{http://www.gnu.org/prep/standards/html_node/Change-Log-Concepts.html}, @end ifset @xref{Change Log Concepts, Change Log Concepts, -Change Log Concepts, gnu-coding-standards, GNU Coding Standards}. +Change Log Concepts, standards, GNU Coding Standards}. @item When you write the fix, keep in mind that we can't install a change that commit b995d1edf475f2676be04eb70ec31a8c2bc28a8c Author: Glenn Morris Date: Tue May 24 14:37:54 2016 -0400 * doc/misc/eww.texi (Advanced): Fix xref. diff --git a/doc/misc/eww.texi b/doc/misc/eww.texi index 795556b..7726a8d 100644 --- a/doc/misc/eww.texi +++ b/doc/misc/eww.texi @@ -251,7 +251,7 @@ variables @code{shr-color-visible-distance-min} and In addition to maintaining the history at run-time, EWW will also save the partial state of its buffers (the URIs and the titles of the pages visited) in the desktop file if one is used. @xref{Saving Emacs -Sessions, , emacs, The GNU Emacs Manual}. +Sessions,,, emacs, The GNU Emacs Manual}. @vindex eww-desktop-remove-duplicates EWW history may sensibly contain multiple entries for the same page commit 2e589c00422e68624024c8a77799d54964e7b3a2 Author: Eli Zaretskii Date: Tue May 24 21:24:45 2016 +0300 Fix cross-references between manuals * doc/misc/viper.texi (Viper Specials): * doc/misc/url.texi (Tramp): * doc/misc/sem-user.texi (Smart Jump): * doc/lispintro/emacs-lisp-intro.texi (Finding More): * doc/misc/efaq.texi (Replacing text across multiple files): Fix cross-references between manuals. (Bug#23612) * doc/lispintro/emacs-lisp-intro.texi (etags): Node deleted: no longer relevant to Emacs Lisp programming. diff --git a/doc/lispintro/emacs-lisp-intro.texi b/doc/lispintro/emacs-lisp-intro.texi index eea46af..10162b3 100644 --- a/doc/lispintro/emacs-lisp-intro.texi +++ b/doc/lispintro/emacs-lisp-intro.texi @@ -584,7 +584,6 @@ Regular Expression Searches * re-search-forward:: Very similar to @code{search-forward}. * forward-sentence:: A straightforward example of regexp search. * forward-paragraph:: A somewhat complex example. -* etags:: How to create your own @file{TAGS} table. * Regexp Review:: * re-search Exercises:: @@ -4583,54 +4582,21 @@ definition. @end ignore More generally, if you want to see a function in its original source -file, you can use the @code{find-tag} function to jump to it. -@code{find-tag} works with a wide variety of languages, not just -Lisp, and C, and it works with non-programming text as well. For -example, @code{find-tag} will jump to the various nodes in the -Texinfo source file of this document. -The @code{find-tag} function depends on @dfn{tags tables} that record -the locations of the functions, variables, and other items to which -@code{find-tag} jumps. - -To use the @code{find-tag} command, type @kbd{M-.} (i.e., press the -period key while holding down the @key{META} key, or else type the -@key{ESC} key and then type the period key), and then, at the prompt, -type in the name of the function whose source code you want to see, -such as @code{mark-whole-buffer}, and then type @key{RET}. Emacs will -switch buffers and display the source code for the function on your -screen. To switch back to your current buffer, type @kbd{C-x b -@key{RET}}. (On some keyboards, the @key{META} key is labeled -@key{ALT}.) - -@c !!! 22.1.1 tags table location in this paragraph -@cindex TAGS table, specifying -@findex find-tag -Depending on how the initial default values of your copy of Emacs are -set, you may also need to specify the location of your tags table, -which is a file called @file{TAGS}. For example, if you are -interested in Emacs sources, the tags table you will most likely want, -if it has already been created for you, will be in a subdirectory of -the @file{/usr/local/share/emacs/} directory; thus you would use the -@code{M-x visit-tags-table} command and specify a pathname such as -@file{/usr/local/share/emacs/22.1.1/lisp/TAGS}. If the tags table -has not already been created, you will have to create it yourself. It -will be in a file such as @file{/usr/local/src/emacs/src/TAGS}. - -@need 1250 -To create a @file{TAGS} file in a specific directory, switch to that -directory in Emacs using @kbd{M-x cd} command, or list the directory -with @kbd{C-x d} (@code{dired}). Then run the compile command, with -@w{@code{etags *.el}} as the command to execute: - -@smallexample -M-x compile RET etags *.el RET -@end smallexample - -For more information, see @ref{etags, , Create Your Own @file{TAGS} File}. - -After you become more familiar with Emacs Lisp, you will find that you will -frequently use @code{find-tag} to navigate your way around source code; -and you will create your own @file{TAGS} tables. +file, you can use the @code{xref-find-definitions} function to jump to +it. @code{xref-find-definitions} works with a wide variety of +languages, not just Lisp, and C, and it works with non-programming +text as well. For example, @code{xref-find-definitions} will jump to +the various nodes in the Texinfo source file of this document. + +To use the @code{xref-find-definitions} command, type @kbd{M-.} +(i.e., press the period key while holding down the @key{META} key, or +else type the @key{ESC} key and then type the period key), and then, +at the prompt, type in the name of the function whose source code you +want to see, such as @code{mark-whole-buffer}, and then type +@key{RET}. Emacs will switch buffers and display the source code for +the function on your screen. To switch back to your current buffer, +type @kbd{C-x b @key{RET}}. (On some keyboards, the @key{META} key is +labeled @key{ALT}.) @cindex Library, as term for ``file'' Incidentally, the files that contain Lisp code are conventionally @@ -12142,7 +12108,6 @@ introduces several new features. * re-search-forward:: Very similar to @code{search-forward}. * forward-sentence:: A straightforward example of regexp search. * forward-paragraph:: A somewhat complex example. -* etags:: How to create your own @file{TAGS} table. * Regexp Review:: * re-search Exercises:: @end menu @@ -13294,130 +13259,6 @@ key; you will be taken directly to the source. (Be sure to install your sources! Without them, you are like a person who tries to drive a car with his eyes shut!) -@node etags -@section Create Your Own @file{TAGS} File -@findex etags -@cindex @file{TAGS} file, create own - -Besides @kbd{C-h f} (@code{describe-function}), another way to see the -source of a function is to type @kbd{M-.} (@code{find-tag}) and the -name of the function when prompted for it. This is a good habit to -get into. The @kbd{M-.} (@code{find-tag}) command takes you directly -to the source for a function, variable, or node. The function depends -on tags tables to tell it where to go. - -If the @code{find-tag} function first asks you for the name of a -@file{TAGS} table, give it the name of a @file{TAGS} file such as -@file{/usr/local/src/emacs/src/TAGS}. (The exact path to your -@file{TAGS} file depends on how your copy of Emacs was installed. I -just told you the location that provides both my C and my Emacs Lisp -sources.) - -You can also create your own @file{TAGS} file for directories that -lack one. - -You often need to build and install tags tables yourself. They are -not built automatically. A tags table is called a @file{TAGS} file; -the name is in upper case letters. - -You can create a @file{TAGS} file by calling the @code{etags} program -that comes as a part of the Emacs distribution. Usually, @code{etags} -is compiled and installed when Emacs is built. (@code{etags} is not -an Emacs Lisp function or a part of Emacs; it is a C program.) - -@need 1250 -To create a @file{TAGS} file, first switch to the directory in which -you want to create the file. In Emacs you can do this with the -@kbd{M-x cd} command, or by visiting a file in the directory, or by -listing the directory with @kbd{C-x d} (@code{dired}). Then run the -compile command, with @w{@code{etags *.el}} as the command to execute - -@smallexample -M-x compile RET etags *.el RET -@end smallexample - -@noindent -to create a @file{TAGS} file for Emacs Lisp. - -For example, if you have a large number of files in your -@file{~/emacs} directory, as I do---I have 137 @file{.el} files in it, -of which I load 12---you can create a @file{TAGS} file for the Emacs -Lisp files in that directory. - -@need 1250 -The @code{etags} program takes all the usual shell wildcards. For -example, if you have two directories for which you want a single -@file{TAGS} file, type @w{@code{etags *.el ../elisp/*.el}}, where -@file{../elisp/} is the second directory: - -@smallexample -M-x compile RET etags *.el ../elisp/*.el RET -@end smallexample - -@need 1250 -Type - -@smallexample -M-x compile RET etags --help RET -@end smallexample - -@noindent -to see a list of the options accepted by @code{etags} as well as a -list of supported languages. - -The @code{etags} program handles more than 20 languages, including -Emacs Lisp, Common Lisp, Scheme, C, C++, Ada, Fortran, HTML, Java, -LaTeX, Pascal, Perl, PostScript, Python, TeX, Texinfo, makefiles, and -most assemblers. The program has no switches for specifying the -language; it recognizes the language in an input file according to its -file name and contents. - -@file{etags} is very helpful when you are writing code yourself and -want to refer back to functions you have already written. Just run -@code{etags} again at intervals as you write new functions, so they -become part of the @file{TAGS} file. - -If you think an appropriate @file{TAGS} file already exists for what -you want, but do not know where it is, you can use the @code{locate} -program to attempt to find it. - -Type @w{@kbd{M-x locate @key{RET} TAGS @key{RET}}} and Emacs will list -for you the full path names of all your @file{TAGS} files. On my -system, this command lists 34 @file{TAGS} files. On the other hand, a -plain vanilla system I recently installed did not contain any -@file{TAGS} files. - -If the tags table you want has been created, you can use the @code{M-x -visit-tags-table} command to specify it. Otherwise, you will need to -create the tag table yourself and then use @code{M-x -visit-tags-table}. - -@subsubheading Building Tags in the Emacs sources -@cindex Building Tags in the Emacs sources -@cindex Tags in the Emacs sources -@findex make tags - -The GNU Emacs sources come with a @file{Makefile} that contains a -sophisticated @code{etags} command that creates, collects, and merges -tags tables from all over the Emacs sources and puts the information -into one @file{TAGS} file in the @file{src/} directory. (The -@file{src/} directory is below the top level of your Emacs directory.) - -@need 1250 -To build this @file{TAGS} file, go to the top level of your Emacs -source directory and run the compile command @code{make tags}: - -@smallexample -M-x compile RET make tags RET -@end smallexample - -@noindent -(The @code{make tags} command works well with the GNU Emacs sources, -as well as with some other source packages.) - -For more information, see @ref{Tags, , Tag Tables, emacs, The GNU Emacs -Manual}. - @node Regexp Review @section Review diff --git a/doc/misc/efaq.texi b/doc/misc/efaq.texi index fd4fd4f..8eee9e1 100644 --- a/doc/misc/efaq.texi +++ b/doc/misc/efaq.texi @@ -2290,7 +2290,7 @@ is actually typical for regexp syntax.) @cindex Recursive search/replace operations Dired mode (@kbd{M-x dired @key{RET}}, or @kbd{C-x d}) supports the -command @code{dired-do-query-replace-regexp} (@kbd{Q}), which allows +command @code{dired-do-find-regexp-and-replace} (@kbd{Q}), which allows users to replace regular expressions in multiple files. You can use this command to perform search/replace operations on @@ -2315,7 +2315,7 @@ To accept all replacements in each file, hit @kbd{!}. Another way to do the same thing is to use the ``tags'' feature of Emacs: it includes the command @code{tags-query-replace} which performs a query-replace across all the files mentioned in the @file{TAGS} file. -@xref{Tags Search,,, emacs, The GNU Emacs Manual}. +@xref{Identifier Search,,, emacs, The GNU Emacs Manual}. @node Documentation for etags @section Where is the documentation for @code{etags}? diff --git a/doc/misc/sem-user.texi b/doc/misc/sem-user.texi index a8684a4..fd88c88 100644 --- a/doc/misc/sem-user.texi +++ b/doc/misc/sem-user.texi @@ -874,9 +874,9 @@ command, like this: @end example @end defun -These commands are often more accurate than the @code{find-tag} -command (@pxref{Tags,,,emacs,Emacs manual}), because the Semantic -Analyzer is context-sensitive. +These commands are often more accurate than the @code{xref-find-definitions} +command (@pxref{Looking Up Identifiers,,,emacs,Emacs manual}), because +the Semantic Analyzer is context-sensitive. You can also use @kbd{C-c , j} (@code{semantic-complete-jump-local}) and @kbd{C-c , J} (@code{semantic-complete-jump}) to navigate tags. diff --git a/doc/misc/url.texi b/doc/misc/url.texi index a3c6b88..91cb6b5 100644 --- a/doc/misc/url.texi +++ b/doc/misc/url.texi @@ -820,12 +820,12 @@ The file transfer protocol. @xref{file/ftp}. @item ssh @cindex ssh -The secure shell protocol. @xref{Inline Methods,,, tramp, The Tramp +The secure shell protocol. @xref{Inline methods,,, tramp, The Tramp Manual}. @item scp @cindex scp -The secure file copy protocol. @xref{External Methods,,, tramp, The +The secure file copy protocol. @xref{External methods,,, tramp, The Tramp Manual}. @item rsync diff --git a/doc/misc/viper.texi b/doc/misc/viper.texi index 6b169f3..6b82653 100644 --- a/doc/misc/viper.texi +++ b/doc/misc/viper.texi @@ -2568,7 +2568,7 @@ above block should be commented out. Even though these commands are sometimes useful, they are no substitute for the powerful @emph{tag table} facility of Emacs. Viper's @kbd{:tag} command -in a primitive interface to Emacs tags. @xref{Tags,Tags,Tags,emacs, +in a primitive interface to Emacs tags. @xref{Tags Tables,,,emacs, The GNU Emacs Manual}, for more information on tags. The following two commands are normally bound to a mouse click and are part commit f3d2dedeba37d899be72a37339d0370aa3ae4c70 Author: Glenn Morris Date: Tue May 24 13:26:04 2016 -0400 * doc/misc/vhdl-mode.texi (Sample Init File): Rename node to avoid ".". diff --git a/doc/misc/vhdl-mode.texi b/doc/misc/vhdl-mode.texi index ec83b7e..e26ec52 100644 --- a/doc/misc/vhdl-mode.texi +++ b/doc/misc/vhdl-mode.texi @@ -65,7 +65,7 @@ modify this GNU manual.'' * Syntactic Symbols:: * Frequently Asked Questions:: * Getting the latest VHDL Mode release:: -* Sample .emacs File:: +* Sample Init File:: * Limitations and Known Bugs:: * Mailing Lists and Submitting Bug Reports:: * GNU Free Documentation License:: The license for this documentation. @@ -484,7 +484,7 @@ Here's a simplified example of what you can add to your @file{.emacs} file to make the changes described in the previous section (@ref{Interactive Customization}) more permanent. See the Emacs manuals for more information on customizing Emacs via hooks. -@xref{Sample .emacs File}, for a more complete sample @file{.emacs} file. +@xref{Sample Init File}, for a more complete sample @file{.emacs} file. @example @group @@ -600,7 +600,7 @@ optional third argument, which if non-@code{nil}, automatically institutes the new style in the current buffer. The sample @file{.emacs} file provides a concrete example of how a new -style can be added and automatically set. @xref{Sample .emacs File}. +style can be added and automatically set. @xref{Sample Init File}. @node File Styles @subsection File Styles @@ -874,7 +874,7 @@ simply add the following to the top of your @file{.emacs} file: @end example -See the sample @file{.emacs} file @ref{Sample .emacs File} for +See the sample @file{.emacs} file @ref{Sample Init File} for details. @end quotation @@ -894,9 +894,9 @@ either of these lists. The official Emacs VHDL Mode Home Page can be found at @uref{http://www.iis.ee.ethz.ch/~zimmi/emacs/vhdl-mode.html}. -@node Sample .emacs File -@chapter Sample @file{.emacs} file -@cindex Sample @file{.emacs} file +@node Sample Init File +@chapter Sample Init File +@cindex Sample init file Most customizations can be done using the ``Customize'' entry in the VHDL Mode menu, which requires no editing of the .emacs file. commit 906c810158def49133d5433e6cbae05ce3edb7e6 Author: Glenn Morris Date: Tue May 24 13:00:57 2016 -0400 ; * admin/release-process: Move etc/HISTORY from here... ; * admin/make-tarball.txt: ... to here. diff --git a/admin/make-tarball.txt b/admin/make-tarball.txt index 030ad4c..af18ff6 100644 --- a/admin/make-tarball.txt +++ b/admin/make-tarball.txt @@ -51,24 +51,23 @@ General steps (for each step, check for possible errors): Commit any fixes to authors.el. 3. Set the version number (M-x load-file RET admin/admin.el RET, then - M-x set-version RET). For a release, add released ChangeLog - entries (create a ChangeLog symlink a la vc-dwim, then run M-x - add-release-logs RET, then run the shell command 'vc-dwim --commit'). - - For a pretest, start at version .90. After .99, use .990 (so that - it sorts). + M-x set-version RET). For a pretest, start at version .90. After + .99, use .990 (so that it sorts). The final pretest should be a release candidate. Set the version number to that of the actual release. Pick a date about a week - from now when you intend to make the release. Use vc-dwim and - M-x add-release-logs as described above to add commit messages - that will appear in the tarball's automatically-generated ChangeLog - file as entries for that date. + from now when you intend to make the release. Use M-x + add-release-logs to add entries to etc/HISTORY and the ChangeLog + file. It's best not to commit these files until the release is + actually made. Merge the entries from (unversioned) ChangeLog + into the top of the current versioned ChangeLog.N and commit that + along with etc/HISTORY. Then you can tag that commit as the + release. Name the tar file as emacs-XX.Y-rc1.tar. If all goes well in the following week, you can simply rename the file and use it for the actual release. If you need another release candidate, remember - to adjust the ChangeLog entries. + to adjust the ChangeLog and etc/HISTORY entries. If you need to change only a file(s) that cannot possibly affect the build (README, ChangeLog, NEWS, etc.) then rather than doing diff --git a/admin/release-process b/admin/release-process index 410116b..e4ef4d9 100644 --- a/admin/release-process +++ b/admin/release-process @@ -83,8 +83,6 @@ documentation (or decide no updates are necessary) for those that aren't. ** cusver-check from admin.el can help find new defcustoms missing :version tags. -** Add a line to etc/HISTORY for the release version number and date. - ** Manuals Check for node names using problematic characters: find doc -name '*.texi' -exec grep '^@node[^,]*[:.()]' {} + commit bea1b65b3c71668e3e990721e39bba8b5007e9c6 Author: Glenn Morris Date: Tue May 24 12:51:00 2016 -0400 * admin/admin.el (add-release-logs): Also update etc/HISTORY. diff --git a/admin/admin.el b/admin/admin.el index fe807ff..a3d5627 100644 --- a/admin/admin.el +++ b/admin/admin.el @@ -30,6 +30,7 @@ (defun add-release-logs (root version &optional date) "Add \"Version VERSION released.\" change log entries in ROOT. +Also update the etc/HISTORY file. Root must be the root of an Emacs source tree. Optional argument DATE is the release date, default today." (interactive (list (read-directory-name "Emacs root directory: ") @@ -42,6 +43,12 @@ Optional argument DATE is the release date, default today." (setq root (expand-file-name root)) (unless (file-exists-p (expand-file-name "src/emacs.c" root)) (user-error "%s doesn't seem to be the root of an Emacs source tree" root)) + ;; FIXME this does not check that a ChangeLog that exists is not + ;; your own personal one. Perhaps we should move any existing file + ;; and unconditionally call make ChangeLog? + ;; Or make ChangeLog CHANGELOG=temp and compare with the existing? + (unless (file-exists-p (expand-file-name "ChangeLog" root)) + (user-error "No top-level ChangeLog - run \"make ChangeLog\" first")) (require 'add-log) (or date (setq date (funcall add-log-time-format nil t))) (let* ((logs (process-lines "find" root "-name" "ChangeLog")) @@ -53,7 +60,14 @@ Optional argument DATE is the release date, default today." (dolist (log logs) (find-file log) (goto-char (point-min)) - (insert entry)))) + (insert entry))) + (let ((histfile (expand-file-name "etc/HISTORY" root))) + (unless (file-exists-p histfile) + (error "%s not present" histfile)) + (find-file histfile) + (goto-char (point-max)) + (search-backward " ") + (insert (format "GNU Emacs %s (%s) emacs-%s\n\n" version date version)))) (defun set-version-in-file (root file version rx) "Subroutine of `set-version' and `set-copyright'." commit 503e752c4a4ec4dc05c112ae82753b85594c99be Author: Eli Zaretskii Date: Tue May 24 19:06:20 2016 +0300 ; * CONTRIBUTE: Fix a typo. diff --git a/CONTRIBUTE b/CONTRIBUTE index 5102b4f..a70682f 100644 --- a/CONTRIBUTE +++ b/CONTRIBUTE @@ -183,7 +183,7 @@ intended for more-conservative changes such as bug fixes. Typically, collective development is active on the master branch and possibly on the current release branch. Periodically, the current release branch is merged into the master, using the gitmerge function described in -admin/notes-git-workflow. +admin/notes/git-workflow. If you are fixing a bug that exists in the current release, be sure to commit it to the release branch; it will be merged to the master commit fbfd4787fbec11fe69f5e661e7c5ab4436f7cb72 Author: Eli Zaretskii Date: Tue May 24 19:04:16 2016 +0300 Avoid aborting due to errors in arguments of 'set-face-attribute' * src/xfaces.c (Finternal_set_lisp_face_attribute): Check the FRAME argument before using it. This avoids gratuitous aborts in Emacs built with --enable-checking when the luser was unlucky enough to get the argument list in wrong order. diff --git a/src/xfaces.c b/src/xfaces.c index ac13700..88f5f34 100644 --- a/src/xfaces.c +++ b/src/xfaces.c @@ -2678,9 +2678,10 @@ FRAME 0 means change the face on all frames, and change the default { if (NILP (frame)) frame = selected_frame; - f = XFRAME (frame); CHECK_LIVE_FRAME (frame); + f = XFRAME (frame); + lface = lface_from_face_name (f, face, false); /* If a frame-local face doesn't exist yet, create one. */ commit bdfbe6deff52bbf820b0fa1a5ea78b89963e5738 Author: Glenn Morris Date: Tue May 24 08:59:09 2016 -0700 ; * admin/release-process: Copyedits. diff --git a/admin/release-process b/admin/release-process index 3f75ff5..410116b 100644 --- a/admin/release-process +++ b/admin/release-process @@ -7,7 +7,7 @@ Each release cycle will be split into two periods. ** Phase one: development The first phase of the release schedule is the "heads-down" working -period for new features, on the 'master' branch and several feature +period for new features, on the 'master' branch and any needed feature branches. ** Phase two: fixing and stabilizing the release branch @@ -29,46 +29,61 @@ command to do that, then commit the changes it made and push to 'master'. For major releases, also update the value of 'customize-changed-options-previous-release'. -The 2 main manuals, the User Manual and the Emacs Lisp Manual, need to -be proofread, preferably by at least 2 different persons, and any -uncovered problems fixed. This is a lot of work, so it is advisable -to divide the job between several people (see the checklist near the -end of this file). +Each chapter of the two main manuals, the User Manual and the Emacs +Lisp Manual, should be proofread, preferably by at least two people. +This job is so big that it should be considered a collective +responsibility, not fobbed off on just a few people. After each +chapter is checked, mark off the name(s) of those who checked it in +the checklist near the end of this file. In parallel to this phase, 'master' can receive new features, to be released in the next release cycle. From time to time, the master branches merges bugfix commits from the "emacs-NN" branch. +See admin/gitmerge.el. * RELEASE-CRITICAL BUGS -Emacs uses the "blocking bug(s)" feature of Debbugs for bugs need to -be addressed in the next release. +Emacs uses the "blocking" feature of Debbugs for bugs that need to be +addressed in the next release. -Currently, bug#19759 is the tracking bug for release of 25.1. Say -bug#123 needs to be fixed for Emacs 25.1. Send a message to -control@debbugs.gnu.org that says: +Currently, bug#19759 is the tracking bug for release of 25.1 and +bug#21966 is the tracking bug for the next release. Say bug#123 needs +to be fixed for Emacs 25.1. Send a message to control@debbugs.gnu.org +that says: block 19759 by 123 -Change "block" to "unblock" to unblock the bug. +Change "block" to "unblock" to remove a bug from the list. Closed +bugs are not listed as blockers, so you do not need to explicitly +unblock one that has been closed. You may need to force an update of +the tracking bug with ctrl-f5/shift-reload to see the latest version. + * TO BE DONE SHORTLY BEFORE RELEASE -** Make sure the Copyright date reflects the current year in the source -files. See 'admin/notes/years' for information about maintaining -copyright years for GNU Emacs. +See 'admin/make-tarball.txt' for the details of making a release or pretest. + +** Make sure the Copyright date reflects the current year in all source files. +(This should be done each January anyway, regardless of releases.) +See admin/update-copyright and admin.el's set-copyright. +For more details, see 'admin/notes/years'. ** Make sure the necessary sources and scripts for any generated files are included in the source tarball. (They don't need to be installed, -so e.g. admin/ is fine.) - -** Regenerate AUTHORS by using admin/authors.el -(The instructions are at the beginning of that file.) +so e.g. admin/ is fine.) This is important for legal compliance. ** Remove temporary +++/--- lines in NEWS. But first make sure there are no unmarked entries, and update the -documentation (or decide no updates are necessary) for those that -aren't. +documentation (or decide no updates are necessary) for those that aren't. + +** Try to reorder NEWS: most important things first, related items together. + +** For a major release, add a "New in Emacs XX" section to faq.texi. + +** cusver-check from admin.el can help find new defcustoms missing +:version tags. + +** Add a line to etc/HISTORY for the release version number and date. ** Manuals Check for node names using problematic characters: @@ -84,8 +99,7 @@ For major releases, rewrite the "Antinews" appendix of the User Manual previous version. The way to do that is read NEWS, pick up the more significant changes and new features in the upcoming release, then describe the "benefits" from losing those features. Be funny, use -humor. The text written for the previous major release can serve as -good example. +humor. The text written for the previous releases can serve as an example. Check cross-references between the manuals (e.g. from emacs to elisp) are correct. You can use something like the following in the info @@ -146,10 +160,6 @@ size that the GNU Press are going to use when they print the manuals. I think this is different to what you get if you just use e.g. 'make emacs.pdf' (e.g., enable "smallbook"). -** Try to reorder NEWS: most important things first, related items together. - -** For a major release, add a "New in Emacs XX" section to faq.texi. - ** Check the keybindings in the refcards are correct, and add any new ones. What paper size are the English versions supposed to be on? On Debian testing, the packages texlive-lang-czechslovak and @@ -171,11 +181,6 @@ pt-br Rodrigo Real ru Alex Ott sk Miroslav Vaško -** cusver-check from admin.el can help find new defcustoms missing -:version tags. - -** Add a line to etc/HISTORY for the release version number and date. - * BUGS ** Check for modes which bind M-s that conflicts with a new global binding M-s commit 44a6aed33fdde11d4a0a2eb4aa5e91b6b5a23347 Author: Phillip Lord Date: Mon May 23 16:59:24 2016 +0100 ; * test/automated/data-tests.el: Standardize license notice. diff --git a/test/automated/data-tests.el b/test/automated/data-tests.el index 9ca5ac5..0a29233 100644 --- a/test/automated/data-tests.el +++ b/test/automated/data-tests.el @@ -4,18 +4,18 @@ ;; This file is part of GNU Emacs. -;; This program 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. -;; -;; This program 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. -;; +;; 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 this program. If not, see `http://www.gnu.org/licenses/'. +;; along with GNU Emacs. If not, see . ;;; Commentary: commit c33ed39efc2d99e4289bf40f4686f5ac5efedce0 Author: Glenn Morris Date: Mon May 23 08:43:26 2016 -0700 ; * test/automated/viper-tests.el: Standardize license notice. diff --git a/test/automated/viper-tests.el b/test/automated/viper-tests.el index 1be92a4..8b30f05 100644 --- a/test/automated/viper-tests.el +++ b/test/automated/viper-tests.el @@ -4,18 +4,18 @@ ;; This file is part of GNU Emacs. -;; This program 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. -;; -;; This program 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. -;; +;; 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 this program. If not, see `http://www.gnu.org/licenses/'. +;; along with GNU Emacs. If not, see . ;;; Commentary: commit df4a14be69bdf878df391fe78d2a3d25bd7fd139 Author: Phillip Lord Date: Mon May 23 10:39:26 2016 +0100 Add automated test for viper-tests.el diff --git a/test/automated/viper-tests.el b/test/automated/viper-tests.el new file mode 100644 index 0000000..1be92a4 --- /dev/null +++ b/test/automated/viper-tests.el @@ -0,0 +1,160 @@ +;;; viper-tests.el --- tests for viper. + +;; Copyright (C) 2016 Free Software Foundation, Inc. + +;; This file is part of GNU Emacs. + +;; This program 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. +;; +;; This program 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 this program. If not, see `http://www.gnu.org/licenses/'. + +;;; Commentary: + +;;; Code: + + +(require 'viper) + +(defun viper-test-undo-kmacro (kmacro) + "In a clean viper buffer, run KMACRO and return `buffer-string'. + +This function makes as many attempts as possible to clean up +after itself, although it will leave a buffer called +*viper-test-buffer* if it fails (this is deliberate!)." + (let ( + ;; Viper just turns itself off during batch use. + (noninteractive nil) + ;; Switch off start up message or it will chew the key presses + (viper-inhibit-startup-message 't) + ;; Select an expert-level for the same reason. + (viper-expert-level 5) + ;; viper loads this even with -q so make sure it's empty! + (viper-custom-file-name (make-temp-file "viper-tests")) + (before-buffer (current-buffer))) + (unwind-protect + (progn + ;; viper-mode is essentially global, so set it here + (viper-mode) + ;; We must switch to buffer because we are using a keyboard macro + ;; which appears to not go to the current-buffer but what ever is + ;; currently taking keyboard events. We use a named buffer because + ;; then we can see what it in it if it all goes wrong. + (switch-to-buffer + (get-buffer-create + "*viper-test-buffer*")) + (erase-buffer) + ;; The new buffer fails to enter vi state so set it. + (viper-change-state-to-vi) + ;; Run the macro + (execute-kbd-macro kmacro) + (let ((rtn + (buffer-substring-no-properties + (point-min) + (point-max)))) + ;; Kill the buffer iff the macro succeeds + (kill-buffer) + rtn)) + ;; switch everthing off and restore the buffer + (toggle-viper-mode) + (switch-to-buffer before-buffer)))) + +(ert-deftest viper-test-go () + "Test that this file is running." + (should t)) + +(ert-deftest viper-test-fix () + "Test that the viper kmacro fixture is working." + (should + (viper-test-undo-kmacro []))) + +(ert-deftest viper-test-undo-1 () + "Test for VI like undo behaviour. + +Insert 1, then 2 on consecutive lines, followed by undo. This +should leave just 1 in the buffer. + +Test for Bug #22295" + (should + (equal + "1\n" + (viper-test-undo-kmacro + [ + ?a + ?1 + escape + ?o + ?2 + escape + ?u + ] + )))) + +(ert-deftest viper-test-undo-2 () + "Test for VI like undo behaviour. + +Insert \"1 2 3 4 5\" then delete the 2, then the 4, and undo. +Should restore the 4, but leave the 2 deleted. + +Test for Bug #22295" + (should + (equal + "1 3 4 5\n" + (viper-test-undo-kmacro + [ + ?i + ?1 ? ?2 ? ?3 ? ?4 ? ?5 + escape + ?F ?2 ?d ?w + ?w ?d ?w + ?u + ])))) + +(ert-deftest viper-test-undo-3 () + "Test for VI like undo behaviour. + +Insert \"1 2 3 4 5 6\", delete the 2, then the 3 4 and 5. +Should restore the 3 4 and 5 but not the 2. + +Test for Bug #22295" + (should + (equal + "1 3 4 5 6\n" + (viper-test-undo-kmacro + [ + ;; Insert this lot. + ?i ?1 ? ?2 ? ?3 ? ?4 ? ?5 ? ?6 + escape + ;; Start of line. + ?0 + ;; Move to 2, delete + ?w ?d ?w + ;; Delete 3 4 5 + ?. ?. ?. + ;; Undo del 5, then + ?u ?. ?. + ])))) + + +(ert-deftest viper-test-undo-4() + (should + (equal + "" + (viper-test-undo-kmacro + [ + ?i ?1 escape + ?o ?2 escape + ?o ?3 escape + ?u ?. ?. + ]) + ))) + +;;; viper-tests.el ends here commit c0139e32f1f3bb287b04e02a69a7848d6a040003 Author: Phillip Lord Date: Sat May 21 10:06:12 2016 +0100 Fix viper undo breakage from undo-boundary changes * lisp/simple.el (undo-auto-disable-boundaries): New variable * lisp/emulation/viper-init.el (viper-undo-in-complex-command, viper-undo-needs-adjustment): Rename variable to reflect new purpose, (viper-buffer-undo-list-mark): Remove * lisp/emulation/viper-cmd.el (viper-set-complex-command-for-undo): Add undo using `undo-boundary', disable default undo-boundary addition. * lisp/emulation/viper-cmd.el (viper-complete-complex-command-for-undo,viper-adjust-undo): Change function name, remove old undo list manipulation. * lisp/emulation/viper-cmd.el (viper-undo,viper-repeat, viper-change-state-to-vi,viper-change-state): Update for function name change. Addresses Bug #22295 diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el index 93cf3b0..6b8fa46 100644 --- a/lisp/emulation/viper-cmd.el +++ b/lisp/emulation/viper-cmd.el @@ -631,7 +631,7 @@ (viper-over-whitespace-line)) (indent-to-left-margin)) (viper-add-newline-at-eob-if-necessary) - (viper-adjust-undo) + (viper-complete-complex-command-for-undo) (if (eq viper-current-state 'emacs-state) (viper-restore-cursor-color 'after-emacs-mode) @@ -1570,7 +1570,7 @@ If the prefix argument ARG is non-nil, it is used instead of `val'." (if (and (eolp) (not (bolp))) (backward-char 1)) )) - (viper-adjust-undo) ; take care of undo + (viper-complete-complex-command-for-undo) ; take care of undo ;; If the prev cmd was rotating the command ring, this means that `.' has ;; just executed a command from that ring. So, push it on the ring again. ;; If we are just executing previous command , then don't push viper-d-com @@ -1671,6 +1671,7 @@ invokes the command before that, etc." (undo-start) (undo-more 2) + (viper-complete-complex-command-for-undo) ;;(setq undo-beg-posn (or undo-beg-posn (point)) ;; undo-end-posn (or undo-end-posn (point))) ;;(setq undo-beg-posn (or undo-beg-posn before-undo-pt) @@ -1710,37 +1711,17 @@ invokes the command before that, etc." ;; The following two functions are used to set up undo properly. ;; In VI, unlike Emacs, if you open a line, say, and add a bunch of lines, ;; they are undone all at once. -(defun viper-adjust-undo () - (if viper-undo-needs-adjustment - (let ((inhibit-quit t) - tmp tmp2) - (setq viper-undo-needs-adjustment nil) - (if (listp buffer-undo-list) - (if (setq tmp (memq viper-buffer-undo-list-mark buffer-undo-list)) - (progn - (setq tmp2 (cdr tmp)) ; the part after mark - - ;; cut tail from buffer-undo-list temporarily by direct - ;; manipulation with pointers in buffer-undo-list - (setcdr tmp nil) - - (setq buffer-undo-list (delq nil buffer-undo-list)) - (setq buffer-undo-list - (delq viper-buffer-undo-list-mark buffer-undo-list)) - ;; restore tail of buffer-undo-list - (setq buffer-undo-list (nconc buffer-undo-list tmp2))) - (setq buffer-undo-list (delq nil buffer-undo-list))))) - )) +(defun viper-complete-complex-command-for-undo () + (setq undo-auto-disable-boundaries nil) + (setq viper-undo-in-complex-command nil) + (undo-boundary)) (defun viper-set-complex-command-for-undo () - (if (listp buffer-undo-list) - (if (not viper-undo-needs-adjustment) - (let ((inhibit-quit t)) - (setq buffer-undo-list - (cons viper-buffer-undo-list-mark buffer-undo-list)) - (setq viper-undo-needs-adjustment t))))) - + (when (not viper-undo-in-complex-command) + (setq undo-auto-disable-boundaries t) + (setq viper-undo-in-complex-command t) + (undo-boundary))) ;;; Viper's destructive Command ring utilities @@ -2604,7 +2585,7 @@ These keys are ESC, RET, and LineFeed." (delete-char 1 t) (insert char)) - (viper-adjust-undo) + (viper-complete-complex-command-for-undo) (backward-char arg) )) diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el index 104245b..c1e7662 100644 --- a/lisp/emulation/viper-init.el +++ b/lisp/emulation/viper-init.el @@ -370,13 +370,8 @@ Use `\\[viper-set-expert-level]' to change this.") ;; VI-style Undo ;; Used to 'undo' complex commands, such as replace and insert commands. -(viper-deflocalvar viper-undo-needs-adjustment nil) -(put 'viper-undo-needs-adjustment 'permanent-local t) - -;; A mark that Viper puts on buffer-undo-list. Marks the beginning of a -;; complex command that must be undone atomically. If inserted, it is -;; erased by viper-change-state-to-vi and viper-repeat. -(defconst viper-buffer-undo-list-mark 'viper) +(viper-deflocalvar viper-undo-in-complex-command nil) +(put 'viper-undo-in-complex-command 'permanent-local t) (defcustom viper-keep-point-on-undo nil "Non-nil means not to move point while undoing commands. diff --git a/lisp/simple.el b/lisp/simple.el index 97b40bd..c5aa292 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2839,6 +2839,18 @@ buffers that were changed during the last command.") If set to non-nil, this will effectively disable the timer.") +(defvar-local undo-auto-disable-boundaries nil + "Disable the automatic addition of boundaries. + +If set to non-nil, `undo-boundary' will not be called +automatically in a buffer either at the end of a command, or as a +result of `undo-auto-current-boundary-timer'. + +When this is set to non-nil, it is important to ensure that +`undo-boundary' is called frequently enough. Failure to do so +will result in user-visible warnings that the situation is +probably a bug.") + (defvar undo-auto--this-command-amalgamating nil "Non-nil if `this-command' should be amalgamated. This variable is set to nil by `undo-auto--boundaries' and is set @@ -2878,7 +2890,8 @@ REASON describes the reason that the boundary is being added; see (dolist (b undo-auto--undoably-changed-buffers) (when (buffer-live-p b) (with-current-buffer b - (undo-auto--ensure-boundary cause)))) + (unless undo-auto-disable-boundaries + (undo-auto--ensure-boundary cause))))) (setq undo-auto--undoably-changed-buffers nil)) (defun undo-auto--boundary-timer () @@ -2905,10 +2918,10 @@ See also `undo-auto--buffer-undoably-changed'.") "Add an `undo-boundary' in appropriate buffers." (undo-auto--boundaries (let ((amal undo-auto--this-command-amalgamating)) - (setq undo-auto--this-command-amalgamating nil) - (if amal - 'amalgamate - 'command)))) + (setq undo-auto--this-command-amalgamating nil) + (if amal + 'amalgamate + 'command)))) (defun undo-auto-amalgamate () "Amalgamate undo if necessary. commit 920d76c2084f0621dec8664840dd3fb2e9b34891 Author: Kaushal Modi Date: Sun May 22 17:48:33 2016 -0700 Fix reference to obsolete fn ps-eval-switch lpr-eval-switch is functionally the same as ps-eval-switch, which was obsoleted in 2cdeb903c57126d3ad5f0cbd72e182584b76ee29. So use that instead (Bug#19717). * lisp/printing.el (pr-switches): Use lpr-eval-switch instead of ps-eval-switch. diff --git a/lisp/printing.el b/lisp/printing.el index 3bd5a67..d9cc2a3 100644 --- a/lisp/printing.el +++ b/lisp/printing.el @@ -5673,7 +5673,7 @@ If menu binding was not done, calls `pr-menu-bind'." (or (listp switches) (error "%S should have a list of strings" mess)) (lpr-flatten-list ; dynamic evaluation - (mapcar 'ps-eval-switch switches))) + (mapcar #'lpr-eval-switch switches))) (defun pr-ps-preview (kind n-up filename mess) commit 18a9bc1152452fecfa09e6f2f3a5d6677a564977 Author: Paul Eggert Date: Sun May 22 17:29:58 2016 -0700 Do not trash symlinks to init file If the user’s init file is a symbolic link, do not break the link when initializing the package system. Problem reported by Jackson Hamilton (Bug#23050). * lisp/emacs-lisp/package.el (package--ensure-init-file): Bind find-file-visit-truename when visiting the init file, and save and restore the buffer name the way cus-edit does in a similar situation (Bug#454). diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index b0a6db0..14626e2 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -1869,6 +1869,7 @@ add a call to it along with some explanatory comments." (file-readable-p user-init-file) (file-writable-p user-init-file)) (let* ((buffer (find-buffer-visiting user-init-file)) + buffer-name (contains-init (if buffer (with-current-buffer buffer @@ -1884,8 +1885,12 @@ add a call to it along with some explanatory comments." (re-search-forward "(package-initialize\\_>" nil 'noerror))))) (unless contains-init (with-current-buffer (or buffer - (let ((delay-mode-hooks t)) + (let ((delay-mode-hooks t) + (find-file-visit-truename t)) (find-file-noselect user-init-file))) + (when buffer + (setq buffer-name (buffer-file-name)) + (set-visited-file-name (file-chase-links user-init-file))) (save-excursion (save-restriction (widen) @@ -1904,7 +1909,10 @@ add a call to it along with some explanatory comments." (insert "\n")) (let ((file-precious-flag t)) (save-buffer)) - (unless buffer + (if buffer + (progn + (set-visited-file-name buffer-name) + (set-buffer-modified-p nil)) (kill-buffer (current-buffer))))))))) (setq package--init-file-ensured t)) commit 2671179b11a9423792aaf2439a26a2562679c086 Author: Alan Mackenzie Date: Sun May 22 21:02:34 2016 +0000 Don't print the "decomposition" line for control chars in what-cursor-position This is a temporary workaround for bug #23594, where the decomposition line for linefeed corrupted the display on a Linux virtual terminal. * lisp/descr-text.el (describe-char): Remove `decomposition' from the list of character code properties printed for control characters. diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 5f1a430..5288208 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -806,9 +806,16 @@ relevant to POS." 'describe-char-unidata-list)) 'follow-link t) (insert "\n") - (dolist (elt (if (eq describe-char-unidata-list t) - (nreverse (mapcar 'car char-code-property-alist)) - describe-char-unidata-list)) + (dolist (elt + (cond ((eq describe-char-unidata-list t) + (nreverse (mapcar 'car char-code-property-alist))) + ((< char 32) + ;; Temporary fix (2016-05-22): The + ;; decomposition item for \n corrupts the + ;; display on a Linux virtual terminal. + ;; (Bug #23594). + (remq 'decomposition describe-char-unidata-list)) + (t describe-char-unidata-list))) (let ((val (get-char-code-property char elt)) description) (when val commit 869092c9ed373e97f92c7f7518396e3fbdb24dd8 Author: Paul Eggert Date: Sun May 22 13:38:53 2016 -0700 Bring back xterm pasting with middle mouse Problem reported by Jan Synáček. Solution suggested by Stefan Monnier (Bug#23519). * lisp/isearch.el (isearch-mode-map): Add a binding for xterm-paste. (xterm--pasted-text): New decl. (isearch-xterm-paste): New function. * lisp/term/xterm.el (xterm--pasted-text): New function, taken from xterm-paste internals. (xterm-paste): Use it. diff --git a/lisp/isearch.el b/lisp/isearch.el index e4de0b6..7360a0b 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -510,6 +510,7 @@ This is like `describe-bindings', but displays only Isearch keys." ;; People expect to be able to paste with the mouse. (define-key map [mouse-2] #'isearch-mouse-2) (define-key map [down-mouse-2] nil) + (define-key map [xterm-paste] #'isearch-xterm-paste) ;; Some bindings you may want to put in your isearch-mode-hook. ;; Suggest some alternates... @@ -2001,6 +2002,13 @@ is bound to outside of Isearch." (when (functionp binding) (call-interactively binding))))) +(declare-function xterm--pasted-text "term/xterm" ()) + +(defun isearch-xterm-paste () + "Pull terminal paste into search string." + (interactive) + (isearch-yank-string (xterm--pasted-text))) + (defun isearch-yank-internal (jumpform) "Pull the text from point to the point reached by JUMPFORM. JUMPFORM is a lambda expression that takes no arguments and returns diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index e06423c..19eb37a 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -71,28 +71,29 @@ string bytes that can be copied is 3/4 of this value." (defconst xterm-paste-ending-sequence "\e[201~" "Characters send by the terminal to end a bracketed paste.") +(defun xterm--pasted-text () + "Handle the rest of a terminal paste operation. +Return the pasted text as a string." + (let ((end-marker-length (length xterm-paste-ending-sequence))) + (with-temp-buffer + (set-buffer-multibyte nil) + (while (not (search-backward xterm-paste-ending-sequence + (- (point) end-marker-length) t)) + (let ((event (read-event nil nil + ;; Use finite timeout to avoid glomming the + ;; event onto this-command-keys. + most-positive-fixnum))) + (when (eql event ?\r) + (setf event ?\n)) + (insert event))) + (let ((last-coding-system-used)) + (decode-coding-region (point-min) (point) (keyboard-coding-system) + t))))) + (defun xterm-paste () "Handle the start of a terminal paste operation." (interactive) - (let* ((end-marker-length (length xterm-paste-ending-sequence)) - (pasted-text (with-temp-buffer - (set-buffer-multibyte nil) - (while (not (search-backward - xterm-paste-ending-sequence - (- (point) end-marker-length) t)) - (let ((event (read-event - nil nil - ;; Use finite timeout to avoid - ;; glomming the event onto - ;; this-command-keys. - most-positive-fixnum))) - (when (eql event ?\r) - (setf event ?\n)) - (insert event))) - (let ((last-coding-system-used)) - (decode-coding-region - (point-min) (point) - (keyboard-coding-system) t)))) + (let* ((pasted-text (xterm--pasted-text)) (interprogram-paste-function (lambda () pasted-text))) (yank))) commit 5ab083034ca221a7b4f00156a0efece84da999d8 Author: Eli Zaretskii Date: Sun May 22 19:20:28 2016 +0300 Provide workaround for xftfont rendering problem * src/xftfont.c (syms_of_xftfont) : New variable. (xftfont_open): Use it to work around problems with rendering some fonts. (Bug#23360) diff --git a/src/xftfont.c b/src/xftfont.c index 7926325..34c6f7d 100644 --- a/src/xftfont.c +++ b/src/xftfont.c @@ -395,6 +395,24 @@ xftfont_open (struct frame *f, Lisp_Object entity, int pixel_size) font->ascent = xftfont->ascent; font->descent = xftfont->descent; + /* The following workaround is unnecessary on most systems, and + causes annoying differences in glyph height between regular and + bold fonts (see bug#22383). However, with some fonts, such as + monaco, removing the workaround results in overlapping vertical + space of a line, see bug#23360. As long as the way to reconcile + these opposites is not known, we provide a user option to work + around the problem. */ + if (pixel_size >= 5 + && xft_font_ascent_descent_override) + { + /* The above condition is a dirty workaround because + XftTextExtents8 behaves strangely for some fonts + (e.g. "Dejavu Sans Mono") when pixel_size is less than 5. */ + if (font->ascent < extents.y) + font->ascent = extents.y; + if (font->descent < extents.height - extents.y) + font->descent = extents.height - extents.y; + } font->height = font->ascent + font->descent; if (XINT (AREF (entity, FONT_SIZE_INDEX)) == 0) @@ -733,6 +751,12 @@ syms_of_xftfont (void) DEFSYM (QCembolden, ":embolden"); DEFSYM (QClcdfilter, ":lcdfilter"); + DEFVAR_BOOL ("xft-font-ascent-descent-override", + xft_font_ascent_descent_override, + doc: /* Non-nil means override the ascent and descent values for Xft font driver. +This is needed with some fonts to correct vertical overlap of glyphs. */); + xft_font_ascent_descent_override = 0; + ascii_printable[0] = 0; xftfont_driver = ftfont_driver; commit c9f7ec736b78bef5359b6da03296277c535e8e89 Author: Jun Hao Date: Sat May 21 12:34:20 2016 -0700 * lisp/desktop.el: Disable restore frameset if in non-graphic display. Fixes: debbugs:17693 diff --git a/lisp/desktop.el b/lisp/desktop.el index 822db05..dba3277 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -1163,7 +1163,7 @@ This function also sets `desktop-dirname' to nil." "Restore the state of a set of frames. This function depends on the value of `desktop-saved-frameset' being set (usually, by reading it from the desktop)." - (when (desktop-restoring-frameset-p) + (when (and (display-graphic-p) (desktop-restoring-frameset-p)) (frameset-restore desktop-saved-frameset :reuse-frames (eq desktop-restore-reuses-frames t) :cleanup-frames (not (eq desktop-restore-reuses-frames 'keep)) @@ -1634,15 +1634,8 @@ If there are no buffers left to create, kill the timer." (setq command-line-args (delete key command-line-args)) (desktop-save-mode 0))) (when desktop-save-mode - ;; People don't expect emacs -nw, or --daemon, - ;; to create graphical frames (bug#17693). - ;; TODO perhaps there should be a separate value - ;; for desktop-restore-frames to control this startup behavior? - (let ((desktop-restore-frames (and desktop-restore-frames - initial-window-system - (not (daemonp))))) - (desktop-read) - (setq inhibit-startup-screen t))))) + (desktop-read) + (setq inhibit-startup-screen t)))) (provide 'desktop) commit 30989a0ae1923b4466cf4902a5ac009fc1d2fdad Author: Eli Zaretskii Date: Sat May 21 10:19:32 2016 +0300 Mention GTK+ problems in etc/PROBLEMS * etc/PROBLEMS (GDK_SCALE, GDK_DPI_SCALE): Mention the possible problems this could create and the workaround. (Bug#23587) diff --git a/etc/PROBLEMS b/etc/PROBLEMS index 8733095..31f38e3 100644 --- a/etc/PROBLEMS +++ b/etc/PROBLEMS @@ -940,6 +940,21 @@ into Meta. This is because of the great importance of Meta in Emacs. ** Window-manager and toolkit-related problems +*** Emacs built with GTK+ toolkit produces corrupted display on HiDPI screen + +This can happen if you set GDK_SCALE=2 in the environment or in your +'.xinitrc' file. (This setting is usually accompanied by +GDK_DPI_SCALE=0.5.) Emacs can not support these settings correctly, +as it doesn't use GTK+ exclusively. The result is that sometimes +widgets like the scroll bar are displayed incorrectly, and frames +could be displayed "cropped" to only part of the stuff that should be +displayed. + +The workaround is to explicitly disable these settings when invoking +Emacs, for example (from a Posix shell prompt): + + $ GDK_SCALE=1 GDK_DPI_SCALE=1 emacs + *** Metacity: Resizing Emacs or ALT-Tab causes X to be unresponsive. This happens sometimes when using Metacity. Resizing Emacs or ALT-Tab:bing commit 421e3c4b2f14cfdf84a07095be1cbc76c9038da0 Author: Artur Malabarba Date: Wed May 18 16:31:07 2016 -0300 * lisp/emacs-lisp/package.el (package-refresh-contents): Don't change the value of `package-check-signature'. (package-check-signature): Use `epg-find-configuration' instead of `executable-find'. diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 8f309cb..b0a6db0 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -301,10 +301,12 @@ contrast, `package-user-dir' contains packages for personal use." :risky t :version "24.1") -(defvar epg-gpg-program) +(declare-function epg-find-configuration "epg-config" + (protocol &optional force)) (defcustom package-check-signature - (if (progn (require 'epg-config) (executable-find epg-gpg-program)) + (if (and (require 'epg-config) + (epg-find-configuration 'OpenPGP)) 'allow-unsigned) "Non-nil means to check package signatures when installing. The value `allow-unsigned' means to still install a package even if @@ -1461,8 +1463,6 @@ taken care of by `package-initialize'." (defvar package--downloads-in-progress nil "List of in-progress asynchronous downloads.") -(declare-function epg-find-configuration "epg-config" - (protocol &optional force)) (declare-function epg-import-keys-from-file "epg" (context keys)) ;;;###autoload @@ -1562,12 +1562,6 @@ downloads in the background." (let ((default-keyring (expand-file-name "package-keyring.gpg" data-directory)) (inhibit-message async)) - (if (get 'package-check-signature 'saved-value) - (when package-check-signature - (epg-find-configuration 'OpenPGP)) - (setq package-check-signature - (if (epg-find-configuration 'OpenPGP) - 'allow-unsigned))) (when (and package-check-signature (file-exists-p default-keyring)) (condition-case-unless-debug error (package-import-keyring default-keyring) commit dadfc30dae9529282a05720155d4aa1c5bd749b1 Author: Daiki Ueno Date: Fri May 20 19:34:06 2016 +0900 Revert "epg: Add a way to detect gpg1 executable for tests" This reverts commit d4ae6d7033b34e8b75c59aaf1584131e439ef2d5. diff --git a/lisp/epg-config.el b/lisp/epg-config.el index 9179e04..8a20804 100644 --- a/lisp/epg-config.el +++ b/lisp/epg-config.el @@ -81,69 +81,57 @@ Note that the buffer name starts with a space." (defconst epg-config--program-alist '((OpenPGP epg-gpg-program + epg-config--make-gpg-configuration ("gpg2" . "2.1.6") ("gpg" . "1.4.3")) (CMS epg-gpgsm-program + epg-config--make-gpgsm-configuration ("gpgsm" . "2.0.4"))) "Alist used to obtain the usable configuration of executables. The first element of each entry is protocol symbol, which is either `OpenPGP' or `CMS'. The second element is a symbol where -the executable name is remembered. The rest of the entry is an -alist mapping executable names to the minimum required version -suitable for the use with Emacs.") - -(defconst epg-config--configuration-constructor-alist - '((OpenPGP . epg-config--make-gpg-configuration) - (CMS . epg-config--make-gpgsm-configuration)) - "Alist used to obtain the usable configuration of executables. -The first element of each entry is protocol symbol, which is -either `OpenPGP' or `CMS'. The second element is a function -which constructs a configuration object (actually a plist).") +the executable name is remembered. The third element is a +function which constructs a configuration object (actually a +plist). The rest of the entry is an alist mapping executable +names to the minimum required version suitable for the use with +Emacs.") (defvar epg--configurations nil) ;;;###autoload -(defun epg-find-configuration (protocol &optional no-cache program-alist) +(defun epg-find-configuration (protocol &optional force) "Find or create a usable configuration to handle PROTOCOL. This function first looks at the existing configuration found by -the previous invocation of this function, unless NO-CACHE is non-nil. - -Then it walks through PROGRAM-ALIST or -`epg-config--program-alist'. If `epg-gpg-program' or -`epg-gpgsm-program' is already set with custom, use it. -Otherwise, it tries the programs listed in the entry until the -version requirement is met." - (unless program-alist - (setq program-alist epg-config--program-alist)) - (let ((entry (assq protocol program-alist))) +the previous invocation of this function, unless FORCE is non-nil. + +Then it walks through `epg-config--program-alist'. If +`epg-gpg-program' or `epg-gpgsm-program' is already set with +custom, use it. Otherwise, it tries the programs listed in the +entry until the version requirement is met." + (let ((entry (assq protocol epg-config--program-alist))) (unless entry (error "Unknown protocol %S" protocol)) - (cl-destructuring-bind (symbol . alist) + (cl-destructuring-bind (symbol constructor . alist) (cdr entry) - (let ((constructor - (alist-get protocol epg-config--configuration-constructor-alist))) - (or (and (not no-cache) (alist-get protocol epg--configurations)) - ;; If the executable value is already set with M-x - ;; customize, use it without checking. - (if (and symbol (get symbol 'saved-value)) - (let ((configuration - (funcall constructor (symbol-value symbol)))) - (push (cons protocol configuration) epg--configurations) - configuration) - (catch 'found - (dolist (program-version alist) - (let ((executable (executable-find (car program-version)))) - (when executable - (let ((configuration - (funcall constructor executable))) - (when (ignore-errors - (epg-check-configuration configuration - (cdr program-version)) - t) - (unless no-cache - (push (cons protocol configuration) - epg--configurations)) - (throw 'found configuration))))))))))))) + (or (and (not force) (alist-get protocol epg--configurations)) + ;; If the executable value is already set with M-x + ;; customize, use it without checking. + (if (get symbol 'saved-value) + (let ((configuration (funcall constructor (symbol-value symbol)))) + (push (cons protocol configuration) epg--configurations) + configuration) + (catch 'found + (dolist (program-version alist) + (let ((executable (executable-find (car program-version)))) + (when executable + (let ((configuration + (funcall constructor executable))) + (when (ignore-errors + (epg-check-configuration configuration + (cdr program-version)) + t) + (push (cons protocol configuration) epg--configurations) + (throw 'found configuration)))))))))))) ;; Create an `epg-configuration' object for `gpg', using PROGRAM. (defun epg-config--make-gpg-configuration (program) diff --git a/test/automated/epg-tests.el b/test/automated/epg-tests.el index d51ab23..4a31797 100644 --- a/test/automated/epg-tests.el +++ b/test/automated/epg-tests.el @@ -30,17 +30,16 @@ (expand-file-name "data/epg" (getenv "EMACS_TEST_DIRECTORY")) "Directory containing epg test data.") -(defconst epg-tests-program-alist-for-passphrase-callback - '((OpenPGP - nil - ("gpg" . "1.4.3")))) - -(defun epg-tests-find-usable-gpg-configuration (&optional require-passphrase) - (epg-find-configuration - 'OpenPGP - 'no-cache - (if require-passphrase - epg-tests-program-alist-for-passphrase-callback))) +(defun epg-tests-gpg-usable (&optional require-passphrase) + (and (executable-find epg-gpg-program) + (condition-case nil + (progn + (epg-check-configuration (epg-configuration)) + (if require-passphrase + (string-match "\\`1\\." + (cdr (assq 'version (epg-configuration)))) + t)) + (error nil)))) (defun epg-tests-passphrase-callback (_c _k _d) ;; Need to create a copy here, since the string will be wiped out @@ -53,14 +52,9 @@ &rest body) "Set up temporary locations and variables for testing." (declare (indent 1)) - `(let ((epg-tests-home-directory (make-temp-file "epg-tests-homedir" t))) + `(let* ((epg-tests-home-directory (make-temp-file "epg-tests-homedir" t))) (unwind-protect (let ((context (epg-make-context 'OpenPGP))) - (setf (epg-context-program context) - (alist-get 'program - (epg-tests-find-usable-gpg-configuration - ,(if require-passphrase - `'require-passphrase)))) (setf (epg-context-home-directory context) epg-tests-home-directory) (setenv "GPG_AGENT_INFO") @@ -84,7 +78,7 @@ (delete-directory epg-tests-home-directory t))))) (ert-deftest epg-decrypt-1 () - (skip-unless (epg-tests-find-usable-gpg-configuration 'require-passphrase)) + (skip-unless (epg-tests-gpg-usable 'require-passphrase)) (with-epg-tests (:require-passphrase t) (should (equal "test" (epg-decrypt-string epg-tests-context "\ @@ -96,14 +90,14 @@ jA0EAwMCE19JBLTvvmhgyRrGGglRbnKkK9PJG8fDwO5ccjysrR7IcdNcnA== -----END PGP MESSAGE-----"))))) (ert-deftest epg-roundtrip-1 () - (skip-unless (epg-tests-find-usable-gpg-configuration 'require-passphrase)) + (skip-unless (epg-tests-gpg-usable 'require-passphrase)) (with-epg-tests (:require-passphrase t) (let ((cipher (epg-encrypt-string epg-tests-context "symmetric" nil))) (should (equal "symmetric" (epg-decrypt-string epg-tests-context cipher)))))) (ert-deftest epg-roundtrip-2 () - (skip-unless (epg-tests-find-usable-gpg-configuration 'require-passphrase)) + (skip-unless (epg-tests-gpg-usable 'require-passphrase)) (with-epg-tests (:require-passphrase t :require-public-key t :require-secret-key t) @@ -114,7 +108,7 @@ jA0EAwMCE19JBLTvvmhgyRrGGglRbnKkK9PJG8fDwO5ccjysrR7IcdNcnA== (epg-decrypt-string epg-tests-context cipher)))))) (ert-deftest epg-sign-verify-1 () - (skip-unless (epg-tests-find-usable-gpg-configuration 'require-passphrase)) + (skip-unless (epg-tests-gpg-usable 'require-passphrase)) (with-epg-tests (:require-passphrase t :require-public-key t :require-secret-key t) @@ -128,7 +122,7 @@ jA0EAwMCE19JBLTvvmhgyRrGGglRbnKkK9PJG8fDwO5ccjysrR7IcdNcnA== (should (eq 'good (epg-signature-status (car verify-result))))))) (ert-deftest epg-sign-verify-2 () - (skip-unless (epg-tests-find-usable-gpg-configuration 'require-passphrase)) + (skip-unless (epg-tests-gpg-usable 'require-passphrase)) (with-epg-tests (:require-passphrase t :require-public-key t :require-secret-key t) @@ -144,7 +138,7 @@ jA0EAwMCE19JBLTvvmhgyRrGGglRbnKkK9PJG8fDwO5ccjysrR7IcdNcnA== (should (eq 'good (epg-signature-status (car verify-result))))))) (ert-deftest epg-sign-verify-3 () - (skip-unless (epg-tests-find-usable-gpg-configuration 'require-passphrase)) + (skip-unless (epg-tests-gpg-usable 'require-passphrase)) (with-epg-tests (:require-passphrase t :require-public-key t :require-secret-key t) @@ -159,7 +153,7 @@ jA0EAwMCE19JBLTvvmhgyRrGGglRbnKkK9PJG8fDwO5ccjysrR7IcdNcnA== (should (eq 'good (epg-signature-status (car verify-result))))))) (ert-deftest epg-import-1 () - (skip-unless (epg-tests-find-usable-gpg-configuration 'require-passphrase)) + (skip-unless (epg-tests-gpg-usable 'require-passphrase)) (with-epg-tests (:require-passphrase nil) (should (= 0 (length (epg-list-keys epg-tests-context)))) (should (= 0 (length (epg-list-keys epg-tests-context nil t))))) commit e41a5cbae9d208a191884e634f77ab6ccc990e64 Author: Eli Zaretskii Date: Thu May 19 22:57:53 2016 +0300 Avoid errors with Czech and Slovak input methods * lisp/leim/quail/slovak.el (slovak, slovak-prog-1, slovak-prog-2) (slovak-prog-3): Remove the kp-* key bindings, they are not needed and cause errors in "C-u C-x =". * lisp/leim/quail/czech.el (czech, czech-qwerty, czech-prog-1) (czech-prog-2, czech-prog-3): Remove the kp-* key bindings. (Bug#23559) diff --git a/lisp/leim/quail/czech.el b/lisp/leim/quail/czech.el index 365c3c5..ddb4af5 100644 --- a/lisp/leim/quail/czech.el +++ b/lisp/leim/quail/czech.el @@ -142,18 +142,7 @@ ("=[" ?\[) ("=]" ?\]) ("={" ?{) - ("=}" ?}) - ([kp-1] ?1) - ([kp-2] ?2) - ([kp-3] ?3) - ([kp-4] ?4) - ([kp-5] ?5) - ([kp-6] ?6) - ([kp-7] ?7) - ([kp-8] ?8) - ([kp-9] ?9) - ([kp-0] ?0) - ([kp-add] ?+)) + ("=}" ?})) (quail-define-package "czech-qwerty" "Czech" "CZ" t @@ -260,18 +249,7 @@ ("=[" ?\[) ("=]" ?\]) ("={" ?{) - ("=}" ?}) - ([kp-1] ?1) - ([kp-2] ?2) - ([kp-3] ?3) - ([kp-4] ?4) - ([kp-5] ?5) - ([kp-6] ?6) - ([kp-7] ?7) - ([kp-8] ?8) - ([kp-9] ?9) - ([kp-0] ?0) - ([kp-add] ?+)) + ("=}" ?})) (quail-define-package "czech-prog-1" "Czech" "CZ" t @@ -350,18 +328,7 @@ All other keys are the same as on standard US keyboard." ("++U" ?Ů) ("+++U" ?Ü) ("+Y" ?Ý) - ("+Z" ?Ž) - ([kp-1] ?1) - ([kp-2] ?2) - ([kp-3] ?3) - ([kp-4] ?4) - ([kp-5] ?5) - ([kp-6] ?6) - ([kp-7] ?7) - ([kp-8] ?8) - ([kp-9] ?9) - ([kp-0] ?0) - ([kp-add] ?+)) + ("+Z" ?Ž)) (quail-define-package "czech-prog-2" "Czech" "CZ" t @@ -440,18 +407,7 @@ All other keys are the same as on standard US keyboard." ("++U" ?Ů) ("+++U" ?Ü) ("+Y" ?Ý) - ("+Z" ?Ž) - ([kp-1] ?1) - ([kp-2] ?2) - ([kp-3] ?3) - ([kp-4] ?4) - ([kp-5] ?5) - ([kp-6] ?6) - ([kp-7] ?7) - ([kp-8] ?8) - ([kp-9] ?9) - ([kp-0] ?0) - ([kp-add] ?+)) + ("+Z" ?Ž)) (quail-define-package "czech-prog-3" "Czech" "CZ" t @@ -552,17 +508,6 @@ All other keys are the same as on standard US keyboard." ("+u" ?ů) ("+=u" ?ü) ("=y" ?ý) - ("+z" ?ž) - ([kp-1] ?1) - ([kp-2] ?2) - ([kp-3] ?3) - ([kp-4] ?4) - ([kp-5] ?5) - ([kp-6] ?6) - ([kp-7] ?7) - ([kp-8] ?8) - ([kp-9] ?9) - ([kp-0] ?0) - ([kp-add] ?+)) + ("+z" ?ž)) ;;; czech.el ends here diff --git a/lisp/leim/quail/slovak.el b/lisp/leim/quail/slovak.el index 4294fd7..e00f03f 100644 --- a/lisp/leim/quail/slovak.el +++ b/lisp/leim/quail/slovak.el @@ -151,18 +151,7 @@ ("+7" ?&) ("+8" ?*) ("+9" ?\() - ("+0" ?\)) - ([kp-1] ?1) - ([kp-2] ?2) - ([kp-3] ?3) - ([kp-4] ?4) - ([kp-5] ?5) - ([kp-6] ?6) - ([kp-7] ?7) - ([kp-8] ?8) - ([kp-9] ?9) - ([kp-0] ?0) - ([kp-add] ?+)) + ("+0" ?\))) (quail-define-package @@ -245,18 +234,7 @@ All other keys are the same as on standard US keyboard." ("[[[U" ?Ü) ("[Y" ?Ý) ("[Z" ?Ž) - ("[[Z" ?Ž) - ([kp-1] ?1) - ([kp-2] ?2) - ([kp-3] ?3) - ([kp-4] ?4) - ([kp-5] ?5) - ([kp-6] ?6) - ([kp-7] ?7) - ([kp-8] ?8) - ([kp-9] ?9) - ([kp-0] ?0) - ([kp-add] ?+)) + ("[[Z" ?Ž)) (quail-define-package @@ -347,18 +325,7 @@ All other keys are the same as on standard US keyboard." ("+U" ?Ů) ("+=U" ?Ü) ("=Y" ?Ý) - ("+Z" ?Ž) - ([kp-1] ?1) - ([kp-2] ?2) - ([kp-3] ?3) - ([kp-4] ?4) - ([kp-5] ?5) - ([kp-6] ?6) - ([kp-7] ?7) - ([kp-8] ?8) - ([kp-9] ?9) - ([kp-0] ?0) - ([kp-add] ?+)) + ("+Z" ?Ž)) (quail-define-package @@ -463,17 +430,6 @@ All other keys are the same as on standard US keyboard." ("[Y" ?Ý) ("[Z" ?Ž) ("[[Z" ?Ž) - ("]Z" ?Ž) - ([kp-1] ?1) - ([kp-2] ?2) - ([kp-3] ?3) - ([kp-4] ?4) - ([kp-5] ?5) - ([kp-6] ?6) - ([kp-7] ?7) - ([kp-8] ?8) - ([kp-9] ?9) - ([kp-0] ?0) - ([kp-add] ?+)) + ("]Z" ?Ž)) ;;; slovak.el ends here commit d4ae6d7033b34e8b75c59aaf1584131e439ef2d5 Author: Daiki Ueno Date: Thu May 19 18:05:19 2016 +0900 epg: Add a way to detect gpg1 executable for tests Fixes bug#23561. * test/automated/epg-tests.el (epg-tests-program-alist-for-passphrase-callback): New constant. (epg-tests-find-usable-gpg-configuration): New function, renamed from `epg-tests-gpg-usable'. All callers changed. (epg-tests-gpg-usable): Remove. * lisp/epg-config.el (epg-config--program-alist): Factor out constructor element to... (epg-config--configuration-constructor-alist): ...here. (epg-find-configuration): Rename FORCE argument to NO-CACHE, and add PROGRAM-ALIST argument. diff --git a/lisp/epg-config.el b/lisp/epg-config.el index 8a20804..9179e04 100644 --- a/lisp/epg-config.el +++ b/lisp/epg-config.el @@ -81,57 +81,69 @@ Note that the buffer name starts with a space." (defconst epg-config--program-alist '((OpenPGP epg-gpg-program - epg-config--make-gpg-configuration ("gpg2" . "2.1.6") ("gpg" . "1.4.3")) (CMS epg-gpgsm-program - epg-config--make-gpgsm-configuration ("gpgsm" . "2.0.4"))) "Alist used to obtain the usable configuration of executables. The first element of each entry is protocol symbol, which is either `OpenPGP' or `CMS'. The second element is a symbol where -the executable name is remembered. The third element is a -function which constructs a configuration object (actually a -plist). The rest of the entry is an alist mapping executable -names to the minimum required version suitable for the use with -Emacs.") +the executable name is remembered. The rest of the entry is an +alist mapping executable names to the minimum required version +suitable for the use with Emacs.") + +(defconst epg-config--configuration-constructor-alist + '((OpenPGP . epg-config--make-gpg-configuration) + (CMS . epg-config--make-gpgsm-configuration)) + "Alist used to obtain the usable configuration of executables. +The first element of each entry is protocol symbol, which is +either `OpenPGP' or `CMS'. The second element is a function +which constructs a configuration object (actually a plist).") (defvar epg--configurations nil) ;;;###autoload -(defun epg-find-configuration (protocol &optional force) +(defun epg-find-configuration (protocol &optional no-cache program-alist) "Find or create a usable configuration to handle PROTOCOL. This function first looks at the existing configuration found by -the previous invocation of this function, unless FORCE is non-nil. - -Then it walks through `epg-config--program-alist'. If -`epg-gpg-program' or `epg-gpgsm-program' is already set with -custom, use it. Otherwise, it tries the programs listed in the -entry until the version requirement is met." - (let ((entry (assq protocol epg-config--program-alist))) +the previous invocation of this function, unless NO-CACHE is non-nil. + +Then it walks through PROGRAM-ALIST or +`epg-config--program-alist'. If `epg-gpg-program' or +`epg-gpgsm-program' is already set with custom, use it. +Otherwise, it tries the programs listed in the entry until the +version requirement is met." + (unless program-alist + (setq program-alist epg-config--program-alist)) + (let ((entry (assq protocol program-alist))) (unless entry (error "Unknown protocol %S" protocol)) - (cl-destructuring-bind (symbol constructor . alist) + (cl-destructuring-bind (symbol . alist) (cdr entry) - (or (and (not force) (alist-get protocol epg--configurations)) - ;; If the executable value is already set with M-x - ;; customize, use it without checking. - (if (get symbol 'saved-value) - (let ((configuration (funcall constructor (symbol-value symbol)))) - (push (cons protocol configuration) epg--configurations) - configuration) - (catch 'found - (dolist (program-version alist) - (let ((executable (executable-find (car program-version)))) - (when executable - (let ((configuration - (funcall constructor executable))) - (when (ignore-errors - (epg-check-configuration configuration - (cdr program-version)) - t) - (push (cons protocol configuration) epg--configurations) - (throw 'found configuration)))))))))))) + (let ((constructor + (alist-get protocol epg-config--configuration-constructor-alist))) + (or (and (not no-cache) (alist-get protocol epg--configurations)) + ;; If the executable value is already set with M-x + ;; customize, use it without checking. + (if (and symbol (get symbol 'saved-value)) + (let ((configuration + (funcall constructor (symbol-value symbol)))) + (push (cons protocol configuration) epg--configurations) + configuration) + (catch 'found + (dolist (program-version alist) + (let ((executable (executable-find (car program-version)))) + (when executable + (let ((configuration + (funcall constructor executable))) + (when (ignore-errors + (epg-check-configuration configuration + (cdr program-version)) + t) + (unless no-cache + (push (cons protocol configuration) + epg--configurations)) + (throw 'found configuration))))))))))))) ;; Create an `epg-configuration' object for `gpg', using PROGRAM. (defun epg-config--make-gpg-configuration (program) diff --git a/test/automated/epg-tests.el b/test/automated/epg-tests.el index 4a31797..d51ab23 100644 --- a/test/automated/epg-tests.el +++ b/test/automated/epg-tests.el @@ -30,16 +30,17 @@ (expand-file-name "data/epg" (getenv "EMACS_TEST_DIRECTORY")) "Directory containing epg test data.") -(defun epg-tests-gpg-usable (&optional require-passphrase) - (and (executable-find epg-gpg-program) - (condition-case nil - (progn - (epg-check-configuration (epg-configuration)) - (if require-passphrase - (string-match "\\`1\\." - (cdr (assq 'version (epg-configuration)))) - t)) - (error nil)))) +(defconst epg-tests-program-alist-for-passphrase-callback + '((OpenPGP + nil + ("gpg" . "1.4.3")))) + +(defun epg-tests-find-usable-gpg-configuration (&optional require-passphrase) + (epg-find-configuration + 'OpenPGP + 'no-cache + (if require-passphrase + epg-tests-program-alist-for-passphrase-callback))) (defun epg-tests-passphrase-callback (_c _k _d) ;; Need to create a copy here, since the string will be wiped out @@ -52,9 +53,14 @@ &rest body) "Set up temporary locations and variables for testing." (declare (indent 1)) - `(let* ((epg-tests-home-directory (make-temp-file "epg-tests-homedir" t))) + `(let ((epg-tests-home-directory (make-temp-file "epg-tests-homedir" t))) (unwind-protect (let ((context (epg-make-context 'OpenPGP))) + (setf (epg-context-program context) + (alist-get 'program + (epg-tests-find-usable-gpg-configuration + ,(if require-passphrase + `'require-passphrase)))) (setf (epg-context-home-directory context) epg-tests-home-directory) (setenv "GPG_AGENT_INFO") @@ -78,7 +84,7 @@ (delete-directory epg-tests-home-directory t))))) (ert-deftest epg-decrypt-1 () - (skip-unless (epg-tests-gpg-usable 'require-passphrase)) + (skip-unless (epg-tests-find-usable-gpg-configuration 'require-passphrase)) (with-epg-tests (:require-passphrase t) (should (equal "test" (epg-decrypt-string epg-tests-context "\ @@ -90,14 +96,14 @@ jA0EAwMCE19JBLTvvmhgyRrGGglRbnKkK9PJG8fDwO5ccjysrR7IcdNcnA== -----END PGP MESSAGE-----"))))) (ert-deftest epg-roundtrip-1 () - (skip-unless (epg-tests-gpg-usable 'require-passphrase)) + (skip-unless (epg-tests-find-usable-gpg-configuration 'require-passphrase)) (with-epg-tests (:require-passphrase t) (let ((cipher (epg-encrypt-string epg-tests-context "symmetric" nil))) (should (equal "symmetric" (epg-decrypt-string epg-tests-context cipher)))))) (ert-deftest epg-roundtrip-2 () - (skip-unless (epg-tests-gpg-usable 'require-passphrase)) + (skip-unless (epg-tests-find-usable-gpg-configuration 'require-passphrase)) (with-epg-tests (:require-passphrase t :require-public-key t :require-secret-key t) @@ -108,7 +114,7 @@ jA0EAwMCE19JBLTvvmhgyRrGGglRbnKkK9PJG8fDwO5ccjysrR7IcdNcnA== (epg-decrypt-string epg-tests-context cipher)))))) (ert-deftest epg-sign-verify-1 () - (skip-unless (epg-tests-gpg-usable 'require-passphrase)) + (skip-unless (epg-tests-find-usable-gpg-configuration 'require-passphrase)) (with-epg-tests (:require-passphrase t :require-public-key t :require-secret-key t) @@ -122,7 +128,7 @@ jA0EAwMCE19JBLTvvmhgyRrGGglRbnKkK9PJG8fDwO5ccjysrR7IcdNcnA== (should (eq 'good (epg-signature-status (car verify-result))))))) (ert-deftest epg-sign-verify-2 () - (skip-unless (epg-tests-gpg-usable 'require-passphrase)) + (skip-unless (epg-tests-find-usable-gpg-configuration 'require-passphrase)) (with-epg-tests (:require-passphrase t :require-public-key t :require-secret-key t) @@ -138,7 +144,7 @@ jA0EAwMCE19JBLTvvmhgyRrGGglRbnKkK9PJG8fDwO5ccjysrR7IcdNcnA== (should (eq 'good (epg-signature-status (car verify-result))))))) (ert-deftest epg-sign-verify-3 () - (skip-unless (epg-tests-gpg-usable 'require-passphrase)) + (skip-unless (epg-tests-find-usable-gpg-configuration 'require-passphrase)) (with-epg-tests (:require-passphrase t :require-public-key t :require-secret-key t) @@ -153,7 +159,7 @@ jA0EAwMCE19JBLTvvmhgyRrGGglRbnKkK9PJG8fDwO5ccjysrR7IcdNcnA== (should (eq 'good (epg-signature-status (car verify-result))))))) (ert-deftest epg-import-1 () - (skip-unless (epg-tests-gpg-usable 'require-passphrase)) + (skip-unless (epg-tests-find-usable-gpg-configuration 'require-passphrase)) (with-epg-tests (:require-passphrase nil) (should (= 0 (length (epg-list-keys epg-tests-context)))) (should (= 0 (length (epg-list-keys epg-tests-context nil t))))) commit ebc3a94e27ec9dcbe24790795741c062bed2c1a0 Author: Artur Malabarba Date: Wed May 18 20:09:24 2016 -0300 * lisp/emacs-lisp/package.el: Fix free variable warnings. (package--with-response-buffer): Replace two usages of `macroexp-let2*' with `let'. diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index aa18c2d..8f309cb 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -1154,44 +1154,44 @@ errors signaled by ERROR-FORM or by BODY). (while (keywordp (car body)) (setq body (cdr (cdr body)))) (macroexp-let2* nil ((url-1 url) - (url-sym (make-symbol "url")) - (b-sym (make-symbol "b-sym")) (noerror-1 noerror)) - `(cl-macrolet ((unless-error (body-2 &rest before-body) - (let ((err (make-symbol "err"))) - `(with-temp-buffer - (when (condition-case ,err - (progn ,@before-body t) - ,(list 'error ',error-form - (list 'unless ',noerror-1 - `(signal (car ,err) (cdr ,err))))) - ,@body-2))))) - (if (string-match-p "\\`https?:" ,url-1) - (let ((,url-sym (concat ,url-1 ,file))) - (if ,async - (unless-error nil - (url-retrieve ,url-sym - (lambda (status) - (let ((,b-sym (current-buffer))) - (require 'url-handlers) - (unless-error ,body - (when-let ((er (plist-get status :error))) - (error "Error retrieving: %s %S" ,url-sym er)) - (with-current-buffer ,b-sym - (goto-char (point-min)) - (unless (search-forward-regexp "^\r?\n\r?" nil 'noerror) - (error "Error retrieving: %s %S" ,url-sym "incomprehensible buffer"))) - (url-insert-buffer-contents ,b-sym ,url-sym) - (kill-buffer ,b-sym) - (goto-char (point-min))))) - nil - 'silent)) - (unless-error ,body (url-insert-file-contents ,url-sym)))) - (unless-error ,body - (let ((url (expand-file-name ,file ,url-1))) - (unless (file-name-absolute-p url) - (error "Location %s is not a url nor an absolute file name" url)) - (insert-file-contents url))))))) + (let ((url-sym (make-symbol "url")) + (b-sym (make-symbol "b-sym"))) + `(cl-macrolet ((unless-error (body-2 &rest before-body) + (let ((err (make-symbol "err"))) + `(with-temp-buffer + (when (condition-case ,err + (progn ,@before-body t) + ,(list 'error ',error-form + (list 'unless ',noerror-1 + `(signal (car ,err) (cdr ,err))))) + ,@body-2))))) + (if (string-match-p "\\`https?:" ,url-1) + (let ((,url-sym (concat ,url-1 ,file))) + (if ,async + (unless-error nil + (url-retrieve ,url-sym + (lambda (status) + (let ((,b-sym (current-buffer))) + (require 'url-handlers) + (unless-error ,body + (when-let ((er (plist-get status :error))) + (error "Error retrieving: %s %S" ,url-sym er)) + (with-current-buffer ,b-sym + (goto-char (point-min)) + (unless (search-forward-regexp "^\r?\n\r?" nil 'noerror) + (error "Error retrieving: %s %S" ,url-sym "incomprehensible buffer"))) + (url-insert-buffer-contents ,b-sym ,url-sym) + (kill-buffer ,b-sym) + (goto-char (point-min))))) + nil + 'silent)) + (unless-error ,body (url-insert-file-contents ,url-sym)))) + (unless-error ,body + (let ((url (expand-file-name ,file ,url-1))) + (unless (file-name-absolute-p url) + (error "Location %s is not a url nor an absolute file name" url)) + (insert-file-contents url)))))))) (define-error 'bad-signature "Failed to verify signature") commit 6e7129551ca2ff67732549ae8b1b43276c410c95 Author: Artur Malabarba Date: Wed May 18 17:58:56 2016 -0300 * lisp/emacs-lisp/package.el (package--with-response-buffer): Fix some macro locals leaking into body. (Bug#22440) * test/automated/package-test.el (package-test-signed): Manually check all possible values of `package-check-signature'. diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 58973df..aa18c2d 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -1154,6 +1154,8 @@ errors signaled by ERROR-FORM or by BODY). (while (keywordp (car body)) (setq body (cdr (cdr body)))) (macroexp-let2* nil ((url-1 url) + (url-sym (make-symbol "url")) + (b-sym (make-symbol "b-sym")) (noerror-1 noerror)) `(cl-macrolet ((unless-error (body-2 &rest before-body) (let ((err (make-symbol "err"))) @@ -1165,23 +1167,26 @@ errors signaled by ERROR-FORM or by BODY). `(signal (car ,err) (cdr ,err))))) ,@body-2))))) (if (string-match-p "\\`https?:" ,url-1) - (let* ((url (concat ,url-1 ,file)) - (callback (lambda (status) - (let ((b (current-buffer))) - (require 'url-handlers) - (unless-error ,body - (when-let ((er (plist-get status :error))) - (error "Error retrieving: %s %S" url er)) - (with-current-buffer b - (goto-char (point-min)) - (unless (search-forward-regexp "^\r?\n\r?" nil 'noerror) - (error "Error retrieving: %s %S" url "incomprehensible buffer"))) - (url-insert-buffer-contents b url) - (kill-buffer b) - (goto-char (point-min))))))) + (let ((,url-sym (concat ,url-1 ,file))) (if ,async - (unless-error nil (url-retrieve url callback nil 'silent)) - (unless-error ,body (url-insert-file-contents url)))) + (unless-error nil + (url-retrieve ,url-sym + (lambda (status) + (let ((,b-sym (current-buffer))) + (require 'url-handlers) + (unless-error ,body + (when-let ((er (plist-get status :error))) + (error "Error retrieving: %s %S" ,url-sym er)) + (with-current-buffer ,b-sym + (goto-char (point-min)) + (unless (search-forward-regexp "^\r?\n\r?" nil 'noerror) + (error "Error retrieving: %s %S" ,url-sym "incomprehensible buffer"))) + (url-insert-buffer-contents ,b-sym ,url-sym) + (kill-buffer ,b-sym) + (goto-char (point-min))))) + nil + 'silent)) + (unless-error ,body (url-insert-file-contents ,url-sym)))) (unless-error ,body (let ((url (expand-file-name ,file ,url-1))) (unless (file-name-absolute-p url) diff --git a/test/automated/package-test.el b/test/automated/package-test.el index 5580645..c4c856f 100644 --- a/test/automated/package-test.el +++ b/test/automated/package-test.el @@ -475,8 +475,15 @@ Must called from within a `tar-mode' buffer." (package-initialize) (package-import-keyring keyring) (package-refresh-contents) - (should (package-install 'signed-good)) - (should-error (package-install 'signed-bad)) + (let ((package-check-signature 'allow-unsigned)) + (should (package-install 'signed-good)) + (should-error (package-install 'signed-bad))) + (let ((package-check-signature t)) + (should (package-install 'signed-good)) + (should-error (package-install 'signed-bad))) + (let ((package-check-signature nil)) + (should (package-install 'signed-good)) + (should (package-install 'signed-bad))) ;; Check if the installed package status is updated. (let ((buf (package-list-packages))) (package-menu-refresh) commit c45d9f61f7ecf77baf73e16985e484c0b2299401 Author: Eli Zaretskii Date: Wed May 18 22:50:45 2016 +0300 Improve documentation of 'server-name' * doc/emacs/misc.texi (Emacs Server): Fix example of setting 'server-name'. Mention how to do that with daemon sessions. (Bug#23576) diff --git a/doc/emacs/misc.texi b/doc/emacs/misc.texi index af2b6ac..497a4ab 100644 --- a/doc/emacs/misc.texi +++ b/doc/emacs/misc.texi @@ -1596,10 +1596,17 @@ variable to @samp{emacsclient +%d %s}.} You can run multiple Emacs servers on the same machine by giving each one a unique @dfn{server name}, using the variable @code{server-name}. For example, @kbd{M-x set-variable @key{RET} -server-name @key{RET} foo @key{RET}} sets the server name to +server-name @key{RET} "foo" @key{RET}} sets the server name to @samp{foo}. The @code{emacsclient} program can specify a server by name, using the @samp{-s} option (@pxref{emacsclient Options}). + If you want to run multiple Emacs daemons (@pxref{Initial Options}), +you can give each daemon its own server name like this: + +@example + emacs --eval "(setq server-name \"foo\")" --daemon +@end example + @findex server-eval-at If you have defined a server by a unique server name, it is possible to connect to the server from another Emacs instance and evaluate Lisp commit 3b5e38cde194c4faa3865aa437b4a2749946c24d Author: Paul Eggert Date: Wed May 18 01:05:00 2016 -0700 Modernize ASLR advice in etc/PROBLEMS * etc/PROBLEMS (Segfault during 'make'): Modernize advice for seccomp, Docker, and NetBSD (Bug#23529). diff --git a/etc/PROBLEMS b/etc/PROBLEMS index 533c4e9..8733095 100644 --- a/etc/PROBLEMS +++ b/etc/PROBLEMS @@ -2600,51 +2600,70 @@ See , . ** Dumping -*** Segfault during 'make bootstrap' under the Linux kernel. +*** Segfault during 'make' -In Red Hat Linux kernels, "Exec-shield" functionality is enabled by -default, which creates a different memory layout that can break the -emacs dumper. Emacs tries to handle this at build time, but if this -fails, the following instructions may be useful. +If Emacs segfaults when 'make' executes one of these commands: -Exec-shield is enabled on your system if + LC_ALL=C ./temacs -batch -l loadup bootstrap + LC_ALL=C ./temacs -batch -l loadup dump - cat /proc/sys/kernel/exec-shield +the problem may be due to inadequate workarounds for address space +layout randomization (ASLR), an operating system feature that +randomizes the virtual address space of a process. ASLR is commonly +enabled in Linux and NetBSD kernels, and is intended to deter exploits +of pointer-related bugs in applications. If ASLR is enabled, the +command: -prints a value other than 0. (Please read your system documentation -for more details on Exec-shield and associated commands.) + cat /proc/sys/kernel/randomize_va_space # GNU/Linux + sysctl security.pax.aslr.global # NetBSD -Additionally, Linux kernel versions since 2.6.12 randomize the virtual -address space of a process by default. If this feature is enabled on -your system, then +outputs a nonzero value. - cat /proc/sys/kernel/randomize_va_space +These segfaults should not occur on most modern systems, because the +Emacs build procedure uses the command 'setfattr' or 'paxctl' to mark +the Emacs executable as requiring non-randomized address space, and +Emacs uses the 'personality' system call to disable address space +randomization when dumping. However, older kernels may not support +'setfattr', 'paxctl', or 'personality', and newer Linux kernels have a +secure computing mode (seccomp) that can be configured to disable the +'personality' call. -prints a value other than 0. +It may be possible to work around the 'personality' problem in a newer +Linux kernel by configuring seccomp to allow the 'personality' call. +For example, if you are building Emacs under Docker, you can run the +Docker container with a security profile that allows 'personality' by +using Docker's --security-opt option with an appropriate profile; see +. -When these features are enabled, building Emacs may segfault during -the execution of this command: +To work around the ASLR problem in either an older or a newer kernel, +you can temporarily disable the feature while building Emacs. On +GNU/Linux you can do so using the following command (as root). - ./temacs --batch --load loadup [dump|bootstrap] + echo 0 > /proc/sys/kernel/randomize_va_space -To work around this problem, you can temporarily disable these -features while building Emacs. You can do so using the following -commands (as root). Remember to re-enable them when you are done, -by echoing the original values back to the files. +You can re-enable the feature when you are done, by echoing the +original value back to the file. NetBSD uses a different command, +e.g., 'sysctl -w security.pax.aslr.global=0'. - echo 0 > /proc/sys/kernel/exec-shield - echo 0 > /proc/sys/kernel/randomize_va_space +Alternatively, you can try using the 'setarch' command when building +temacs like this, where -R disables address space randomization: -Or, on x86, you can try using the 'setarch' command when running -temacs, like this: + setarch $(uname -m) -R make - setarch i386 -R ./temacs --batch --load loadup [dump|bootstrap] +ASLR is not the only problem that can break Emacs dumping. Another +issue is that in Red Hat Linux kernels, Exec-shield is enabled by +default, and this creates a different memory layout. Emacs should +handle this at build time, but if this fails the following +instructions may be useful. Exec-shield is enabled on your system if -or + cat /proc/sys/kernel/exec-shield + +prints a nonzero value. You can temporarily disable it as follows: - setarch i386 -R make + echo 0 > /proc/sys/kernel/exec-shield -(The -R option disables address space randomization.) +As with randomize_va_space, you can re-enable Exec-shield when you are +done, by echoing the original value back to the file. *** temacs prints "Pure Lisp storage exhausted". commit 1fe1e0a8e7e3863d36c1a87ca38d2fa39bc25a56 Author: Juri Linkov Date: Tue May 17 23:55:38 2016 +0300 * lisp/char-fold.el: Rename from character-fold.el. * lisp/replace.el (replace-char-fold): Rename from replace-character-fold. * test/automated/char-fold-tests.el: Rename from character-fold-tests.el. http://lists.gnu.org/archive/html/emacs-devel/2015-12/msg00529.html diff --git a/doc/emacs/search.texi b/doc/emacs/search.texi index 7958a4a..d841934 100644 --- a/doc/emacs/search.texi +++ b/doc/emacs/search.texi @@ -1264,13 +1264,13 @@ but match under character folding are known as @dfn{equivalent character sequences}. @kindex M-s ' @r{(Incremental Search)} -@findex isearch-toggle-character-fold +@findex isearch-toggle-char-fold Generally, search commands in Emacs do not by default perform character folding in order to match equivalent character sequences. You can enable this behavior by customizing the variable -@code{search-default-mode} to @code{character-fold-to-regexp}. +@code{search-default-mode} to @code{char-fold-to-regexp}. @xref{Search Customizations}. Within an incremental search, typing -@kbd{M-s '} (@code{isearch-toggle-character-fold}) toggles character +@kbd{M-s '} (@code{isearch-toggle-char-fold}) toggles character folding, but only for that search. (Replace commands have a different default, controlled by a separate option; see @ref{Replacement and Lax Matches}.) @@ -1481,7 +1481,7 @@ replacement is done without case conversion. (@pxref{Lax Search, character folding}) when looking for the text to replace. To enable character folding for matching in @code{query-replace} and @code{replace-string}, set the variable -@code{replace-character-fold} to a non-@code{nil} value. (This +@code{replace-char-fold} to a non-@code{nil} value. (This setting does not affect the replacement text, only how Emacs finds the text to replace. It also doesn't affect @code{replace-regexp}.) diff --git a/etc/NEWS b/etc/NEWS index 3031cab..670465f 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -633,11 +633,11 @@ as many other symbols like U+249C (PARENTHESIZED LATIN SMALL LETTER A). Character folding is enabled by customizing 'search-default-mode' to -the value 'character-fold-to-regexp'. You can also toggle character +the value 'char-fold-to-regexp'. You can also toggle character folding in the middle of a search by typing 'M-s ''. 'query-replace' honors character folding if the new variable -'replace-character-fold' is customized to a non-nil value. +'replace-char-fold' is customized to a non-nil value. +++ *** New user option 'search-default-mode'. @@ -647,9 +647,9 @@ value, nil specifies that Isearch does literal searches (however, as in previous Emacs versions). +++ -*** New function 'character-fold-to-regexp' can be used +*** New function 'char-fold-to-regexp' can be used by searching commands to produce a regexp matching anything that -character-folds into STRING. +char-folds into STRING. +++ *** The new 'M-s M-w' key binding uses eww to search the web for the diff --git a/lisp/char-fold.el b/lisp/char-fold.el new file mode 100644 index 0000000..68bea29 --- /dev/null +++ b/lisp/char-fold.el @@ -0,0 +1,242 @@ +;;; char-fold.el --- match unicode to similar ASCII -*- lexical-binding: t; -*- + +;; Copyright (C) 2015-2016 Free Software Foundation, Inc. + +;; Maintainer: emacs-devel@gnu.org +;; Keywords: matching + +;; 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 . + +;;; Code: + +(eval-and-compile (put 'char-fold-table 'char-table-extra-slots 1)) + +(defconst char-fold-table + (eval-when-compile + (let ((equiv (make-char-table 'char-fold-table)) + (equiv-multi (make-char-table 'char-fold-table)) + (table (unicode-property-table-internal 'decomposition))) + (set-char-table-extra-slot equiv 0 equiv-multi) + + ;; Ensure the table is populated. + (let ((func (char-table-extra-slot table 1))) + (map-char-table (lambda (char v) + (when (consp char) + (funcall func (car char) v table))) + table)) + + ;; Compile a list of all complex characters that each simple + ;; character should match. + ;; In summary this loop does 3 things: + ;; - A complex character might be allowed to match its decomp. + ;; - The decomp is allowed to match the complex character. + ;; - A single char of the decomp might be allowed to match the + ;; character. + ;; Some examples in the comments below. + (map-char-table + (lambda (char decomp) + (when (consp decomp) + ;; Skip trivial cases like ?a decomposing to (?a). + (unless (and (not (cdr decomp)) + (eq char (car decomp))) + (if (symbolp (car decomp)) + ;; Discard a possible formatting tag. + (setq decomp (cdr decomp)) + ;; If there's no formatting tag, ensure that char matches + ;; its decomp exactly. This is because we want 'ä' to + ;; match 'ä', but we don't want '¹' to match '1'. + (aset equiv char + (cons (apply #'string decomp) + (aref equiv char)))) + + ;; Allow the entire decomp to match char. If decomp has + ;; multiple characters, this is done by adding an entry + ;; to the alist of the first character in decomp. This + ;; allows 'ff' to match 'ff', 'ä' to match 'ä', and '1' to + ;; match '¹'. + (let ((make-decomp-match-char + (lambda (decomp char) + (if (cdr decomp) + (aset equiv-multi (car decomp) + (cons (cons (apply #'string (cdr decomp)) + (regexp-quote (string char))) + (aref equiv-multi (car decomp)))) + (aset equiv (car decomp) + (cons (char-to-string char) + (aref equiv (car decomp)))))))) + (funcall make-decomp-match-char decomp char) + ;; Do it again, without the non-spacing characters. + ;; This allows 'a' to match 'ä'. + (let ((simpler-decomp nil) + (found-one nil)) + (dolist (c decomp) + (if (> (get-char-code-property c 'canonical-combining-class) 0) + (setq found-one t) + (push c simpler-decomp))) + (when (and simpler-decomp found-one) + (funcall make-decomp-match-char simpler-decomp char) + ;; Finally, if the decomp only had one spacing + ;; character, we allow this character to match the + ;; decomp. This is to let 'a' match 'ä'. + (unless (cdr simpler-decomp) + (aset equiv (car simpler-decomp) + (cons (apply #'string decomp) + (aref equiv (car simpler-decomp))))))))))) + table) + + ;; Add some manual entries. + (dolist (it '((?\" "＂" "“" "”" "”" "„" "⹂" "〞" "‟" "‟" "❞" "❝" "❠" "“" "„" "〝" "〟" "🙷" "🙶" "🙸" "«" "»") + (?' "❟" "❛" "❜" "‘" "’" "‚" "‛" "‚" "󠀢" "❮" "❯" "‹" "›") + (?` "❛" "‘" "‛" "󠀢" "❮" "‹"))) + (let ((idx (car it)) + (chars (cdr it))) + (aset equiv idx (append chars (aref equiv idx))))) + + ;; Convert the lists of characters we compiled into regexps. + (map-char-table + (lambda (char dec-list) + (let ((re (regexp-opt (cons (char-to-string char) dec-list)))) + (if (consp char) + (set-char-table-range equiv char re) + (aset equiv char re)))) + equiv) + equiv)) + "Used for folding characters of the same group during search. +This is a char-table with the `char-fold-table' subtype. + +Let us refer to the character in question by char-x. +Each entry is either nil (meaning char-x only matches literally) +or a regexp. This regexp should match anything that char-x can +match by itself \(including char-x). For instance, the default +regexp for the ?+ character is \"[+⁺₊﬩﹢＋]\". + +This table also has one extra slot which is also a char-table. +Each entry in the extra slot is an alist used for multi-character +matching (which may be nil). The elements of the alist should +have the form (SUFFIX . OTHER-REGEXP). If the characters after +char-x are equal to SUFFIX, then this combination of char-x + +SUFFIX is allowed to match OTHER-REGEXP. This is in addition to +char-x being allowed to match REGEXP. +For instance, the default alist for ?f includes: + \((\"fl\" . \"ffl\") (\"fi\" . \"ffi\") + (\"i\" . \"fi\") (\"f\" . \"ff\")) + +Exceptionally for the space character (32), ALIST is ignored.") + +(defun char-fold--make-space-string (n) + "Return a string that matches N spaces." + (format "\\(?:%s\\|%s\\)" + (make-string n ?\s) + (apply #'concat + (make-list n (or (aref char-fold-table ?\s) " "))))) + +;;;###autoload +(defun char-fold-to-regexp (string &optional _lax from) + "Return a regexp matching anything that char-folds into STRING. +Any character in STRING that has an entry in +`char-fold-table' is replaced with that entry (which is a +regexp) and other characters are `regexp-quote'd. + +If the resulting regexp would be too long for Emacs to handle, +just return the result of calling `regexp-quote' on STRING. + +FROM is for internal use. It specifies an index in the STRING +from which to start." + (let* ((spaces 0) + (multi-char-table (char-table-extra-slot char-fold-table 0)) + (i (or from 0)) + (end (length string)) + (out nil)) + ;; When the user types a space, we want to match the table entry + ;; for ?\s, which is generally a regexp like "[ ...]". However, + ;; the `search-spaces-regexp' variable doesn't "see" spaces inside + ;; these regexp constructs, so we need to use "\\( \\|[ ...]\\)" + ;; instead (to manually expose a space). Furthermore, the lax + ;; search engine acts on a bunch of spaces, not on individual + ;; spaces, so if the string contains sequential spaces like " ", we + ;; need to keep them grouped together like this: "\\( \\|[ ...][ ...]\\)". + (while (< i end) + (pcase (aref string i) + (`?\s (setq spaces (1+ spaces))) + (c (when (> spaces 0) + (push (char-fold--make-space-string spaces) out) + (setq spaces 0)) + (let ((regexp (or (aref char-fold-table c) + (regexp-quote (string c)))) + ;; Long string. The regexp would probably be too long. + (alist (unless (> end 50) + (aref multi-char-table c)))) + (push (let ((matched-entries nil) + (max-length 0)) + (dolist (entry alist) + (let* ((suffix (car entry)) + (len-suf (length suffix))) + (when (eq (compare-strings suffix 0 nil + string (1+ i) (+ i 1 len-suf) + nil) + t) + (push (cons len-suf (cdr entry)) matched-entries) + (setq max-length (max max-length len-suf))))) + ;; If no suffixes matched, just go on. + (if (not matched-entries) + regexp +;;; If N suffixes match, we "branch" out into N+1 executions for the +;;; length of the longest match. This means "fix" will match "fix" but +;;; not "fⅸ", but it's necessary to keep the regexp size from scaling +;;; exponentially. See https://lists.gnu.org/archive/html/emacs-devel/2015-11/msg02562.html + (let ((subs (substring string (1+ i) (+ i 1 max-length)))) + ;; `i' is still going to inc by 1 below. + (setq i (+ i max-length)) + (concat + "\\(?:" + (mapconcat (lambda (entry) + (let ((length (car entry)) + (suffix-regexp (cdr entry))) + (concat suffix-regexp + (char-fold-to-regexp subs nil length)))) + `((0 . ,regexp) . ,matched-entries) "\\|") + "\\)")))) + out)))) + (setq i (1+ i))) + (when (> spaces 0) + (push (char-fold--make-space-string spaces) out)) + (let ((regexp (apply #'concat (nreverse out)))) + ;; Limited by `MAX_BUF_SIZE' in `regex.c'. + (if (> (length regexp) 5000) + (regexp-quote string) + regexp)))) + + +;;; Commands provided for completeness. +(defun char-fold-search-forward (string &optional bound noerror count) + "Search forward for a char-folded version of STRING. +STRING is converted to a regexp with `char-fold-to-regexp', +which is searched for with `re-search-forward'. +BOUND NOERROR COUNT are passed to `re-search-forward'." + (interactive "sSearch: ") + (re-search-forward (char-fold-to-regexp string) bound noerror count)) + +(defun char-fold-search-backward (string &optional bound noerror count) + "Search backward for a char-folded version of STRING. +STRING is converted to a regexp with `char-fold-to-regexp', +which is searched for with `re-search-backward'. +BOUND NOERROR COUNT are passed to `re-search-backward'." + (interactive "sSearch: ") + (re-search-backward (char-fold-to-regexp string) bound noerror count)) + +(provide 'char-fold) + +;;; char-fold.el ends here diff --git a/lisp/character-fold.el b/lisp/character-fold.el deleted file mode 100644 index 2d3a8c6..0000000 --- a/lisp/character-fold.el +++ /dev/null @@ -1,242 +0,0 @@ -;;; character-fold.el --- match unicode to similar ASCII -*- lexical-binding: t; -*- - -;; Copyright (C) 2015-2016 Free Software Foundation, Inc. - -;; Maintainer: emacs-devel@gnu.org -;; Keywords: matching - -;; 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 . - -;;; Code: - -(eval-and-compile (put 'character-fold-table 'char-table-extra-slots 1)) - -(defconst character-fold-table - (eval-when-compile - (let ((equiv (make-char-table 'character-fold-table)) - (equiv-multi (make-char-table 'character-fold-table)) - (table (unicode-property-table-internal 'decomposition))) - (set-char-table-extra-slot equiv 0 equiv-multi) - - ;; Ensure the table is populated. - (let ((func (char-table-extra-slot table 1))) - (map-char-table (lambda (char v) - (when (consp char) - (funcall func (car char) v table))) - table)) - - ;; Compile a list of all complex characters that each simple - ;; character should match. - ;; In summary this loop does 3 things: - ;; - A complex character might be allowed to match its decomp. - ;; - The decomp is allowed to match the complex character. - ;; - A single char of the decomp might be allowed to match the - ;; character. - ;; Some examples in the comments below. - (map-char-table - (lambda (char decomp) - (when (consp decomp) - ;; Skip trivial cases like ?a decomposing to (?a). - (unless (and (not (cdr decomp)) - (eq char (car decomp))) - (if (symbolp (car decomp)) - ;; Discard a possible formatting tag. - (setq decomp (cdr decomp)) - ;; If there's no formatting tag, ensure that char matches - ;; its decomp exactly. This is because we want 'ä' to - ;; match 'ä', but we don't want '¹' to match '1'. - (aset equiv char - (cons (apply #'string decomp) - (aref equiv char)))) - - ;; Allow the entire decomp to match char. If decomp has - ;; multiple characters, this is done by adding an entry - ;; to the alist of the first character in decomp. This - ;; allows 'ff' to match 'ff', 'ä' to match 'ä', and '1' to - ;; match '¹'. - (let ((make-decomp-match-char - (lambda (decomp char) - (if (cdr decomp) - (aset equiv-multi (car decomp) - (cons (cons (apply #'string (cdr decomp)) - (regexp-quote (string char))) - (aref equiv-multi (car decomp)))) - (aset equiv (car decomp) - (cons (char-to-string char) - (aref equiv (car decomp)))))))) - (funcall make-decomp-match-char decomp char) - ;; Do it again, without the non-spacing characters. - ;; This allows 'a' to match 'ä'. - (let ((simpler-decomp nil) - (found-one nil)) - (dolist (c decomp) - (if (> (get-char-code-property c 'canonical-combining-class) 0) - (setq found-one t) - (push c simpler-decomp))) - (when (and simpler-decomp found-one) - (funcall make-decomp-match-char simpler-decomp char) - ;; Finally, if the decomp only had one spacing - ;; character, we allow this character to match the - ;; decomp. This is to let 'a' match 'ä'. - (unless (cdr simpler-decomp) - (aset equiv (car simpler-decomp) - (cons (apply #'string decomp) - (aref equiv (car simpler-decomp))))))))))) - table) - - ;; Add some manual entries. - (dolist (it '((?\" "＂" "“" "”" "”" "„" "⹂" "〞" "‟" "‟" "❞" "❝" "❠" "“" "„" "〝" "〟" "🙷" "🙶" "🙸" "«" "»") - (?' "❟" "❛" "❜" "‘" "’" "‚" "‛" "‚" "󠀢" "❮" "❯" "‹" "›") - (?` "❛" "‘" "‛" "󠀢" "❮" "‹"))) - (let ((idx (car it)) - (chars (cdr it))) - (aset equiv idx (append chars (aref equiv idx))))) - - ;; Convert the lists of characters we compiled into regexps. - (map-char-table - (lambda (char dec-list) - (let ((re (regexp-opt (cons (char-to-string char) dec-list)))) - (if (consp char) - (set-char-table-range equiv char re) - (aset equiv char re)))) - equiv) - equiv)) - "Used for folding characters of the same group during search. -This is a char-table with the `character-fold-table' subtype. - -Let us refer to the character in question by char-x. -Each entry is either nil (meaning char-x only matches literally) -or a regexp. This regexp should match anything that char-x can -match by itself \(including char-x). For instance, the default -regexp for the ?+ character is \"[+⁺₊﬩﹢＋]\". - -This table also has one extra slot which is also a char-table. -Each entry in the extra slot is an alist used for multi-character -matching (which may be nil). The elements of the alist should -have the form (SUFFIX . OTHER-REGEXP). If the characters after -char-x are equal to SUFFIX, then this combination of char-x + -SUFFIX is allowed to match OTHER-REGEXP. This is in addition to -char-x being allowed to match REGEXP. -For instance, the default alist for ?f includes: - \((\"fl\" . \"ffl\") (\"fi\" . \"ffi\") - (\"i\" . \"fi\") (\"f\" . \"ff\")) - -Exceptionally for the space character (32), ALIST is ignored.") - -(defun character-fold--make-space-string (n) - "Return a string that matches N spaces." - (format "\\(?:%s\\|%s\\)" - (make-string n ?\s) - (apply #'concat - (make-list n (or (aref character-fold-table ?\s) " "))))) - -;;;###autoload -(defun character-fold-to-regexp (string &optional _lax from) - "Return a regexp matching anything that character-folds into STRING. -Any character in STRING that has an entry in -`character-fold-table' is replaced with that entry (which is a -regexp) and other characters are `regexp-quote'd. - -If the resulting regexp would be too long for Emacs to handle, -just return the result of calling `regexp-quote' on STRING. - -FROM is for internal use. It specifies an index in the STRING -from which to start." - (let* ((spaces 0) - (multi-char-table (char-table-extra-slot character-fold-table 0)) - (i (or from 0)) - (end (length string)) - (out nil)) - ;; When the user types a space, we want to match the table entry - ;; for ?\s, which is generally a regexp like "[ ...]". However, - ;; the `search-spaces-regexp' variable doesn't "see" spaces inside - ;; these regexp constructs, so we need to use "\\( \\|[ ...]\\)" - ;; instead (to manually expose a space). Furthermore, the lax - ;; search engine acts on a bunch of spaces, not on individual - ;; spaces, so if the string contains sequential spaces like " ", we - ;; need to keep them grouped together like this: "\\( \\|[ ...][ ...]\\)". - (while (< i end) - (pcase (aref string i) - (`?\s (setq spaces (1+ spaces))) - (c (when (> spaces 0) - (push (character-fold--make-space-string spaces) out) - (setq spaces 0)) - (let ((regexp (or (aref character-fold-table c) - (regexp-quote (string c)))) - ;; Long string. The regexp would probably be too long. - (alist (unless (> end 50) - (aref multi-char-table c)))) - (push (let ((matched-entries nil) - (max-length 0)) - (dolist (entry alist) - (let* ((suffix (car entry)) - (len-suf (length suffix))) - (when (eq (compare-strings suffix 0 nil - string (1+ i) (+ i 1 len-suf) - nil) - t) - (push (cons len-suf (cdr entry)) matched-entries) - (setq max-length (max max-length len-suf))))) - ;; If no suffixes matched, just go on. - (if (not matched-entries) - regexp -;;; If N suffixes match, we "branch" out into N+1 executions for the -;;; length of the longest match. This means "fix" will match "fix" but -;;; not "fⅸ", but it's necessary to keep the regexp size from scaling -;;; exponentially. See https://lists.gnu.org/archive/html/emacs-devel/2015-11/msg02562.html - (let ((subs (substring string (1+ i) (+ i 1 max-length)))) - ;; `i' is still going to inc by 1 below. - (setq i (+ i max-length)) - (concat - "\\(?:" - (mapconcat (lambda (entry) - (let ((length (car entry)) - (suffix-regexp (cdr entry))) - (concat suffix-regexp - (character-fold-to-regexp subs nil length)))) - `((0 . ,regexp) . ,matched-entries) "\\|") - "\\)")))) - out)))) - (setq i (1+ i))) - (when (> spaces 0) - (push (character-fold--make-space-string spaces) out)) - (let ((regexp (apply #'concat (nreverse out)))) - ;; Limited by `MAX_BUF_SIZE' in `regex.c'. - (if (> (length regexp) 5000) - (regexp-quote string) - regexp)))) - - -;;; Commands provided for completeness. -(defun character-fold-search-forward (string &optional bound noerror count) - "Search forward for a character-folded version of STRING. -STRING is converted to a regexp with `character-fold-to-regexp', -which is searched for with `re-search-forward'. -BOUND NOERROR COUNT are passed to `re-search-forward'." - (interactive "sSearch: ") - (re-search-forward (character-fold-to-regexp string) bound noerror count)) - -(defun character-fold-search-backward (string &optional bound noerror count) - "Search backward for a character-folded version of STRING. -STRING is converted to a regexp with `character-fold-to-regexp', -which is searched for with `re-search-backward'. -BOUND NOERROR COUNT are passed to `re-search-backward'." - (interactive "sSearch: ") - (re-search-backward (character-fold-to-regexp string) bound noerror count)) - -(provide 'character-fold) - -;;; character-fold.el ends here diff --git a/lisp/isearch.el b/lisp/isearch.el index 418d9ea..e4de0b6 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -222,7 +222,7 @@ It is nil if none yet.") Default value, nil, means edit the string instead." :type 'boolean) -(autoload 'character-fold-to-regexp "character-fold") +(autoload 'char-fold-to-regexp "char-fold") (defcustom search-default-mode nil "Default mode to use when starting isearch. @@ -236,7 +236,7 @@ isearch). If a function, use that function as an `isearch-regexp-function'. Example functions (and the keys to toggle them during isearch) are `word-search-regexp' \(`\\[isearch-toggle-word]'), `isearch-symbol-regexp' -\(`\\[isearch-toggle-symbol]'), and `character-fold-to-regexp' \(`\\[isearch-toggle-character-fold]')." +\(`\\[isearch-toggle-symbol]'), and `char-fold-to-regexp' \(`\\[isearch-toggle-char-fold]')." ;; :type is set below by `isearch-define-mode-toggle'. :type '(choice (const :tag "Literal search" nil) (const :tag "Regexp search" t) @@ -718,7 +718,7 @@ Type \\[isearch-toggle-invisible] to toggle search in invisible text. Type \\[isearch-toggle-regexp] to toggle regular-expression mode. Type \\[isearch-toggle-word] to toggle word mode. Type \\[isearch-toggle-symbol] to toggle symbol mode. -Type \\[isearch-toggle-character-fold] to toggle character folding. +Type \\[isearch-toggle-char-fold] to toggle character folding. Type \\[isearch-toggle-lax-whitespace] to toggle whitespace matching. In incremental searches, a space or spaces normally matches any whitespace @@ -1546,9 +1546,9 @@ The command then executes BODY and updates the isearch prompt." Turning on word search turns off regexp mode.") (isearch-define-mode-toggle symbol "_" isearch-symbol-regexp "\ Turning on symbol search turns off regexp mode.") -(isearch-define-mode-toggle character-fold "'" character-fold-to-regexp "\ +(isearch-define-mode-toggle char-fold "'" char-fold-to-regexp "\ Turning on character-folding turns off regexp mode.") -(put 'character-fold-to-regexp 'isearch-message-prefix "char-fold ") +(put 'char-fold-to-regexp 'isearch-message-prefix "char-fold ") (isearch-define-mode-toggle regexp "r" nil nil (setq isearch-regexp (not isearch-regexp)) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 6571a4b..640395e 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -1257,7 +1257,7 @@ mail status in mode line")) (defvar menu-bar-search-options-menu (let ((menu (make-sparse-keymap "Search Options"))) - (dolist (x '((character-fold-to-regexp "Fold Characters" "Character folding") + (dolist (x '((char-fold-to-regexp "Fold Characters" "Character folding") (isearch-symbol-regexp "Whole Symbols" "Whole symbol") (word-search-regexp "Whole Words" "Whole word"))) (bindings--define-key menu (vector (nth 0 x)) diff --git a/lisp/replace.el b/lisp/replace.el index 26e5875..fe90062 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -33,7 +33,7 @@ :type 'boolean :group 'matching) -(defcustom replace-character-fold nil +(defcustom replace-char-fold nil "Non-nil means replacement commands should do character folding in matches. This means, for instance, that \\=' will match a large variety of unicode quotes. @@ -324,7 +324,7 @@ If `replace-lax-whitespace' is non-nil, a space or spaces in the string to be replaced will match a sequence of whitespace chars defined by the regexp in `search-whitespace-regexp'. -If `replace-character-fold' is non-nil, matching uses character folding, +If `replace-char-fold' is non-nil, matching uses character folding, i.e. it ignores diacritics and other differences between equivalent character strings. @@ -383,7 +383,7 @@ If `replace-regexp-lax-whitespace' is non-nil, a space or spaces in the regexp to be replaced will match a sequence of whitespace chars defined by the regexp in `search-whitespace-regexp'. -This function is not affected by `replace-character-fold'. +This function is not affected by `replace-char-fold'. Third arg DELIMITED (prefix arg if interactive), if non-nil, means replace only matches surrounded by word boundaries. A negative prefix arg means @@ -474,7 +474,7 @@ If `replace-regexp-lax-whitespace' is non-nil, a space or spaces in the regexp to be replaced will match a sequence of whitespace chars defined by the regexp in `search-whitespace-regexp'. -This function is not affected by `replace-character-fold'. +This function is not affected by `replace-char-fold'. Third arg DELIMITED (prefix arg if interactive), if non-nil, means replace only matches that are surrounded by word boundaries. @@ -568,7 +568,7 @@ If `replace-lax-whitespace' is non-nil, a space or spaces in the string to be replaced will match a sequence of whitespace chars defined by the regexp in `search-whitespace-regexp'. -If `replace-character-fold' is non-nil, matching uses character folding, +If `replace-char-fold' is non-nil, matching uses character folding, i.e. it ignores diacritics and other differences between equivalent character strings. @@ -623,7 +623,7 @@ If `replace-regexp-lax-whitespace' is non-nil, a space or spaces in the regexp to be replaced will match a sequence of whitespace chars defined by the regexp in `search-whitespace-regexp'. -This function is not affected by `replace-character-fold' +This function is not affected by `replace-char-fold' In Transient Mark mode, if the mark is active, operate on the contents of the region. Otherwise, operate from point to the end of the buffer's @@ -2051,9 +2051,9 @@ It is called with three arguments, as if it were ;; used after `recursive-edit' might override them. (let* ((isearch-regexp regexp-flag) (isearch-regexp-function (or delimited-flag - (and replace-character-fold + (and replace-char-fold (not regexp-flag) - #'character-fold-to-regexp))) + #'char-fold-to-regexp))) (isearch-lax-whitespace replace-lax-whitespace) (isearch-regexp-lax-whitespace diff --git a/test/automated/char-fold-tests.el b/test/automated/char-fold-tests.el new file mode 100644 index 0000000..485254a --- /dev/null +++ b/test/automated/char-fold-tests.el @@ -0,0 +1,124 @@ +;;; char-fold-tests.el --- Tests for char-fold.el -*- lexical-binding: t; -*- + +;; Copyright (C) 2013-2016 Free Software Foundation, Inc. + +;; Author: Artur Malabarba + +;; This program 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. + +;; This program 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 this program. If not, see . + +;;; Code: + +(require 'ert) +(require 'char-fold) + +(defun char-fold--random-word (n) + (mapconcat (lambda (_) (string (+ 9 (random 117)))) + (make-list n nil) "")) + +(defun char-fold--test-search-with-contents (contents string) + (with-temp-buffer + (insert contents) + (goto-char (point-min)) + (should (search-forward-regexp (char-fold-to-regexp string) nil 'noerror)) + (goto-char (point-min)) + (should (char-fold-search-forward string nil 'noerror)) + (should (char-fold-search-backward string nil 'noerror)))) + + +(ert-deftest char-fold--test-consistency () + (dotimes (n 30) + (let ((w (char-fold--random-word n))) + ;; A folded string should always match the original string. + (char-fold--test-search-with-contents w w)))) + +(ert-deftest char-fold--test-lax-whitespace () + (dotimes (n 40) + (let ((w1 (char-fold--random-word n)) + (w2 (char-fold--random-word n)) + (search-spaces-regexp "\\s-+")) + (char-fold--test-search-with-contents + (concat w1 "\s\n\s\t\f\t\n\r\t" w2) + (concat w1 " " w2)) + (char-fold--test-search-with-contents + (concat w1 "\s\n\s\t\f\t\n\r\t" w2) + (concat w1 (make-string 10 ?\s) w2))))) + +(defun char-fold--test-match-exactly (string &rest strings-to-match) + (let ((re (concat "\\`" (char-fold-to-regexp string) "\\'"))) + (dolist (it strings-to-match) + (should (string-match re it))) + ;; Case folding + (let ((case-fold-search t)) + (dolist (it strings-to-match) + (should (string-match (upcase re) (downcase it))) + (should (string-match (downcase re) (upcase it))))))) + +(ert-deftest char-fold--test-some-defaults () + (dolist (it '(("ffl" . "ffl") ("ffi" . "ffi") + ("fi" . "fi") ("ff" . "ff") + ("ä" . "ä"))) + (char-fold--test-search-with-contents (cdr it) (car it)) + (let ((multi (char-table-extra-slot char-fold-table 0)) + (char-fold-table (make-char-table 'char-fold-table))) + (set-char-table-extra-slot char-fold-table 0 multi) + (char-fold--test-match-exactly (car it) (cdr it))))) + +(ert-deftest char-fold--test-fold-to-regexp () + (let ((char-fold-table (make-char-table 'char-fold-table)) + (multi (make-char-table 'char-fold-table))) + (set-char-table-extra-slot char-fold-table 0 multi) + (aset char-fold-table ?a "xx") + (aset char-fold-table ?1 "44") + (aset char-fold-table ?\s "-!-") + (char-fold--test-match-exactly "a1a1" "xx44xx44") + (char-fold--test-match-exactly "a1 a 1" "xx44-!--!-xx-!-44") + (aset multi ?a '(("1" . "99") + ("2" . "88") + ("12" . "77"))) + (char-fold--test-match-exactly "a" "xx") + (char-fold--test-match-exactly "a1" "xx44" "99") + (char-fold--test-match-exactly "a12" "77" "xx442" "992") + (char-fold--test-match-exactly "a2" "88") + (aset multi ?1 '(("2" . "yy"))) + (char-fold--test-match-exactly "a1" "xx44" "99") + (char-fold--test-match-exactly "a12" "77" "xx442" "992") + ;; Support for this case is disabled. See function definition or: + ;; https://lists.gnu.org/archive/html/emacs-devel/2015-11/msg02562.html + ;; (char-fold--test-match-exactly "a12" "xxyy") + )) + +(ert-deftest char-fold--speed-test () + (dolist (string (append '("tty-set-up-initial-frame-face" + "tty-set-up-initial-frame-face-frame-faceframe-faceframe-faceframe-face") + (mapcar #'char-fold--random-word '(10 50 100 + 50 100)))) + (message "Testing %s" string) + ;; Make sure we didn't just fallback on the trivial search. + (should-not (string= (regexp-quote string) + (char-fold-to-regexp string))) + (with-temp-buffer + (save-excursion (insert string)) + (let ((time (time-to-seconds (current-time)))) + ;; Our initial implementation of case-folding in char-folding + ;; created a lot of redundant paths in the regexp. Because of + ;; that, if a really long string "almost" matches, the regexp + ;; engine took a long time to realize that it doesn't match. + (should-not (char-fold-search-forward (concat string "c") nil 'noerror)) + ;; Ensure it took less than a second. + (should (< (- (time-to-seconds (current-time)) + time) + 1)))))) + +(provide 'char-fold-tests) +;;; char-fold-tests.el ends here diff --git a/test/automated/character-fold-tests.el b/test/automated/character-fold-tests.el deleted file mode 100644 index c611217..0000000 --- a/test/automated/character-fold-tests.el +++ /dev/null @@ -1,124 +0,0 @@ -;;; character-fold-tests.el --- Tests for character-fold.el -*- lexical-binding: t; -*- - -;; Copyright (C) 2013-2016 Free Software Foundation, Inc. - -;; Author: Artur Malabarba - -;; This program 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. - -;; This program 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 this program. If not, see . - -;;; Code: - -(require 'ert) -(require 'character-fold) - -(defun character-fold--random-word (n) - (mapconcat (lambda (_) (string (+ 9 (random 117)))) - (make-list n nil) "")) - -(defun character-fold--test-search-with-contents (contents string) - (with-temp-buffer - (insert contents) - (goto-char (point-min)) - (should (search-forward-regexp (character-fold-to-regexp string) nil 'noerror)) - (goto-char (point-min)) - (should (character-fold-search-forward string nil 'noerror)) - (should (character-fold-search-backward string nil 'noerror)))) - - -(ert-deftest character-fold--test-consistency () - (dotimes (n 30) - (let ((w (character-fold--random-word n))) - ;; A folded string should always match the original string. - (character-fold--test-search-with-contents w w)))) - -(ert-deftest character-fold--test-lax-whitespace () - (dotimes (n 40) - (let ((w1 (character-fold--random-word n)) - (w2 (character-fold--random-word n)) - (search-spaces-regexp "\\s-+")) - (character-fold--test-search-with-contents - (concat w1 "\s\n\s\t\f\t\n\r\t" w2) - (concat w1 " " w2)) - (character-fold--test-search-with-contents - (concat w1 "\s\n\s\t\f\t\n\r\t" w2) - (concat w1 (make-string 10 ?\s) w2))))) - -(defun character-fold--test-match-exactly (string &rest strings-to-match) - (let ((re (concat "\\`" (character-fold-to-regexp string) "\\'"))) - (dolist (it strings-to-match) - (should (string-match re it))) - ;; Case folding - (let ((case-fold-search t)) - (dolist (it strings-to-match) - (should (string-match (upcase re) (downcase it))) - (should (string-match (downcase re) (upcase it))))))) - -(ert-deftest character-fold--test-some-defaults () - (dolist (it '(("ffl" . "ffl") ("ffi" . "ffi") - ("fi" . "fi") ("ff" . "ff") - ("ä" . "ä"))) - (character-fold--test-search-with-contents (cdr it) (car it)) - (let ((multi (char-table-extra-slot character-fold-table 0)) - (character-fold-table (make-char-table 'character-fold-table))) - (set-char-table-extra-slot character-fold-table 0 multi) - (character-fold--test-match-exactly (car it) (cdr it))))) - -(ert-deftest character-fold--test-fold-to-regexp () - (let ((character-fold-table (make-char-table 'character-fold-table)) - (multi (make-char-table 'character-fold-table))) - (set-char-table-extra-slot character-fold-table 0 multi) - (aset character-fold-table ?a "xx") - (aset character-fold-table ?1 "44") - (aset character-fold-table ?\s "-!-") - (character-fold--test-match-exactly "a1a1" "xx44xx44") - (character-fold--test-match-exactly "a1 a 1" "xx44-!--!-xx-!-44") - (aset multi ?a '(("1" . "99") - ("2" . "88") - ("12" . "77"))) - (character-fold--test-match-exactly "a" "xx") - (character-fold--test-match-exactly "a1" "xx44" "99") - (character-fold--test-match-exactly "a12" "77" "xx442" "992") - (character-fold--test-match-exactly "a2" "88") - (aset multi ?1 '(("2" . "yy"))) - (character-fold--test-match-exactly "a1" "xx44" "99") - (character-fold--test-match-exactly "a12" "77" "xx442" "992") - ;; Support for this case is disabled. See function definition or: - ;; https://lists.gnu.org/archive/html/emacs-devel/2015-11/msg02562.html - ;; (character-fold--test-match-exactly "a12" "xxyy") - )) - -(ert-deftest character-fold--speed-test () - (dolist (string (append '("tty-set-up-initial-frame-face" - "tty-set-up-initial-frame-face-frame-faceframe-faceframe-faceframe-face") - (mapcar #'character-fold--random-word '(10 50 100 - 50 100)))) - (message "Testing %s" string) - ;; Make sure we didn't just fallback on the trivial search. - (should-not (string= (regexp-quote string) - (character-fold-to-regexp string))) - (with-temp-buffer - (save-excursion (insert string)) - (let ((time (time-to-seconds (current-time)))) - ;; Our initial implementation of case-folding in char-folding - ;; created a lot of redundant paths in the regexp. Because of - ;; that, if a really long string "almost" matches, the regexp - ;; engine took a long time to realize that it doesn't match. - (should-not (character-fold-search-forward (concat string "c") nil 'noerror)) - ;; Ensure it took less than a second. - (should (< (- (time-to-seconds (current-time)) - time) - 1)))))) - -(provide 'character-fold-tests) -;;; character-fold-tests.el ends here commit a35826dbd44122b97e93d0c67bf658ced0a07ec6 (tag: refs/tags/emacs-25.0.94) Author: Nicolas Petton Date: Tue May 17 19:00:52 2016 +0200 Bump version to 25.0.94 * README: * configure.ac: * msdos/sed2v2.inp: Bump Emacs version to 25.0.94. diff --git a/README b/README index 915d290..0cac434 100644 --- a/README +++ b/README @@ -2,7 +2,7 @@ Copyright (C) 2001-2016 Free Software Foundation, Inc. See the end of the file for license conditions. -This directory tree holds version 25.0.93 of GNU Emacs, the extensible, +This directory tree holds version 25.0.94 of GNU Emacs, the extensible, customizable, self-documenting real-time display editor. The file INSTALL in this directory says how to build and install GNU diff --git a/configure.ac b/configure.ac index 8f8c38b..677d4e1 100644 --- a/configure.ac +++ b/configure.ac @@ -23,7 +23,7 @@ dnl along with GNU Emacs. If not, see . AC_PREREQ(2.65) dnl Note this is parsed by (at least) make-dist and lisp/cedet/ede/emacs.el. -AC_INIT(GNU Emacs, 25.0.93, bug-gnu-emacs@gnu.org) +AC_INIT(GNU Emacs, 25.0.94, bug-gnu-emacs@gnu.org) dnl Set emacs_config_options to the options of 'configure', quoted for the shell, dnl and then quoted again for a C string. Separate options with spaces. diff --git a/msdos/sed2v2.inp b/msdos/sed2v2.inp index 9f4ff83..cb2be72 100644 --- a/msdos/sed2v2.inp +++ b/msdos/sed2v2.inp @@ -66,7 +66,7 @@ /^#undef PACKAGE_TARNAME/s/^.*$/#define PACKAGE_TARNAME ""/ /^#undef PACKAGE_VERSION/s/^.*$/#define PACKAGE_VERSION VERSION/ /^#undef PENDING_OUTPUT_COUNT/s/^.*$/#define PENDING_OUTPUT_COUNT(FILE) ((FILE)->_ptr - (FILE)->_base)/ -/^#undef VERSION/s/^.*$/#define VERSION "25.0.93"/ +/^#undef VERSION/s/^.*$/#define VERSION "25.0.94"/ /^#undef SYSTEM_TYPE/s/^.*$/#define SYSTEM_TYPE "ms-dos"/ /^#undef HAVE_DECL_GETENV/s/^.*$/#define HAVE_DECL_GETENV 1/ /^#undef SYS_SIGLIST_DECLARED/s/^.*$/#define SYS_SIGLIST_DECLARED 1/ commit 2d76405c5b7c189cb48348126f1ee4c8cea7ad39 Author: Nicolas Petton Date: Tue May 17 19:00:47 2016 +0200 etc/AUTHORS: Update the AUTHORS file diff --git a/etc/AUTHORS b/etc/AUTHORS index 14e4fd3..760d735 100644 --- a/etc/AUTHORS +++ b/etc/AUTHORS @@ -1161,6 +1161,7 @@ Dmitry Dzhus: changed gdb-mi.el gud.el fadr.el all.xpm building.texi Dmitry Gorbik: changed org.el Dmitry Gutov: wrote elisp-mode-tests.el json-tests.el vc-hg.el + xref-tests.el and changed ruby-mode.el xref.el elisp-mode.el etags.el project.el ruby-mode-tests.el vc-git.el ruby.rb package.el vc.el js.el log-edit.el menu-bar.el vc-svn.el minibuffer.el package-test.el progmodes/grep.el @@ -3480,7 +3481,7 @@ and co-wrote cal-dst.el and changed lisp.h configure.ac alloc.c process.c xdisp.c fileio.c sysdep.c keyboard.c image.c editfns.c emacs.c xterm.c lread.c data.c callproc.c fns.c Makefile.in eval.c buffer.c dispnew.c gnulib.mk - and 1472 other files + and 1473 other files Paul Fisher: changed fns.c commit a8a238492efa2c1930a68994392fd466713a511e Author: Nicolas Petton Date: Tue May 17 18:59:48 2016 +0200 ; Auto-commit of loaddefs files. diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index ff993c4..b1f0432 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el @@ -3,7 +3,7 @@ ;;; Code: -;;;### (autoloads nil "5x5" "play/5x5.el" (22150 28228 674072 702000)) +;;;### (autoloads nil "5x5" "play/5x5.el" (22330 59913 969323 446000)) ;;; 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" (22197 58438 -;;;;;; 383460 447000)) +;;;### (autoloads nil "ada-mode" "progmodes/ada-mode.el" (22330 59913 +;;;;;; 977323 421000)) ;;; 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" (22150 28228 -;;;;;; 750072 702000)) +;;;### (autoloads nil "ada-stmt" "progmodes/ada-stmt.el" (22330 59913 +;;;;;; 978323 418000)) ;;; 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" (22150 28228 -;;;;;; 754072 702000)) +;;;### (autoloads nil "ada-xref" "progmodes/ada-xref.el" (22331 17372 +;;;;;; 88369 281000)) ;;; 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" (22284 55604 194845 -;;;;;; 171000)) +;;;### (autoloads nil "add-log" "vc/add-log.el" (22331 17372 121369 +;;;;;; 164000)) ;;; 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" (22150 28227 -;;;;;; 338072 702000)) +;;;### (autoloads nil "advice" "emacs-lisp/advice.el" (22331 17371 +;;;;;; 987369 640000)) ;;; 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" (22154 25280 740828 526000)) +;;;### (autoloads nil "align" "align.el" (22331 17371 979369 668000)) ;;; Generated autoloads from align.el (autoload 'align "align" "\ @@ -472,12 +472,14 @@ Remove any highlighting that was added by `align-highlight-rule'. (autoload 'align-newline-and-indent "align" "\ A replacement function for `newline-and-indent', aligning as it goes. +The alignment is done by calling `align' on the region that was +indented. \(fn)" t nil) ;;;*** -;;;### (autoloads nil "allout" "allout.el" (22189 64323 68321 19000)) +;;;### (autoloads nil "allout" "allout.el" (22330 59913 751324 119000)) ;;; Generated autoloads from allout.el (push (purecopy '(allout 2 3)) package--builtin-versions) @@ -837,8 +839,8 @@ for details on preparing Emacs for automatic allout activation. ;;;*** -;;;### (autoloads nil "allout-widgets" "allout-widgets.el" (22150 -;;;;;; 28226 938072 702000)) +;;;### (autoloads nil "allout-widgets" "allout-widgets.el" (22330 +;;;;;; 59913 751324 119000)) ;;; Generated autoloads from allout-widgets.el (push (purecopy '(allout-widgets 1 0)) package--builtin-versions) @@ -896,8 +898,8 @@ outline hot-spot navigation (see `allout-mode'). ;;;*** -;;;### (autoloads nil "ange-ftp" "net/ange-ftp.el" (22150 28228 350072 -;;;;;; 702000)) +;;;### (autoloads nil "ange-ftp" "net/ange-ftp.el" (22330 59913 952323 +;;;;;; 498000)) ;;; Generated autoloads from net/ange-ftp.el (defalias 'ange-ftp-re-read-dir 'ange-ftp-reread-dir) @@ -918,8 +920,8 @@ directory, so that Emacs will know its current contents. ;;;*** -;;;### (autoloads nil "animate" "play/animate.el" (22150 28228 674072 -;;;;;; 702000)) +;;;### (autoloads nil "animate" "play/animate.el" (22330 59913 969323 +;;;;;; 446000)) ;;; Generated autoloads from play/animate.el (autoload 'animate-string "animate" "\ @@ -951,8 +953,8 @@ the buffer *Birthday-Present-for-Name*. ;;;*** -;;;### (autoloads nil "ansi-color" "ansi-color.el" (22150 28226 942072 -;;;;;; 702000)) +;;;### (autoloads nil "ansi-color" "ansi-color.el" (22330 59913 751324 +;;;;;; 119000)) ;;; Generated autoloads from ansi-color.el (push (purecopy '(ansi-color 3 4 2)) package--builtin-versions) @@ -978,8 +980,8 @@ This is a good function to put in `comint-output-filter-functions'. ;;;*** -;;;### (autoloads nil "antlr-mode" "progmodes/antlr-mode.el" (22182 -;;;;;; 44208 579853 279000)) +;;;### (autoloads nil "antlr-mode" "progmodes/antlr-mode.el" (22330 +;;;;;; 59913 978323 418000)) ;;; Generated autoloads from progmodes/antlr-mode.el (push (purecopy '(antlr-mode 2 2 3)) package--builtin-versions) @@ -1015,8 +1017,8 @@ Used in `antlr-mode'. Also a useful function in `java-mode-hook'. ;;;*** -;;;### (autoloads nil "appt" "calendar/appt.el" (22150 28227 46072 -;;;;;; 702000)) +;;;### (autoloads nil "appt" "calendar/appt.el" (22331 17371 981369 +;;;;;; 661000)) ;;; Generated autoloads from calendar/appt.el (autoload 'appt-add "appt" "\ @@ -1037,8 +1039,8 @@ ARG is positive, otherwise off. ;;;*** -;;;### (autoloads nil "apropos" "apropos.el" (22224 48490 143402 -;;;;;; 355000)) +;;;### (autoloads nil "apropos" "apropos.el" (22331 17371 980369 +;;;;;; 665000)) ;;; Generated autoloads from apropos.el (autoload 'apropos-read-pattern "apropos" "\ @@ -1154,8 +1156,8 @@ Returns list of symbols and documentation found. ;;;*** -;;;### (autoloads nil "arc-mode" "arc-mode.el" (22150 28226 946072 -;;;;;; 702000)) +;;;### (autoloads nil "arc-mode" "arc-mode.el" (22330 59913 751324 +;;;;;; 119000)) ;;; Generated autoloads from arc-mode.el (autoload 'archive-mode "arc-mode" "\ @@ -1175,7 +1177,7 @@ archive. ;;;*** -;;;### (autoloads nil "array" "array.el" (22150 28226 946072 702000)) +;;;### (autoloads nil "array" "array.el" (22330 59913 751324 119000)) ;;; Generated autoloads from array.el (autoload 'array-mode "array" "\ @@ -1246,8 +1248,8 @@ Entering array mode calls the function `array-mode-hook'. ;;;*** -;;;### (autoloads nil "artist" "textmodes/artist.el" (22150 28229 -;;;;;; 86072 702000)) +;;;### (autoloads nil "artist" "textmodes/artist.el" (22330 59913 +;;;;;; 988323 387000)) ;;; Generated autoloads from textmodes/artist.el (push (purecopy '(artist 1 2 6)) package--builtin-versions) @@ -1453,8 +1455,8 @@ Keymap summary ;;;*** -;;;### (autoloads nil "asm-mode" "progmodes/asm-mode.el" (22150 28228 -;;;;;; 758072 702000)) +;;;### (autoloads nil "asm-mode" "progmodes/asm-mode.el" (22330 59913 +;;;;;; 978323 418000)) ;;; Generated autoloads from progmodes/asm-mode.el (autoload 'asm-mode "asm-mode" "\ @@ -1481,8 +1483,8 @@ Special commands: ;;;*** -;;;### (autoloads nil "auth-source" "gnus/auth-source.el" (22150 -;;;;;; 28227 658072 702000)) +;;;### (autoloads nil "auth-source" "gnus/auth-source.el" (22331 +;;;;;; 17372 13369 548000)) ;;; Generated autoloads from gnus/auth-source.el (defvar auth-source-cache-expiry 7200 "\ @@ -1494,13 +1496,14 @@ let-binding.") ;;;*** -;;;### (autoloads nil "autoarg" "autoarg.el" (22150 28226 946072 -;;;;;; 702000)) +;;;### (autoloads nil "autoarg" "autoarg.el" (22330 59913 751324 +;;;;;; 119000)) ;;; Generated autoloads from autoarg.el (defvar autoarg-mode nil "\ Non-nil if Autoarg mode is enabled. -See the command `autoarg-mode' for a description of this minor mode.") +See the `autoarg-mode' command +for a description of this minor mode.") (custom-autoload 'autoarg-mode "autoarg" nil) @@ -1532,7 +1535,8 @@ then invokes the normal binding of \\[autoarg-terminate]. (defvar autoarg-kp-mode nil "\ Non-nil if Autoarg-Kp mode is enabled. -See the command `autoarg-kp-mode' for a description of this minor mode. +See the `autoarg-kp-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `autoarg-kp-mode'.") @@ -1555,8 +1559,8 @@ This is similar to `autoarg-mode' but rebinds the keypad keys ;;;*** -;;;### (autoloads nil "autoconf" "progmodes/autoconf.el" (22150 28228 -;;;;;; 758072 702000)) +;;;### (autoloads nil "autoconf" "progmodes/autoconf.el" (22330 59913 +;;;;;; 978323 418000)) ;;; Generated autoloads from progmodes/autoconf.el (autoload 'autoconf-mode "autoconf" "\ @@ -1566,8 +1570,8 @@ Major mode for editing Autoconf configure.ac files. ;;;*** -;;;### (autoloads nil "autoinsert" "autoinsert.el" (22192 2880 903382 -;;;;;; 391000)) +;;;### (autoloads nil "autoinsert" "autoinsert.el" (22330 59913 751324 +;;;;;; 119000)) ;;; Generated autoloads from autoinsert.el (autoload 'auto-insert "autoinsert" "\ @@ -1585,7 +1589,8 @@ or if CONDITION had no actions, after all other CONDITIONs. (defvar auto-insert-mode nil "\ Non-nil if Auto-Insert mode is enabled. -See the command `auto-insert-mode' for a description of this minor mode. +See the `auto-insert-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `auto-insert-mode'.") @@ -1605,8 +1610,8 @@ insert a template for the file depending on the mode of the buffer. ;;;*** -;;;### (autoloads nil "autoload" "emacs-lisp/autoload.el" (22302 -;;;;;; 35693 265420 723000)) +;;;### (autoloads nil "autoload" "emacs-lisp/autoload.el" (22331 +;;;;;; 17371 988369 637000)) ;;; Generated autoloads from emacs-lisp/autoload.el (put 'generated-autoload-file 'safe-local-variable 'stringp) @@ -1657,8 +1662,8 @@ should be non-nil). ;;;*** -;;;### (autoloads nil "autorevert" "autorevert.el" (22292 49734 698738 -;;;;;; 351000)) +;;;### (autoloads nil "autorevert" "autorevert.el" (22331 17371 980369 +;;;;;; 665000)) ;;; Generated autoloads from autorevert.el (autoload 'auto-revert-mode "autorevert" "\ @@ -1715,7 +1720,8 @@ This function is designed to be added to hooks, for example: (defvar global-auto-revert-mode nil "\ Non-nil if Global Auto-Revert mode is enabled. -See the command `global-auto-revert-mode' for a description of this minor mode. +See the `global-auto-revert-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-auto-revert-mode'.") @@ -1746,7 +1752,7 @@ specifies in the mode line. ;;;*** -;;;### (autoloads nil "avoid" "avoid.el" (22150 28226 946072 702000)) +;;;### (autoloads nil "avoid" "avoid.el" (22330 59913 751324 119000)) ;;; Generated autoloads from avoid.el (defvar mouse-avoidance-mode nil "\ @@ -1784,8 +1790,8 @@ definition of \"random distance\".) ;;;*** -;;;### (autoloads nil "bat-mode" "progmodes/bat-mode.el" (22150 28228 -;;;;;; 758072 702000)) +;;;### (autoloads nil "bat-mode" "progmodes/bat-mode.el" (22330 59913 +;;;;;; 978323 418000)) ;;; Generated autoloads from progmodes/bat-mode.el (add-to-list 'auto-mode-alist '("\\.\\(bat\\|cmd\\)\\'" . bat-mode)) @@ -1803,8 +1809,8 @@ Run script using `bat-run' and `bat-run-args'. ;;;*** -;;;### (autoloads nil "battery" "battery.el" (22216 22852 972596 -;;;;;; 491000)) +;;;### (autoloads nil "battery" "battery.el" (22331 17371 980369 +;;;;;; 665000)) ;;; Generated autoloads from battery.el (put 'battery-mode-line-string 'risky-local-variable t) @@ -1817,7 +1823,8 @@ The text being displayed in the echo area is controlled by the variables (defvar display-battery-mode nil "\ Non-nil if Display-Battery mode is enabled. -See the command `display-battery-mode' for a description of this minor mode. +See the `display-battery-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `display-battery-mode'.") @@ -1839,8 +1846,8 @@ seconds. ;;;*** -;;;### (autoloads nil "benchmark" "emacs-lisp/benchmark.el" (22150 -;;;;;; 28227 338072 702000)) +;;;### (autoloads nil "benchmark" "emacs-lisp/benchmark.el" (22330 +;;;;;; 59913 928323 572000)) ;;; Generated autoloads from emacs-lisp/benchmark.el (autoload 'benchmark-run "benchmark" "\ @@ -1876,8 +1883,8 @@ For non-interactive use see also `benchmark-run' and ;;;*** -;;;### (autoloads nil "bibtex" "textmodes/bibtex.el" (22150 28229 -;;;;;; 94072 702000)) +;;;### (autoloads nil "bibtex" "textmodes/bibtex.el" (22330 59913 +;;;;;; 990323 381000)) ;;; Generated autoloads from textmodes/bibtex.el (autoload 'bibtex-initialize "bibtex" "\ @@ -1969,7 +1976,7 @@ A prefix arg negates the value of `bibtex-search-entry-globally'. ;;;*** ;;;### (autoloads nil "bibtex-style" "textmodes/bibtex-style.el" -;;;;;; (22150 28229 86072 702000)) +;;;;;; (22330 59913 990323 381000)) ;;; Generated autoloads from textmodes/bibtex-style.el (autoload 'bibtex-style-mode "bibtex-style" "\ @@ -1979,8 +1986,8 @@ Major mode for editing BibTeX style files. ;;;*** -;;;### (autoloads nil "binhex" "mail/binhex.el" (22150 28228 226072 -;;;;;; 702000)) +;;;### (autoloads nil "binhex" "mail/binhex.el" (22330 59913 947323 +;;;;;; 514000)) ;;; Generated autoloads from mail/binhex.el (defconst binhex-begin-line "^:...............................................................$" "\ @@ -2004,8 +2011,8 @@ Binhex decode region between START and END. ;;;*** -;;;### (autoloads nil "blackbox" "play/blackbox.el" (22150 28228 -;;;;;; 674072 702000)) +;;;### (autoloads nil "blackbox" "play/blackbox.el" (22330 59913 +;;;;;; 969323 446000)) ;;; Generated autoloads from play/blackbox.el (autoload 'blackbox "blackbox" "\ @@ -2124,8 +2131,8 @@ a reflection. ;;;*** -;;;### (autoloads nil "bookmark" "bookmark.el" (22301 64691 837087 -;;;;;; 484000)) +;;;### (autoloads nil "bookmark" "bookmark.el" (22330 59913 737324 +;;;;;; 162000)) ;;; Generated autoloads from bookmark.el (define-key ctl-x-r-map "b" 'bookmark-jump) (define-key ctl-x-r-map "m" 'bookmark-set) @@ -2349,8 +2356,8 @@ Incremental search of bookmarks, hiding the non-matches as we go. ;;;*** -;;;### (autoloads nil "browse-url" "net/browse-url.el" (22189 64323 -;;;;;; 280321 19000)) +;;;### (autoloads nil "browse-url" "net/browse-url.el" (22330 59913 +;;;;;; 952323 498000)) ;;; Generated autoloads from net/browse-url.el (defvar browse-url-browser-function 'browse-url-default-browser "\ @@ -2698,7 +2705,7 @@ from `browse-url-elinks-wrapper'. ;;;*** -;;;### (autoloads nil "bs" "bs.el" (22150 28226 950072 702000)) +;;;### (autoloads nil "bs" "bs.el" (22330 59913 751324 119000)) ;;; Generated autoloads from bs.el (push (purecopy '(bs 1 17)) package--builtin-versions) @@ -2739,8 +2746,8 @@ name of buffer configuration. ;;;*** -;;;### (autoloads nil "bubbles" "play/bubbles.el" (22150 28228 674072 -;;;;;; 702000)) +;;;### (autoloads nil "bubbles" "play/bubbles.el" (22330 59913 969323 +;;;;;; 446000)) ;;; Generated autoloads from play/bubbles.el (autoload 'bubbles "bubbles" "\ @@ -2762,7 +2769,7 @@ columns on its right towards the left. ;;;*** ;;;### (autoloads nil "bug-reference" "progmodes/bug-reference.el" -;;;;;; (22150 28228 758072 702000)) +;;;;;; (22330 59913 978323 418000)) ;;; 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))))) @@ -2782,8 +2789,8 @@ Like `bug-reference-mode', but only buttonize in comments and strings. ;;;*** -;;;### (autoloads nil "bytecomp" "emacs-lisp/bytecomp.el" (22195 -;;;;;; 16710 339344 967000)) +;;;### (autoloads nil "bytecomp" "emacs-lisp/bytecomp.el" (22331 +;;;;;; 17371 989369 633000)) ;;; 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) @@ -2903,16 +2910,16 @@ and corresponding effects. ;;;*** -;;;### (autoloads nil "cal-china" "calendar/cal-china.el" (22192 -;;;;;; 2880 911382 391000)) +;;;### (autoloads nil "cal-china" "calendar/cal-china.el" (22330 +;;;;;; 59913 919323 600000)) ;;; Generated autoloads from calendar/cal-china.el (put 'calendar-chinese-time-zone 'risky-local-variable t) ;;;*** -;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (22150 28227 -;;;;;; 50072 702000)) +;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (22330 59913 +;;;;;; 919323 600000)) ;;; Generated autoloads from calendar/cal-dst.el (put 'calendar-daylight-savings-starts 'risky-local-variable t) @@ -2923,8 +2930,8 @@ and corresponding effects. ;;;*** -;;;### (autoloads nil "cal-hebrew" "calendar/cal-hebrew.el" (22150 -;;;;;; 28227 50072 702000)) +;;;### (autoloads nil "cal-hebrew" "calendar/cal-hebrew.el" (22331 +;;;;;; 17371 981369 661000)) ;;; Generated autoloads from calendar/cal-hebrew.el (autoload 'calendar-hebrew-list-yahrzeits "cal-hebrew" "\ @@ -2936,7 +2943,7 @@ from the cursor position. ;;;*** -;;;### (autoloads nil "calc" "calc/calc.el" (22150 28227 26072 702000)) +;;;### (autoloads nil "calc" "calc/calc.el" (22330 59913 918323 603000)) ;;; Generated autoloads from calc/calc.el (define-key ctl-x-map "*" 'calc-dispatch) @@ -3022,8 +3029,8 @@ See Info node `(calc)Defining Functions'. ;;;*** -;;;### (autoloads nil "calc-undo" "calc/calc-undo.el" (22150 28227 -;;;;;; 22072 702000)) +;;;### (autoloads nil "calc-undo" "calc/calc-undo.el" (22330 59913 +;;;;;; 918323 603000)) ;;; Generated autoloads from calc/calc-undo.el (autoload 'calc-undo "calc-undo" "\ @@ -3033,8 +3040,8 @@ See Info node `(calc)Defining Functions'. ;;;*** -;;;### (autoloads nil "calculator" "calculator.el" (22222 61645 281665 -;;;;;; 355000)) +;;;### (autoloads nil "calculator" "calculator.el" (22331 17371 981369 +;;;;;; 661000)) ;;; Generated autoloads from calculator.el (autoload 'calculator "calculator" "\ @@ -3045,8 +3052,8 @@ See the documentation for `calculator-mode' for more information. ;;;*** -;;;### (autoloads nil "calendar" "calendar/calendar.el" (22192 2880 -;;;;;; 919382 391000)) +;;;### (autoloads nil "calendar" "calendar/calendar.el" (22330 59913 +;;;;;; 919323 600000)) ;;; Generated autoloads from calendar/calendar.el (autoload 'calendar "calendar" "\ @@ -3089,8 +3096,8 @@ This function is suitable for execution in an init file. ;;;*** -;;;### (autoloads nil "canlock" "gnus/canlock.el" (22150 28227 658072 -;;;;;; 702000)) +;;;### (autoloads nil "canlock" "gnus/canlock.el" (22331 17372 13369 +;;;;;; 548000)) ;;; Generated autoloads from gnus/canlock.el (autoload 'canlock-insert-header "canlock" "\ @@ -3107,8 +3114,8 @@ it fails. ;;;*** -;;;### (autoloads nil "cc-engine" "progmodes/cc-engine.el" (22308 -;;;;;; 37947 170422 527000)) +;;;### (autoloads nil "cc-engine" "progmodes/cc-engine.el" (22331 +;;;;;; 17372 91369 271000)) ;;; Generated autoloads from progmodes/cc-engine.el (autoload 'c-guess-basic-syntax "cc-engine" "\ @@ -3118,8 +3125,8 @@ Return the syntactic context of the current line. ;;;*** -;;;### (autoloads nil "cc-guess" "progmodes/cc-guess.el" (22150 28228 -;;;;;; 790072 702000)) +;;;### (autoloads nil "cc-guess" "progmodes/cc-guess.el" (22330 59913 +;;;;;; 978323 418000)) ;;; Generated autoloads from progmodes/cc-guess.el (defvar c-guess-guessed-offsets-alist nil "\ @@ -3217,8 +3224,8 @@ the absolute file name of the file if STYLE-NAME is nil. ;;;*** -;;;### (autoloads nil "cc-mode" "progmodes/cc-mode.el" (22162 19398 -;;;;;; 889892 547000)) +;;;### (autoloads nil "cc-mode" "progmodes/cc-mode.el" (22331 17372 +;;;;;; 92369 267000)) ;;; Generated autoloads from progmodes/cc-mode.el (autoload 'c-initialize-cc-mode "cc-mode" "\ @@ -3376,8 +3383,8 @@ Key bindings: ;;;*** -;;;### (autoloads nil "cc-styles" "progmodes/cc-styles.el" (22150 -;;;;;; 28228 798072 702000)) +;;;### (autoloads nil "cc-styles" "progmodes/cc-styles.el" (22330 +;;;;;; 59913 978323 418000)) ;;; Generated autoloads from progmodes/cc-styles.el (autoload 'c-set-style "cc-styles" "\ @@ -3428,8 +3435,8 @@ and exists only for compatibility reasons. ;;;*** -;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (22150 28228 -;;;;;; 802072 702000)) +;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (22331 17377 +;;;;;; 953348 450000)) ;;; Generated autoloads from progmodes/cc-vars.el (put 'c-basic-offset 'safe-local-variable 'integerp) (put 'c-backslash-column 'safe-local-variable 'integerp) @@ -3437,8 +3444,8 @@ and exists only for compatibility reasons. ;;;*** -;;;### (autoloads nil "ccl" "international/ccl.el" (22150 28228 106072 -;;;;;; 702000)) +;;;### (autoloads nil "ccl" "international/ccl.el" (22330 59913 939323 +;;;;;; 538000)) ;;; Generated autoloads from international/ccl.el (autoload 'ccl-compile "ccl" "\ @@ -3731,8 +3738,8 @@ See the documentation of `define-ccl-program' for the detail of CCL program. ;;;*** -;;;### (autoloads nil "cconv" "emacs-lisp/cconv.el" (22150 28227 -;;;;;; 358072 702000)) +;;;### (autoloads nil "cconv" "emacs-lisp/cconv.el" (22330 59913 +;;;;;; 929323 569000)) ;;; Generated autoloads from emacs-lisp/cconv.el (autoload 'cconv-closure-convert "cconv" "\ @@ -3751,15 +3758,15 @@ Add the warnings that closure conversion would encounter. ;;;*** -;;;### (autoloads nil "cedet" "cedet/cedet.el" (22150 28227 146072 -;;;;;; 702000)) +;;;### (autoloads nil "cedet" "cedet/cedet.el" (22330 59913 920323 +;;;;;; 597000)) ;;; Generated autoloads from cedet/cedet.el (push (purecopy '(cedet 2 0)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "cfengine" "progmodes/cfengine.el" (22150 28228 -;;;;;; 802072 702000)) +;;;### (autoloads nil "cfengine" "progmodes/cfengine.el" (22330 59913 +;;;;;; 978323 418000)) ;;; Generated autoloads from progmodes/cfengine.el (push (purecopy '(cfengine 1 4)) package--builtin-versions) @@ -3788,8 +3795,8 @@ Choose `cfengine2-mode' or `cfengine3-mode' by buffer contents. ;;;*** -;;;### (autoloads nil "character-fold" "character-fold.el" (22150 -;;;;;; 28227 274072 702000)) +;;;### (autoloads nil "character-fold" "character-fold.el" (22330 +;;;;;; 59913 751324 119000)) ;;; Generated autoloads from character-fold.el (autoload 'character-fold-to-regexp "character-fold" "\ @@ -3808,15 +3815,15 @@ from which to start. ;;;*** -;;;### (autoloads nil "chart" "emacs-lisp/chart.el" (22150 28227 -;;;;;; 358072 702000)) +;;;### (autoloads nil "chart" "emacs-lisp/chart.el" (22330 59913 +;;;;;; 929323 569000)) ;;; Generated autoloads from emacs-lisp/chart.el (push (purecopy '(chart 0 2)) package--builtin-versions) ;;;*** ;;;### (autoloads nil "check-declare" "emacs-lisp/check-declare.el" -;;;;;; (22296 46772 428104 103000)) +;;;;;; (22331 17371 989369 633000)) ;;; Generated autoloads from emacs-lisp/check-declare.el (autoload 'check-declare-file "check-declare" "\ @@ -3833,8 +3840,8 @@ Returns non-nil if any false statements are found. ;;;*** -;;;### (autoloads nil "checkdoc" "emacs-lisp/checkdoc.el" (22197 -;;;;;; 58438 127460 447000)) +;;;### (autoloads nil "checkdoc" "emacs-lisp/checkdoc.el" (22331 +;;;;;; 17371 990369 629000)) ;;; 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) @@ -4044,8 +4051,8 @@ Find package keywords that aren't in `finder-known-keywords'. ;;;*** -;;;### (autoloads nil "china-util" "language/china-util.el" (22150 -;;;;;; 28228 162072 702000)) +;;;### (autoloads nil "china-util" "language/china-util.el" (22330 +;;;;;; 59913 940323 535000)) ;;; Generated autoloads from language/china-util.el (autoload 'decode-hz-region "china-util" "\ @@ -4082,8 +4089,8 @@ Encode the text in the current buffer to HZ. ;;;*** -;;;### (autoloads nil "chistory" "chistory.el" (22150 28227 274072 -;;;;;; 702000)) +;;;### (autoloads nil "chistory" "chistory.el" (22330 59913 751324 +;;;;;; 119000)) ;;; Generated autoloads from chistory.el (autoload 'repeat-matching-complex-command "chistory" "\ @@ -4122,8 +4129,8 @@ and runs the normal hook `command-history-hook'. ;;;*** -;;;### (autoloads nil "cl-indent" "emacs-lisp/cl-indent.el" (22150 -;;;;;; 28227 366072 702000)) +;;;### (autoloads nil "cl-indent" "emacs-lisp/cl-indent.el" (22330 +;;;;;; 59913 929323 569000)) ;;; Generated autoloads from emacs-lisp/cl-indent.el (autoload 'common-lisp-indent-function "cl-indent" "\ @@ -4206,8 +4213,8 @@ instead. ;;;*** -;;;### (autoloads nil "cl-lib" "emacs-lisp/cl-lib.el" (22220 19926 -;;;;;; 380329 271000)) +;;;### (autoloads nil "cl-lib" "emacs-lisp/cl-lib.el" (22330 59913 +;;;;;; 929323 569000)) ;;; Generated autoloads from emacs-lisp/cl-lib.el (push (purecopy '(cl-lib 1 0)) package--builtin-versions) @@ -4225,8 +4232,8 @@ a future Emacs interpreter will be able to use it.") ;;;*** -;;;### (autoloads nil "cmacexp" "progmodes/cmacexp.el" (22150 28228 -;;;;;; 802072 702000)) +;;;### (autoloads nil "cmacexp" "progmodes/cmacexp.el" (22330 59913 +;;;;;; 978323 418000)) ;;; Generated autoloads from progmodes/cmacexp.el (autoload 'c-macro-expand "cmacexp" "\ @@ -4246,8 +4253,8 @@ For use inside Lisp programs, see also `c-macro-expansion'. ;;;*** -;;;### (autoloads nil "cmuscheme" "cmuscheme.el" (22150 28227 274072 -;;;;;; 702000)) +;;;### (autoloads nil "cmuscheme" "cmuscheme.el" (22330 59913 752324 +;;;;;; 116000)) ;;; Generated autoloads from cmuscheme.el (autoload 'run-scheme "cmuscheme" "\ @@ -4267,7 +4274,7 @@ is run). ;;;*** -;;;### (autoloads nil "color" "color.el" (22150 28227 274072 702000)) +;;;### (autoloads nil "color" "color.el" (22330 59913 752324 116000)) ;;; Generated autoloads from color.el (autoload 'color-name-to-rgb "color" "\ @@ -4286,7 +4293,7 @@ If FRAME cannot display COLOR, return nil. ;;;*** -;;;### (autoloads nil "comint" "comint.el" (22280 21348 921123 491000)) +;;;### (autoloads nil "comint" "comint.el" (22331 17371 984369 651000)) ;;; Generated autoloads from comint.el (defvar comint-output-filter-functions '(ansi-color-process-output comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt) "\ @@ -4387,8 +4394,8 @@ REGEXP-GROUP is the regular expression group in REGEXP to use. ;;;*** -;;;### (autoloads nil "compare-w" "vc/compare-w.el" (22150 28229 -;;;;;; 250072 702000)) +;;;### (autoloads nil "compare-w" "vc/compare-w.el" (22330 59914 +;;;;;; 8323 325000)) ;;; Generated autoloads from vc/compare-w.el (autoload 'compare-windows "compare-w" "\ @@ -4424,8 +4431,8 @@ on third call it again advances points to the next difference and so on. ;;;*** -;;;### (autoloads nil "compile" "progmodes/compile.el" (22308 37947 -;;;;;; 174422 527000)) +;;;### (autoloads nil "compile" "progmodes/compile.el" (22331 17372 +;;;;;; 94369 260000)) ;;; Generated autoloads from progmodes/compile.el (defvar compilation-mode-hook nil "\ @@ -4606,13 +4613,14 @@ This is the value of `next-error-function' in Compilation buffers. ;;;*** -;;;### (autoloads nil "completion" "completion.el" (22197 58438 91460 -;;;;;; 447000)) +;;;### (autoloads nil "completion" "completion.el" (22330 59913 752324 +;;;;;; 116000)) ;;; Generated autoloads from completion.el (defvar dynamic-completion-mode nil "\ Non-nil if Dynamic-Completion mode is enabled. -See the command `dynamic-completion-mode' for a description of this minor mode. +See the `dynamic-completion-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `dynamic-completion-mode'.") @@ -4629,8 +4637,8 @@ if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "conf-mode" "textmodes/conf-mode.el" (22150 -;;;;;; 28229 94072 702000)) +;;;### (autoloads nil "conf-mode" "textmodes/conf-mode.el" (22330 +;;;;;; 59913 990323 381000)) ;;; Generated autoloads from textmodes/conf-mode.el (autoload 'conf-mode "conf-mode" "\ @@ -4785,8 +4793,8 @@ For details see `conf-mode'. Example: ;;;*** -;;;### (autoloads nil "cookie1" "play/cookie1.el" (22150 28228 674072 -;;;;;; 702000)) +;;;### (autoloads nil "cookie1" "play/cookie1.el" (22330 59913 969323 +;;;;;; 446000)) ;;; Generated autoloads from play/cookie1.el (autoload 'cookie "cookie1" "\ @@ -4814,8 +4822,8 @@ and subsequent calls on the same file won't go to disk. ;;;*** -;;;### (autoloads nil "copyright" "emacs-lisp/copyright.el" (22150 -;;;;;; 28227 374072 702000)) +;;;### (autoloads nil "copyright" "emacs-lisp/copyright.el" (22330 +;;;;;; 59913 929323 569000)) ;;; Generated autoloads from emacs-lisp/copyright.el (put 'copyright-at-end-flag 'safe-local-variable 'booleanp) (put 'copyright-names-regexp 'safe-local-variable 'stringp) @@ -4853,8 +4861,8 @@ If FIX is non-nil, run `copyright-fix-years' instead. ;;;*** -;;;### (autoloads nil "cperl-mode" "progmodes/cperl-mode.el" (22197 -;;;;;; 58438 427460 447000)) +;;;### (autoloads nil "cperl-mode" "progmodes/cperl-mode.el" (22330 +;;;;;; 59913 979323 415000)) ;;; Generated autoloads from progmodes/cperl-mode.el (put 'cperl-indent-level 'safe-local-variable 'integerp) (put 'cperl-brace-offset 'safe-local-variable 'integerp) @@ -5052,8 +5060,8 @@ Run a `perldoc' on the word around point. ;;;*** -;;;### (autoloads nil "cpp" "progmodes/cpp.el" (22150 28228 806072 -;;;;;; 702000)) +;;;### (autoloads nil "cpp" "progmodes/cpp.el" (22330 59913 979323 +;;;;;; 415000)) ;;; Generated autoloads from progmodes/cpp.el (autoload 'cpp-highlight-buffer "cpp" "\ @@ -5071,8 +5079,8 @@ Edit display information for cpp conditionals. ;;;*** -;;;### (autoloads nil "crm" "emacs-lisp/crm.el" (22150 28227 374072 -;;;;;; 702000)) +;;;### (autoloads nil "crm" "emacs-lisp/crm.el" (22330 59913 929323 +;;;;;; 569000)) ;;; Generated autoloads from emacs-lisp/crm.el (autoload 'completing-read-multiple "crm" "\ @@ -5098,8 +5106,8 @@ with empty strings removed. ;;;*** -;;;### (autoloads nil "css-mode" "textmodes/css-mode.el" (22192 2874 -;;;;;; 475382 391000)) +;;;### (autoloads nil "css-mode" "textmodes/css-mode.el" (22331 17372 +;;;;;; 112369 196000)) ;;; Generated autoloads from textmodes/css-mode.el (autoload 'css-mode "css-mode" "\ @@ -5115,13 +5123,14 @@ Major mode to edit \"Sassy CSS\" files. ;;;*** -;;;### (autoloads nil "cua-base" "emulation/cua-base.el" (22150 28227 -;;;;;; 458072 702000)) +;;;### (autoloads nil "cua-base" "emulation/cua-base.el" (22330 59913 +;;;;;; 931323 563000)) ;;; Generated autoloads from emulation/cua-base.el (defvar cua-mode nil "\ Non-nil if Cua mode is enabled. -See the command `cua-mode' for a description of this minor mode. +See the `cua-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `cua-mode'.") @@ -5161,8 +5170,8 @@ Enable CUA selection mode without the C-z/C-x/C-c/C-v bindings. ;;;*** -;;;### (autoloads nil "cua-rect" "emulation/cua-rect.el" (22150 28227 -;;;;;; 462072 702000)) +;;;### (autoloads nil "cua-rect" "emulation/cua-rect.el" (22330 59913 +;;;;;; 931323 563000)) ;;; Generated autoloads from emulation/cua-rect.el (autoload 'cua-rectangle-mark-mode "cua-rect" "\ @@ -5174,7 +5183,7 @@ Activates the region if needed. Only lasts until the region is deactivated. ;;;*** ;;;### (autoloads nil "cursor-sensor" "emacs-lisp/cursor-sensor.el" -;;;;;; (22309 58853 326986 699000)) +;;;;;; (22330 59913 927323 575000)) ;;; Generated autoloads from emacs-lisp/cursor-sensor.el (defvar cursor-sensor-inhibit nil) @@ -5196,8 +5205,8 @@ is entering the area covered by the text-property property or leaving it. ;;;*** -;;;### (autoloads nil "cus-edit" "cus-edit.el" (22150 28227 290072 -;;;;;; 702000)) +;;;### (autoloads nil "cus-edit" "cus-edit.el" (22331 17371 985369 +;;;;;; 647000)) ;;; Generated autoloads from cus-edit.el (defvar custom-browse-sort-alphabetically nil "\ @@ -5516,8 +5525,8 @@ The format is suitable for use with `easy-menu-define'. ;;;*** -;;;### (autoloads nil "cus-theme" "cus-theme.el" (22150 28227 290072 -;;;;;; 702000)) +;;;### (autoloads nil "cus-theme" "cus-theme.el" (22330 59913 752324 +;;;;;; 116000)) ;;; Generated autoloads from cus-theme.el (autoload 'customize-create-theme "cus-theme" "\ @@ -5550,8 +5559,8 @@ omitted, a buffer named *Custom Themes* is used. ;;;*** -;;;### (autoloads nil "cvs-status" "vc/cvs-status.el" (22150 28229 -;;;;;; 250072 702000)) +;;;### (autoloads nil "cvs-status" "vc/cvs-status.el" (22330 59914 +;;;;;; 9323 322000)) ;;; Generated autoloads from vc/cvs-status.el (autoload 'cvs-status-mode "cvs-status" "\ @@ -5561,8 +5570,8 @@ Mode used for cvs status output. ;;;*** -;;;### (autoloads nil "cwarn" "progmodes/cwarn.el" (22150 28228 810072 -;;;;;; 702000)) +;;;### (autoloads nil "cwarn" "progmodes/cwarn.el" (22330 59913 980323 +;;;;;; 412000)) ;;; Generated autoloads from progmodes/cwarn.el (push (purecopy '(cwarn 1 3 1)) package--builtin-versions) @@ -5585,7 +5594,8 @@ if ARG is omitted or nil. (defvar global-cwarn-mode nil "\ Non-nil if Global Cwarn mode is enabled. -See the command `global-cwarn-mode' for a description of this minor mode. +See the `global-cwarn-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-cwarn-mode'.") @@ -5606,8 +5616,8 @@ See `cwarn-mode' for more information on Cwarn mode. ;;;*** -;;;### (autoloads nil "cyril-util" "language/cyril-util.el" (22150 -;;;;;; 28228 162072 702000)) +;;;### (autoloads nil "cyril-util" "language/cyril-util.el" (22330 +;;;;;; 59913 940323 535000)) ;;; Generated autoloads from language/cyril-util.el (autoload 'cyrillic-encode-koi8-r-char "cyril-util" "\ @@ -5635,8 +5645,8 @@ If the argument is nil, we return the display table to its standard state. ;;;*** -;;;### (autoloads nil "dabbrev" "dabbrev.el" (22232 11079 208267 -;;;;;; 636000)) +;;;### (autoloads nil "dabbrev" "dabbrev.el" (22330 59913 752324 +;;;;;; 116000)) ;;; Generated autoloads from dabbrev.el (put 'dabbrev-case-fold-search 'risky-local-variable t) (put 'dabbrev-case-replace 'risky-local-variable t) @@ -5682,8 +5692,8 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]. ;;;*** -;;;### (autoloads nil "data-debug" "cedet/data-debug.el" (22150 28227 -;;;;;; 146072 702000)) +;;;### (autoloads nil "data-debug" "cedet/data-debug.el" (22330 59913 +;;;;;; 920323 597000)) ;;; Generated autoloads from cedet/data-debug.el (autoload 'data-debug-new-buffer "data-debug" "\ @@ -5693,7 +5703,7 @@ Create a new data-debug buffer with NAME. ;;;*** -;;;### (autoloads nil "dbus" "net/dbus.el" (22150 28228 354072 702000)) +;;;### (autoloads nil "dbus" "net/dbus.el" (22330 59913 952323 498000)) ;;; Generated autoloads from net/dbus.el (autoload 'dbus-handle-event "dbus" "\ @@ -5706,8 +5716,8 @@ If the HANDLER returns a `dbus-error', it is propagated as return message. ;;;*** -;;;### (autoloads nil "dcl-mode" "progmodes/dcl-mode.el" (22150 28228 -;;;;;; 810072 702000)) +;;;### (autoloads nil "dcl-mode" "progmodes/dcl-mode.el" (22330 59913 +;;;;;; 980323 412000)) ;;; Generated autoloads from progmodes/dcl-mode.el (autoload 'dcl-mode "dcl-mode" "\ @@ -5833,8 +5843,8 @@ There is some minimal font-lock support (see vars ;;;*** -;;;### (autoloads nil "debug" "emacs-lisp/debug.el" (22150 28227 -;;;;;; 378072 702000)) +;;;### (autoloads nil "debug" "emacs-lisp/debug.el" (22330 59913 +;;;;;; 929323 569000)) ;;; Generated autoloads from emacs-lisp/debug.el (setq debugger 'debug) @@ -5877,8 +5887,8 @@ To specify a nil argument interactively, exit with an empty minibuffer. ;;;*** -;;;### (autoloads nil "decipher" "play/decipher.el" (22150 28228 -;;;;;; 674072 702000)) +;;;### (autoloads nil "decipher" "play/decipher.el" (22330 59913 +;;;;;; 969323 446000)) ;;; Generated autoloads from play/decipher.el (autoload 'decipher "decipher" "\ @@ -5906,8 +5916,8 @@ The most useful commands are: ;;;*** -;;;### (autoloads nil "delim-col" "delim-col.el" (22150 28227 290072 -;;;;;; 702000)) +;;;### (autoloads nil "delim-col" "delim-col.el" (22330 59913 752324 +;;;;;; 116000)) ;;; Generated autoloads from delim-col.el (push (purecopy '(delim-col 2 1)) package--builtin-versions) @@ -5932,14 +5942,15 @@ START and END delimits the corners of text rectangle. ;;;*** -;;;### (autoloads nil "delsel" "delsel.el" (22159 43206 893781 63000)) +;;;### (autoloads nil "delsel" "delsel.el" (22330 59913 737324 162000)) ;;; Generated autoloads from delsel.el (defalias 'pending-delete-mode 'delete-selection-mode) (defvar delete-selection-mode nil "\ Non-nil if Delete-Selection mode is enabled. -See the command `delete-selection-mode' for a description of this minor mode. +See the `delete-selection-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `delete-selection-mode'.") @@ -5964,8 +5975,8 @@ information on adapting behavior of commands in Delete Selection mode. ;;;*** -;;;### (autoloads nil "derived" "emacs-lisp/derived.el" (22229 34898 -;;;;;; 796051 395000)) +;;;### (autoloads nil "derived" "emacs-lisp/derived.el" (22331 17371 +;;;;;; 991369 626000)) ;;; Generated autoloads from emacs-lisp/derived.el (autoload 'define-derived-mode "derived" "\ @@ -6031,8 +6042,8 @@ the first time the mode is used. ;;;*** -;;;### (autoloads nil "descr-text" "descr-text.el" (22300 43827 136520 -;;;;;; 15000)) +;;;### (autoloads nil "descr-text" "descr-text.el" (22330 59913 737324 +;;;;;; 162000)) ;;; Generated autoloads from descr-text.el (autoload 'describe-text-properties "descr-text" "\ @@ -6081,12 +6092,14 @@ This function is meant to be used as a value of ;;;*** -;;;### (autoloads nil "desktop" "desktop.el" (22189 64323 80321 19000)) +;;;### (autoloads nil "desktop" "desktop.el" (22330 59913 752324 +;;;;;; 116000)) ;;; Generated autoloads from desktop.el (defvar desktop-save-mode nil "\ Non-nil if Desktop-Save mode is enabled. -See the command `desktop-save-mode' for a description of this minor mode. +See the `desktop-save-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `desktop-save-mode'.") @@ -6308,8 +6321,8 @@ Revert to the last loaded desktop. ;;;*** -;;;### (autoloads nil "deuglify" "gnus/deuglify.el" (22150 28227 -;;;;;; 658072 702000)) +;;;### (autoloads nil "deuglify" "gnus/deuglify.el" (22330 59913 +;;;;;; 938323 541000)) ;;; Generated autoloads from gnus/deuglify.el (autoload 'gnus-article-outlook-unwrap-lines "deuglify" "\ @@ -6341,8 +6354,8 @@ Deuglify broken Outlook (Express) articles and redisplay. ;;;*** -;;;### (autoloads nil "diary-lib" "calendar/diary-lib.el" (22192 -;;;;;; 2880 939382 391000)) +;;;### (autoloads nil "diary-lib" "calendar/diary-lib.el" (22330 +;;;;;; 59913 919323 600000)) ;;; Generated autoloads from calendar/diary-lib.el (autoload 'diary "diary-lib" "\ @@ -6384,7 +6397,7 @@ Major mode for editing the diary file. ;;;*** -;;;### (autoloads nil "diff" "vc/diff.el" (22308 37947 246422 527000)) +;;;### (autoloads nil "diff" "vc/diff.el" (22330 59913 993323 372000)) ;;; Generated autoloads from vc/diff.el (defvar diff-switches (purecopy "-u") "\ @@ -6432,8 +6445,8 @@ This requires the external program `diff' to be in your `exec-path'. ;;;*** -;;;### (autoloads nil "diff-mode" "vc/diff-mode.el" (22150 28229 -;;;;;; 250072 702000)) +;;;### (autoloads nil "diff-mode" "vc/diff-mode.el" (22330 59914 +;;;;;; 9323 322000)) ;;; Generated autoloads from vc/diff-mode.el (autoload 'diff-mode "diff-mode" "\ @@ -6465,7 +6478,7 @@ the mode if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "dig" "net/dig.el" (22150 28228 354072 702000)) +;;;### (autoloads nil "dig" "net/dig.el" (22330 59913 952323 498000)) ;;; Generated autoloads from net/dig.el (autoload 'dig "dig" "\ @@ -6476,7 +6489,7 @@ Optional arguments are passed to `dig-invoke'. ;;;*** -;;;### (autoloads nil "dired" "dired.el" (22301 64996 17087 484000)) +;;;### (autoloads nil "dired" "dired.el" (22331 17371 987369 640000)) ;;; Generated autoloads from dired.el (defvar dired-listing-switches (purecopy "-al") "\ @@ -6602,8 +6615,8 @@ Keybindings: ;;;*** -;;;### (autoloads nil "dirtrack" "dirtrack.el" (22150 28227 310072 -;;;;;; 702000)) +;;;### (autoloads nil "dirtrack" "dirtrack.el" (22330 59913 752324 +;;;;;; 116000)) ;;; Generated autoloads from dirtrack.el (autoload 'dirtrack-mode "dirtrack" "\ @@ -6633,8 +6646,8 @@ from `default-directory'. ;;;*** -;;;### (autoloads nil "disass" "emacs-lisp/disass.el" (22270 22707 -;;;;;; 603851 575000)) +;;;### (autoloads nil "disass" "emacs-lisp/disass.el" (22330 59913 +;;;;;; 929323 569000)) ;;; Generated autoloads from emacs-lisp/disass.el (autoload 'disassemble "disass" "\ @@ -6648,8 +6661,8 @@ redefine OBJECT if it is a symbol. ;;;*** -;;;### (autoloads nil "disp-table" "disp-table.el" (22150 28227 310072 -;;;;;; 702000)) +;;;### (autoloads nil "disp-table" "disp-table.el" (22330 59913 752324 +;;;;;; 116000)) ;;; Generated autoloads from disp-table.el (autoload 'make-display-table "disp-table" "\ @@ -6770,8 +6783,8 @@ in `.emacs'. ;;;*** -;;;### (autoloads nil "dissociate" "play/dissociate.el" (22150 28228 -;;;;;; 674072 702000)) +;;;### (autoloads nil "dissociate" "play/dissociate.el" (22330 59913 +;;;;;; 969323 446000)) ;;; Generated autoloads from play/dissociate.el (autoload 'dissociated-press "dissociate" "\ @@ -6787,7 +6800,7 @@ Default is 2. ;;;*** -;;;### (autoloads nil "dnd" "dnd.el" (22150 28227 314072 702000)) +;;;### (autoloads nil "dnd" "dnd.el" (22330 59913 752324 116000)) ;;; 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)) "\ @@ -6807,8 +6820,8 @@ if some action was made, or nil if the URL is ignored.") ;;;*** -;;;### (autoloads nil "dns-mode" "textmodes/dns-mode.el" (22150 28229 -;;;;;; 98072 702000)) +;;;### (autoloads nil "dns-mode" "textmodes/dns-mode.el" (22330 59913 +;;;;;; 990323 381000)) ;;; Generated autoloads from textmodes/dns-mode.el (autoload 'dns-mode "dns-mode" "\ @@ -6831,8 +6844,8 @@ Locate SOA record and increment the serial field. ;;;*** -;;;### (autoloads nil "doc-view" "doc-view.el" (22253 13631 322961 -;;;;;; 36000)) +;;;### (autoloads nil "doc-view" "doc-view.el" (22330 59913 752324 +;;;;;; 116000)) ;;; Generated autoloads from doc-view.el (autoload 'doc-view-mode-p "doc-view" "\ @@ -6878,8 +6891,8 @@ See the command `doc-view-mode' for more information on this mode. ;;;*** -;;;### (autoloads nil "doctor" "play/doctor.el" (22150 28228 678072 -;;;;;; 702000)) +;;;### (autoloads nil "doctor" "play/doctor.el" (22330 59913 969323 +;;;;;; 446000)) ;;; Generated autoloads from play/doctor.el (autoload 'doctor "doctor" "\ @@ -6889,7 +6902,7 @@ Switch to *doctor* buffer and start giving psychotherapy. ;;;*** -;;;### (autoloads nil "double" "double.el" (22150 28227 318072 702000)) +;;;### (autoloads nil "double" "double.el" (22330 59913 753324 113000)) ;;; Generated autoloads from double.el (autoload 'double-mode "double" "\ @@ -6905,8 +6918,8 @@ strings when pressed twice. See `double-map' for details. ;;;*** -;;;### (autoloads nil "dunnet" "play/dunnet.el" (22160 10656 10679 -;;;;;; 927000)) +;;;### (autoloads nil "dunnet" "play/dunnet.el" (22330 59913 969323 +;;;;;; 446000)) ;;; Generated autoloads from play/dunnet.el (push (purecopy '(dunnet 2 2)) package--builtin-versions) @@ -6917,8 +6930,8 @@ Switch to *dungeon* buffer and start game. ;;;*** -;;;### (autoloads nil "easy-mmode" "emacs-lisp/easy-mmode.el" (22211 -;;;;;; 4933 581358 144000)) +;;;### (autoloads nil "easy-mmode" "emacs-lisp/easy-mmode.el" (22331 +;;;;;; 17371 991369 626000)) ;;; Generated autoloads from emacs-lisp/easy-mmode.el (defalias 'easy-mmode-define-minor-mode 'define-minor-mode) @@ -7060,8 +7073,8 @@ CSS contains a list of syntax specifications of the form (CHAR . SYNTAX). ;;;*** -;;;### (autoloads nil "easymenu" "emacs-lisp/easymenu.el" (22150 -;;;;;; 28227 398072 702000)) +;;;### (autoloads nil "easymenu" "emacs-lisp/easymenu.el" (22330 +;;;;;; 59913 929323 569000)) ;;; Generated autoloads from emacs-lisp/easymenu.el (autoload 'easy-menu-define "easymenu" "\ @@ -7199,8 +7212,8 @@ To implement dynamic menus, either call this from ;;;*** -;;;### (autoloads nil "ebnf2ps" "progmodes/ebnf2ps.el" (22150 28228 -;;;;;; 814072 702000)) +;;;### (autoloads nil "ebnf2ps" "progmodes/ebnf2ps.el" (22330 59913 +;;;;;; 981323 409000)) ;;; Generated autoloads from progmodes/ebnf2ps.el (push (purecopy '(ebnf2ps 4 4)) package--builtin-versions) @@ -7465,8 +7478,8 @@ See `ebnf-style-database' documentation. ;;;*** -;;;### (autoloads nil "ebrowse" "progmodes/ebrowse.el" (22150 28228 -;;;;;; 814072 702000)) +;;;### (autoloads nil "ebrowse" "progmodes/ebrowse.el" (22330 59913 +;;;;;; 981323 409000)) ;;; Generated autoloads from progmodes/ebrowse.el (autoload 'ebrowse-tree-mode "ebrowse" "\ @@ -7614,8 +7627,8 @@ Display statistics for a class tree. ;;;*** -;;;### (autoloads nil "ebuff-menu" "ebuff-menu.el" (22150 28227 318072 -;;;;;; 702000)) +;;;### (autoloads nil "ebuff-menu" "ebuff-menu.el" (22330 59913 912323 +;;;;;; 622000)) ;;; Generated autoloads from ebuff-menu.el (autoload 'electric-buffer-list "ebuff-menu" "\ @@ -7647,8 +7660,8 @@ Run hooks in `electric-buffer-menu-mode-hook' on entry. ;;;*** -;;;### (autoloads nil "echistory" "echistory.el" (22150 28227 318072 -;;;;;; 702000)) +;;;### (autoloads nil "echistory" "echistory.el" (22330 59913 912323 +;;;;;; 622000)) ;;; Generated autoloads from echistory.el (autoload 'Electric-command-history-redo-expression "echistory" "\ @@ -7659,8 +7672,8 @@ With prefix arg NOCONFIRM, execute current line as-is without editing. ;;;*** -;;;### (autoloads nil "ecomplete" "gnus/ecomplete.el" (22150 28227 -;;;;;; 658072 702000)) +;;;### (autoloads nil "ecomplete" "gnus/ecomplete.el" (22331 17372 +;;;;;; 13369 548000)) ;;; Generated autoloads from gnus/ecomplete.el (autoload 'ecomplete-setup "ecomplete" "\ @@ -7670,13 +7683,14 @@ With prefix arg NOCONFIRM, execute current line as-is without editing. ;;;*** -;;;### (autoloads nil "ede" "cedet/ede.el" (22189 64323 68321 19000)) +;;;### (autoloads nil "ede" "cedet/ede.el" (22330 59913 920323 597000)) ;;; Generated autoloads from cedet/ede.el (push (purecopy '(ede 1 2)) package--builtin-versions) (defvar global-ede-mode nil "\ Non-nil if Global Ede mode is enabled. -See the command `global-ede-mode' for a description of this minor mode. +See the `global-ede-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-ede-mode'.") @@ -7696,8 +7710,8 @@ an EDE controlled project. ;;;*** -;;;### (autoloads nil "edebug" "emacs-lisp/edebug.el" (22189 64323 -;;;;;; 92321 19000)) +;;;### (autoloads nil "edebug" "emacs-lisp/edebug.el" (22331 17371 +;;;;;; 992369 622000)) ;;; Generated autoloads from emacs-lisp/edebug.el (defvar edebug-all-defs nil "\ @@ -7761,7 +7775,7 @@ Toggle edebugging of all forms. ;;;*** -;;;### (autoloads nil "ediff" "vc/ediff.el" (22150 28229 274072 702000)) +;;;### (autoloads nil "ediff" "vc/ediff.el" (22331 17372 122369 161000)) ;;; Generated autoloads from vc/ediff.el (push (purecopy '(ediff 2 81 4)) package--builtin-versions) @@ -8033,8 +8047,8 @@ With optional NODE, goes to that node. ;;;*** -;;;### (autoloads nil "ediff-help" "vc/ediff-help.el" (22150 28229 -;;;;;; 254072 702000)) +;;;### (autoloads nil "ediff-help" "vc/ediff-help.el" (22330 59914 +;;;;;; 9323 322000)) ;;; Generated autoloads from vc/ediff-help.el (autoload 'ediff-customize "ediff-help" "\ @@ -8044,8 +8058,8 @@ With optional NODE, goes to that node. ;;;*** -;;;### (autoloads nil "ediff-mult" "vc/ediff-mult.el" (22189 64323 -;;;;;; 332321 19000)) +;;;### (autoloads nil "ediff-mult" "vc/ediff-mult.el" (22330 59914 +;;;;;; 9323 322000)) ;;; Generated autoloads from vc/ediff-mult.el (autoload 'ediff-show-registry "ediff-mult" "\ @@ -8057,8 +8071,8 @@ Display Ediff's registry. ;;;*** -;;;### (autoloads nil "ediff-util" "vc/ediff-util.el" (22150 28229 -;;;;;; 270072 702000)) +;;;### (autoloads nil "ediff-util" "vc/ediff-util.el" (22331 17372 +;;;;;; 122369 161000)) ;;; Generated autoloads from vc/ediff-util.el (autoload 'ediff-toggle-multiframe "ediff-util" "\ @@ -8077,8 +8091,8 @@ To change the default, set the variable `ediff-use-toolbar-p', which see. ;;;*** -;;;### (autoloads nil "edmacro" "edmacro.el" (22150 28227 318072 -;;;;;; 702000)) +;;;### (autoloads nil "edmacro" "edmacro.el" (22330 59913 912323 +;;;;;; 622000)) ;;; Generated autoloads from edmacro.el (push (purecopy '(edmacro 2 1)) package--builtin-versions) @@ -8127,8 +8141,8 @@ or nil, use a compact 80-column format. ;;;*** -;;;### (autoloads nil "edt" "emulation/edt.el" (22204 31687 809113 -;;;;;; 480000)) +;;;### (autoloads nil "edt" "emulation/edt.el" (22330 59913 931323 +;;;;;; 563000)) ;;; Generated autoloads from emulation/edt.el (autoload 'edt-set-scroll-margins "edt" "\ @@ -8145,7 +8159,7 @@ Turn on EDT Emulation. ;;;*** -;;;### (autoloads nil "ehelp" "ehelp.el" (22150 28227 318072 702000)) +;;;### (autoloads nil "ehelp" "ehelp.el" (22330 59913 912323 622000)) ;;; Generated autoloads from ehelp.el (autoload 'with-electric-help "ehelp" "\ @@ -8181,15 +8195,15 @@ BUFFER is put back into its original major mode. ;;;*** -;;;### (autoloads nil "eieio" "emacs-lisp/eieio.el" (22308 37947 -;;;;;; 74422 527000)) +;;;### (autoloads nil "eieio" "emacs-lisp/eieio.el" (22331 17377 +;;;;;; 951348 457000)) ;;; Generated autoloads from emacs-lisp/eieio.el (push (purecopy '(eieio 1 4)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "eieio-core" "emacs-lisp/eieio-core.el" (22150 -;;;;;; 28612 762072 702000)) +;;;### (autoloads nil "eieio-core" "emacs-lisp/eieio-core.el" (22331 +;;;;;; 17371 993369 619000)) ;;; Generated autoloads from emacs-lisp/eieio-core.el (push (purecopy '(eieio-core 1 4)) package--builtin-versions) @@ -8205,8 +8219,8 @@ It creates an autoload function for CNAME's constructor. ;;;*** -;;;### (autoloads nil "elec-pair" "elec-pair.el" (22150 28227 322072 -;;;;;; 702000)) +;;;### (autoloads nil "elec-pair" "elec-pair.el" (22330 59913 912323 +;;;;;; 622000)) ;;; Generated autoloads from elec-pair.el (defvar electric-pair-text-pairs '((34 . 34)) "\ @@ -8220,7 +8234,8 @@ defined in `electric-pair-text-syntax-table'") (defvar electric-pair-mode nil "\ Non-nil if Electric-Pair mode is enabled. -See the command `electric-pair-mode' for a description of this minor mode. +See the `electric-pair-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `electric-pair-mode'.") @@ -8247,8 +8262,8 @@ Toggle `electric-pair-mode' only in this buffer. ;;;*** -;;;### (autoloads nil "elide-head" "elide-head.el" (22150 28227 322072 -;;;;;; 702000)) +;;;### (autoloads nil "elide-head" "elide-head.el" (22330 59913 912323 +;;;;;; 622000)) ;;; Generated autoloads from elide-head.el (autoload 'elide-head "elide-head" "\ @@ -8263,8 +8278,8 @@ This is suitable as an entry on `find-file-hook' or appropriate mode hooks. ;;;*** -;;;### (autoloads nil "elint" "emacs-lisp/elint.el" (22150 28227 -;;;;;; 422072 702000)) +;;;### (autoloads nil "elint" "emacs-lisp/elint.el" (22330 59913 +;;;;;; 929323 569000)) ;;; Generated autoloads from emacs-lisp/elint.el (autoload 'elint-file "elint" "\ @@ -8299,8 +8314,8 @@ optional prefix argument REINIT is non-nil. ;;;*** -;;;### (autoloads nil "elp" "emacs-lisp/elp.el" (22150 28227 422072 -;;;;;; 702000)) +;;;### (autoloads nil "elp" "emacs-lisp/elp.el" (22330 59913 929323 +;;;;;; 569000)) ;;; Generated autoloads from emacs-lisp/elp.el (autoload 'elp-instrument-function "elp" "\ @@ -8334,8 +8349,8 @@ displayed. ;;;*** -;;;### (autoloads nil "emacs-lock" "emacs-lock.el" (22150 28227 458072 -;;;;;; 702000)) +;;;### (autoloads nil "emacs-lock" "emacs-lock.el" (22330 59913 912323 +;;;;;; 622000)) ;;; Generated autoloads from emacs-lock.el (autoload 'emacs-lock-mode "emacs-lock" "\ @@ -8362,8 +8377,8 @@ Other values are interpreted as usual. ;;;*** -;;;### (autoloads nil "emacsbug" "mail/emacsbug.el" (22150 28228 -;;;;;; 226072 702000)) +;;;### (autoloads nil "emacsbug" "mail/emacsbug.el" (22331 17372 +;;;;;; 50369 416000)) ;;; Generated autoloads from mail/emacsbug.el (autoload 'report-emacs-bug "emacsbug" "\ @@ -8376,8 +8391,7 @@ Prompts for bug subject. Leaves you in a mail buffer. ;;;*** -;;;### (autoloads nil "emerge" "vc/emerge.el" (22086 11930 378062 -;;;;;; 731000)) +;;;### (autoloads nil "emerge" "vc/emerge.el" (22330 59914 9323 322000)) ;;; Generated autoloads from vc/emerge.el (autoload 'emerge-files "emerge" "\ @@ -8437,8 +8451,8 @@ Emerge two RCS revisions of a file, with another revision as ancestor. ;;;*** -;;;### (autoloads nil "enriched" "textmodes/enriched.el" (22150 28229 -;;;;;; 98072 702000)) +;;;### (autoloads nil "enriched" "textmodes/enriched.el" (22330 59913 +;;;;;; 990323 381000)) ;;; Generated autoloads from textmodes/enriched.el (autoload 'enriched-mode "enriched" "\ @@ -8473,7 +8487,7 @@ Commands: ;;;*** -;;;### (autoloads nil "epa" "epa.el" (22150 28227 482072 702000)) +;;;### (autoloads nil "epa" "epa.el" (22331 17371 998369 601000)) ;;; Generated autoloads from epa.el (autoload 'epa-list-keys "epa" "\ @@ -8661,8 +8675,8 @@ Insert selected KEYS after the point. ;;;*** -;;;### (autoloads nil "epa-dired" "epa-dired.el" (22150 28227 478072 -;;;;;; 702000)) +;;;### (autoloads nil "epa-dired" "epa-dired.el" (22330 59913 912323 +;;;;;; 622000)) ;;; Generated autoloads from epa-dired.el (autoload 'epa-dired-do-decrypt "epa-dired" "\ @@ -8687,8 +8701,8 @@ Encrypt marked files. ;;;*** -;;;### (autoloads nil "epa-file" "epa-file.el" (22150 28227 482072 -;;;;;; 702000)) +;;;### (autoloads nil "epa-file" "epa-file.el" (22330 59913 912323 +;;;;;; 622000)) ;;; Generated autoloads from epa-file.el (autoload 'epa-file-handler "epa-file" "\ @@ -8708,8 +8722,8 @@ Encrypt marked files. ;;;*** -;;;### (autoloads nil "epa-mail" "epa-mail.el" (22150 28227 482072 -;;;;;; 702000)) +;;;### (autoloads nil "epa-mail" "epa-mail.el" (22330 59913 912323 +;;;;;; 622000)) ;;; Generated autoloads from epa-mail.el (autoload 'epa-mail-mode "epa-mail" "\ @@ -8769,7 +8783,8 @@ The buffer is expected to contain a mail message. (defvar epa-global-mail-mode nil "\ Non-nil if Epa-Global-Mail mode is enabled. -See the command `epa-global-mail-mode' for a description of this minor mode. +See the `epa-global-mail-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `epa-global-mail-mode'.") @@ -8786,7 +8801,7 @@ if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "epg" "epg.el" (22217 43732 468164 355000)) +;;;### (autoloads nil "epg" "epg.el" (22330 59913 912323 622000)) ;;; Generated autoloads from epg.el (push (purecopy '(epg 1 0 0)) package--builtin-versions) @@ -8797,8 +8812,8 @@ Return a context object. ;;;*** -;;;### (autoloads nil "epg-config" "epg-config.el" (22217 43732 444164 -;;;;;; 355000)) +;;;### (autoloads nil "epg-config" "epg-config.el" (22330 59913 912323 +;;;;;; 622000)) ;;; Generated autoloads from epg-config.el (autoload 'epg-find-configuration "epg-config" "\ @@ -8832,7 +8847,7 @@ Look at CONFIG and try to expand GROUP. ;;;*** -;;;### (autoloads nil "erc" "erc/erc.el" (22197 58438 151460 447000)) +;;;### (autoloads nil "erc" "erc/erc.el" (22331 17372 1369 590000)) ;;; Generated autoloads from erc/erc.el (push (purecopy '(erc 5 3)) package--builtin-versions) @@ -8881,36 +8896,36 @@ Otherwise, connect to HOST:PORT as USER and /join CHANNEL. ;;;*** -;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (22150 -;;;;;; 28227 506072 702000)) +;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (22330 +;;;;;; 59913 933323 557000)) ;;; Generated autoloads from erc/erc-autoaway.el (autoload 'erc-autoaway-mode "erc-autoaway") ;;;*** -;;;### (autoloads nil "erc-button" "erc/erc-button.el" (22195 16710 -;;;;;; 391344 967000)) +;;;### (autoloads nil "erc-button" "erc/erc-button.el" (22331 17371 +;;;;;; 999369 597000)) ;;; Generated autoloads from erc/erc-button.el (autoload 'erc-button-mode "erc-button" nil t) ;;;*** -;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (22150 28227 -;;;;;; 510072 702000)) +;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (22331 17371 +;;;;;; 999369 597000)) ;;; Generated autoloads from erc/erc-capab.el (autoload 'erc-capab-identify-mode "erc-capab" nil t) ;;;*** -;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (22150 28227 -;;;;;; 510072 702000)) +;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (22331 17371 +;;;;;; 999369 597000)) ;;; Generated autoloads from erc/erc-compat.el (autoload 'erc-define-minor-mode "erc-compat") ;;;*** -;;;### (autoloads nil "erc-dcc" "erc/erc-dcc.el" (22150 28227 510072 -;;;;;; 702000)) +;;;### (autoloads nil "erc-dcc" "erc/erc-dcc.el" (22331 17371 999369 +;;;;;; 597000)) ;;; Generated autoloads from erc/erc-dcc.el (autoload 'erc-dcc-mode "erc-dcc") @@ -8940,14 +8955,14 @@ that subcommand. ;;;*** ;;;### (autoloads nil "erc-desktop-notifications" "erc/erc-desktop-notifications.el" -;;;;;; (22150 28227 510072 702000)) +;;;;;; (22330 59913 933323 557000)) ;;; Generated autoloads from erc/erc-desktop-notifications.el (autoload 'erc-notifications-mode "erc-desktop-notifications" "" t) ;;;*** -;;;### (autoloads nil "erc-ezbounce" "erc/erc-ezbounce.el" (22150 -;;;;;; 28227 510072 702000)) +;;;### (autoloads nil "erc-ezbounce" "erc/erc-ezbounce.el" (22330 +;;;;;; 59913 933323 557000)) ;;; Generated autoloads from erc/erc-ezbounce.el (autoload 'erc-cmd-ezb "erc-ezbounce" "\ @@ -9009,8 +9024,8 @@ Add EZBouncer convenience functions to ERC. ;;;*** -;;;### (autoloads nil "erc-fill" "erc/erc-fill.el" (22150 28227 510072 -;;;;;; 702000)) +;;;### (autoloads nil "erc-fill" "erc/erc-fill.el" (22330 59913 933323 +;;;;;; 557000)) ;;; Generated autoloads from erc/erc-fill.el (autoload 'erc-fill-mode "erc-fill" nil t) @@ -9022,8 +9037,8 @@ You can put this on `erc-insert-modify-hook' and/or `erc-send-modify-hook'. ;;;*** -;;;### (autoloads nil "erc-identd" "erc/erc-identd.el" (22150 28227 -;;;;;; 510072 702000)) +;;;### (autoloads nil "erc-identd" "erc/erc-identd.el" (22330 59913 +;;;;;; 933323 557000)) ;;; Generated autoloads from erc/erc-identd.el (autoload 'erc-identd-mode "erc-identd") @@ -9044,8 +9059,8 @@ system. ;;;*** -;;;### (autoloads nil "erc-imenu" "erc/erc-imenu.el" (22150 28227 -;;;;;; 514072 702000)) +;;;### (autoloads nil "erc-imenu" "erc/erc-imenu.el" (22330 59913 +;;;;;; 933323 557000)) ;;; Generated autoloads from erc/erc-imenu.el (autoload 'erc-create-imenu-index "erc-imenu" "\ @@ -9055,22 +9070,22 @@ system. ;;;*** -;;;### (autoloads nil "erc-join" "erc/erc-join.el" (22150 28227 514072 -;;;;;; 702000)) +;;;### (autoloads nil "erc-join" "erc/erc-join.el" (22330 59913 933323 +;;;;;; 557000)) ;;; Generated autoloads from erc/erc-join.el (autoload 'erc-autojoin-mode "erc-join" nil t) ;;;*** -;;;### (autoloads nil "erc-list" "erc/erc-list.el" (22150 28227 514072 -;;;;;; 702000)) +;;;### (autoloads nil "erc-list" "erc/erc-list.el" (22330 59913 933323 +;;;;;; 557000)) ;;; Generated autoloads from erc/erc-list.el (autoload 'erc-list-mode "erc-list") ;;;*** -;;;### (autoloads nil "erc-log" "erc/erc-log.el" (22150 28227 514072 -;;;;;; 702000)) +;;;### (autoloads nil "erc-log" "erc/erc-log.el" (22330 59913 933323 +;;;;;; 557000)) ;;; Generated autoloads from erc/erc-log.el (autoload 'erc-log-mode "erc-log" nil t) @@ -9099,8 +9114,8 @@ You can save every individual message by putting this function on ;;;*** -;;;### (autoloads nil "erc-match" "erc/erc-match.el" (22150 28227 -;;;;;; 514072 702000)) +;;;### (autoloads nil "erc-match" "erc/erc-match.el" (22331 17371 +;;;;;; 999369 597000)) ;;; Generated autoloads from erc/erc-match.el (autoload 'erc-match-mode "erc-match") @@ -9146,15 +9161,15 @@ Delete dangerous-host interactively to `erc-dangerous-hosts'. ;;;*** -;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (22150 28227 514072 -;;;;;; 702000)) +;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (22330 59913 933323 +;;;;;; 557000)) ;;; Generated autoloads from erc/erc-menu.el (autoload 'erc-menu-mode "erc-menu" nil t) ;;;*** -;;;### (autoloads nil "erc-netsplit" "erc/erc-netsplit.el" (22150 -;;;;;; 28227 514072 702000)) +;;;### (autoloads nil "erc-netsplit" "erc/erc-netsplit.el" (22330 +;;;;;; 59913 933323 557000)) ;;; Generated autoloads from erc/erc-netsplit.el (autoload 'erc-netsplit-mode "erc-netsplit") @@ -9165,8 +9180,8 @@ Show who's gone. ;;;*** -;;;### (autoloads nil "erc-networks" "erc/erc-networks.el" (22189 -;;;;;; 64323 128321 19000)) +;;;### (autoloads nil "erc-networks" "erc/erc-networks.el" (22330 +;;;;;; 59913 933323 557000)) ;;; Generated autoloads from erc/erc-networks.el (autoload 'erc-determine-network "erc-networks" "\ @@ -9183,8 +9198,8 @@ Interactively select a server to connect to using `erc-server-alist'. ;;;*** -;;;### (autoloads nil "erc-notify" "erc/erc-notify.el" (22150 28227 -;;;;;; 518072 702000)) +;;;### (autoloads nil "erc-notify" "erc/erc-notify.el" (22330 59913 +;;;;;; 933323 557000)) ;;; Generated autoloads from erc/erc-notify.el (autoload 'erc-notify-mode "erc-notify" nil t) @@ -9202,36 +9217,36 @@ with args, toggle notify status of people. ;;;*** -;;;### (autoloads nil "erc-page" "erc/erc-page.el" (22150 28227 518072 -;;;;;; 702000)) +;;;### (autoloads nil "erc-page" "erc/erc-page.el" (22330 59913 933323 +;;;;;; 557000)) ;;; Generated autoloads from erc/erc-page.el (autoload 'erc-page-mode "erc-page") ;;;*** -;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (22195 -;;;;;; 16710 595344 967000)) +;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (22330 +;;;;;; 59913 933323 557000)) ;;; Generated autoloads from erc/erc-pcomplete.el (autoload 'erc-completion-mode "erc-pcomplete" nil t) ;;;*** -;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (22150 28227 -;;;;;; 518072 702000)) +;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (22330 59913 +;;;;;; 933323 557000)) ;;; Generated autoloads from erc/erc-replace.el (autoload 'erc-replace-mode "erc-replace") ;;;*** -;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (22150 28227 518072 -;;;;;; 702000)) +;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (22330 59913 933323 +;;;;;; 557000)) ;;; Generated autoloads from erc/erc-ring.el (autoload 'erc-ring-mode "erc-ring" nil t) ;;;*** -;;;### (autoloads nil "erc-services" "erc/erc-services.el" (22150 -;;;;;; 28227 518072 702000)) +;;;### (autoloads nil "erc-services" "erc/erc-services.el" (22330 +;;;;;; 59913 933323 557000)) ;;; Generated autoloads from erc/erc-services.el (autoload 'erc-services-mode "erc-services" nil t) @@ -9248,15 +9263,15 @@ When called interactively, read the password using `read-passwd'. ;;;*** -;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (22150 28227 -;;;;;; 518072 702000)) +;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (22330 59913 +;;;;;; 933323 557000)) ;;; Generated autoloads from erc/erc-sound.el (autoload 'erc-sound-mode "erc-sound") ;;;*** -;;;### (autoloads nil "erc-speedbar" "erc/erc-speedbar.el" (22150 -;;;;;; 28227 518072 702000)) +;;;### (autoloads nil "erc-speedbar" "erc/erc-speedbar.el" (22330 +;;;;;; 59913 933323 557000)) ;;; Generated autoloads from erc/erc-speedbar.el (autoload 'erc-speedbar-browser "erc-speedbar" "\ @@ -9267,27 +9282,28 @@ This will add a speedbar major display mode. ;;;*** -;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (22150 -;;;;;; 28227 518072 702000)) +;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (22330 +;;;;;; 59913 933323 557000)) ;;; Generated autoloads from erc/erc-spelling.el (autoload 'erc-spelling-mode "erc-spelling" nil t) ;;;*** -;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (22150 28227 -;;;;;; 518072 702000)) +;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (22331 17372 +;;;;;; 369 594000)) ;;; Generated autoloads from erc/erc-stamp.el (autoload 'erc-timestamp-mode "erc-stamp" nil t) ;;;*** -;;;### (autoloads nil "erc-track" "erc/erc-track.el" (22195 16710 -;;;;;; 599344 967000)) +;;;### (autoloads nil "erc-track" "erc/erc-track.el" (22331 17372 +;;;;;; 369 594000)) ;;; Generated autoloads from erc/erc-track.el (defvar erc-track-minor-mode nil "\ Non-nil if Erc-Track minor mode is enabled. -See the command `erc-track-minor-mode' for a description of this minor mode.") +See the `erc-track-minor-mode' command +for a description of this minor mode.") (custom-autoload 'erc-track-minor-mode "erc-track" nil) @@ -9307,8 +9323,8 @@ keybindings will not do anything useful. ;;;*** -;;;### (autoloads nil "erc-truncate" "erc/erc-truncate.el" (22150 -;;;;;; 28227 522072 702000)) +;;;### (autoloads nil "erc-truncate" "erc/erc-truncate.el" (22330 +;;;;;; 59913 933323 557000)) ;;; Generated autoloads from erc/erc-truncate.el (autoload 'erc-truncate-mode "erc-truncate" nil t) @@ -9327,8 +9343,8 @@ Meant to be used in hooks, like `erc-insert-post-hook'. ;;;*** -;;;### (autoloads nil "erc-xdcc" "erc/erc-xdcc.el" (22150 28227 522072 -;;;;;; 702000)) +;;;### (autoloads nil "erc-xdcc" "erc/erc-xdcc.el" (22330 59913 933323 +;;;;;; 557000)) ;;; Generated autoloads from erc/erc-xdcc.el (autoload 'erc-xdcc-mode "erc-xdcc") @@ -9339,8 +9355,8 @@ Add a file to `erc-xdcc-files'. ;;;*** -;;;### (autoloads nil "ert" "emacs-lisp/ert.el" (22182 4679 395463 -;;;;;; 499000)) +;;;### (autoloads nil "ert" "emacs-lisp/ert.el" (22331 17371 995369 +;;;;;; 612000)) ;;; Generated autoloads from emacs-lisp/ert.el (autoload 'ert-deftest "ert" "\ @@ -9409,8 +9425,8 @@ Display the documentation for TEST-OR-TEST-NAME (a symbol or ert-test). ;;;*** -;;;### (autoloads nil "ert-x" "emacs-lisp/ert-x.el" (22150 28227 -;;;;;; 426072 702000)) +;;;### (autoloads nil "ert-x" "emacs-lisp/ert-x.el" (22331 17371 +;;;;;; 994369 615000)) ;;; Generated autoloads from emacs-lisp/ert-x.el (put 'ert-with-test-buffer 'lisp-indent-function 1) @@ -9422,8 +9438,8 @@ Kill all test buffers that are still live. ;;;*** -;;;### (autoloads nil "esh-mode" "eshell/esh-mode.el" (22150 28227 -;;;;;; 542072 702000)) +;;;### (autoloads nil "esh-mode" "eshell/esh-mode.el" (22331 17372 +;;;;;; 1369 590000)) ;;; Generated autoloads from eshell/esh-mode.el (autoload 'eshell-mode "esh-mode" "\ @@ -9433,8 +9449,8 @@ Emacs shell interactive mode. ;;;*** -;;;### (autoloads nil "eshell" "eshell/eshell.el" (22150 28227 542072 -;;;;;; 702000)) +;;;### (autoloads nil "eshell" "eshell/eshell.el" (22331 17372 2369 +;;;;;; 587000)) ;;; Generated autoloads from eshell/eshell.el (push (purecopy '(eshell 2 4 2)) package--builtin-versions) @@ -9469,8 +9485,8 @@ corresponding to a successful execution. ;;;*** -;;;### (autoloads nil "etags" "progmodes/etags.el" (22182 44805 327853 -;;;;;; 279000)) +;;;### (autoloads nil "etags" "progmodes/etags.el" (22330 59913 971323 +;;;;;; 440000)) ;;; Generated autoloads from progmodes/etags.el (defvar tags-file-name nil "\ @@ -9785,8 +9801,8 @@ for \\[find-tag] (which see). ;;;*** -;;;### (autoloads nil "ethio-util" "language/ethio-util.el" (22150 -;;;;;; 28228 166072 702000)) +;;;### (autoloads nil "ethio-util" "language/ethio-util.el" (22330 +;;;;;; 59913 940323 535000)) ;;; Generated autoloads from language/ethio-util.el (autoload 'setup-ethiopic-environment-internal "ethio-util" "\ @@ -9954,7 +9970,7 @@ With ARG, insert that many delimiters. ;;;*** -;;;### (autoloads nil "eudc" "net/eudc.el" (22150 28228 354072 702000)) +;;;### (autoloads nil "eudc" "net/eudc.el" (22331 17372 58369 388000)) ;;; Generated autoloads from net/eudc.el (autoload 'eudc-set-server "eudc" "\ @@ -10008,8 +10024,8 @@ This does nothing except loading eudc by autoload side-effect. ;;;*** -;;;### (autoloads nil "eudc-bob" "net/eudc-bob.el" (22150 28228 354072 -;;;;;; 702000)) +;;;### (autoloads nil "eudc-bob" "net/eudc-bob.el" (22330 59913 952323 +;;;;;; 498000)) ;;; Generated autoloads from net/eudc-bob.el (autoload 'eudc-display-generic-binary "eudc-bob" "\ @@ -10044,8 +10060,8 @@ Display a button for the JPEG DATA. ;;;*** -;;;### (autoloads nil "eudc-export" "net/eudc-export.el" (22150 28228 -;;;;;; 354072 702000)) +;;;### (autoloads nil "eudc-export" "net/eudc-export.el" (22330 59913 +;;;;;; 952323 498000)) ;;; Generated autoloads from net/eudc-export.el (autoload 'eudc-insert-record-at-point-into-bbdb "eudc-export" "\ @@ -10061,8 +10077,8 @@ Call `eudc-insert-record-at-point-into-bbdb' if on a record. ;;;*** -;;;### (autoloads nil "eudc-hotlist" "net/eudc-hotlist.el" (22150 -;;;;;; 28228 354072 702000)) +;;;### (autoloads nil "eudc-hotlist" "net/eudc-hotlist.el" (22330 +;;;;;; 59913 953323 495000)) ;;; Generated autoloads from net/eudc-hotlist.el (autoload 'eudc-edit-hotlist "eudc-hotlist" "\ @@ -10072,8 +10088,8 @@ Edit the hotlist of directory servers in a specialized buffer. ;;;*** -;;;### (autoloads nil "ewoc" "emacs-lisp/ewoc.el" (22150 28227 430072 -;;;;;; 702000)) +;;;### (autoloads nil "ewoc" "emacs-lisp/ewoc.el" (22330 59913 929323 +;;;;;; 569000)) ;;; Generated autoloads from emacs-lisp/ewoc.el (autoload 'ewoc-create "ewoc" "\ @@ -10099,7 +10115,7 @@ fourth arg NOSEP non-nil inhibits this. ;;;*** -;;;### (autoloads nil "eww" "net/eww.el" (22229 34898 904051 395000)) +;;;### (autoloads nil "eww" "net/eww.el" (22331 17372 58369 388000)) ;;; Generated autoloads from net/eww.el (defvar eww-suggest-uris '(eww-links-at-point url-get-url-at-point eww-current-url) "\ @@ -10146,8 +10162,8 @@ Display the bookmarks. ;;;*** -;;;### (autoloads nil "executable" "progmodes/executable.el" (22150 -;;;;;; 28228 818072 702000)) +;;;### (autoloads nil "executable" "progmodes/executable.el" (22330 +;;;;;; 59913 981323 409000)) ;;; Generated autoloads from progmodes/executable.el (autoload 'executable-command-find-posix-p "executable" "\ @@ -10182,7 +10198,7 @@ file modes. ;;;*** -;;;### (autoloads nil "expand" "expand.el" (22150 28227 542072 702000)) +;;;### (autoloads nil "expand" "expand.el" (22330 59913 912323 622000)) ;;; Generated autoloads from expand.el (autoload 'expand-add-abbrevs "expand" "\ @@ -10231,8 +10247,8 @@ This is used only in conjunction with `expand-add-abbrevs'. ;;;*** -;;;### (autoloads nil "f90" "progmodes/f90.el" (22197 58438 431460 -;;;;;; 447000)) +;;;### (autoloads nil "f90" "progmodes/f90.el" (22330 59913 981323 +;;;;;; 409000)) ;;; Generated autoloads from progmodes/f90.el (autoload 'f90-mode "f90" "\ @@ -10299,8 +10315,8 @@ with no args, if that value is non-nil. ;;;*** -;;;### (autoloads nil "face-remap" "face-remap.el" (22283 34751 141333 -;;;;;; 844000)) +;;;### (autoloads nil "face-remap" "face-remap.el" (22330 59913 738324 +;;;;;; 159000)) ;;; Generated autoloads from face-remap.el (autoload 'face-remap-add-relative "face-remap" "\ @@ -10459,8 +10475,8 @@ Besides the choice of face, it is the same as `buffer-face-mode'. ;;;*** -;;;### (autoloads nil "feedmail" "mail/feedmail.el" (22092 27717 -;;;;;; 880268 464000)) +;;;### (autoloads nil "feedmail" "mail/feedmail.el" (22330 59913 +;;;;;; 947323 514000)) ;;; Generated autoloads from mail/feedmail.el (push (purecopy '(feedmail 11)) package--builtin-versions) @@ -10514,7 +10530,7 @@ you can set `feedmail-queue-reminder-alist' to nil. ;;;*** -;;;### (autoloads nil "ffap" "ffap.el" (22279 37684 340180 436000)) +;;;### (autoloads nil "ffap" "ffap.el" (22331 17372 3369 583000)) ;;; Generated autoloads from ffap.el (autoload 'ffap-next "ffap" "\ @@ -10577,8 +10593,8 @@ Evaluate the forms in variable `ffap-bindings'. ;;;*** -;;;### (autoloads nil "filecache" "filecache.el" (22150 28227 554072 -;;;;;; 702000)) +;;;### (autoloads nil "filecache" "filecache.el" (22330 59913 912323 +;;;;;; 622000)) ;;; Generated autoloads from filecache.el (autoload 'file-cache-add-directory "filecache" "\ @@ -10635,8 +10651,8 @@ the name is considered already unique; only the second substitution ;;;*** -;;;### (autoloads nil "filenotify" "filenotify.el" (22230 55750 327718 -;;;;;; 91000)) +;;;### (autoloads nil "filenotify" "filenotify.el" (22330 59913 912323 +;;;;;; 622000)) ;;; Generated autoloads from filenotify.el (autoload 'file-notify-handle-event "filenotify" "\ @@ -10651,8 +10667,7 @@ Otherwise, signal a `file-notify-error'. ;;;*** -;;;### (autoloads nil "files-x" "files-x.el" (22189 64323 128321 -;;;;;; 19000)) +;;;### (autoloads nil "files-x" "files-x.el" (22331 17372 3369 583000)) ;;; Generated autoloads from files-x.el (autoload 'add-file-local-variable "files-x" "\ @@ -10717,8 +10732,8 @@ Copy directory-local variables to the -*- line. ;;;*** -;;;### (autoloads nil "filesets" "filesets.el" (22150 28227 578072 -;;;;;; 702000)) +;;;### (autoloads nil "filesets" "filesets.el" (22330 59913 912323 +;;;;;; 622000)) ;;; Generated autoloads from filesets.el (autoload 'filesets-init "filesets" "\ @@ -10729,8 +10744,8 @@ Set up hooks, load the cache file -- if existing -- and build the menu. ;;;*** -;;;### (autoloads nil "find-cmd" "find-cmd.el" (22150 28227 578072 -;;;;;; 702000)) +;;;### (autoloads nil "find-cmd" "find-cmd.el" (22330 59913 913323 +;;;;;; 619000)) ;;; Generated autoloads from find-cmd.el (push (purecopy '(find-cmd 0 6)) package--builtin-versions) @@ -10750,8 +10765,8 @@ result is a string that should be ready for the command line. ;;;*** -;;;### (autoloads nil "find-dired" "find-dired.el" (22150 28227 578072 -;;;;;; 702000)) +;;;### (autoloads nil "find-dired" "find-dired.el" (22331 17372 5369 +;;;;;; 576000)) ;;; Generated autoloads from find-dired.el (autoload 'find-dired "find-dired" "\ @@ -10791,8 +10806,8 @@ use in place of \"-ls\" as the final argument. ;;;*** -;;;### (autoloads nil "find-file" "find-file.el" (22150 28227 578072 -;;;;;; 702000)) +;;;### (autoloads nil "find-file" "find-file.el" (22331 17372 5369 +;;;;;; 576000)) ;;; 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)))) "\ @@ -10882,8 +10897,8 @@ Visit the file you click on in another window. ;;;*** -;;;### (autoloads nil "find-func" "emacs-lisp/find-func.el" (22150 -;;;;;; 28227 430072 702000)) +;;;### (autoloads nil "find-func" "emacs-lisp/find-func.el" (22331 +;;;;;; 17377 951348 457000)) ;;; Generated autoloads from emacs-lisp/find-func.el (autoload 'find-library "find-func" "\ @@ -11053,8 +11068,8 @@ Define some key bindings for the find-function family of functions. ;;;*** -;;;### (autoloads nil "find-lisp" "find-lisp.el" (22150 28227 578072 -;;;;;; 702000)) +;;;### (autoloads nil "find-lisp" "find-lisp.el" (22330 59913 738324 +;;;;;; 159000)) ;;; Generated autoloads from find-lisp.el (autoload 'find-lisp-find-dired "find-lisp" "\ @@ -11074,7 +11089,7 @@ Change the filter on a `find-lisp-find-dired' buffer to REGEXP. ;;;*** -;;;### (autoloads nil "finder" "finder.el" (22150 28227 578072 702000)) +;;;### (autoloads nil "finder" "finder.el" (22330 59913 913323 619000)) ;;; Generated autoloads from finder.el (push (purecopy '(finder 1 0)) package--builtin-versions) @@ -11096,8 +11111,8 @@ Find packages matching a given keyword. ;;;*** -;;;### (autoloads nil "flow-ctrl" "flow-ctrl.el" (22150 28227 578072 -;;;;;; 702000)) +;;;### (autoloads nil "flow-ctrl" "flow-ctrl.el" (22330 59913 913323 +;;;;;; 619000)) ;;; Generated autoloads from flow-ctrl.el (autoload 'enable-flow-control "flow-ctrl" "\ @@ -11118,8 +11133,8 @@ to get the effect of a C-q. ;;;*** -;;;### (autoloads nil "flow-fill" "gnus/flow-fill.el" (22150 28227 -;;;;;; 658072 702000)) +;;;### (autoloads nil "flow-fill" "gnus/flow-fill.el" (22331 17372 +;;;;;; 13369 548000)) ;;; Generated autoloads from gnus/flow-fill.el (autoload 'fill-flowed-encode "flow-fill" "\ @@ -11134,8 +11149,8 @@ to get the effect of a C-q. ;;;*** -;;;### (autoloads nil "flymake" "progmodes/flymake.el" (22150 28228 -;;;;;; 818072 702000)) +;;;### (autoloads nil "flymake" "progmodes/flymake.el" (22330 59913 +;;;;;; 981323 409000)) ;;; Generated autoloads from progmodes/flymake.el (push (purecopy '(flymake 0 3)) package--builtin-versions) @@ -11165,8 +11180,8 @@ Turn flymake mode off. ;;;*** -;;;### (autoloads nil "flyspell" "textmodes/flyspell.el" (22197 58438 -;;;;;; 711460 447000)) +;;;### (autoloads nil "flyspell" "textmodes/flyspell.el" (22331 17372 +;;;;;; 113369 193000)) ;;; Generated autoloads from textmodes/flyspell.el (autoload 'flyspell-prog-mode "flyspell" "\ @@ -11236,14 +11251,14 @@ Flyspell whole buffer. ;;;*** -;;;### (autoloads nil "foldout" "foldout.el" (22150 28227 582072 -;;;;;; 702000)) +;;;### (autoloads nil "foldout" "foldout.el" (22330 59913 913323 +;;;;;; 619000)) ;;; Generated autoloads from foldout.el (push (purecopy '(foldout 1 10)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "follow" "follow.el" (22308 37947 126422 527000)) +;;;### (autoloads nil "follow" "follow.el" (22330 59913 738324 159000)) ;;; Generated autoloads from follow.el (autoload 'turn-on-follow-mode "follow" "\ @@ -11365,8 +11380,8 @@ selected if the original window is the first one in the frame. ;;;*** -;;;### (autoloads nil "footnote" "mail/footnote.el" (22150 28228 -;;;;;; 226072 702000)) +;;;### (autoloads nil "footnote" "mail/footnote.el" (22330 59913 +;;;;;; 947323 514000)) ;;; Generated autoloads from mail/footnote.el (push (purecopy '(footnote 0 19)) package--builtin-versions) @@ -11385,7 +11400,7 @@ play around with the following keys: ;;;*** -;;;### (autoloads nil "forms" "forms.el" (22253 13631 334961 36000)) +;;;### (autoloads nil "forms" "forms.el" (22330 59913 913323 619000)) ;;; Generated autoloads from forms.el (autoload 'forms-mode "forms" "\ @@ -11421,8 +11436,8 @@ Visit a file in Forms mode in other window. ;;;*** -;;;### (autoloads nil "fortran" "progmodes/fortran.el" (22153 4424 -;;;;;; 620360 262000)) +;;;### (autoloads nil "fortran" "progmodes/fortran.el" (22330 59913 +;;;;;; 983323 402000)) ;;; Generated autoloads from progmodes/fortran.el (autoload 'fortran-mode "fortran" "\ @@ -11499,8 +11514,8 @@ with no args, if that value is non-nil. ;;;*** -;;;### (autoloads nil "fortune" "play/fortune.el" (22150 28228 678072 -;;;;;; 702000)) +;;;### (autoloads nil "fortune" "play/fortune.el" (22331 17372 87369 +;;;;;; 285000)) ;;; Generated autoloads from play/fortune.el (autoload 'fortune-add-fortune "fortune" "\ @@ -11548,8 +11563,8 @@ and choose the directory as the fortune-file. ;;;*** -;;;### (autoloads nil "frameset" "frameset.el" (22182 4679 399463 -;;;;;; 499000)) +;;;### (autoloads nil "frameset" "frameset.el" (22330 59913 913323 +;;;;;; 619000)) ;;; Generated autoloads from frameset.el (defvar frameset-session-filter-alist '((name . :never) (left . frameset-filter-iconified) (minibuffer . frameset-filter-minibuffer) (top . frameset-filter-iconified)) "\ @@ -11735,20 +11750,21 @@ Interactively, reads the register using `register-read-with-preview'. ;;;*** -;;;### (autoloads nil "gamegrid" "play/gamegrid.el" (22182 4679 471463 -;;;;;; 499000)) +;;;### (autoloads nil "gamegrid" "play/gamegrid.el" (22330 59913 +;;;;;; 969323 446000)) ;;; Generated autoloads from play/gamegrid.el (push (purecopy '(gamegrid 1 2)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "gdb-mi" "progmodes/gdb-mi.el" (22150 28228 -;;;;;; 822072 702000)) +;;;### (autoloads nil "gdb-mi" "progmodes/gdb-mi.el" (22330 59913 +;;;;;; 983323 402000)) ;;; Generated autoloads from progmodes/gdb-mi.el (defvar gdb-enable-debug nil "\ Non-nil if Gdb-Enable-Debug mode is enabled. -See the command `gdb-enable-debug' for a description of this minor mode.") +See the `gdb-enable-debug' command +for a description of this minor mode.") (custom-autoload 'gdb-enable-debug "gdb-mi" nil) @@ -11820,8 +11836,8 @@ detailed description of this mode. ;;;*** -;;;### (autoloads nil "generic" "emacs-lisp/generic.el" (22150 28227 -;;;;;; 430072 702000)) +;;;### (autoloads nil "generic" "emacs-lisp/generic.el" (22330 59913 +;;;;;; 929323 569000)) ;;; Generated autoloads from emacs-lisp/generic.el (defvar generic-mode-list nil "\ @@ -11901,8 +11917,8 @@ regular expression that can be used as an element of ;;;*** -;;;### (autoloads nil "glasses" "progmodes/glasses.el" (22150 28228 -;;;;;; 822072 702000)) +;;;### (autoloads nil "glasses" "progmodes/glasses.el" (22330 59913 +;;;;;; 983323 402000)) ;;; Generated autoloads from progmodes/glasses.el (autoload 'glasses-mode "glasses" "\ @@ -11916,8 +11932,8 @@ add virtual separators (like underscores) at places they belong to. ;;;*** -;;;### (autoloads nil "gmm-utils" "gnus/gmm-utils.el" (22272 64438 -;;;;;; 224671 103000)) +;;;### (autoloads nil "gmm-utils" "gnus/gmm-utils.el" (22331 17372 +;;;;;; 14369 544000)) ;;; Generated autoloads from gnus/gmm-utils.el (autoload 'gmm-regexp-concat "gmm-utils" "\ @@ -11971,7 +11987,7 @@ DEFAULT-MAP specifies the default key map for ICON-LIST. ;;;*** -;;;### (autoloads nil "gnus" "gnus/gnus.el" (22165 43181 87854 955000)) +;;;### (autoloads nil "gnus" "gnus/gnus.el" (22331 17372 26369 502000)) ;;; Generated autoloads from gnus/gnus.el (push (purecopy '(gnus 5 13)) package--builtin-versions) (when (fboundp 'custom-autoload) @@ -12021,8 +12037,8 @@ prompt the user for the name of an NNTP server to use. ;;;*** -;;;### (autoloads nil "gnus-agent" "gnus/gnus-agent.el" (22182 4679 -;;;;;; 403463 499000)) +;;;### (autoloads nil "gnus-agent" "gnus/gnus-agent.el" (22331 17372 +;;;;;; 14369 544000)) ;;; Generated autoloads from gnus/gnus-agent.el (autoload 'gnus-unplugged "gnus-agent" "\ @@ -12112,8 +12128,8 @@ CLEAN is obsolete and ignored. ;;;*** -;;;### (autoloads nil "gnus-art" "gnus/gnus-art.el" (22284 55604 -;;;;;; 142845 171000)) +;;;### (autoloads nil "gnus-art" "gnus/gnus-art.el" (22331 17372 +;;;;;; 16369 537000)) ;;; Generated autoloads from gnus/gnus-art.el (autoload 'gnus-article-prepare-display "gnus-art" "\ @@ -12123,8 +12139,8 @@ Make the current buffer look like a nice article. ;;;*** -;;;### (autoloads nil "gnus-bookmark" "gnus/gnus-bookmark.el" (22150 -;;;;;; 28227 674072 702000)) +;;;### (autoloads nil "gnus-bookmark" "gnus/gnus-bookmark.el" (22331 +;;;;;; 17372 16369 537000)) ;;; Generated autoloads from gnus/gnus-bookmark.el (autoload 'gnus-bookmark-set "gnus-bookmark" "\ @@ -12147,8 +12163,8 @@ deletion, or > if it is flagged for displaying. ;;;*** -;;;### (autoloads nil "gnus-cache" "gnus/gnus-cache.el" (22150 28227 -;;;;;; 678072 702000)) +;;;### (autoloads nil "gnus-cache" "gnus/gnus-cache.el" (22331 17372 +;;;;;; 16369 537000)) ;;; Generated autoloads from gnus/gnus-cache.el (autoload 'gnus-jog-cache "gnus-cache" "\ @@ -12189,8 +12205,8 @@ supported. ;;;*** -;;;### (autoloads nil "gnus-delay" "gnus/gnus-delay.el" (22150 28227 -;;;;;; 682072 702000)) +;;;### (autoloads nil "gnus-delay" "gnus/gnus-delay.el" (22331 17372 +;;;;;; 17369 534000)) ;;; Generated autoloads from gnus/gnus-delay.el (autoload 'gnus-delay-article "gnus-delay" "\ @@ -12225,8 +12241,8 @@ Checking delayed messages is skipped if optional arg NO-CHECK is non-nil. ;;;*** -;;;### (autoloads nil "gnus-diary" "gnus/gnus-diary.el" (22150 28227 -;;;;;; 686072 702000)) +;;;### (autoloads nil "gnus-diary" "gnus/gnus-diary.el" (22331 17372 +;;;;;; 17369 534000)) ;;; Generated autoloads from gnus/gnus-diary.el (autoload 'gnus-user-format-function-d "gnus-diary" "\ @@ -12241,8 +12257,8 @@ Checking delayed messages is skipped if optional arg NO-CHECK is non-nil. ;;;*** -;;;### (autoloads nil "gnus-dired" "gnus/gnus-dired.el" (22150 28227 -;;;;;; 686072 702000)) +;;;### (autoloads nil "gnus-dired" "gnus/gnus-dired.el" (22331 17372 +;;;;;; 17369 534000)) ;;; Generated autoloads from gnus/gnus-dired.el (autoload 'turn-on-gnus-dired-mode "gnus-dired" "\ @@ -12252,8 +12268,8 @@ Convenience method to turn on gnus-dired-mode. ;;;*** -;;;### (autoloads nil "gnus-draft" "gnus/gnus-draft.el" (22150 28227 -;;;;;; 686072 702000)) +;;;### (autoloads nil "gnus-draft" "gnus/gnus-draft.el" (22331 17372 +;;;;;; 17369 534000)) ;;; Generated autoloads from gnus/gnus-draft.el (autoload 'gnus-draft-reminder "gnus-draft" "\ @@ -12263,8 +12279,8 @@ Reminder user if there are unsent drafts. ;;;*** -;;;### (autoloads nil "gnus-fun" "gnus/gnus-fun.el" (22165 43181 -;;;;;; 71854 955000)) +;;;### (autoloads nil "gnus-fun" "gnus/gnus-fun.el" (22331 17372 +;;;;;; 17369 534000)) ;;; Generated autoloads from gnus/gnus-fun.el (autoload 'gnus--random-face-with-type "gnus-fun" "\ @@ -12329,8 +12345,8 @@ Insert a random Face header from `gnus-face-directory'. ;;;*** -;;;### (autoloads nil "gnus-gravatar" "gnus/gnus-gravatar.el" (22192 -;;;;;; 2880 975382 391000)) +;;;### (autoloads nil "gnus-gravatar" "gnus/gnus-gravatar.el" (22331 +;;;;;; 17372 17369 534000)) ;;; Generated autoloads from gnus/gnus-gravatar.el (autoload 'gnus-treat-from-gravatar "gnus-gravatar" "\ @@ -12347,8 +12363,8 @@ If gravatars are already displayed, remove them. ;;;*** -;;;### (autoloads nil "gnus-group" "gnus/gnus-group.el" (22150 28227 -;;;;;; 694072 702000)) +;;;### (autoloads nil "gnus-group" "gnus/gnus-group.el" (22331 17372 +;;;;;; 18369 530000)) ;;; Generated autoloads from gnus/gnus-group.el (autoload 'gnus-fetch-group "gnus-group" "\ @@ -12365,8 +12381,8 @@ Pop up a frame and enter GROUP. ;;;*** -;;;### (autoloads nil "gnus-html" "gnus/gnus-html.el" (22150 28227 -;;;;;; 694072 702000)) +;;;### (autoloads nil "gnus-html" "gnus/gnus-html.el" (22331 17372 +;;;;;; 18369 530000)) ;;; Generated autoloads from gnus/gnus-html.el (autoload 'gnus-article-html "gnus-html" "\ @@ -12381,8 +12397,8 @@ Pop up a frame and enter GROUP. ;;;*** -;;;### (autoloads nil "gnus-kill" "gnus/gnus-kill.el" (22189 64323 -;;;;;; 180321 19000)) +;;;### (autoloads nil "gnus-kill" "gnus/gnus-kill.el" (22330 59913 +;;;;;; 938323 541000)) ;;; Generated autoloads from gnus/gnus-kill.el (defalias 'gnus-batch-kill 'gnus-batch-score) @@ -12395,8 +12411,8 @@ Usage: emacs -batch -l ~/.emacs -l gnus -f gnus-batch-score ;;;*** -;;;### (autoloads nil "gnus-ml" "gnus/gnus-ml.el" (22150 28227 698072 -;;;;;; 702000)) +;;;### (autoloads nil "gnus-ml" "gnus/gnus-ml.el" (22331 17372 19369 +;;;;;; 526000)) ;;; Generated autoloads from gnus/gnus-ml.el (autoload 'turn-on-gnus-mailing-list-mode "gnus-ml" "\ @@ -12419,8 +12435,8 @@ Minor mode for providing mailing-list commands. ;;;*** -;;;### (autoloads nil "gnus-mlspl" "gnus/gnus-mlspl.el" (22150 28227 -;;;;;; 698072 702000)) +;;;### (autoloads nil "gnus-mlspl" "gnus/gnus-mlspl.el" (22330 59913 +;;;;;; 938323 541000)) ;;; Generated autoloads from gnus/gnus-mlspl.el (autoload 'gnus-group-split-setup "gnus-mlspl" "\ @@ -12520,8 +12536,8 @@ Calling (gnus-group-split-fancy nil nil \"mail.others\") returns: ;;;*** -;;;### (autoloads nil "gnus-msg" "gnus/gnus-msg.el" (22150 28227 -;;;;;; 702072 702000)) +;;;### (autoloads nil "gnus-msg" "gnus/gnus-msg.el" (22331 17372 +;;;;;; 19369 526000)) ;;; Generated autoloads from gnus/gnus-msg.el (autoload 'gnus-msg-mail "gnus-msg" "\ @@ -12548,7 +12564,7 @@ Like `message-reply'. ;;;*** ;;;### (autoloads nil "gnus-notifications" "gnus/gnus-notifications.el" -;;;;;; (22150 28227 702072 702000)) +;;;;;; (22331 17372 19369 526000)) ;;; Generated autoloads from gnus/gnus-notifications.el (autoload 'gnus-notifications "gnus-notifications" "\ @@ -12564,8 +12580,8 @@ This is typically a function to add in ;;;*** -;;;### (autoloads nil "gnus-picon" "gnus/gnus-picon.el" (22192 2880 -;;;;;; 983382 391000)) +;;;### (autoloads nil "gnus-picon" "gnus/gnus-picon.el" (22331 17372 +;;;;;; 19369 526000)) ;;; Generated autoloads from gnus/gnus-picon.el (autoload 'gnus-treat-from-picon "gnus-picon" "\ @@ -12588,8 +12604,8 @@ If picons are already displayed, remove them. ;;;*** -;;;### (autoloads nil "gnus-range" "gnus/gnus-range.el" (22150 28227 -;;;;;; 702072 702000)) +;;;### (autoloads nil "gnus-range" "gnus/gnus-range.el" (22330 59913 +;;;;;; 938323 541000)) ;;; Generated autoloads from gnus/gnus-range.el (autoload 'gnus-sorted-difference "gnus-range" "\ @@ -12656,8 +12672,8 @@ Add NUM into sorted LIST by side effect. ;;;*** -;;;### (autoloads nil "gnus-registry" "gnus/gnus-registry.el" (22150 -;;;;;; 28227 702072 702000)) +;;;### (autoloads nil "gnus-registry" "gnus/gnus-registry.el" (22331 +;;;;;; 17372 19369 526000)) ;;; Generated autoloads from gnus/gnus-registry.el (autoload 'gnus-registry-initialize "gnus-registry" "\ @@ -12672,8 +12688,8 @@ Install the registry hooks. ;;;*** -;;;### (autoloads nil "gnus-sieve" "gnus/gnus-sieve.el" (22150 28227 -;;;;;; 806072 702000)) +;;;### (autoloads nil "gnus-sieve" "gnus/gnus-sieve.el" (22330 59913 +;;;;;; 938323 541000)) ;;; Generated autoloads from gnus/gnus-sieve.el (autoload 'gnus-sieve-update "gnus-sieve" "\ @@ -12700,8 +12716,8 @@ See the documentation for these variables and functions for details. ;;;*** -;;;### (autoloads nil "gnus-spec" "gnus/gnus-spec.el" (22150 28227 -;;;;;; 806072 702000)) +;;;### (autoloads nil "gnus-spec" "gnus/gnus-spec.el" (22331 17372 +;;;;;; 20369 523000)) ;;; Generated autoloads from gnus/gnus-spec.el (autoload 'gnus-update-format "gnus-spec" "\ @@ -12711,8 +12727,8 @@ Update the format specification near point. ;;;*** -;;;### (autoloads nil "gnus-start" "gnus/gnus-start.el" (22197 58438 -;;;;;; 235460 447000)) +;;;### (autoloads nil "gnus-start" "gnus/gnus-start.el" (22331 17372 +;;;;;; 21369 519000)) ;;; Generated autoloads from gnus/gnus-start.el (autoload 'gnus-declare-backend "gnus-start" "\ @@ -12722,8 +12738,8 @@ Declare back end NAME with ABILITIES as a Gnus back end. ;;;*** -;;;### (autoloads nil "gnus-sum" "gnus/gnus-sum.el" (22199 13769 -;;;;;; 464900 836000)) +;;;### (autoloads nil "gnus-sum" "gnus/gnus-sum.el" (22331 17372 +;;;;;; 24369 509000)) ;;; Generated autoloads from gnus/gnus-sum.el (autoload 'gnus-summary-bookmark-jump "gnus-sum" "\ @@ -12734,8 +12750,8 @@ BOOKMARK is a bookmark name or a bookmark record. ;;;*** -;;;### (autoloads nil "gnus-sync" "gnus/gnus-sync.el" (22150 28227 -;;;;;; 862072 702000)) +;;;### (autoloads nil "gnus-sync" "gnus/gnus-sync.el" (22331 17372 +;;;;;; 24369 509000)) ;;; Generated autoloads from gnus/gnus-sync.el (autoload 'gnus-sync-initialize "gnus-sync" "\ @@ -12750,8 +12766,8 @@ Install the sync hooks. ;;;*** -;;;### (autoloads nil "gnus-win" "gnus/gnus-win.el" (22150 28227 -;;;;;; 938072 702000)) +;;;### (autoloads nil "gnus-win" "gnus/gnus-win.el" (22331 17372 +;;;;;; 25369 505000)) ;;; Generated autoloads from gnus/gnus-win.el (autoload 'gnus-add-configuration "gnus-win" "\ @@ -12761,8 +12777,8 @@ Add the window configuration CONF to `gnus-buffer-configuration'. ;;;*** -;;;### (autoloads nil "gnutls" "net/gnutls.el" (22150 28228 358072 -;;;;;; 702000)) +;;;### (autoloads nil "gnutls" "net/gnutls.el" (22331 17372 58369 +;;;;;; 388000)) ;;; Generated autoloads from net/gnutls.el (defvar gnutls-min-prime-bits 256 "\ @@ -12778,8 +12794,8 @@ A value of nil says to use the default GnuTLS value.") ;;;*** -;;;### (autoloads nil "gomoku" "play/gomoku.el" (22182 4679 471463 -;;;;;; 499000)) +;;;### (autoloads nil "gomoku" "play/gomoku.el" (22330 59913 969323 +;;;;;; 446000)) ;;; Generated autoloads from play/gomoku.el (autoload 'gomoku "gomoku" "\ @@ -12805,8 +12821,8 @@ Use \\[describe-mode] for more info. ;;;*** -;;;### (autoloads nil "goto-addr" "net/goto-addr.el" (22150 28228 -;;;;;; 358072 702000)) +;;;### (autoloads nil "goto-addr" "net/goto-addr.el" (22330 59913 +;;;;;; 953323 495000)) ;;; Generated autoloads from net/goto-addr.el (define-obsolete-function-alias 'goto-address-at-mouse 'goto-address-at-point "22.1") @@ -12847,8 +12863,8 @@ Like `goto-address-mode', but only for comments and strings. ;;;*** -;;;### (autoloads nil "gravatar" "gnus/gravatar.el" (22150 28227 -;;;;;; 942072 702000)) +;;;### (autoloads nil "gravatar" "gnus/gravatar.el" (22331 17372 +;;;;;; 26369 502000)) ;;; Generated autoloads from gnus/gravatar.el (autoload 'gravatar-retrieve "gravatar" "\ @@ -12864,8 +12880,8 @@ Retrieve MAIL-ADDRESS gravatar and returns it. ;;;*** -;;;### (autoloads nil "grep" "progmodes/grep.el" (22296 46772 464104 -;;;;;; 103000)) +;;;### (autoloads nil "grep" "progmodes/grep.el" (22331 17372 94369 +;;;;;; 260000)) ;;; Generated autoloads from progmodes/grep.el (defvar grep-window-height nil "\ @@ -13032,7 +13048,7 @@ file name to `*.gz', and sets `grep-highlight-matches' to `always'. ;;;*** -;;;### (autoloads nil "gs" "gs.el" (22150 28228 26072 702000)) +;;;### (autoloads nil "gs" "gs.el" (22330 59913 913323 619000)) ;;; Generated autoloads from gs.el (autoload 'gs-load-image "gs" "\ @@ -13045,8 +13061,8 @@ the form \"WINDOW-ID PIXMAP-ID\". Value is non-nil if successful. ;;;*** -;;;### (autoloads nil "gud" "progmodes/gud.el" (22189 64323 288321 -;;;;;; 19000)) +;;;### (autoloads nil "gud" "progmodes/gud.el" (22331 17372 95369 +;;;;;; 256000)) ;;; Generated autoloads from progmodes/gud.el (autoload 'gud-gdb "gud" "\ @@ -13124,7 +13140,8 @@ Major mode for editing GDB scripts. (defvar gud-tooltip-mode nil "\ Non-nil if Gud-Tooltip mode is enabled. -See the command `gud-tooltip-mode' for a description of this minor mode. +See the `gud-tooltip-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `gud-tooltip-mode'.") @@ -13141,8 +13158,8 @@ it if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "gv" "emacs-lisp/gv.el" (22150 28227 434072 -;;;;;; 702000)) +;;;### (autoloads nil "gv" "emacs-lisp/gv.el" (22330 59913 929323 +;;;;;; 569000)) ;;; Generated autoloads from emacs-lisp/gv.el (autoload 'gv-get "gv" "\ @@ -13244,8 +13261,8 @@ binding mode. ;;;*** -;;;### (autoloads nil "handwrite" "play/handwrite.el" (22150 28228 -;;;;;; 678072 702000)) +;;;### (autoloads nil "handwrite" "play/handwrite.el" (22330 59913 +;;;;;; 969323 446000)) ;;; Generated autoloads from play/handwrite.el (autoload 'handwrite "handwrite" "\ @@ -13262,8 +13279,8 @@ Variables: `handwrite-linespace' (default 12) ;;;*** -;;;### (autoloads nil "hanoi" "play/hanoi.el" (22086 11930 130062 -;;;;;; 731000)) +;;;### (autoloads nil "hanoi" "play/hanoi.el" (22330 59913 969323 +;;;;;; 446000)) ;;; Generated autoloads from play/hanoi.el (autoload 'hanoi "hanoi" "\ @@ -13290,8 +13307,8 @@ to be updated. ;;;*** -;;;### (autoloads nil "hashcash" "mail/hashcash.el" (22150 28228 -;;;;;; 230072 702000)) +;;;### (autoloads nil "hashcash" "mail/hashcash.el" (22330 59913 +;;;;;; 947323 514000)) ;;; Generated autoloads from mail/hashcash.el (autoload 'hashcash-insert-payment "hashcash" "\ @@ -13333,8 +13350,8 @@ Prefix arg sets default accept amount temporarily. ;;;*** -;;;### (autoloads nil "help-at-pt" "help-at-pt.el" (22150 28228 26072 -;;;;;; 702000)) +;;;### (autoloads nil "help-at-pt" "help-at-pt.el" (22330 59913 913323 +;;;;;; 619000)) ;;; Generated autoloads from help-at-pt.el (autoload 'help-at-pt-string "help-at-pt" "\ @@ -13461,8 +13478,8 @@ different regions. With numeric argument ARG, behaves like ;;;*** -;;;### (autoloads nil "help-fns" "help-fns.el" (22211 4933 601358 -;;;;;; 144000)) +;;;### (autoloads nil "help-fns" "help-fns.el" (22331 17372 37369 +;;;;;; 462000)) ;;; Generated autoloads from help-fns.el (autoload 'describe-function "help-fns" "\ @@ -13549,8 +13566,8 @@ Produce a texinfo buffer with sorted doc-strings from the DOC file. ;;;*** -;;;### (autoloads nil "help-macro" "help-macro.el" (22150 28228 26072 -;;;;;; 702000)) +;;;### (autoloads nil "help-macro" "help-macro.el" (22330 59913 913323 +;;;;;; 619000)) ;;; Generated autoloads from help-macro.el (defvar three-step-help nil "\ @@ -13564,8 +13581,8 @@ gives the window that lists the options.") ;;;*** -;;;### (autoloads nil "help-mode" "help-mode.el" (22220 19926 384329 -;;;;;; 271000)) +;;;### (autoloads nil "help-mode" "help-mode.el" (22331 17372 37369 +;;;;;; 462000)) ;;; Generated autoloads from help-mode.el (autoload 'help-mode "help-mode" "\ @@ -13666,8 +13683,8 @@ BOOKMARK is a bookmark name or a bookmark record. ;;;*** -;;;### (autoloads nil "helper" "emacs-lisp/helper.el" (22150 28227 -;;;;;; 434072 702000)) +;;;### (autoloads nil "helper" "emacs-lisp/helper.el" (22330 59913 +;;;;;; 929323 569000)) ;;; Generated autoloads from emacs-lisp/helper.el (autoload 'Helper-describe-bindings "helper" "\ @@ -13682,7 +13699,7 @@ Provide help for current mode. ;;;*** -;;;### (autoloads nil "hexl" "hexl.el" (22150 28228 26072 702000)) +;;;### (autoloads nil "hexl" "hexl.el" (22330 59913 913323 619000)) ;;; Generated autoloads from hexl.el (autoload 'hexl-mode "hexl" "\ @@ -13776,7 +13793,8 @@ This discards the buffer's undo information. ;;;*** -;;;### (autoloads nil "hi-lock" "hi-lock.el" (22150 28228 30072 702000)) +;;;### (autoloads nil "hi-lock" "hi-lock.el" (22330 59913 739324 +;;;;;; 156000)) ;;; Generated autoloads from hi-lock.el (autoload 'hi-lock-mode "hi-lock" "\ @@ -13846,7 +13864,8 @@ Hi-lock: end is found. A mode is excluded if it's in the list (defvar global-hi-lock-mode nil "\ Non-nil if Global Hi-Lock mode is enabled. -See the command `global-hi-lock-mode' for a description of this minor mode. +See the `global-hi-lock-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-hi-lock-mode'.") @@ -13943,8 +13962,8 @@ be found in variable `hi-lock-interactive-patterns'. ;;;*** -;;;### (autoloads nil "hideif" "progmodes/hideif.el" (22197 58438 -;;;;;; 447460 447000)) +;;;### (autoloads nil "hideif" "progmodes/hideif.el" (22330 59913 +;;;;;; 983323 402000)) ;;; Generated autoloads from progmodes/hideif.el (autoload 'hide-ifdef-mode "hideif" "\ @@ -13991,8 +14010,8 @@ Several variables affect how the hiding is done: ;;;*** -;;;### (autoloads nil "hideshow" "progmodes/hideshow.el" (22150 28228 -;;;;;; 830072 702000)) +;;;### (autoloads nil "hideshow" "progmodes/hideshow.el" (22331 17372 +;;;;;; 95369 256000)) ;;; 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))) "\ @@ -14054,8 +14073,8 @@ Unconditionally turn off `hs-minor-mode'. ;;;*** -;;;### (autoloads nil "hilit-chg" "hilit-chg.el" (22150 28228 30072 -;;;;;; 702000)) +;;;### (autoloads nil "hilit-chg" "hilit-chg.el" (22330 59913 913323 +;;;;;; 619000)) ;;; Generated autoloads from hilit-chg.el (autoload 'highlight-changes-mode "hilit-chg" "\ @@ -14165,7 +14184,8 @@ changes are made, so \\[highlight-changes-next-change] and (defvar global-highlight-changes-mode nil "\ Non-nil if Global Highlight-Changes mode is enabled. -See the command `global-highlight-changes-mode' for a description of this minor mode. +See the `global-highlight-changes-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-highlight-changes-mode'.") @@ -14186,8 +14206,8 @@ See `highlight-changes-mode' for more information on Highlight-Changes mode. ;;;*** -;;;### (autoloads nil "hippie-exp" "hippie-exp.el" (22150 28228 30072 -;;;;;; 702000)) +;;;### (autoloads nil "hippie-exp" "hippie-exp.el" (22330 59913 913323 +;;;;;; 619000)) ;;; Generated autoloads from hippie-exp.el (push (purecopy '(hippie-exp 1 6)) package--builtin-versions) @@ -14219,7 +14239,8 @@ argument VERBOSE non-nil makes the function verbose. ;;;*** -;;;### (autoloads nil "hl-line" "hl-line.el" (22150 28228 30072 702000)) +;;;### (autoloads nil "hl-line" "hl-line.el" (22330 59913 913323 +;;;;;; 619000)) ;;; Generated autoloads from hl-line.el (autoload 'hl-line-mode "hl-line" "\ @@ -14244,7 +14265,8 @@ addition to `hl-line-highlight' on `post-command-hook'. (defvar global-hl-line-mode nil "\ Non-nil if Global Hl-Line mode is enabled. -See the command `global-hl-line-mode' for a description of this minor mode. +See the `global-hl-line-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-hl-line-mode'.") @@ -14268,8 +14290,8 @@ Global-Hl-Line mode uses the functions `global-hl-line-unhighlight' and ;;;*** -;;;### (autoloads nil "holidays" "calendar/holidays.el" (22150 28227 -;;;;;; 78072 702000)) +;;;### (autoloads nil "holidays" "calendar/holidays.el" (22330 59913 +;;;;;; 920323 597000)) ;;; 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"))) "\ @@ -14379,8 +14401,8 @@ The optional LABEL is used to label the buffer created. ;;;*** -;;;### (autoloads nil "html2text" "gnus/html2text.el" (22150 28227 -;;;;;; 946072 702000)) +;;;### (autoloads nil "html2text" "gnus/html2text.el" (22331 17372 +;;;;;; 26369 502000)) ;;; Generated autoloads from gnus/html2text.el (autoload 'html2text "html2text" "\ @@ -14390,8 +14412,8 @@ Convert HTML to plain text in the current buffer. ;;;*** -;;;### (autoloads nil "htmlfontify" "htmlfontify.el" (22174 41792 -;;;;;; 975867 435000)) +;;;### (autoloads nil "htmlfontify" "htmlfontify.el" (22331 17372 +;;;;;; 38369 459000)) ;;; Generated autoloads from htmlfontify.el (push (purecopy '(htmlfontify 0 21)) package--builtin-versions) @@ -14424,8 +14446,8 @@ You may also want to set `hfy-page-header' and `hfy-page-footer'. ;;;*** -;;;### (autoloads nil "ibuf-macs" "ibuf-macs.el" (22150 28228 50072 -;;;;;; 702000)) +;;;### (autoloads nil "ibuf-macs" "ibuf-macs.el" (22330 59913 913323 +;;;;;; 619000)) ;;; Generated autoloads from ibuf-macs.el (autoload 'define-ibuffer-column "ibuf-macs" "\ @@ -14527,8 +14549,7 @@ bound to the current value of the filter. ;;;*** -;;;### (autoloads nil "ibuffer" "ibuffer.el" (22150 28612 886072 -;;;;;; 702000)) +;;;### (autoloads nil "ibuffer" "ibuffer.el" (22331 17372 39369 455000)) ;;; Generated autoloads from ibuffer.el (autoload 'ibuffer-list-buffers "ibuffer" "\ @@ -14567,8 +14588,8 @@ FORMATS is the value to use for `ibuffer-formats'. ;;;*** -;;;### (autoloads nil "icalendar" "calendar/icalendar.el" (22150 -;;;;;; 28227 78072 702000)) +;;;### (autoloads nil "icalendar" "calendar/icalendar.el" (22330 +;;;;;; 59913 920323 597000)) ;;; Generated autoloads from calendar/icalendar.el (push (purecopy '(icalendar 0 19)) package--builtin-versions) @@ -14621,13 +14642,14 @@ buffer `*icalendar-errors*'. ;;;*** -;;;### (autoloads nil "icomplete" "icomplete.el" (22150 28228 54072 -;;;;;; 702000)) +;;;### (autoloads nil "icomplete" "icomplete.el" (22331 17372 39369 +;;;;;; 455000)) ;;; Generated autoloads from icomplete.el (defvar icomplete-mode nil "\ Non-nil if Icomplete mode is enabled. -See the command `icomplete-mode' for a description of this minor mode. +See the `icomplete-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `icomplete-mode'.") @@ -14661,8 +14683,8 @@ completions: ;;;*** -;;;### (autoloads nil "icon" "progmodes/icon.el" (22197 58438 447460 -;;;;;; 447000)) +;;;### (autoloads nil "icon" "progmodes/icon.el" (22330 59913 983323 +;;;;;; 402000)) ;;; Generated autoloads from progmodes/icon.el (autoload 'icon-mode "icon" "\ @@ -14702,8 +14724,8 @@ with no args, if that value is non-nil. ;;;*** -;;;### (autoloads nil "idlw-shell" "progmodes/idlw-shell.el" (22150 -;;;;;; 28228 850072 702000)) +;;;### (autoloads nil "idlw-shell" "progmodes/idlw-shell.el" (22330 +;;;;;; 59913 984323 399000)) ;;; Generated autoloads from progmodes/idlw-shell.el (autoload 'idlwave-shell "idlw-shell" "\ @@ -14728,8 +14750,8 @@ See also the variable `idlwave-shell-prompt-pattern'. ;;;*** -;;;### (autoloads nil "idlwave" "progmodes/idlwave.el" (22197 58438 -;;;;;; 467460 447000)) +;;;### (autoloads nil "idlwave" "progmodes/idlwave.el" (22330 59913 +;;;;;; 984323 399000)) ;;; Generated autoloads from progmodes/idlwave.el (push (purecopy '(idlwave 6 1 22)) package--builtin-versions) @@ -14858,7 +14880,7 @@ The main features of this mode are ;;;*** -;;;### (autoloads nil "ido" "ido.el" (22150 28228 82072 702000)) +;;;### (autoloads nil "ido" "ido.el" (22330 59913 913323 619000)) ;;; Generated autoloads from ido.el (defvar ido-mode nil "\ @@ -15120,7 +15142,7 @@ DEF, if non-nil, is the default value. ;;;*** -;;;### (autoloads nil "ielm" "ielm.el" (22150 28228 82072 702000)) +;;;### (autoloads nil "ielm" "ielm.el" (22330 59913 913323 619000)) ;;; Generated autoloads from ielm.el (autoload 'ielm "ielm" "\ @@ -15132,7 +15154,7 @@ See `inferior-emacs-lisp-mode' for details. ;;;*** -;;;### (autoloads nil "iimage" "iimage.el" (22150 28228 82072 702000)) +;;;### (autoloads nil "iimage" "iimage.el" (22330 59913 913323 619000)) ;;; Generated autoloads from iimage.el (define-obsolete-function-alias 'turn-on-iimage-mode 'iimage-mode "24.1") @@ -15148,7 +15170,7 @@ the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'. ;;;*** -;;;### (autoloads nil "image" "image.el" (22150 28228 86072 702000)) +;;;### (autoloads nil "image" "image.el" (22331 17372 40369 452000)) ;;; Generated autoloads from image.el (autoload 'image-type-from-data "image" "\ @@ -15341,8 +15363,8 @@ If Emacs is compiled without ImageMagick support, this does nothing. ;;;*** -;;;### (autoloads nil "image-dired" "image-dired.el" (22150 28228 -;;;;;; 86072 702000)) +;;;### (autoloads nil "image-dired" "image-dired.el" (22331 17372 +;;;;;; 39369 455000)) ;;; Generated autoloads from image-dired.el (push (purecopy '(image-dired 0 4 11)) package--builtin-versions) @@ -15479,8 +15501,8 @@ easy-to-use form. ;;;*** -;;;### (autoloads nil "image-file" "image-file.el" (22150 28228 86072 -;;;;;; 702000)) +;;;### (autoloads nil "image-file" "image-file.el" (22330 59913 913323 +;;;;;; 619000)) ;;; 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")) "\ @@ -15521,7 +15543,8 @@ the command `insert-file-contents'. (defvar auto-image-file-mode nil "\ Non-nil if Auto-Image-File mode is enabled. -See the command `auto-image-file-mode' for a description of this minor mode. +See the `auto-image-file-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `auto-image-file-mode'.") @@ -15542,8 +15565,8 @@ An image file is one whose name has an extension in ;;;*** -;;;### (autoloads nil "image-mode" "image-mode.el" (22174 53239 753341 -;;;;;; 435000)) +;;;### (autoloads nil "image-mode" "image-mode.el" (22331 17372 40369 +;;;;;; 452000)) ;;; Generated autoloads from image-mode.el (autoload 'image-mode "image-mode" "\ @@ -15590,7 +15613,7 @@ on these modes. ;;;*** -;;;### (autoloads nil "imenu" "imenu.el" (22150 28228 90072 702000)) +;;;### (autoloads nil "imenu" "imenu.el" (22330 59913 739324 156000)) ;;; Generated autoloads from imenu.el (defvar imenu-sort-function nil "\ @@ -15728,8 +15751,8 @@ for more information. ;;;*** -;;;### (autoloads nil "ind-util" "language/ind-util.el" (22150 28228 -;;;;;; 190072 702000)) +;;;### (autoloads nil "ind-util" "language/ind-util.el" (22330 59913 +;;;;;; 941323 532000)) ;;; Generated autoloads from language/ind-util.el (autoload 'indian-compose-region "ind-util" "\ @@ -15759,8 +15782,8 @@ Convert old Emacs Devanagari characters to UCS. ;;;*** -;;;### (autoloads nil "inf-lisp" "progmodes/inf-lisp.el" (22150 28228 -;;;;;; 862072 702000)) +;;;### (autoloads nil "inf-lisp" "progmodes/inf-lisp.el" (22330 59913 +;;;;;; 984323 399000)) ;;; Generated autoloads from progmodes/inf-lisp.el (autoload 'inferior-lisp "inf-lisp" "\ @@ -15778,7 +15801,7 @@ of `inferior-lisp-program'). Runs the hooks from ;;;*** -;;;### (autoloads nil "info" "info.el" (22150 28228 98072 702000)) +;;;### (autoloads nil "info" "info.el" (22331 17372 41369 448000)) ;;; 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))))) "\ @@ -15990,8 +16013,8 @@ completion alternatives to currently visited manuals. ;;;*** -;;;### (autoloads nil "info-look" "info-look.el" (22291 28851 633608 -;;;;;; 847000)) +;;;### (autoloads nil "info-look" "info-look.el" (22330 59913 740324 +;;;;;; 153000)) ;;; Generated autoloads from info-look.el (autoload 'info-lookup-reset "info-look" "\ @@ -16038,8 +16061,8 @@ Perform completion on file preceding point. ;;;*** -;;;### (autoloads nil "info-xref" "info-xref.el" (22150 28228 94072 -;;;;;; 702000)) +;;;### (autoloads nil "info-xref" "info-xref.el" (22330 59913 914323 +;;;;;; 615000)) ;;; Generated autoloads from info-xref.el (push (purecopy '(info-xref 3)) package--builtin-versions) @@ -16122,8 +16145,8 @@ the sources handy. ;;;*** -;;;### (autoloads nil "informat" "informat.el" (22150 28228 102072 -;;;;;; 702000)) +;;;### (autoloads nil "informat" "informat.el" (22330 59913 914323 +;;;;;; 615000)) ;;; Generated autoloads from informat.el (autoload 'Info-tagify "informat" "\ @@ -16168,8 +16191,8 @@ For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\" ;;;*** -;;;### (autoloads nil "inline" "emacs-lisp/inline.el" (22171 34371 -;;;;;; 930658 796000)) +;;;### (autoloads nil "inline" "emacs-lisp/inline.el" (22330 59913 +;;;;;; 929323 569000)) ;;; Generated autoloads from emacs-lisp/inline.el (autoload 'define-inline "inline" "\ @@ -16183,8 +16206,8 @@ For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\" ;;;*** -;;;### (autoloads nil "inversion" "cedet/inversion.el" (22150 28227 -;;;;;; 218072 702000)) +;;;### (autoloads nil "inversion" "cedet/inversion.el" (22330 59913 +;;;;;; 920323 597000)) ;;; Generated autoloads from cedet/inversion.el (push (purecopy '(inversion 1 3)) package--builtin-versions) @@ -16196,8 +16219,8 @@ Only checks one based on which kind of Emacs is being run. ;;;*** -;;;### (autoloads nil "isearch-x" "international/isearch-x.el" (22150 -;;;;;; 28228 106072 702000)) +;;;### (autoloads nil "isearch-x" "international/isearch-x.el" (22330 +;;;;;; 59913 939323 538000)) ;;; Generated autoloads from international/isearch-x.el (autoload 'isearch-toggle-specified-input-method "isearch-x" "\ @@ -16217,8 +16240,8 @@ Toggle input method in interactive search. ;;;*** -;;;### (autoloads nil "isearchb" "isearchb.el" (22150 28228 154072 -;;;;;; 702000)) +;;;### (autoloads nil "isearchb" "isearchb.el" (22330 59913 914323 +;;;;;; 615000)) ;;; Generated autoloads from isearchb.el (push (purecopy '(isearchb 1 5)) package--builtin-versions) @@ -16232,8 +16255,8 @@ accessed via isearchb. ;;;*** -;;;### (autoloads nil "iso-cvt" "international/iso-cvt.el" (22150 -;;;;;; 28228 106072 702000)) +;;;### (autoloads nil "iso-cvt" "international/iso-cvt.el" (22330 +;;;;;; 59913 939323 538000)) ;;; Generated autoloads from international/iso-cvt.el (autoload 'iso-spanish "iso-cvt" "\ @@ -16324,15 +16347,15 @@ Add submenus to the File menu, to convert to and from various formats. ;;;*** ;;;### (autoloads nil "iso-transl" "international/iso-transl.el" -;;;;;; (22150 28228 106072 702000)) +;;;;;; (22330 59913 939323 538000)) ;;; 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" (22308 37947 -;;;;;; 230422 527000)) +;;;### (autoloads nil "ispell" "textmodes/ispell.el" (22331 17372 +;;;;;; 114369 189000)) ;;; Generated autoloads from textmodes/ispell.el (put 'ispell-check-comments 'safe-local-variable (lambda (a) (memq a '(nil t exclusive)))) @@ -16565,8 +16588,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" (22150 -;;;;;; 28228 190072 702000)) +;;;### (autoloads nil "japan-util" "language/japan-util.el" (22330 +;;;;;; 59913 941323 532000)) ;;; Generated autoloads from language/japan-util.el (autoload 'setup-japanese-environment-internal "japan-util" "\ @@ -16643,8 +16666,8 @@ If non-nil, second arg INITIAL-INPUT is a string to insert before reading. ;;;*** -;;;### (autoloads nil "jka-compr" "jka-compr.el" (22150 28228 158072 -;;;;;; 702000)) +;;;### (autoloads nil "jka-compr" "jka-compr.el" (22330 59913 914323 +;;;;;; 615000)) ;;; Generated autoloads from jka-compr.el (defvar jka-compr-inhibit nil "\ @@ -16667,8 +16690,8 @@ by `jka-compr-installed'. ;;;*** -;;;### (autoloads nil "js" "progmodes/js.el" (22305 18655 595719 -;;;;;; 883000)) +;;;### (autoloads nil "js" "progmodes/js.el" (22331 17377 954348 +;;;;;; 447000)) ;;; Generated autoloads from progmodes/js.el (push (purecopy '(js 9)) package--builtin-versions) @@ -16695,14 +16718,14 @@ locally, like so: ;;;*** -;;;### (autoloads nil "json" "json.el" (22197 58438 339460 447000)) +;;;### (autoloads nil "json" "json.el" (22330 59913 914323 615000)) ;;; Generated autoloads from json.el (push (purecopy '(json 1 4)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "keypad" "emulation/keypad.el" (22150 28227 -;;;;;; 462072 702000)) +;;;### (autoloads nil "keypad" "emulation/keypad.el" (22330 59913 +;;;;;; 931323 563000)) ;;; Generated autoloads from emulation/keypad.el (defvar keypad-setup nil "\ @@ -16757,8 +16780,8 @@ the decimal key on the keypad is mapped to DECIMAL instead of `.' ;;;*** -;;;### (autoloads nil "kinsoku" "international/kinsoku.el" (22150 -;;;;;; 28228 106072 702000)) +;;;### (autoloads nil "kinsoku" "international/kinsoku.el" (22330 +;;;;;; 59913 939323 538000)) ;;; Generated autoloads from international/kinsoku.el (autoload 'kinsoku "kinsoku" "\ @@ -16779,8 +16802,8 @@ the context of text formatting. ;;;*** -;;;### (autoloads nil "kkc" "international/kkc.el" (22150 28228 106072 -;;;;;; 702000)) +;;;### (autoloads nil "kkc" "international/kkc.el" (22330 59913 940323 +;;;;;; 535000)) ;;; Generated autoloads from international/kkc.el (defvar kkc-after-update-conversion-functions nil "\ @@ -16802,7 +16825,7 @@ and the return value is the length of the conversion. ;;;*** -;;;### (autoloads nil "kmacro" "kmacro.el" (22150 28228 162072 702000)) +;;;### (autoloads nil "kmacro" "kmacro.el" (22331 17372 42369 445000)) ;;; Generated autoloads from kmacro.el (global-set-key "\C-x(" 'kmacro-start-macro) (global-set-key "\C-x)" 'kmacro-end-macro) @@ -16914,8 +16937,8 @@ If kbd macro currently being defined end it before activating it. ;;;*** -;;;### (autoloads nil "korea-util" "language/korea-util.el" (22150 -;;;;;; 28228 194072 702000)) +;;;### (autoloads nil "korea-util" "language/korea-util.el" (22330 +;;;;;; 59913 941323 532000)) ;;; Generated autoloads from language/korea-util.el (defvar default-korean-keyboard (purecopy (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) "3" "")) "\ @@ -16929,8 +16952,8 @@ The kind of Korean keyboard for Korean input method. ;;;*** -;;;### (autoloads nil "lao-util" "language/lao-util.el" (22150 28228 -;;;;;; 194072 702000)) +;;;### (autoloads nil "lao-util" "language/lao-util.el" (22330 59913 +;;;;;; 941323 532000)) ;;; Generated autoloads from language/lao-util.el (autoload 'lao-compose-string "lao-util" "\ @@ -16967,8 +16990,8 @@ Transcribe Romanized Lao string STR to Lao character string. ;;;*** -;;;### (autoloads nil "latexenc" "international/latexenc.el" (22150 -;;;;;; 28228 106072 702000)) +;;;### (autoloads nil "latexenc" "international/latexenc.el" (22330 +;;;;;; 59913 940323 535000)) ;;; 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))) "\ @@ -17000,7 +17023,7 @@ coding system names is determined from `latex-inputenc-coding-alist'. ;;;*** ;;;### (autoloads nil "latin1-disp" "international/latin1-disp.el" -;;;;;; (22150 28228 110072 702000)) +;;;;;; (22330 59913 940323 535000)) ;;; Generated autoloads from international/latin1-disp.el (defvar latin1-display nil "\ @@ -17041,8 +17064,8 @@ use either \\[customize] or the function `latin1-display'.") ;;;*** -;;;### (autoloads nil "ld-script" "progmodes/ld-script.el" (22150 -;;;;;; 28228 866072 702000)) +;;;### (autoloads nil "ld-script" "progmodes/ld-script.el" (22330 +;;;;;; 59913 984323 399000)) ;;; Generated autoloads from progmodes/ld-script.el (autoload 'ld-script-mode "ld-script" "\ @@ -17052,8 +17075,8 @@ A major mode to edit GNU ld script files ;;;*** -;;;### (autoloads nil "let-alist" "emacs-lisp/let-alist.el" (22150 -;;;;;; 28227 434072 702000)) +;;;### (autoloads nil "let-alist" "emacs-lisp/let-alist.el" (22331 +;;;;;; 17371 995369 612000)) ;;; Generated autoloads from emacs-lisp/let-alist.el (push (purecopy '(let-alist 1 0 4)) package--builtin-versions) @@ -17092,7 +17115,7 @@ displayed in the example above. ;;;*** -;;;### (autoloads nil "life" "play/life.el" (22150 28228 678072 702000)) +;;;### (autoloads nil "life" "play/life.el" (22330 59913 969323 446000)) ;;; Generated autoloads from play/life.el (autoload 'life "life" "\ @@ -17105,7 +17128,7 @@ generations (this defaults to 1). ;;;*** -;;;### (autoloads nil "linum" "linum.el" (22150 28228 210072 702000)) +;;;### (autoloads nil "linum" "linum.el" (22331 17372 49369 420000)) ;;; Generated autoloads from linum.el (push (purecopy '(linum 0 9 24)) package--builtin-versions) @@ -17121,7 +17144,8 @@ Linum mode is a buffer-local minor mode. (defvar global-linum-mode nil "\ Non-nil if Global Linum mode is enabled. -See the command `global-linum-mode' for a description of this minor mode. +See the `global-linum-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-linum-mode'.") @@ -17142,8 +17166,8 @@ See `linum-mode' for more information on Linum mode. ;;;*** -;;;### (autoloads nil "loadhist" "loadhist.el" (22150 28228 210072 -;;;;;; 702000)) +;;;### (autoloads nil "loadhist" "loadhist.el" (22330 59913 914323 +;;;;;; 615000)) ;;; Generated autoloads from loadhist.el (autoload 'unload-feature "loadhist" "\ @@ -17174,7 +17198,7 @@ something strange, such as redefining an Emacs function. ;;;*** -;;;### (autoloads nil "locate" "locate.el" (22150 28228 210072 702000)) +;;;### (autoloads nil "locate" "locate.el" (22330 59913 914323 615000)) ;;; Generated autoloads from locate.el (defvar locate-ls-subdir-switches (purecopy "-al") "\ @@ -17226,8 +17250,8 @@ except that FILTER is not optional. ;;;*** -;;;### (autoloads nil "log-edit" "vc/log-edit.el" (22150 28229 278072 -;;;;;; 702000)) +;;;### (autoloads nil "log-edit" "vc/log-edit.el" (22330 59914 9323 +;;;;;; 322000)) ;;; Generated autoloads from vc/log-edit.el (autoload 'log-edit "log-edit" "\ @@ -17258,8 +17282,8 @@ done. Otherwise, it uses the current buffer. ;;;*** -;;;### (autoloads nil "log-view" "vc/log-view.el" (22294 5044 399300 -;;;;;; 64000)) +;;;### (autoloads nil "log-view" "vc/log-view.el" (22330 59914 8323 +;;;;;; 325000)) ;;; Generated autoloads from vc/log-view.el (autoload 'log-view-mode "log-view" "\ @@ -17269,7 +17293,7 @@ Major mode for browsing CVS log output. ;;;*** -;;;### (autoloads nil "lpr" "lpr.el" (22150 28228 210072 702000)) +;;;### (autoloads nil "lpr" "lpr.el" (22331 17372 50369 416000)) ;;; Generated autoloads from lpr.el (defvar lpr-windows-system (memq system-type '(ms-dos windows-nt)) "\ @@ -17364,8 +17388,7 @@ for further customization of the printer command. ;;;*** -;;;### (autoloads nil "ls-lisp" "ls-lisp.el" (22220 19926 384329 -;;;;;; 271000)) +;;;### (autoloads nil "ls-lisp" "ls-lisp.el" (22331 17372 50369 416000)) ;;; Generated autoloads from ls-lisp.el (defvar ls-lisp-support-shell-wildcards t "\ @@ -17376,8 +17399,8 @@ Otherwise they are treated as Emacs regexps (for backward compatibility).") ;;;*** -;;;### (autoloads nil "lunar" "calendar/lunar.el" (22150 28227 78072 -;;;;;; 702000)) +;;;### (autoloads nil "lunar" "calendar/lunar.el" (22330 59913 920323 +;;;;;; 597000)) ;;; Generated autoloads from calendar/lunar.el (autoload 'lunar-phases "lunar" "\ @@ -17389,8 +17412,8 @@ This function is suitable for execution in an init file. ;;;*** -;;;### (autoloads nil "m4-mode" "progmodes/m4-mode.el" (22150 28228 -;;;;;; 866072 702000)) +;;;### (autoloads nil "m4-mode" "progmodes/m4-mode.el" (22330 59913 +;;;;;; 984323 399000)) ;;; Generated autoloads from progmodes/m4-mode.el (autoload 'm4-mode "m4-mode" "\ @@ -17400,7 +17423,7 @@ A major mode to edit m4 macro files. ;;;*** -;;;### (autoloads nil "macros" "macros.el" (22150 28228 210072 702000)) +;;;### (autoloads nil "macros" "macros.el" (22330 59913 914323 615000)) ;;; Generated autoloads from macros.el (autoload 'name-last-kbd-macro "macros" "\ @@ -17489,8 +17512,8 @@ and then select the region of un-tablified names and use ;;;*** -;;;### (autoloads nil "mail-extr" "mail/mail-extr.el" (22197 58438 -;;;;;; 343460 447000)) +;;;### (autoloads nil "mail-extr" "mail/mail-extr.el" (22331 17372 +;;;;;; 51369 413000)) ;;; Generated autoloads from mail/mail-extr.el (autoload 'mail-extract-address-components "mail-extr" "\ @@ -17520,8 +17543,8 @@ Convert mail domain DOMAIN to the country it corresponds to. ;;;*** -;;;### (autoloads nil "mail-hist" "mail/mail-hist.el" (22150 28228 -;;;;;; 230072 702000)) +;;;### (autoloads nil "mail-hist" "mail/mail-hist.el" (22330 59913 +;;;;;; 947323 514000)) ;;; Generated autoloads from mail/mail-hist.el (autoload 'mail-hist-define-keys "mail-hist" "\ @@ -17550,8 +17573,8 @@ This function normally would be called when the message is sent. ;;;*** -;;;### (autoloads nil "mail-utils" "mail/mail-utils.el" (22150 28228 -;;;;;; 230072 702000)) +;;;### (autoloads nil "mail-utils" "mail/mail-utils.el" (22330 59913 +;;;;;; 947323 514000)) ;;; Generated autoloads from mail/mail-utils.el (defvar mail-use-rfc822 nil "\ @@ -17625,13 +17648,14 @@ matches may be returned from the message body. ;;;*** -;;;### (autoloads nil "mailabbrev" "mail/mailabbrev.el" (22197 58438 -;;;;;; 343460 447000)) +;;;### (autoloads nil "mailabbrev" "mail/mailabbrev.el" (22330 59913 +;;;;;; 947323 514000)) ;;; Generated autoloads from mail/mailabbrev.el (defvar mail-abbrevs-mode nil "\ Non-nil if Mail-Abbrevs mode is enabled. -See the command `mail-abbrevs-mode' for a description of this minor mode. +See the `mail-abbrevs-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `mail-abbrevs-mode'.") @@ -17675,8 +17699,8 @@ double-quotes. ;;;*** -;;;### (autoloads nil "mailalias" "mail/mailalias.el" (22189 64323 -;;;;;; 268321 19000)) +;;;### (autoloads nil "mailalias" "mail/mailalias.el" (22330 59913 +;;;;;; 947323 514000)) ;;; Generated autoloads from mail/mailalias.el (defvar mail-complete-style 'angles "\ @@ -17729,8 +17753,8 @@ current header, calls `mail-complete-function' and passes prefix ARG if any. ;;;*** -;;;### (autoloads nil "mailclient" "mail/mailclient.el" (22182 4679 -;;;;;; 423463 499000)) +;;;### (autoloads nil "mailclient" "mail/mailclient.el" (22330 59913 +;;;;;; 947323 514000)) ;;; Generated autoloads from mail/mailclient.el (autoload 'mailclient-send-it "mailclient" "\ @@ -17742,8 +17766,8 @@ The mail client is taken to be the handler of mailto URLs. ;;;*** -;;;### (autoloads nil "make-mode" "progmodes/make-mode.el" (22221 -;;;;;; 40772 751009 663000)) +;;;### (autoloads nil "make-mode" "progmodes/make-mode.el" (22330 +;;;;;; 59913 984323 399000)) ;;; Generated autoloads from progmodes/make-mode.el (autoload 'makefile-mode "make-mode" "\ @@ -17860,8 +17884,8 @@ An adapted `makefile-mode' that knows about imake. ;;;*** -;;;### (autoloads nil "makesum" "makesum.el" (22150 28228 258072 -;;;;;; 702000)) +;;;### (autoloads nil "makesum" "makesum.el" (22330 59913 914323 +;;;;;; 615000)) ;;; Generated autoloads from makesum.el (autoload 'make-command-summary "makesum" "\ @@ -17872,7 +17896,7 @@ Previous contents of that buffer are killed first. ;;;*** -;;;### (autoloads nil "man" "man.el" (22308 37947 138422 527000)) +;;;### (autoloads nil "man" "man.el" (22330 59913 741324 150000)) ;;; Generated autoloads from man.el (defalias 'manual-entry 'man) @@ -17910,7 +17934,7 @@ otherwise look like a page name. An \"apropos\" query with -k gives a buffer of matching page names or descriptions. The pattern argument is usually an -\"egrep\" style regexp. +\"grep -E\" style regexp. -k pattern @@ -17928,14 +17952,14 @@ Default bookmark handler for Man buffers. ;;;*** -;;;### (autoloads nil "map" "emacs-lisp/map.el" (22262 28597 583325 -;;;;;; 308000)) +;;;### (autoloads nil "map" "emacs-lisp/map.el" (22330 59913 930323 +;;;;;; 566000)) ;;; Generated autoloads from emacs-lisp/map.el (push (purecopy '(map 1 0)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "master" "master.el" (22150 28228 262072 702000)) +;;;### (autoloads nil "master" "master.el" (22330 59913 914323 615000)) ;;; Generated autoloads from master.el (push (purecopy '(master 1 0 2)) package--builtin-versions) @@ -17958,13 +17982,14 @@ yourself the value of `master-of' by calling `master-show-slave'. ;;;*** -;;;### (autoloads nil "mb-depth" "mb-depth.el" (22150 28228 262072 -;;;;;; 702000)) +;;;### (autoloads nil "mb-depth" "mb-depth.el" (22330 59913 914323 +;;;;;; 615000)) ;;; Generated autoloads from mb-depth.el (defvar minibuffer-depth-indicate-mode nil "\ Non-nil if Minibuffer-Depth-Indicate mode is enabled. -See the command `minibuffer-depth-indicate-mode' for a description of this minor mode. +See the `minibuffer-depth-indicate-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `minibuffer-depth-indicate-mode'.") @@ -17986,14 +18011,14 @@ recursion depth in the minibuffer prompt. This is only useful if ;;;*** -;;;### (autoloads nil "md4" "md4.el" (22150 28228 262072 702000)) +;;;### (autoloads nil "md4" "md4.el" (22330 59913 914323 615000)) ;;; Generated autoloads from md4.el (push (purecopy '(md4 1 0)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "message" "gnus/message.el" (22201 55498 114885 -;;;;;; 567000)) +;;;### (autoloads nil "message" "gnus/message.el" (22331 17372 28369 +;;;;;; 494000)) ;;; 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) @@ -18158,8 +18183,8 @@ which specify the range to operate on. ;;;*** -;;;### (autoloads nil "meta-mode" "progmodes/meta-mode.el" (22150 -;;;;;; 28228 870072 702000)) +;;;### (autoloads nil "meta-mode" "progmodes/meta-mode.el" (22330 +;;;;;; 59913 984323 399000)) ;;; Generated autoloads from progmodes/meta-mode.el (push (purecopy '(meta-mode 1 0)) package--builtin-versions) @@ -18175,8 +18200,8 @@ Major mode for editing MetaPost sources. ;;;*** -;;;### (autoloads nil "metamail" "mail/metamail.el" (22150 28228 -;;;;;; 234072 702000)) +;;;### (autoloads nil "metamail" "mail/metamail.el" (22330 59913 +;;;;;; 947323 514000)) ;;; Generated autoloads from mail/metamail.el (autoload 'metamail-interpret-header "metamail" "\ @@ -18219,8 +18244,8 @@ redisplayed as output is inserted. ;;;*** -;;;### (autoloads nil "mh-comp" "mh-e/mh-comp.el" (22150 28228 294072 -;;;;;; 702000)) +;;;### (autoloads nil "mh-comp" "mh-e/mh-comp.el" (22331 17372 56369 +;;;;;; 395000)) ;;; Generated autoloads from mh-e/mh-comp.el (autoload 'mh-smail "mh-comp" "\ @@ -18310,7 +18335,7 @@ delete the draft message. ;;;*** -;;;### (autoloads nil "mh-e" "mh-e/mh-e.el" (22150 28228 298072 702000)) +;;;### (autoloads nil "mh-e" "mh-e/mh-e.el" (22331 17372 56369 395000)) ;;; Generated autoloads from mh-e/mh-e.el (push (purecopy '(mh-e 8 6)) package--builtin-versions) @@ -18327,8 +18352,8 @@ Display version information about MH-E and the MH mail handling system. ;;;*** -;;;### (autoloads nil "mh-folder" "mh-e/mh-folder.el" (22150 28228 -;;;;;; 302072 702000)) +;;;### (autoloads nil "mh-folder" "mh-e/mh-folder.el" (22330 59913 +;;;;;; 949323 508000)) ;;; Generated autoloads from mh-e/mh-folder.el (autoload 'mh-rmail "mh-folder" "\ @@ -18409,13 +18434,14 @@ perform the operation on all messages in that region. ;;;*** -;;;### (autoloads nil "midnight" "midnight.el" (22265 4790 36806 -;;;;;; 924000)) +;;;### (autoloads nil "midnight" "midnight.el" (22330 59913 914323 +;;;;;; 615000)) ;;; Generated autoloads from midnight.el (defvar midnight-mode nil "\ Non-nil if Midnight mode is enabled. -See the command `midnight-mode' for a description of this minor mode. +See the `midnight-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `midnight-mode'.") @@ -18450,13 +18476,14 @@ to its second argument TM. ;;;*** -;;;### (autoloads nil "minibuf-eldef" "minibuf-eldef.el" (22150 28228 -;;;;;; 322072 702000)) +;;;### (autoloads nil "minibuf-eldef" "minibuf-eldef.el" (22330 59913 +;;;;;; 914323 615000)) ;;; Generated autoloads from minibuf-eldef.el (defvar minibuffer-electric-default-mode nil "\ Non-nil if Minibuffer-Electric-Default mode is enabled. -See the command `minibuffer-electric-default-mode' for a description of this minor mode. +See the `minibuffer-electric-default-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `minibuffer-electric-default-mode'.") @@ -18480,7 +18507,7 @@ is modified to remove the default indication. ;;;*** -;;;### (autoloads nil "misc" "misc.el" (22150 28228 326072 702000)) +;;;### (autoloads nil "misc" "misc.el" (22330 59913 914323 615000)) ;;; Generated autoloads from misc.el (autoload 'butterfly "misc" "\ @@ -18508,8 +18535,8 @@ The return value is always nil. ;;;*** -;;;### (autoloads nil "misearch" "misearch.el" (22150 28228 326072 -;;;;;; 702000)) +;;;### (autoloads nil "misearch" "misearch.el" (22330 59913 914323 +;;;;;; 615000)) ;;; Generated autoloads from misearch.el (add-hook 'isearch-mode-hook 'multi-isearch-setup) @@ -18597,8 +18624,8 @@ whose file names match the specified wildcard. ;;;*** -;;;### (autoloads nil "mixal-mode" "progmodes/mixal-mode.el" (22150 -;;;;;; 28228 874072 702000)) +;;;### (autoloads nil "mixal-mode" "progmodes/mixal-mode.el" (22330 +;;;;;; 59913 984323 399000)) ;;; Generated autoloads from progmodes/mixal-mode.el (push (purecopy '(mixal-mode 0 1)) package--builtin-versions) @@ -18609,8 +18636,8 @@ Major mode for the mixal asm language. ;;;*** -;;;### (autoloads nil "mm-encode" "gnus/mm-encode.el" (22150 28227 -;;;;;; 978072 702000)) +;;;### (autoloads nil "mm-encode" "gnus/mm-encode.el" (22330 59913 +;;;;;; 939323 538000)) ;;; Generated autoloads from gnus/mm-encode.el (autoload 'mm-default-file-encoding "mm-encode" "\ @@ -18620,8 +18647,8 @@ Return a default encoding for FILE. ;;;*** -;;;### (autoloads nil "mm-extern" "gnus/mm-extern.el" (22150 28227 -;;;;;; 978072 702000)) +;;;### (autoloads nil "mm-extern" "gnus/mm-extern.el" (22330 59913 +;;;;;; 939323 538000)) ;;; Generated autoloads from gnus/mm-extern.el (autoload 'mm-extern-cache-contents "mm-extern" "\ @@ -18639,8 +18666,8 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing. ;;;*** -;;;### (autoloads nil "mm-partial" "gnus/mm-partial.el" (22150 28227 -;;;;;; 978072 702000)) +;;;### (autoloads nil "mm-partial" "gnus/mm-partial.el" (22331 17372 +;;;;;; 28369 494000)) ;;; Generated autoloads from gnus/mm-partial.el (autoload 'mm-inline-partial "mm-partial" "\ @@ -18653,8 +18680,8 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing. ;;;*** -;;;### (autoloads nil "mm-url" "gnus/mm-url.el" (22150 28227 978072 -;;;;;; 702000)) +;;;### (autoloads nil "mm-url" "gnus/mm-url.el" (22331 17372 28369 +;;;;;; 494000)) ;;; Generated autoloads from gnus/mm-url.el (autoload 'mm-url-insert-file-contents "mm-url" "\ @@ -18670,8 +18697,8 @@ Insert file contents of URL using `mm-url-program'. ;;;*** -;;;### (autoloads nil "mm-uu" "gnus/mm-uu.el" (22150 28227 982072 -;;;;;; 702000)) +;;;### (autoloads nil "mm-uu" "gnus/mm-uu.el" (22331 17372 29369 +;;;;;; 491000)) ;;; Generated autoloads from gnus/mm-uu.el (autoload 'mm-uu-dissect "mm-uu" "\ @@ -18690,7 +18717,7 @@ Assume text has been decoded if DECODED is non-nil. ;;;*** -;;;### (autoloads nil "mml" "gnus/mml.el" (22150 28227 986072 702000)) +;;;### (autoloads nil "mml" "gnus/mml.el" (22331 17372 30369 487000)) ;;; Generated autoloads from gnus/mml.el (autoload 'mml-to-mime "mml" "\ @@ -18715,8 +18742,8 @@ body) or \"attachment\" (separate from the body). ;;;*** -;;;### (autoloads nil "mml1991" "gnus/mml1991.el" (22250 23504 507503 -;;;;;; 448000)) +;;;### (autoloads nil "mml1991" "gnus/mml1991.el" (22331 17372 30369 +;;;;;; 487000)) ;;; Generated autoloads from gnus/mml1991.el (autoload 'mml1991-encrypt "mml1991" "\ @@ -18731,8 +18758,8 @@ body) or \"attachment\" (separate from the body). ;;;*** -;;;### (autoloads nil "mml2015" "gnus/mml2015.el" (22250 23504 507503 -;;;;;; 448000)) +;;;### (autoloads nil "mml2015" "gnus/mml2015.el" (22331 17372 30369 +;;;;;; 487000)) ;;; Generated autoloads from gnus/mml2015.el (autoload 'mml2015-decrypt "mml2015" "\ @@ -18772,16 +18799,16 @@ body) or \"attachment\" (separate from the body). ;;;*** -;;;### (autoloads nil "mode-local" "cedet/mode-local.el" (22276 61491 -;;;;;; 202868 4000)) +;;;### (autoloads nil "mode-local" "cedet/mode-local.el" (22330 59913 +;;;;;; 920323 597000)) ;;; Generated autoloads from cedet/mode-local.el (put 'define-overloadable-function 'doc-string-elt 3) ;;;*** -;;;### (autoloads nil "modula2" "progmodes/modula2.el" (22086 11930 -;;;;;; 214062 731000)) +;;;### (autoloads nil "modula2" "progmodes/modula2.el" (22330 59913 +;;;;;; 984323 399000)) ;;; Generated autoloads from progmodes/modula2.el (defalias 'modula-2-mode 'm2-mode) @@ -18814,8 +18841,8 @@ followed by the first character of the construct. ;;;*** -;;;### (autoloads nil "morse" "play/morse.el" (22150 28228 682072 -;;;;;; 702000)) +;;;### (autoloads nil "morse" "play/morse.el" (22330 59913 969323 +;;;;;; 446000)) ;;; Generated autoloads from play/morse.el (autoload 'morse-region "morse" "\ @@ -18840,8 +18867,8 @@ Convert NATO phonetic alphabet in region to ordinary ASCII text. ;;;*** -;;;### (autoloads nil "mouse-drag" "mouse-drag.el" (22150 28228 326072 -;;;;;; 702000)) +;;;### (autoloads nil "mouse-drag" "mouse-drag.el" (22330 59913 914323 +;;;;;; 615000)) ;;; Generated autoloads from mouse-drag.el (autoload 'mouse-drag-throw "mouse-drag" "\ @@ -18888,7 +18915,7 @@ To test this function, evaluate: ;;;*** -;;;### (autoloads nil "mpc" "mpc.el" (22150 28228 326072 702000)) +;;;### (autoloads nil "mpc" "mpc.el" (22331 17372 57369 391000)) ;;; Generated autoloads from mpc.el (autoload 'mpc "mpc" "\ @@ -18898,7 +18925,7 @@ Main entry point for MPC. ;;;*** -;;;### (autoloads nil "mpuz" "play/mpuz.el" (22150 28228 682072 702000)) +;;;### (autoloads nil "mpuz" "play/mpuz.el" (22330 59913 969323 446000)) ;;; Generated autoloads from play/mpuz.el (autoload 'mpuz "mpuz" "\ @@ -18908,12 +18935,13 @@ Multiplication puzzle with GNU Emacs. ;;;*** -;;;### (autoloads nil "msb" "msb.el" (22150 28228 338072 702000)) +;;;### (autoloads nil "msb" "msb.el" (22330 59913 914323 615000)) ;;; Generated autoloads from msb.el (defvar msb-mode nil "\ Non-nil if Msb mode is enabled. -See the command `msb-mode' for a description of this minor mode. +See the `msb-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `msb-mode'.") @@ -18933,8 +18961,8 @@ different buffer menu using the function `msb'. ;;;*** -;;;### (autoloads nil "mule-diag" "international/mule-diag.el" (22150 -;;;;;; 28228 114072 702000)) +;;;### (autoloads nil "mule-diag" "international/mule-diag.el" (22330 +;;;;;; 59913 940323 535000)) ;;; Generated autoloads from international/mule-diag.el (autoload 'list-character-sets "mule-diag" "\ @@ -19066,8 +19094,8 @@ The default is 20. If LIMIT is negative, do not limit the listing. ;;;*** -;;;### (autoloads nil "mule-util" "international/mule-util.el" (22165 -;;;;;; 44248 411854 955000)) +;;;### (autoloads nil "mule-util" "international/mule-util.el" (22330 +;;;;;; 59913 940323 535000)) ;;; Generated autoloads from international/mule-util.el (defsubst string-to-list (string) "\ @@ -19226,8 +19254,8 @@ QUALITY can be: ;;;*** -;;;### (autoloads nil "net-utils" "net/net-utils.el" (22150 28228 -;;;;;; 378072 702000)) +;;;### (autoloads nil "net-utils" "net/net-utils.el" (22331 17372 +;;;;;; 58369 388000)) ;;; Generated autoloads from net/net-utils.el (autoload 'ifconfig "net-utils" "\ @@ -19321,8 +19349,8 @@ Open a network connection to HOST on PORT. ;;;*** -;;;### (autoloads nil "netrc" "net/netrc.el" (22150 28228 378072 -;;;;;; 702000)) +;;;### (autoloads nil "netrc" "net/netrc.el" (22330 59913 953323 +;;;;;; 495000)) ;;; Generated autoloads from net/netrc.el (autoload 'netrc-credentials "netrc" "\ @@ -19334,8 +19362,8 @@ listed in the PORTS list. ;;;*** -;;;### (autoloads nil "network-stream" "net/network-stream.el" (22150 -;;;;;; 28228 378072 702000)) +;;;### (autoloads nil "network-stream" "net/network-stream.el" (22331 +;;;;;; 17372 58369 388000)) ;;; Generated autoloads from net/network-stream.el (autoload 'open-network-stream "network-stream" "\ @@ -19431,8 +19459,8 @@ asynchronously, if possible. ;;;*** -;;;### (autoloads nil "newst-backend" "net/newst-backend.el" (22150 -;;;;;; 28228 378072 702000)) +;;;### (autoloads nil "newst-backend" "net/newst-backend.el" (22331 +;;;;;; 17372 59369 384000)) ;;; Generated autoloads from net/newst-backend.el (autoload 'newsticker-running-p "newst-backend" "\ @@ -19454,7 +19482,7 @@ Run `newsticker-start-hook' if newsticker was not running already. ;;;*** ;;;### (autoloads nil "newst-plainview" "net/newst-plainview.el" -;;;;;; (22150 28228 382072 702000)) +;;;;;; (22330 59913 953323 495000)) ;;; Generated autoloads from net/newst-plainview.el (autoload 'newsticker-plainview "newst-plainview" "\ @@ -19464,8 +19492,8 @@ Start newsticker plainview. ;;;*** -;;;### (autoloads nil "newst-reader" "net/newst-reader.el" (22165 -;;;;;; 41682 87102 999000)) +;;;### (autoloads nil "newst-reader" "net/newst-reader.el" (22330 +;;;;;; 59913 953323 495000)) ;;; Generated autoloads from net/newst-reader.el (autoload 'newsticker-show-news "newst-reader" "\ @@ -19475,8 +19503,8 @@ Start reading news. You may want to bind this to a key. ;;;*** -;;;### (autoloads nil "newst-ticker" "net/newst-ticker.el" (22150 -;;;;;; 28228 382072 702000)) +;;;### (autoloads nil "newst-ticker" "net/newst-ticker.el" (22330 +;;;;;; 59913 953323 495000)) ;;; Generated autoloads from net/newst-ticker.el (autoload 'newsticker-ticker-running-p "newst-ticker" "\ @@ -19496,8 +19524,8 @@ running already. ;;;*** -;;;### (autoloads nil "newst-treeview" "net/newst-treeview.el" (22196 -;;;;;; 37575 156683 383000)) +;;;### (autoloads nil "newst-treeview" "net/newst-treeview.el" (22330 +;;;;;; 59913 953323 495000)) ;;; Generated autoloads from net/newst-treeview.el (autoload 'newsticker-treeview "newst-treeview" "\ @@ -19507,8 +19535,8 @@ Start newsticker treeview. ;;;*** -;;;### (autoloads nil "nndiary" "gnus/nndiary.el" (22150 28227 990072 -;;;;;; 702000)) +;;;### (autoloads nil "nndiary" "gnus/nndiary.el" (22331 17372 30369 +;;;;;; 487000)) ;;; Generated autoloads from gnus/nndiary.el (autoload 'nndiary-generate-nov-databases "nndiary" "\ @@ -19518,8 +19546,8 @@ Generate NOV databases in all nndiary directories. ;;;*** -;;;### (autoloads nil "nndoc" "gnus/nndoc.el" (22150 28227 990072 -;;;;;; 702000)) +;;;### (autoloads nil "nndoc" "gnus/nndoc.el" (22331 17372 31369 +;;;;;; 484000)) ;;; Generated autoloads from gnus/nndoc.el (autoload 'nndoc-add-type "nndoc" "\ @@ -19533,8 +19561,8 @@ symbol in the alist. ;;;*** -;;;### (autoloads nil "nnfolder" "gnus/nnfolder.el" (22150 28227 -;;;;;; 994072 702000)) +;;;### (autoloads nil "nnfolder" "gnus/nnfolder.el" (22331 17372 +;;;;;; 31369 484000)) ;;; Generated autoloads from gnus/nnfolder.el (autoload 'nnfolder-generate-active-file "nnfolder" "\ @@ -19545,7 +19573,7 @@ This command does not work if you use short group names. ;;;*** -;;;### (autoloads nil "nnml" "gnus/nnml.el" (22150 28228 2072 702000)) +;;;### (autoloads nil "nnml" "gnus/nnml.el" (22331 17372 33369 477000)) ;;; Generated autoloads from gnus/nnml.el (autoload 'nnml-generate-nov-databases "nnml" "\ @@ -19555,7 +19583,7 @@ Generate NOV databases in all nnml directories. ;;;*** -;;;### (autoloads nil "novice" "novice.el" (22150 28228 446072 702000)) +;;;### (autoloads nil "novice" "novice.el" (22330 59913 914323 615000)) ;;; Generated autoloads from novice.el (define-obsolete-variable-alias 'disabled-command-hook 'disabled-command-function "22.1") @@ -19587,8 +19615,8 @@ future sessions. ;;;*** -;;;### (autoloads nil "nroff-mode" "textmodes/nroff-mode.el" (22150 -;;;;;; 28229 102072 702000)) +;;;### (autoloads nil "nroff-mode" "textmodes/nroff-mode.el" (22330 +;;;;;; 59913 990323 381000)) ;;; Generated autoloads from textmodes/nroff-mode.el (autoload 'nroff-mode "nroff-mode" "\ @@ -19602,14 +19630,14 @@ closing requests for requests that are used in matched pairs. ;;;*** -;;;### (autoloads nil "ntlm" "net/ntlm.el" (22150 28228 386072 702000)) +;;;### (autoloads nil "ntlm" "net/ntlm.el" (22330 59913 953323 495000)) ;;; Generated autoloads from net/ntlm.el (push (purecopy '(ntlm 2 0 0)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "nxml-glyph" "nxml/nxml-glyph.el" (22150 28228 -;;;;;; 450072 702000)) +;;;### (autoloads nil "nxml-glyph" "nxml/nxml-glyph.el" (22331 17372 +;;;;;; 65369 363000)) ;;; Generated autoloads from nxml/nxml-glyph.el (autoload 'nxml-glyph-display-string "nxml-glyph" "\ @@ -19621,8 +19649,8 @@ Return nil if the face cannot display a glyph for N. ;;;*** -;;;### (autoloads nil "nxml-mode" "nxml/nxml-mode.el" (22150 28228 -;;;;;; 450072 702000)) +;;;### (autoloads nil "nxml-mode" "nxml/nxml-mode.el" (22331 17372 +;;;;;; 65369 363000)) ;;; Generated autoloads from nxml/nxml-mode.el (autoload 'nxml-mode "nxml-mode" "\ @@ -19682,8 +19710,8 @@ Many aspects this mode can be customized using ;;;*** -;;;### (autoloads nil "nxml-uchnm" "nxml/nxml-uchnm.el" (22150 28228 -;;;;;; 454072 702000)) +;;;### (autoloads nil "nxml-uchnm" "nxml/nxml-uchnm.el" (22331 17372 +;;;;;; 66369 359000)) ;;; Generated autoloads from nxml/nxml-uchnm.el (autoload 'nxml-enable-unicode-char-name-sets "nxml-uchnm" "\ @@ -19695,8 +19723,8 @@ the variable `nxml-enabled-unicode-blocks'. ;;;*** -;;;### (autoloads nil "octave" "progmodes/octave.el" (22197 58438 -;;;;;; 503460 447000)) +;;;### (autoloads nil "octave" "progmodes/octave.el" (22330 59913 +;;;;;; 985323 396000)) ;;; Generated autoloads from progmodes/octave.el (autoload 'octave-mode "octave" "\ @@ -19733,8 +19761,8 @@ startup file, `~/.emacs-octave'. ;;;*** -;;;### (autoloads nil "opascal" "progmodes/opascal.el" (22156 23699 -;;;;;; 542755 538000)) +;;;### (autoloads nil "opascal" "progmodes/opascal.el" (22330 59913 +;;;;;; 985323 396000)) ;;; Generated autoloads from progmodes/opascal.el (define-obsolete-function-alias 'delphi-mode 'opascal-mode "24.4") @@ -19769,7 +19797,7 @@ Coloring: ;;;*** -;;;### (autoloads nil "org" "org/org.el" (22309 58853 550986 699000)) +;;;### (autoloads nil "org" "org/org.el" (22331 17372 87369 285000)) ;;; Generated autoloads from org/org.el (autoload 'org-babel-do-load-languages "org" "\ @@ -19990,8 +20018,8 @@ Call the customize function with org as argument. ;;;*** -;;;### (autoloads nil "org-agenda" "org/org-agenda.el" (22150 28228 -;;;;;; 558072 702000)) +;;;### (autoloads nil "org-agenda" "org/org-agenda.el" (22331 17372 +;;;;;; 77369 320000)) ;;; Generated autoloads from org/org-agenda.el (autoload 'org-toggle-sticky-agenda "org-agenda" "\ @@ -20264,8 +20292,8 @@ to override `appt-message-warning-time'. ;;;*** -;;;### (autoloads nil "org-capture" "org/org-capture.el" (22150 28228 -;;;;;; 558072 702000)) +;;;### (autoloads nil "org-capture" "org/org-capture.el" (22330 59913 +;;;;;; 965323 458000)) ;;; Generated autoloads from org/org-capture.el (autoload 'org-capture-string "org-capture" "\ @@ -20307,8 +20335,8 @@ Set `org-capture-templates' to be similar to `org-remember-templates'. ;;;*** -;;;### (autoloads nil "org-colview" "org/org-colview.el" (22150 28228 -;;;;;; 582072 702000)) +;;;### (autoloads nil "org-colview" "org/org-colview.el" (22331 17372 +;;;;;; 78369 317000)) ;;; Generated autoloads from org/org-colview.el (autoload 'org-columns-remove-overlays "org-colview" "\ @@ -20371,8 +20399,8 @@ Turn on or update column view in the agenda. ;;;*** -;;;### (autoloads nil "org-compat" "org/org-compat.el" (22192 2874 -;;;;;; 471382 391000)) +;;;### (autoloads nil "org-compat" "org/org-compat.el" (22331 17372 +;;;;;; 78369 317000)) ;;; Generated autoloads from org/org-compat.el (autoload 'org-check-version "org-compat" "\ @@ -20382,8 +20410,8 @@ Try very hard to provide sensible version strings. ;;;*** -;;;### (autoloads nil "org-macs" "org/org-macs.el" (22150 28228 602072 -;;;;;; 702000)) +;;;### (autoloads nil "org-macs" "org/org-macs.el" (22331 17372 79369 +;;;;;; 313000)) ;;; Generated autoloads from org/org-macs.el (autoload 'org-load-noerror-mustsuffix "org-macs" "\ @@ -20393,8 +20421,8 @@ Load FILE with optional arguments NOERROR and MUSTSUFFIX. Drop the MUSTSUFFIX a ;;;*** -;;;### (autoloads nil "org-version" "org/org-version.el" (22086 11930 -;;;;;; 98062 731000)) +;;;### (autoloads nil "org-version" "org/org-version.el" (22330 59913 +;;;;;; 966323 455000)) ;;; Generated autoloads from org/org-version.el (autoload 'org-release "org-version" "\ @@ -20411,8 +20439,8 @@ The Git version of org-mode. ;;;*** -;;;### (autoloads nil "outline" "outline.el" (22150 28228 666072 -;;;;;; 702000)) +;;;### (autoloads nil "outline" "outline.el" (22330 59913 914323 +;;;;;; 615000)) ;;; Generated autoloads from outline.el (put 'outline-regexp 'safe-local-variable 'stringp) (put 'outline-heading-end-regexp 'safe-local-variable 'stringp) @@ -20455,8 +20483,8 @@ See the command `outline-mode' for more information on this mode. ;;;*** -;;;### (autoloads nil "package" "emacs-lisp/package.el" (22278 49710 -;;;;;; 59090 835000)) +;;;### (autoloads nil "package" "emacs-lisp/package.el" (22331 17377 +;;;;;; 952348 454000)) ;;; Generated autoloads from emacs-lisp/package.el (push (purecopy '(package 1 1 0)) package--builtin-versions) @@ -20480,6 +20508,9 @@ it to the file. If called as part of loading `user-init-file', set `package-enable-at-startup' to nil, to prevent accidentally loading packages twice. +It is not necessary to adjust `load-path' or `require' the +individual packages after calling `package-initialize' -- this is +taken care of by `package-initialize'. \(fn &optional NO-ACTIVATE)" t nil) @@ -20571,12 +20602,13 @@ The list is displayed in a buffer named `*Packages*'. ;;;*** -;;;### (autoloads nil "paren" "paren.el" (22150 28228 666072 702000)) +;;;### (autoloads nil "paren" "paren.el" (22330 59913 914323 615000)) ;;; Generated autoloads from paren.el (defvar show-paren-mode nil "\ Non-nil if Show-Paren mode is enabled. -See the command `show-paren-mode' for a description of this minor mode. +See the `show-paren-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `show-paren-mode'.") @@ -20597,8 +20629,8 @@ matching parenthesis is highlighted in `show-paren-style' after ;;;*** -;;;### (autoloads nil "parse-time" "calendar/parse-time.el" (22226 -;;;;;; 58701 641313 948000)) +;;;### (autoloads nil "parse-time" "calendar/parse-time.el" (22331 +;;;;;; 17371 982369 658000)) ;;; Generated autoloads from calendar/parse-time.el (put 'parse-time-rules 'risky-local-variable t) @@ -20611,8 +20643,8 @@ unknown are returned as nil. ;;;*** -;;;### (autoloads nil "pascal" "progmodes/pascal.el" (22197 58438 -;;;;;; 503460 447000)) +;;;### (autoloads nil "pascal" "progmodes/pascal.el" (22330 59913 +;;;;;; 985323 396000)) ;;; Generated autoloads from progmodes/pascal.el (autoload 'pascal-mode "pascal" "\ @@ -20661,8 +20693,8 @@ See also the user variables `pascal-type-keywords', `pascal-start-keywords' and ;;;*** -;;;### (autoloads nil "password-cache" "password-cache.el" (22150 -;;;;;; 28228 666072 702000)) +;;;### (autoloads nil "password-cache" "password-cache.el" (22330 +;;;;;; 59913 914323 615000)) ;;; Generated autoloads from password-cache.el (defvar password-cache t "\ @@ -20683,8 +20715,8 @@ Check if KEY is in the cache. ;;;*** -;;;### (autoloads nil "pcase" "emacs-lisp/pcase.el" (22195 16710 -;;;;;; 371344 967000)) +;;;### (autoloads nil "pcase" "emacs-lisp/pcase.el" (22330 59913 +;;;;;; 930323 566000)) ;;; Generated autoloads from emacs-lisp/pcase.el (autoload 'pcase "pcase" "\ @@ -20804,8 +20836,8 @@ to this macro. ;;;*** -;;;### (autoloads nil "pcmpl-cvs" "pcmpl-cvs.el" (22150 28228 666072 -;;;;;; 702000)) +;;;### (autoloads nil "pcmpl-cvs" "pcmpl-cvs.el" (22330 59913 914323 +;;;;;; 615000)) ;;; Generated autoloads from pcmpl-cvs.el (autoload 'pcomplete/cvs "pcmpl-cvs" "\ @@ -20815,8 +20847,8 @@ Completion rules for the `cvs' command. ;;;*** -;;;### (autoloads nil "pcmpl-gnu" "pcmpl-gnu.el" (22150 28228 666072 -;;;;;; 702000)) +;;;### (autoloads nil "pcmpl-gnu" "pcmpl-gnu.el" (22331 17372 87369 +;;;;;; 285000)) ;;; Generated autoloads from pcmpl-gnu.el (autoload 'pcomplete/gzip "pcmpl-gnu" "\ @@ -20843,8 +20875,8 @@ Completion for the GNU tar utility. ;;;*** -;;;### (autoloads nil "pcmpl-linux" "pcmpl-linux.el" (22150 28228 -;;;;;; 670072 702000)) +;;;### (autoloads nil "pcmpl-linux" "pcmpl-linux.el" (22330 59913 +;;;;;; 914323 615000)) ;;; Generated autoloads from pcmpl-linux.el (autoload 'pcomplete/kill "pcmpl-linux" "\ @@ -20864,8 +20896,8 @@ Completion for GNU/Linux `mount'. ;;;*** -;;;### (autoloads nil "pcmpl-rpm" "pcmpl-rpm.el" (22150 28228 670072 -;;;;;; 702000)) +;;;### (autoloads nil "pcmpl-rpm" "pcmpl-rpm.el" (22330 59913 914323 +;;;;;; 615000)) ;;; Generated autoloads from pcmpl-rpm.el (autoload 'pcomplete/rpm "pcmpl-rpm" "\ @@ -20875,8 +20907,8 @@ Completion for the `rpm' command. ;;;*** -;;;### (autoloads nil "pcmpl-unix" "pcmpl-unix.el" (22150 28228 670072 -;;;;;; 702000)) +;;;### (autoloads nil "pcmpl-unix" "pcmpl-unix.el" (22330 59913 914323 +;;;;;; 615000)) ;;; Generated autoloads from pcmpl-unix.el (autoload 'pcomplete/cd "pcmpl-unix" "\ @@ -20931,8 +20963,8 @@ Includes files as well as host names followed by a colon. ;;;*** -;;;### (autoloads nil "pcmpl-x" "pcmpl-x.el" (22150 28228 670072 -;;;;;; 702000)) +;;;### (autoloads nil "pcmpl-x" "pcmpl-x.el" (22330 59913 914323 +;;;;;; 615000)) ;;; Generated autoloads from pcmpl-x.el (autoload 'pcomplete/tlmgr "pcmpl-x" "\ @@ -20956,8 +20988,8 @@ Completion for the `ag' command. ;;;*** -;;;### (autoloads nil "pcomplete" "pcomplete.el" (22150 28228 674072 -;;;;;; 702000)) +;;;### (autoloads nil "pcomplete" "pcomplete.el" (22330 59913 914323 +;;;;;; 615000)) ;;; Generated autoloads from pcomplete.el (autoload 'pcomplete "pcomplete" "\ @@ -21014,7 +21046,7 @@ Setup `shell-mode' to use pcomplete. ;;;*** -;;;### (autoloads nil "pcvs" "vc/pcvs.el" (22182 4679 527463 499000)) +;;;### (autoloads nil "pcvs" "vc/pcvs.el" (22330 59914 12323 313000)) ;;; Generated autoloads from vc/pcvs.el (autoload 'cvs-checkout "pcvs" "\ @@ -21089,8 +21121,8 @@ The exact behavior is determined also by `cvs-dired-use-hook'." (when (stringp d ;;;*** -;;;### (autoloads nil "pcvs-defs" "vc/pcvs-defs.el" (22150 28229 -;;;;;; 278072 702000)) +;;;### (autoloads nil "pcvs-defs" "vc/pcvs-defs.el" (22330 59914 +;;;;;; 9323 322000)) ;;; 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)) "\ @@ -21098,8 +21130,8 @@ Global menu used by PCL-CVS.") ;;;*** -;;;### (autoloads nil "perl-mode" "progmodes/perl-mode.el" (22197 -;;;;;; 58438 503460 447000)) +;;;### (autoloads nil "perl-mode" "progmodes/perl-mode.el" (22330 +;;;;;; 59913 985323 396000)) ;;; Generated autoloads from progmodes/perl-mode.el (put 'perl-indent-level 'safe-local-variable 'integerp) (put 'perl-continued-statement-offset 'safe-local-variable 'integerp) @@ -21160,8 +21192,8 @@ Turning on Perl mode runs the normal hook `perl-mode-hook'. ;;;*** -;;;### (autoloads nil "picture" "textmodes/picture.el" (22168 58180 -;;;;;; 311008 971000)) +;;;### (autoloads nil "picture" "textmodes/picture.el" (22330 59913 +;;;;;; 990323 381000)) ;;; Generated autoloads from textmodes/picture.el (autoload 'picture-mode "picture" "\ @@ -21241,8 +21273,8 @@ they are not by default assigned to keys. ;;;*** -;;;### (autoloads nil "pinentry" "net/pinentry.el" (22218 64587 997919 -;;;;;; 743000)) +;;;### (autoloads nil "pinentry" "net/pinentry.el" (22330 59913 953323 +;;;;;; 495000)) ;;; Generated autoloads from net/pinentry.el (push (purecopy '(pinentry 0 1)) package--builtin-versions) @@ -21259,8 +21291,8 @@ will not be shown. ;;;*** -;;;### (autoloads nil "plstore" "gnus/plstore.el" (22150 28228 10072 -;;;;;; 702000)) +;;;### (autoloads nil "plstore" "gnus/plstore.el" (22331 17372 34369 +;;;;;; 473000)) ;;; Generated autoloads from gnus/plstore.el (autoload 'plstore-open "plstore" "\ @@ -21275,8 +21307,8 @@ Major mode for editing PLSTORE files. ;;;*** -;;;### (autoloads nil "po" "textmodes/po.el" (22150 28229 106072 -;;;;;; 702000)) +;;;### (autoloads nil "po" "textmodes/po.el" (22330 59913 990323 +;;;;;; 381000)) ;;; Generated autoloads from textmodes/po.el (autoload 'po-find-file-coding-system "po" "\ @@ -21287,7 +21319,7 @@ Called through `file-coding-system-alist', before the file is visited for real. ;;;*** -;;;### (autoloads nil "pong" "play/pong.el" (22150 28228 682072 702000)) +;;;### (autoloads nil "pong" "play/pong.el" (22330 59913 969323 446000)) ;;; Generated autoloads from play/pong.el (autoload 'pong "pong" "\ @@ -21303,7 +21335,7 @@ pong-mode keybindings:\\ ;;;*** -;;;### (autoloads nil "pop3" "gnus/pop3.el" (22150 28228 14072 702000)) +;;;### (autoloads nil "pop3" "gnus/pop3.el" (22331 17372 35369 469000)) ;;; Generated autoloads from gnus/pop3.el (autoload 'pop3-movemail "pop3" "\ @@ -21314,8 +21346,8 @@ Use streaming commands. ;;;*** -;;;### (autoloads nil "pp" "emacs-lisp/pp.el" (22150 28227 454072 -;;;;;; 702000)) +;;;### (autoloads nil "pp" "emacs-lisp/pp.el" (22330 59913 930323 +;;;;;; 566000)) ;;; Generated autoloads from emacs-lisp/pp.el (autoload 'pp-to-string "pp" "\ @@ -21365,8 +21397,8 @@ Ignores leading comment characters. ;;;*** -;;;### (autoloads nil "printing" "printing.el" (22150 28228 698072 -;;;;;; 702000)) +;;;### (autoloads nil "printing" "printing.el" (22330 59913 914323 +;;;;;; 615000)) ;;; Generated autoloads from printing.el (push (purecopy '(printing 6 9 3)) package--builtin-versions) @@ -21954,7 +21986,7 @@ are both set to t. ;;;*** -;;;### (autoloads nil "proced" "proced.el" (22150 28228 702072 702000)) +;;;### (autoloads nil "proced" "proced.el" (22331 17372 88369 281000)) ;;; Generated autoloads from proced.el (autoload 'proced "proced" "\ @@ -21972,8 +22004,8 @@ Proced buffers. ;;;*** -;;;### (autoloads nil "profiler" "profiler.el" (22150 28228 702072 -;;;;;; 702000)) +;;;### (autoloads nil "profiler" "profiler.el" (22330 59913 914323 +;;;;;; 615000)) ;;; Generated autoloads from profiler.el (autoload 'profiler-start "profiler" "\ @@ -22001,8 +22033,8 @@ Open profile FILENAME. ;;;*** -;;;### (autoloads nil "project" "progmodes/project.el" (22296 46772 -;;;;;; 488104 103000)) +;;;### (autoloads nil "project" "progmodes/project.el" (22330 59913 +;;;;;; 975323 427000)) ;;; Generated autoloads from progmodes/project.el (autoload 'project-current "project" "\ @@ -22044,8 +22076,8 @@ recognized. ;;;*** -;;;### (autoloads nil "prolog" "progmodes/prolog.el" (22283 34751 -;;;;;; 181333 844000)) +;;;### (autoloads nil "prolog" "progmodes/prolog.el" (22331 17372 +;;;;;; 97369 249000)) ;;; Generated autoloads from progmodes/prolog.el (autoload 'prolog-mode "prolog" "\ @@ -22078,7 +22110,7 @@ With prefix argument ARG, restart the Prolog process if running before. ;;;*** -;;;### (autoloads nil "ps-bdf" "ps-bdf.el" (22150 28228 986072 702000)) +;;;### (autoloads nil "ps-bdf" "ps-bdf.el" (22330 59913 914323 615000)) ;;; 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")) "\ @@ -22089,8 +22121,8 @@ The default value is (\"/usr/local/share/emacs/fonts/bdf\").") ;;;*** -;;;### (autoloads nil "ps-mode" "progmodes/ps-mode.el" (22197 58438 -;;;;;; 507460 447000)) +;;;### (autoloads nil "ps-mode" "progmodes/ps-mode.el" (22331 17372 +;;;;;; 97369 249000)) ;;; Generated autoloads from progmodes/ps-mode.el (push (purecopy '(ps-mode 1 1 9)) package--builtin-versions) @@ -22136,8 +22168,8 @@ Typing \\\\[ps-run-goto-error] when the cursor is at the number ;;;*** -;;;### (autoloads nil "ps-print" "ps-print.el" (22220 19926 440329 -;;;;;; 271000)) +;;;### (autoloads nil "ps-print" "ps-print.el" (22331 17372 104369 +;;;;;; 224000)) ;;; Generated autoloads from ps-print.el (push (purecopy '(ps-print 7 3 5)) package--builtin-versions) @@ -22334,8 +22366,8 @@ If EXTENSION is any other symbol, it is ignored. ;;;*** -;;;### (autoloads nil "pulse" "cedet/pulse.el" (22150 28227 222072 -;;;;;; 702000)) +;;;### (autoloads nil "pulse" "cedet/pulse.el" (22330 59913 920323 +;;;;;; 597000)) ;;; Generated autoloads from cedet/pulse.el (push (purecopy '(pulse 1 0)) package--builtin-versions) @@ -22353,8 +22385,8 @@ Optional argument FACE specifies the face to do the highlighting. ;;;*** -;;;### (autoloads nil "python" "progmodes/python.el" (22304 40885 -;;;;;; 57243 884000)) +;;;### (autoloads nil "python" "progmodes/python.el" (22331 17372 +;;;;;; 98369 246000)) ;;; Generated autoloads from progmodes/python.el (push (purecopy '(python 0 25 1)) package--builtin-versions) @@ -22391,7 +22423,7 @@ Major mode for editing Python files. ;;;*** -;;;### (autoloads nil "qp" "gnus/qp.el" (22150 28228 14072 702000)) +;;;### (autoloads nil "qp" "gnus/qp.el" (22331 17372 35369 469000)) ;;; Generated autoloads from gnus/qp.el (autoload 'quoted-printable-decode-region "qp" "\ @@ -22410,8 +22442,8 @@ them into characters should be done separately. ;;;*** -;;;### (autoloads nil "quail" "international/quail.el" (22174 10581 -;;;;;; 673112 520000)) +;;;### (autoloads nil "quail" "international/quail.el" (22330 59913 +;;;;;; 940323 535000)) ;;; Generated autoloads from international/quail.el (autoload 'quail-title "quail" "\ @@ -22641,8 +22673,8 @@ of each directory. ;;;*** -;;;### (autoloads nil "quail/hangul" "leim/quail/hangul.el" (22150 -;;;;;; 28228 202072 702000)) +;;;### (autoloads nil "quail/hangul" "leim/quail/hangul.el" (22330 +;;;;;; 59913 945323 520000)) ;;; Generated autoloads from leim/quail/hangul.el (autoload 'hangul-input-method-activate "quail/hangul" "\ @@ -22655,7 +22687,7 @@ HELP-TEXT is a text set in `hangul-input-method-help-text'. ;;;*** ;;;### (autoloads nil "quail/uni-input" "leim/quail/uni-input.el" -;;;;;; (22150 28228 210072 702000)) +;;;;;; (22330 59913 945323 520000)) ;;; Generated autoloads from leim/quail/uni-input.el (autoload 'ucs-input-activate "quail/uni-input" "\ @@ -22669,8 +22701,8 @@ While this input method is active, the variable ;;;*** -;;;### (autoloads nil "quickurl" "net/quickurl.el" (22197 58438 347460 -;;;;;; 447000)) +;;;### (autoloads nil "quickurl" "net/quickurl.el" (22330 59913 953323 +;;;;;; 495000)) ;;; 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" "\ @@ -22741,8 +22773,7 @@ Display `quickurl-list' as a formatted list using `quickurl-list-mode'. ;;;*** -;;;### (autoloads nil "rcirc" "net/rcirc.el" (22150 28228 390072 -;;;;;; 702000)) +;;;### (autoloads nil "rcirc" "net/rcirc.el" (22331 17372 59369 384000)) ;;; Generated autoloads from net/rcirc.el (autoload 'rcirc "rcirc" "\ @@ -22763,7 +22794,8 @@ If ARG is non-nil, instead prompt for connection parameters. (defvar rcirc-track-minor-mode nil "\ Non-nil if Rcirc-Track minor mode is enabled. -See the command `rcirc-track-minor-mode' for a description of this minor mode. +See the `rcirc-track-minor-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `rcirc-track-minor-mode'.") @@ -22780,8 +22812,8 @@ if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "re-builder" "emacs-lisp/re-builder.el" (22150 -;;;;;; 28227 454072 702000)) +;;;### (autoloads nil "re-builder" "emacs-lisp/re-builder.el" (22330 +;;;;;; 59913 930323 566000)) ;;; Generated autoloads from emacs-lisp/re-builder.el (defalias 'regexp-builder 're-builder) @@ -22799,13 +22831,14 @@ matching parts of the target buffer will be highlighted. ;;;*** -;;;### (autoloads nil "recentf" "recentf.el" (22150 28228 990072 -;;;;;; 702000)) +;;;### (autoloads nil "recentf" "recentf.el" (22330 59913 915323 +;;;;;; 612000)) ;;; Generated autoloads from recentf.el (defvar recentf-mode nil "\ Non-nil if Recentf mode is enabled. -See the command `recentf-mode' for a description of this minor mode. +See the `recentf-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `recentf-mode'.") @@ -22826,7 +22859,7 @@ were operated on recently. ;;;*** -;;;### (autoloads nil "rect" "rect.el" (22304 40885 81243 884000)) +;;;### (autoloads nil "rect" "rect.el" (22331 17372 104369 224000)) ;;; Generated autoloads from rect.el (autoload 'delete-rectangle "rect" "\ @@ -22912,7 +22945,7 @@ no text on the right side of the rectangle. Delete all whitespace following a specified column in each line. The left edge of the rectangle specifies the position in each line at which whitespace deletion should begin. On each line in the -rectangle, all continuous whitespace starting at that column is deleted. +rectangle, all contiguous whitespace starting at that column is deleted. When called from a program the rectangle's corners are START and END. With a prefix (or a FILL) argument, also fill too short lines. @@ -22966,8 +22999,8 @@ Activates the region if needed. Only lasts until the region is deactivated. ;;;*** -;;;### (autoloads nil "refill" "textmodes/refill.el" (22150 28229 -;;;;;; 106072 702000)) +;;;### (autoloads nil "refill" "textmodes/refill.el" (22330 59913 +;;;;;; 990323 381000)) ;;; Generated autoloads from textmodes/refill.el (autoload 'refill-mode "refill" "\ @@ -22987,8 +23020,8 @@ For true \"word wrap\" behavior, use `visual-line-mode' instead. ;;;*** -;;;### (autoloads nil "reftex" "textmodes/reftex.el" (22179 28801 -;;;;;; 466001 468000)) +;;;### (autoloads nil "reftex" "textmodes/reftex.el" (22331 17372 +;;;;;; 117369 178000)) ;;; Generated autoloads from textmodes/reftex.el (autoload 'reftex-citation "reftex-cite" nil t) (autoload 'reftex-all-document-files "reftex-parse") @@ -23041,8 +23074,8 @@ This enforces rescanning the buffer on next use. ;;;*** -;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (22182 -;;;;;; 44208 583853 279000)) +;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (22330 +;;;;;; 59913 990323 381000)) ;;; 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)))) @@ -23051,8 +23084,8 @@ This enforces rescanning the buffer on next use. ;;;*** -;;;### (autoloads nil "regexp-opt" "emacs-lisp/regexp-opt.el" (22150 -;;;;;; 28227 454072 702000)) +;;;### (autoloads nil "regexp-opt" "emacs-lisp/regexp-opt.el" (22330 +;;;;;; 59913 930323 566000)) ;;; Generated autoloads from emacs-lisp/regexp-opt.el (autoload 'regexp-opt "regexp-opt" "\ @@ -23081,15 +23114,15 @@ This means the number of non-shy regexp grouping constructs ;;;*** -;;;### (autoloads nil "regi" "emacs-lisp/regi.el" (22150 28227 454072 -;;;;;; 702000)) +;;;### (autoloads nil "regi" "emacs-lisp/regi.el" (22330 59913 930323 +;;;;;; 566000)) ;;; Generated autoloads from emacs-lisp/regi.el (push (purecopy '(regi 1 8)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "remember" "textmodes/remember.el" (22150 28229 -;;;;;; 130072 702000)) +;;;### (autoloads nil "remember" "textmodes/remember.el" (22330 59913 +;;;;;; 991323 378000)) ;;; Generated autoloads from textmodes/remember.el (push (purecopy '(remember 2 0)) package--builtin-versions) @@ -23143,7 +23176,7 @@ to turn the *scratch* buffer into your notes buffer. ;;;*** -;;;### (autoloads nil "repeat" "repeat.el" (22150 28228 994072 702000)) +;;;### (autoloads nil "repeat" "repeat.el" (22330 59913 915323 612000)) ;;; Generated autoloads from repeat.el (push (purecopy '(repeat 0 51)) package--builtin-versions) @@ -23166,8 +23199,8 @@ recently executed command not bound to an input event\". ;;;*** -;;;### (autoloads nil "reporter" "mail/reporter.el" (22150 28228 -;;;;;; 234072 702000)) +;;;### (autoloads nil "reporter" "mail/reporter.el" (22330 59913 +;;;;;; 947323 514000)) ;;; Generated autoloads from mail/reporter.el (autoload 'reporter-submit-bug-report "reporter" "\ @@ -23198,8 +23231,8 @@ mail-sending package is used for editing and sending the message. ;;;*** -;;;### (autoloads nil "reposition" "reposition.el" (22150 28228 994072 -;;;;;; 702000)) +;;;### (autoloads nil "reposition" "reposition.el" (22330 59913 915323 +;;;;;; 612000)) ;;; Generated autoloads from reposition.el (autoload 'reposition-window "reposition" "\ @@ -23225,7 +23258,7 @@ first comment line visible (if point is in a comment). ;;;*** -;;;### (autoloads nil "reveal" "reveal.el" (22150 28228 994072 702000)) +;;;### (autoloads nil "reveal" "reveal.el" (22330 59913 915323 612000)) ;;; Generated autoloads from reveal.el (autoload 'reveal-mode "reveal" "\ @@ -23241,7 +23274,8 @@ reveals invisible text around point. (defvar global-reveal-mode nil "\ Non-nil if Global Reveal mode is enabled. -See the command `global-reveal-mode' for a description of this minor mode. +See the `global-reveal-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-reveal-mode'.") @@ -23260,8 +23294,8 @@ the mode if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "ring" "emacs-lisp/ring.el" (22150 28227 454072 -;;;;;; 702000)) +;;;### (autoloads nil "ring" "emacs-lisp/ring.el" (22330 59913 930323 +;;;;;; 566000)) ;;; Generated autoloads from emacs-lisp/ring.el (autoload 'ring-p "ring" "\ @@ -23276,8 +23310,8 @@ Make a ring that can contain SIZE elements. ;;;*** -;;;### (autoloads nil "rlogin" "net/rlogin.el" (22150 28228 394072 -;;;;;; 702000)) +;;;### (autoloads nil "rlogin" "net/rlogin.el" (22330 59913 953323 +;;;;;; 495000)) ;;; Generated autoloads from net/rlogin.el (autoload 'rlogin "rlogin" "\ @@ -23321,8 +23355,8 @@ variable. ;;;*** -;;;### (autoloads nil "rmail" "mail/rmail.el" (22250 56969 841825 -;;;;;; 171000)) +;;;### (autoloads nil "rmail" "mail/rmail.el" (22331 17372 51369 +;;;;;; 413000)) ;;; Generated autoloads from mail/rmail.el (defvar rmail-file-name (purecopy "~/RMAIL") "\ @@ -23519,8 +23553,8 @@ Set PASSWORD to be used for retrieving mail from a POP or IMAP server. ;;;*** -;;;### (autoloads nil "rmailout" "mail/rmailout.el" (22150 28228 -;;;;;; 246072 702000)) +;;;### (autoloads nil "rmailout" "mail/rmailout.el" (22330 59913 +;;;;;; 948323 511000)) ;;; Generated autoloads from mail/rmailout.el (put 'rmail-output-file-alist 'risky-local-variable t) @@ -23584,8 +23618,8 @@ than appending to it. Deletes the message after writing if ;;;*** -;;;### (autoloads nil "rng-cmpct" "nxml/rng-cmpct.el" (22150 28228 -;;;;;; 454072 702000)) +;;;### (autoloads nil "rng-cmpct" "nxml/rng-cmpct.el" (22331 17372 +;;;;;; 66369 359000)) ;;; Generated autoloads from nxml/rng-cmpct.el (autoload 'rng-c-load-schema "rng-cmpct" "\ @@ -23596,8 +23630,8 @@ Return a pattern. ;;;*** -;;;### (autoloads nil "rng-nxml" "nxml/rng-nxml.el" (22150 28228 -;;;;;; 458072 702000)) +;;;### (autoloads nil "rng-nxml" "nxml/rng-nxml.el" (22331 17372 +;;;;;; 67369 356000)) ;;; Generated autoloads from nxml/rng-nxml.el (autoload 'rng-nxml-mode-init "rng-nxml" "\ @@ -23609,8 +23643,8 @@ Validation will be enabled if `rng-nxml-auto-validate-flag' is non-nil. ;;;*** -;;;### (autoloads nil "rng-valid" "nxml/rng-valid.el" (22150 28228 -;;;;;; 462072 702000)) +;;;### (autoloads nil "rng-valid" "nxml/rng-valid.el" (22331 17372 +;;;;;; 67369 356000)) ;;; Generated autoloads from nxml/rng-valid.el (autoload 'rng-validate-mode "rng-valid" "\ @@ -23640,8 +23674,8 @@ to use for finding the schema. ;;;*** -;;;### (autoloads nil "rng-xsd" "nxml/rng-xsd.el" (22150 28228 462072 -;;;;;; 702000)) +;;;### (autoloads nil "rng-xsd" "nxml/rng-xsd.el" (22331 17372 67369 +;;;;;; 356000)) ;;; Generated autoloads from nxml/rng-xsd.el (put 'http://www\.w3\.org/2001/XMLSchema-datatypes 'rng-dt-compile 'rng-xsd-compile) @@ -23668,8 +23702,8 @@ must be equal. ;;;*** -;;;### (autoloads nil "robin" "international/robin.el" (22086 11929 -;;;;;; 882062 731000)) +;;;### (autoloads nil "robin" "international/robin.el" (22330 59913 +;;;;;; 940323 535000)) ;;; Generated autoloads from international/robin.el (autoload 'robin-define-package "robin" "\ @@ -23701,7 +23735,7 @@ Start using robin package NAME, which is a string. ;;;*** -;;;### (autoloads nil "rot13" "rot13.el" (22150 28228 994072 702000)) +;;;### (autoloads nil "rot13" "rot13.el" (22330 59913 915323 612000)) ;;; Generated autoloads from rot13.el (autoload 'rot13 "rot13" "\ @@ -23738,8 +23772,8 @@ Toggle the use of ROT13 encoding for the current window. ;;;*** -;;;### (autoloads nil "rst" "textmodes/rst.el" (22150 28229 146072 -;;;;;; 702000)) +;;;### (autoloads nil "rst" "textmodes/rst.el" (22330 59913 991323 +;;;;;; 378000)) ;;; Generated autoloads from textmodes/rst.el (add-to-list 'auto-mode-alist (purecopy '("\\.re?st\\'" . rst-mode))) @@ -23769,8 +23803,8 @@ for modes derived from Text mode, like Mail mode. ;;;*** -;;;### (autoloads nil "ruby-mode" "progmodes/ruby-mode.el" (22253 -;;;;;; 13631 370961 36000)) +;;;### (autoloads nil "ruby-mode" "progmodes/ruby-mode.el" (22331 +;;;;;; 17377 954348 447000)) ;;; Generated autoloads from progmodes/ruby-mode.el (push (purecopy '(ruby-mode 1 2)) package--builtin-versions) @@ -23787,8 +23821,8 @@ Major mode for editing Ruby code. ;;;*** -;;;### (autoloads nil "ruler-mode" "ruler-mode.el" (22150 28228 994072 -;;;;;; 702000)) +;;;### (autoloads nil "ruler-mode" "ruler-mode.el" (22330 59913 915323 +;;;;;; 612000)) ;;; Generated autoloads from ruler-mode.el (push (purecopy '(ruler-mode 1 6)) package--builtin-versions) @@ -23806,8 +23840,8 @@ if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "rx" "emacs-lisp/rx.el" (22150 28227 454072 -;;;;;; 702000)) +;;;### (autoloads nil "rx" "emacs-lisp/rx.el" (22330 59913 930323 +;;;;;; 566000)) ;;; Generated autoloads from emacs-lisp/rx.el (autoload 'rx-to-string "rx" "\ @@ -24118,21 +24152,22 @@ enclosed in `(and ...)'. ;;;*** -;;;### (autoloads nil "sasl-ntlm" "net/sasl-ntlm.el" (22150 28228 -;;;;;; 394072 702000)) +;;;### (autoloads nil "sasl-ntlm" "net/sasl-ntlm.el" (22330 59913 +;;;;;; 953323 495000)) ;;; Generated autoloads from net/sasl-ntlm.el (push (purecopy '(sasl 1 0)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "savehist" "savehist.el" (22150 28228 994072 -;;;;;; 702000)) +;;;### (autoloads nil "savehist" "savehist.el" (22330 59913 915323 +;;;;;; 612000)) ;;; Generated autoloads from savehist.el (push (purecopy '(savehist 24)) package--builtin-versions) (defvar savehist-mode nil "\ Non-nil if Savehist mode is enabled. -See the command `savehist-mode' for a description of this minor mode. +See the `savehist-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `savehist-mode'.") @@ -24158,13 +24193,14 @@ histories, which is probably undesirable. ;;;*** -;;;### (autoloads nil "saveplace" "saveplace.el" (22224 16978 400323 -;;;;;; 324000)) +;;;### (autoloads nil "saveplace" "saveplace.el" (22330 59913 915323 +;;;;;; 612000)) ;;; Generated autoloads from saveplace.el (defvar save-place-mode nil "\ Non-nil if Save-Place mode is enabled. -See the command `save-place-mode' for a description of this minor mode. +See the `save-place-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `save-place-mode'.") @@ -24196,8 +24232,8 @@ file: ;;;*** -;;;### (autoloads nil "scheme" "progmodes/scheme.el" (22150 28228 -;;;;;; 910072 702000)) +;;;### (autoloads nil "scheme" "progmodes/scheme.el" (22331 17372 +;;;;;; 98369 246000)) ;;; Generated autoloads from progmodes/scheme.el (autoload 'scheme-mode "scheme" "\ @@ -24236,8 +24272,8 @@ that variable's value is a string. ;;;*** -;;;### (autoloads nil "score-mode" "gnus/score-mode.el" (22150 28228 -;;;;;; 18072 702000)) +;;;### (autoloads nil "score-mode" "gnus/score-mode.el" (22330 59913 +;;;;;; 939323 538000)) ;;; Generated autoloads from gnus/score-mode.el (autoload 'gnus-score-mode "score-mode" "\ @@ -24250,13 +24286,14 @@ This mode is an extended emacs-lisp mode. ;;;*** -;;;### (autoloads nil "scroll-all" "scroll-all.el" (22150 28228 994072 -;;;;;; 702000)) +;;;### (autoloads nil "scroll-all" "scroll-all.el" (22330 59913 915323 +;;;;;; 612000)) ;;; Generated autoloads from scroll-all.el (defvar scroll-all-mode nil "\ Non-nil if Scroll-All mode is enabled. -See the command `scroll-all-mode' for a description of this minor mode. +See the `scroll-all-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `scroll-all-mode'.") @@ -24276,8 +24313,8 @@ one window apply to all visible windows in the same frame. ;;;*** -;;;### (autoloads nil "scroll-lock" "scroll-lock.el" (22150 28228 -;;;;;; 994072 702000)) +;;;### (autoloads nil "scroll-lock" "scroll-lock.el" (22330 59913 +;;;;;; 915323 612000)) ;;; Generated autoloads from scroll-lock.el (autoload 'scroll-lock-mode "scroll-lock" "\ @@ -24293,16 +24330,16 @@ vertically fixed relative to window boundaries during scrolling. ;;;*** -;;;### (autoloads nil "secrets" "net/secrets.el" (22150 28228 394072 -;;;;;; 702000)) +;;;### (autoloads nil "secrets" "net/secrets.el" (22330 59913 954323 +;;;;;; 492000)) ;;; Generated autoloads from net/secrets.el (when (featurep 'dbusbind) (autoload 'secrets-show-secrets "secrets" nil t)) ;;;*** -;;;### (autoloads nil "semantic" "cedet/semantic.el" (22150 28227 -;;;;;; 222072 702000)) +;;;### (autoloads nil "semantic" "cedet/semantic.el" (22330 59913 +;;;;;; 920323 597000)) ;;; Generated autoloads from cedet/semantic.el (push (purecopy '(semantic 2 2)) package--builtin-versions) @@ -24334,7 +24371,8 @@ The following modes are more targeted at people who want to see (defvar semantic-mode nil "\ Non-nil if Semantic mode is enabled. -See the command `semantic-mode' for a description of this minor mode. +See the `semantic-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `semantic-mode'.") @@ -24360,7 +24398,7 @@ Semantic mode. ;;;*** ;;;### (autoloads nil "semantic/bovine/grammar" "cedet/semantic/bovine/grammar.el" -;;;;;; (22150 28227 234072 702000)) +;;;;;; (22330 59913 922323 591000)) ;;; Generated autoloads from cedet/semantic/bovine/grammar.el (autoload 'bovine-grammar-mode "semantic/bovine/grammar" "\ @@ -24371,7 +24409,7 @@ Major mode for editing Bovine grammars. ;;;*** ;;;### (autoloads nil "semantic/wisent/grammar" "cedet/semantic/wisent/grammar.el" -;;;;;; (22150 28227 266072 702000)) +;;;;;; (22330 59913 923323 588000)) ;;; Generated autoloads from cedet/semantic/wisent/grammar.el (autoload 'wisent-grammar-mode "semantic/wisent/grammar" "\ @@ -24381,8 +24419,8 @@ Major mode for editing Wisent grammars. ;;;*** -;;;### (autoloads nil "sendmail" "mail/sendmail.el" (22224 36171 -;;;;;; 816467 383000)) +;;;### (autoloads nil "sendmail" "mail/sendmail.el" (22330 59913 +;;;;;; 948323 511000)) ;;; Generated autoloads from mail/sendmail.el (defvar mail-from-style 'default "\ @@ -24663,14 +24701,14 @@ Like `mail' command, but display mail buffer in another frame. ;;;*** -;;;### (autoloads nil "seq" "emacs-lisp/seq.el" (22278 49573 67090 -;;;;;; 835000)) +;;;### (autoloads nil "seq" "emacs-lisp/seq.el" (22331 17371 996369 +;;;;;; 608000)) ;;; Generated autoloads from emacs-lisp/seq.el (push (purecopy '(seq 2 3)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "server" "server.el" (22150 28228 998072 702000)) +;;;### (autoloads nil "server" "server.el" (22331 17372 105369 221000)) ;;; Generated autoloads from server.el (put 'server-host 'risky-local-variable t) @@ -24707,7 +24745,8 @@ NAME defaults to `server-name'. With argument, ask for NAME. (defvar server-mode nil "\ Non-nil if Server mode is enabled. -See the command `server-mode' for a description of this minor mode. +See the `server-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `server-mode'.") @@ -24737,7 +24776,7 @@ only these files will be asked to be saved. ;;;*** -;;;### (autoloads nil "ses" "ses.el" (22189 64323 296321 19000)) +;;;### (autoloads nil "ses" "ses.el" (22331 17372 106369 217000)) ;;; Generated autoloads from ses.el (autoload 'ses-mode "ses" "\ @@ -24781,8 +24820,8 @@ formula: ;;;*** -;;;### (autoloads nil "sgml-mode" "textmodes/sgml-mode.el" (22150 -;;;;;; 28229 150072 702000)) +;;;### (autoloads nil "sgml-mode" "textmodes/sgml-mode.el" (22331 +;;;;;; 17372 117369 178000)) ;;; Generated autoloads from textmodes/sgml-mode.el (autoload 'sgml-mode "sgml-mode" "\ @@ -24847,8 +24886,8 @@ To work around that, do: ;;;*** -;;;### (autoloads nil "sh-script" "progmodes/sh-script.el" (22291 -;;;;;; 28851 657608 847000)) +;;;### (autoloads nil "sh-script" "progmodes/sh-script.el" (22331 +;;;;;; 17372 99369 242000)) ;;; Generated autoloads from progmodes/sh-script.el (push (purecopy '(sh-script 2 0 6)) package--builtin-versions) (put 'sh-shell 'safe-local-variable 'symbolp) @@ -24913,8 +24952,8 @@ with your script for an edit-interpret-debug cycle. ;;;*** -;;;### (autoloads nil "shadow" "emacs-lisp/shadow.el" (22150 28227 -;;;;;; 454072 702000)) +;;;### (autoloads nil "shadow" "emacs-lisp/shadow.el" (22330 59913 +;;;;;; 930323 566000)) ;;; Generated autoloads from emacs-lisp/shadow.el (autoload 'list-load-path-shadows "shadow" "\ @@ -24963,8 +25002,8 @@ function, `load-path-shadows-find'. ;;;*** -;;;### (autoloads nil "shadowfile" "shadowfile.el" (22150 28229 14072 -;;;;;; 702000)) +;;;### (autoloads nil "shadowfile" "shadowfile.el" (22330 59913 915323 +;;;;;; 612000)) ;;; Generated autoloads from shadowfile.el (autoload 'shadow-define-cluster "shadowfile" "\ @@ -25002,7 +25041,7 @@ Set up file shadowing. ;;;*** -;;;### (autoloads nil "shell" "shell.el" (22150 28229 14072 702000)) +;;;### (autoloads nil "shell" "shell.el" (22330 59913 915323 612000)) ;;; Generated autoloads from shell.el (defvar shell-dumb-shell-regexp (purecopy "cmd\\(proxy\\)?\\.exe") "\ @@ -25050,7 +25089,7 @@ Otherwise, one argument `-i' is passed to the shell. ;;;*** -;;;### (autoloads nil "shr" "net/shr.el" (22255 55369 13338 944000)) +;;;### (autoloads nil "shr" "net/shr.el" (22331 17372 60369 381000)) ;;; Generated autoloads from net/shr.el (autoload 'shr-render-region "shr" "\ @@ -25067,8 +25106,8 @@ DOM should be a parse tree as generated by ;;;*** -;;;### (autoloads nil "sieve" "gnus/sieve.el" (22150 28228 18072 -;;;;;; 702000)) +;;;### (autoloads nil "sieve" "gnus/sieve.el" (22331 17372 35369 +;;;;;; 469000)) ;;; Generated autoloads from gnus/sieve.el (autoload 'sieve-manage "sieve" "\ @@ -25093,8 +25132,8 @@ DOM should be a parse tree as generated by ;;;*** -;;;### (autoloads nil "sieve-mode" "gnus/sieve-mode.el" (22150 28228 -;;;;;; 18072 702000)) +;;;### (autoloads nil "sieve-mode" "gnus/sieve-mode.el" (22331 17372 +;;;;;; 35369 469000)) ;;; Generated autoloads from gnus/sieve-mode.el (autoload 'sieve-mode "sieve-mode" "\ @@ -25109,8 +25148,8 @@ Turning on Sieve mode runs `sieve-mode-hook'. ;;;*** -;;;### (autoloads nil "simula" "progmodes/simula.el" (22197 58438 -;;;;;; 563460 447000)) +;;;### (autoloads nil "simula" "progmodes/simula.el" (22330 59913 +;;;;;; 985323 396000)) ;;; Generated autoloads from progmodes/simula.el (autoload 'simula-mode "simula" "\ @@ -25158,8 +25197,8 @@ with no arguments, if that value is non-nil. ;;;*** -;;;### (autoloads nil "skeleton" "skeleton.el" (22197 58438 667460 -;;;;;; 447000)) +;;;### (autoloads nil "skeleton" "skeleton.el" (22330 59913 915323 +;;;;;; 612000)) ;;; Generated autoloads from skeleton.el (defvar skeleton-filter-function 'identity "\ @@ -25278,8 +25317,8 @@ twice for the others. ;;;*** -;;;### (autoloads nil "smerge-mode" "vc/smerge-mode.el" (22150 28229 -;;;;;; 286072 702000)) +;;;### (autoloads nil "smerge-mode" "vc/smerge-mode.el" (22331 17372 +;;;;;; 123369 157000)) ;;; Generated autoloads from vc/smerge-mode.el (autoload 'smerge-ediff "smerge-mode" "\ @@ -25306,8 +25345,8 @@ If no conflict maker is found, turn off `smerge-mode'. ;;;*** -;;;### (autoloads nil "smiley" "gnus/smiley.el" (22150 28228 18072 -;;;;;; 702000)) +;;;### (autoloads nil "smiley" "gnus/smiley.el" (22331 17372 36369 +;;;;;; 466000)) ;;; Generated autoloads from gnus/smiley.el (autoload 'smiley-region "smiley" "\ @@ -25324,8 +25363,8 @@ interactively. If there's no argument, do it at the current buffer. ;;;*** -;;;### (autoloads nil "smtpmail" "mail/smtpmail.el" (22150 28228 -;;;;;; 254072 702000)) +;;;### (autoloads nil "smtpmail" "mail/smtpmail.el" (22331 17372 +;;;;;; 53369 406000)) ;;; Generated autoloads from mail/smtpmail.el (autoload 'smtpmail-send-it "smtpmail" "\ @@ -25340,8 +25379,8 @@ Send mail that was queued as a result of setting `smtpmail-queue-mail'. ;;;*** -;;;### (autoloads nil "snake" "play/snake.el" (22150 28228 682072 -;;;;;; 702000)) +;;;### (autoloads nil "snake" "play/snake.el" (22331 17372 87369 +;;;;;; 285000)) ;;; Generated autoloads from play/snake.el (autoload 'snake "snake" "\ @@ -25364,8 +25403,8 @@ Snake mode keybindings: ;;;*** -;;;### (autoloads nil "snmp-mode" "net/snmp-mode.el" (22150 28228 -;;;;;; 402072 702000)) +;;;### (autoloads nil "snmp-mode" "net/snmp-mode.el" (22330 59913 +;;;;;; 954323 492000)) ;;; Generated autoloads from net/snmp-mode.el (autoload 'snmp-mode "snmp-mode" "\ @@ -25394,15 +25433,15 @@ then `snmpv2-mode-hook'. ;;;*** -;;;### (autoloads nil "soap-client" "net/soap-client.el" (22249 52871 -;;;;;; 284284 99000)) +;;;### (autoloads nil "soap-client" "net/soap-client.el" (22331 17372 +;;;;;; 61369 377000)) ;;; Generated autoloads from net/soap-client.el (push (purecopy '(soap-client 3 0 2)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "solar" "calendar/solar.el" (22284 55604 54845 -;;;;;; 171000)) +;;;### (autoloads nil "solar" "calendar/solar.el" (22331 17371 982369 +;;;;;; 658000)) ;;; Generated autoloads from calendar/solar.el (autoload 'sunrise-sunset "solar" "\ @@ -25417,8 +25456,8 @@ This function is suitable for execution in an init file. ;;;*** -;;;### (autoloads nil "solitaire" "play/solitaire.el" (22150 28228 -;;;;;; 682072 702000)) +;;;### (autoloads nil "solitaire" "play/solitaire.el" (22330 59913 +;;;;;; 970323 443000)) ;;; Generated autoloads from play/solitaire.el (autoload 'solitaire "solitaire" "\ @@ -25493,7 +25532,7 @@ Pick your favorite shortcuts: ;;;*** -;;;### (autoloads nil "sort" "sort.el" (22150 28229 18072 702000)) +;;;### (autoloads nil "sort" "sort.el" (22330 59913 915323 612000)) ;;; Generated autoloads from sort.el (put 'sort-fold-case 'safe-local-variable 'booleanp) @@ -25668,7 +25707,7 @@ is non-nil, it also prints a message describing the number of deletions. ;;;*** -;;;### (autoloads nil "spam" "gnus/spam.el" (22150 28228 22072 702000)) +;;;### (autoloads nil "spam" "gnus/spam.el" (22331 17372 36369 466000)) ;;; Generated autoloads from gnus/spam.el (autoload 'spam-initialize "spam" "\ @@ -25682,8 +25721,8 @@ installed through `spam-necessary-extra-headers'. ;;;*** -;;;### (autoloads nil "spam-report" "gnus/spam-report.el" (22150 -;;;;;; 28228 22072 702000)) +;;;### (autoloads nil "spam-report" "gnus/spam-report.el" (22331 +;;;;;; 17372 36369 466000)) ;;; Generated autoloads from gnus/spam-report.el (autoload 'spam-report-process-queue "spam-report" "\ @@ -25725,8 +25764,8 @@ Spam reports will be queued with the method used when ;;;*** -;;;### (autoloads nil "speedbar" "speedbar.el" (22189 64323 312321 -;;;;;; 19000)) +;;;### (autoloads nil "speedbar" "speedbar.el" (22330 59913 915323 +;;;;;; 612000)) ;;; Generated autoloads from speedbar.el (defalias 'speedbar 'speedbar-frame-mode) @@ -25750,8 +25789,8 @@ selected. If the speedbar frame is active, then select the attached frame. ;;;*** -;;;### (autoloads nil "spook" "play/spook.el" (22150 28228 682072 -;;;;;; 702000)) +;;;### (autoloads nil "spook" "play/spook.el" (22330 59913 970323 +;;;;;; 443000)) ;;; Generated autoloads from play/spook.el (autoload 'spook "spook" "\ @@ -25766,8 +25805,8 @@ Return a vector containing the lines from `spook-phrases-file'. ;;;*** -;;;### (autoloads nil "sql" "progmodes/sql.el" (22203 10834 812791 -;;;;;; 123000)) +;;;### (autoloads nil "sql" "progmodes/sql.el" (22331 17372 100369 +;;;;;; 239000)) ;;; Generated autoloads from progmodes/sql.el (push (purecopy '(sql 3 5)) package--builtin-versions) @@ -26233,15 +26272,15 @@ Run vsql as an inferior process. ;;;*** -;;;### (autoloads nil "srecode" "cedet/srecode.el" (22150 28227 270072 -;;;;;; 702000)) +;;;### (autoloads nil "srecode" "cedet/srecode.el" (22330 59913 920323 +;;;;;; 597000)) ;;; Generated autoloads from cedet/srecode.el (push (purecopy '(srecode 1 2)) package--builtin-versions) ;;;*** ;;;### (autoloads nil "srecode/srt-mode" "cedet/srecode/srt-mode.el" -;;;;;; (22150 28227 274072 702000)) +;;;;;; (22330 59913 926323 578000)) ;;; Generated autoloads from cedet/srecode/srt-mode.el (autoload 'srecode-template-mode "srecode/srt-mode" "\ @@ -26253,8 +26292,8 @@ Major-mode for writing SRecode macros. ;;;*** -;;;### (autoloads nil "starttls" "gnus/starttls.el" (22150 28228 -;;;;;; 22072 702000)) +;;;### (autoloads nil "starttls" "gnus/starttls.el" (22331 17372 +;;;;;; 36369 466000)) ;;; Generated autoloads from gnus/starttls.el (autoload 'starttls-open-stream "starttls" "\ @@ -26277,7 +26316,8 @@ GnuTLS requires a port number. ;;;*** -;;;### (autoloads nil "strokes" "strokes.el" (22182 4679 511463 499000)) +;;;### (autoloads nil "strokes" "strokes.el" (22330 59913 915323 +;;;;;; 612000)) ;;; Generated autoloads from strokes.el (autoload 'strokes-global-set-stroke "strokes" "\ @@ -26348,7 +26388,8 @@ If STROKES-MAP is not given, `strokes-global-map' will be used instead. (defvar strokes-mode nil "\ Non-nil if Strokes mode is enabled. -See the command `strokes-mode' for a description of this minor mode. +See the `strokes-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `strokes-mode'.") @@ -26390,8 +26431,8 @@ Read a complex stroke and insert its glyph into the current buffer. ;;;*** -;;;### (autoloads nil "studly" "play/studly.el" (22279 37684 392180 -;;;;;; 436000)) +;;;### (autoloads nil "studly" "play/studly.el" (22330 59913 969323 +;;;;;; 446000)) ;;; Generated autoloads from play/studly.el (autoload 'studlify-region "studly" "\ @@ -26411,8 +26452,8 @@ Studlify-case the current buffer. ;;;*** -;;;### (autoloads nil "subword" "progmodes/subword.el" (22150 28228 -;;;;;; 930072 702000)) +;;;### (autoloads nil "subword" "progmodes/subword.el" (22330 59913 +;;;;;; 985323 396000)) ;;; Generated autoloads from progmodes/subword.el (define-obsolete-function-alias 'capitalized-words-mode 'subword-mode "25.1") @@ -26447,7 +26488,8 @@ treat nomenclature boundaries as word boundaries. (defvar global-subword-mode nil "\ Non-nil if Global Subword mode is enabled. -See the command `global-subword-mode' for a description of this minor mode. +See the `global-subword-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-subword-mode'.") @@ -26483,7 +26525,8 @@ as parts of words: e.g., in `superword-mode', (defvar global-superword-mode nil "\ Non-nil if Global Superword mode is enabled. -See the command `global-superword-mode' for a description of this minor mode. +See the `global-superword-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-superword-mode'.") @@ -26504,8 +26547,8 @@ See `superword-mode' for more information on Superword mode. ;;;*** -;;;### (autoloads nil "supercite" "mail/supercite.el" (22150 28228 -;;;;;; 254072 702000)) +;;;### (autoloads nil "supercite" "mail/supercite.el" (22330 59913 +;;;;;; 948323 511000)) ;;; Generated autoloads from mail/supercite.el (autoload 'sc-cite-original "supercite" "\ @@ -26537,15 +26580,16 @@ and `sc-post-hook' is run after the guts of this function. ;;;*** -;;;### (autoloads nil "t-mouse" "t-mouse.el" (22204 31687 849113 -;;;;;; 480000)) +;;;### (autoloads nil "t-mouse" "t-mouse.el" (22330 59913 915323 +;;;;;; 612000)) ;;; Generated autoloads from t-mouse.el (define-obsolete-function-alias 't-mouse-mode 'gpm-mouse-mode "23.1") (defvar gpm-mouse-mode t "\ Non-nil if Gpm-Mouse mode is enabled. -See the command `gpm-mouse-mode' for a description of this minor mode. +See the `gpm-mouse-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `gpm-mouse-mode'.") @@ -26570,7 +26614,7 @@ GPM. This is due to limitations in GPM and the Linux kernel. ;;;*** -;;;### (autoloads nil "tabify" "tabify.el" (22150 28229 26072 702000)) +;;;### (autoloads nil "tabify" "tabify.el" (22330 59913 915323 612000)) ;;; Generated autoloads from tabify.el (autoload 'untabify "tabify" "\ @@ -26599,8 +26643,8 @@ The variable `tab-width' controls the spacing of tab stops. ;;;*** -;;;### (autoloads nil "table" "textmodes/table.el" (22186 51800 574004 -;;;;;; 628000)) +;;;### (autoloads nil "table" "textmodes/table.el" (22331 17372 118369 +;;;;;; 175000)) ;;; Generated autoloads from textmodes/table.el (autoload 'table-insert "table" "\ @@ -27171,7 +27215,7 @@ converts a table into plain text without frames. It is a companion to ;;;*** -;;;### (autoloads nil "talk" "talk.el" (22150 28229 26072 702000)) +;;;### (autoloads nil "talk" "talk.el" (22330 59913 915323 612000)) ;;; Generated autoloads from talk.el (autoload 'talk-connect "talk" "\ @@ -27186,8 +27230,8 @@ Connect to the Emacs talk group from the current X display or tty frame. ;;;*** -;;;### (autoloads nil "tar-mode" "tar-mode.el" (22150 28229 26072 -;;;;;; 702000)) +;;;### (autoloads nil "tar-mode" "tar-mode.el" (22330 59913 915323 +;;;;;; 612000)) ;;; Generated autoloads from tar-mode.el (autoload 'tar-mode "tar-mode" "\ @@ -27210,8 +27254,8 @@ See also: variables `tar-update-datestamp' and `tar-anal-blocksize'. ;;;*** -;;;### (autoloads nil "tcl" "progmodes/tcl.el" (22150 28228 934072 -;;;;;; 702000)) +;;;### (autoloads nil "tcl" "progmodes/tcl.el" (22330 59913 985323 +;;;;;; 396000)) ;;; Generated autoloads from progmodes/tcl.el (autoload 'tcl-mode "tcl" "\ @@ -27259,8 +27303,8 @@ Prefix argument means invert sense of `tcl-use-smart-word-finder'. ;;;*** -;;;### (autoloads nil "telnet" "net/telnet.el" (22150 28228 406072 -;;;;;; 702000)) +;;;### (autoloads nil "telnet" "net/telnet.el" (22330 59913 954323 +;;;;;; 492000)) ;;; Generated autoloads from net/telnet.el (autoload 'telnet "telnet" "\ @@ -27285,7 +27329,7 @@ Normally input is edited in Emacs and sent a line at a time. ;;;*** -;;;### (autoloads nil "term" "term.el" (22305 18655 603719 883000)) +;;;### (autoloads nil "term" "term.el" (22331 17372 109369 207000)) ;;; Generated autoloads from term.el (autoload 'make-term "term" "\ @@ -27327,8 +27371,8 @@ use in that buffer. ;;;*** -;;;### (autoloads nil "testcover" "emacs-lisp/testcover.el" (22150 -;;;;;; 28227 458072 702000)) +;;;### (autoloads nil "testcover" "emacs-lisp/testcover.el" (22330 +;;;;;; 59913 930323 566000)) ;;; Generated autoloads from emacs-lisp/testcover.el (autoload 'testcover-this-defun "testcover" "\ @@ -27338,8 +27382,8 @@ Start coverage on function under point. ;;;*** -;;;### (autoloads nil "tetris" "play/tetris.el" (22189 64323 280321 -;;;;;; 19000)) +;;;### (autoloads nil "tetris" "play/tetris.el" (22330 59913 970323 +;;;;;; 443000)) ;;; Generated autoloads from play/tetris.el (push (purecopy '(tetris 2 1)) package--builtin-versions) @@ -27364,8 +27408,8 @@ tetris-mode keybindings: ;;;*** -;;;### (autoloads nil "tex-mode" "textmodes/tex-mode.el" (22197 58438 -;;;;;; 727460 447000)) +;;;### (autoloads nil "tex-mode" "textmodes/tex-mode.el" (22331 17372 +;;;;;; 119369 171000)) ;;; Generated autoloads from textmodes/tex-mode.el (defvar tex-shell-file-name nil "\ @@ -27666,8 +27710,8 @@ Major mode to edit DocTeX files. ;;;*** -;;;### (autoloads nil "texinfmt" "textmodes/texinfmt.el" (22197 58438 -;;;;;; 759460 447000)) +;;;### (autoloads nil "texinfmt" "textmodes/texinfmt.el" (22330 59913 +;;;;;; 991323 378000)) ;;; Generated autoloads from textmodes/texinfmt.el (autoload 'texinfo-format-buffer "texinfmt" "\ @@ -27706,8 +27750,8 @@ if large. You can use `Info-split' to do this manually. ;;;*** -;;;### (autoloads nil "texinfo" "textmodes/texinfo.el" (22197 58438 -;;;;;; 759460 447000)) +;;;### (autoloads nil "texinfo" "textmodes/texinfo.el" (22331 17372 +;;;;;; 119369 171000)) ;;; Generated autoloads from textmodes/texinfo.el (defvar texinfo-open-quote (purecopy "``") "\ @@ -27791,8 +27835,8 @@ value of `texinfo-mode-hook'. ;;;*** -;;;### (autoloads nil "thai-util" "language/thai-util.el" (22150 -;;;;;; 28228 198072 702000)) +;;;### (autoloads nil "thai-util" "language/thai-util.el" (22330 +;;;;;; 59913 941323 532000)) ;;; Generated autoloads from language/thai-util.el (autoload 'thai-compose-region "thai-util" "\ @@ -27819,8 +27863,8 @@ Compose Thai characters in the current buffer. ;;;*** -;;;### (autoloads nil "thingatpt" "thingatpt.el" (22225 37858 570976 -;;;;;; 240000)) +;;;### (autoloads nil "thingatpt" "thingatpt.el" (22331 17372 120369 +;;;;;; 168000)) ;;; Generated autoloads from thingatpt.el (autoload 'forward-thing "thingatpt" "\ @@ -27884,7 +27928,7 @@ Return the Lisp list at point, or nil if none is found. ;;;*** -;;;### (autoloads nil "thumbs" "thumbs.el" (22150 28229 198072 702000)) +;;;### (autoloads nil "thumbs" "thumbs.el" (22330 59913 915323 612000)) ;;; Generated autoloads from thumbs.el (autoload 'thumbs-find-thumb "thumbs" "\ @@ -27918,15 +27962,15 @@ In dired, call the setroot program on the image at point. ;;;*** -;;;### (autoloads nil "thunk" "emacs-lisp/thunk.el" (22150 28227 -;;;;;; 458072 702000)) +;;;### (autoloads nil "thunk" "emacs-lisp/thunk.el" (22330 59913 +;;;;;; 931323 563000)) ;;; Generated autoloads from emacs-lisp/thunk.el (push (purecopy '(thunk 1 0)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "tibet-util" "language/tibet-util.el" (22150 -;;;;;; 28228 198072 702000)) +;;;### (autoloads nil "tibet-util" "language/tibet-util.el" (22330 +;;;;;; 59913 941323 532000)) ;;; Generated autoloads from language/tibet-util.el (autoload 'tibetan-char-p "tibet-util" "\ @@ -27999,8 +28043,8 @@ See also docstring of the function tibetan-compose-region. ;;;*** -;;;### (autoloads nil "tildify" "textmodes/tildify.el" (22165 43181 -;;;;;; 139854 955000)) +;;;### (autoloads nil "tildify" "textmodes/tildify.el" (22330 59913 +;;;;;; 991323 378000)) ;;; Generated autoloads from textmodes/tildify.el (push (purecopy '(tildify 4 6 1)) package--builtin-versions) @@ -28066,7 +28110,7 @@ variable will be set to the representation. ;;;*** -;;;### (autoloads nil "time" "time.el" (22150 28229 202072 702000)) +;;;### (autoloads nil "time" "time.el" (22330 59913 743324 144000)) ;;; Generated autoloads from time.el (defvar display-time-day-and-date nil "\ @@ -28086,7 +28130,8 @@ This runs the normal hook `display-time-hook' after each update. (defvar display-time-mode nil "\ Non-nil if Display-Time mode is enabled. -See the command `display-time-mode' for a description of this minor mode. +See the `display-time-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `display-time-mode'.") @@ -28128,8 +28173,8 @@ Return a string giving the duration of the Emacs initialization. ;;;*** -;;;### (autoloads nil "time-date" "calendar/time-date.el" (22150 -;;;;;; 28227 82072 702000)) +;;;### (autoloads nil "time-date" "calendar/time-date.el" (22331 +;;;;;; 17371 982369 658000)) ;;; Generated autoloads from calendar/time-date.el (autoload 'date-to-time "time-date" "\ @@ -28232,8 +28277,8 @@ Convert the time interval in seconds to a short string. ;;;*** -;;;### (autoloads nil "time-stamp" "time-stamp.el" (22212 25823 511089 -;;;;;; 159000)) +;;;### (autoloads nil "time-stamp" "time-stamp.el" (22331 17372 120369 +;;;;;; 168000)) ;;; 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) @@ -28273,14 +28318,15 @@ With ARG, turn time stamping on if and only if arg is positive. ;;;*** -;;;### (autoloads nil "timeclock" "calendar/timeclock.el" (22150 -;;;;;; 28227 82072 702000)) +;;;### (autoloads nil "timeclock" "calendar/timeclock.el" (22331 +;;;;;; 17371 983369 654000)) ;;; Generated autoloads from calendar/timeclock.el (push (purecopy '(timeclock 2 6 1)) package--builtin-versions) (defvar timeclock-mode-line-display nil "\ Non-nil if Timeclock-Mode-Line-Display mode is enabled. -See the command `timeclock-mode-line-display' for a description of this minor mode. +See the `timeclock-mode-line-display' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `timeclock-mode-line-display'.") @@ -28384,7 +28430,7 @@ relative only to the time worked today, and not to past time. ;;;*** ;;;### (autoloads nil "titdic-cnv" "international/titdic-cnv.el" -;;;;;; (22150 28228 134072 702000)) +;;;;;; (22330 59913 940323 535000)) ;;; Generated autoloads from international/titdic-cnv.el (autoload 'titdic-convert "titdic-cnv" "\ @@ -28406,7 +28452,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\". ;;;*** -;;;### (autoloads nil "tmm" "tmm.el" (22295 25908 202516 451000)) +;;;### (autoloads nil "tmm" "tmm.el" (22330 59913 743324 144000)) ;;; Generated autoloads from tmm.el (define-key global-map "\M-`" 'tmm-menubar) (define-key global-map [menu-bar mouse-1] 'tmm-menubar-mouse) @@ -28448,8 +28494,8 @@ Its value should be an event that has a binding in MENU. ;;;*** -;;;### (autoloads nil "todo-mode" "calendar/todo-mode.el" (22304 -;;;;;; 40885 29243 884000)) +;;;### (autoloads nil "todo-mode" "calendar/todo-mode.el" (22330 +;;;;;; 59913 919323 600000)) ;;; Generated autoloads from calendar/todo-mode.el (autoload 'todo-show "todo-mode" "\ @@ -28514,8 +28560,8 @@ Mode for displaying and reprioritizing top priority Todo. ;;;*** -;;;### (autoloads nil "tool-bar" "tool-bar.el" (22150 28229 202072 -;;;;;; 702000)) +;;;### (autoloads nil "tool-bar" "tool-bar.el" (22330 59913 915323 +;;;;;; 612000)) ;;; Generated autoloads from tool-bar.el (autoload 'toggle-tool-bar-mode-from-frame "tool-bar" "\ @@ -28585,8 +28631,8 @@ holds a keymap. ;;;*** -;;;### (autoloads nil "tq" "emacs-lisp/tq.el" (22150 28227 458072 -;;;;;; 702000)) +;;;### (autoloads nil "tq" "emacs-lisp/tq.el" (22330 59913 931323 +;;;;;; 563000)) ;;; Generated autoloads from emacs-lisp/tq.el (autoload 'tq-create "tq" "\ @@ -28599,8 +28645,8 @@ to a tcp server on another machine. ;;;*** -;;;### (autoloads nil "trace" "emacs-lisp/trace.el" (22150 28227 -;;;;;; 458072 702000)) +;;;### (autoloads nil "trace" "emacs-lisp/trace.el" (22330 59913 +;;;;;; 931323 563000)) ;;; Generated autoloads from emacs-lisp/trace.el (defvar trace-buffer "*trace-output*" "\ @@ -28645,8 +28691,7 @@ the output buffer or changing the window configuration. ;;;*** -;;;### (autoloads nil "tramp" "net/tramp.el" (22272 64438 268671 -;;;;;; 103000)) +;;;### (autoloads nil "tramp" "net/tramp.el" (22331 17372 65369 363000)) ;;; Generated autoloads from net/tramp.el (defvar tramp-mode t "\ @@ -28761,8 +28806,8 @@ Discard Tramp from loading remote files. ;;;*** -;;;### (autoloads nil "tramp-ftp" "net/tramp-ftp.el" (22150 28228 -;;;;;; 410072 702000)) +;;;### (autoloads nil "tramp-ftp" "net/tramp-ftp.el" (22331 17372 +;;;;;; 61369 377000)) ;;; Generated autoloads from net/tramp-ftp.el (autoload 'tramp-ftp-enable-ange-ftp "tramp-ftp" "\ @@ -28772,15 +28817,15 @@ Discard Tramp from loading remote files. ;;;*** -;;;### (autoloads nil "trampver" "net/trampver.el" (22150 28228 442072 -;;;;;; 702000)) +;;;### (autoloads nil "trampver" "net/trampver.el" (22331 17372 65369 +;;;;;; 363000)) ;;; Generated autoloads from net/trampver.el (push (purecopy '(tramp 2 2 13 25 1)) package--builtin-versions) ;;;*** -;;;### (autoloads nil "tutorial" "tutorial.el" (22150 28229 206072 -;;;;;; 702000)) +;;;### (autoloads nil "tutorial" "tutorial.el" (22330 59913 915323 +;;;;;; 612000)) ;;; Generated autoloads from tutorial.el (autoload 'help-with-tutorial "tutorial" "\ @@ -28804,8 +28849,8 @@ resumed later. ;;;*** -;;;### (autoloads nil "tv-util" "language/tv-util.el" (22086 11929 -;;;;;; 906062 731000)) +;;;### (autoloads nil "tv-util" "language/tv-util.el" (22330 59913 +;;;;;; 941323 532000)) ;;; Generated autoloads from language/tv-util.el (autoload 'tai-viet-composition-function "tv-util" "\ @@ -28815,8 +28860,8 @@ resumed later. ;;;*** -;;;### (autoloads nil "two-column" "textmodes/two-column.el" (22150 -;;;;;; 28229 198072 702000)) +;;;### (autoloads nil "two-column" "textmodes/two-column.el" (22330 +;;;;;; 59913 991323 378000)) ;;; Generated autoloads from textmodes/two-column.el (autoload '2C-command "two-column" () t 'keymap) (global-set-key "\C-x6" '2C-command) @@ -28863,13 +28908,14 @@ First column's text sSs Second column's text ;;;*** -;;;### (autoloads nil "type-break" "type-break.el" (22189 64323 316321 -;;;;;; 19000)) +;;;### (autoloads nil "type-break" "type-break.el" (22330 59913 915323 +;;;;;; 612000)) ;;; Generated autoloads from type-break.el (defvar type-break-mode nil "\ Non-nil if Type-Break mode is enabled. -See the command `type-break-mode' for a description of this minor mode. +See the `type-break-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `type-break-mode'.") @@ -28996,7 +29042,7 @@ FRAC should be the inverse of the fractional value; for example, a value of ;;;*** -;;;### (autoloads nil "uce" "mail/uce.el" (22150 28228 258072 702000)) +;;;### (autoloads nil "uce" "mail/uce.el" (22330 59913 948323 511000)) ;;; Generated autoloads from mail/uce.el (autoload 'uce-reply-to-uce "uce" "\ @@ -29010,7 +29056,7 @@ You might need to set `uce-mail-reader' before using this. ;;;*** ;;;### (autoloads nil "ucs-normalize" "international/ucs-normalize.el" -;;;;;; (22150 28228 134072 702000)) +;;;;;; (22330 59913 940323 535000)) ;;; Generated autoloads from international/ucs-normalize.el (autoload 'ucs-normalize-NFD-region "ucs-normalize" "\ @@ -29075,8 +29121,8 @@ Normalize the string STR by the Unicode NFC and Mac OS's HFS Plus. ;;;*** -;;;### (autoloads nil "underline" "textmodes/underline.el" (22150 -;;;;;; 28229 198072 702000)) +;;;### (autoloads nil "underline" "textmodes/underline.el" (22330 +;;;;;; 59913 991323 378000)) ;;; Generated autoloads from textmodes/underline.el (autoload 'underline-region "underline" "\ @@ -29096,8 +29142,8 @@ which specify the range to operate on. ;;;*** -;;;### (autoloads nil "unrmail" "mail/unrmail.el" (22150 28228 258072 -;;;;;; 702000)) +;;;### (autoloads nil "unrmail" "mail/unrmail.el" (22330 59913 948323 +;;;;;; 511000)) ;;; Generated autoloads from mail/unrmail.el (autoload 'batch-unrmail "unrmail" "\ @@ -29117,8 +29163,8 @@ The variable `unrmail-mbox-format' controls which mbox format to use. ;;;*** -;;;### (autoloads nil "unsafep" "emacs-lisp/unsafep.el" (22150 28227 -;;;;;; 458072 702000)) +;;;### (autoloads nil "unsafep" "emacs-lisp/unsafep.el" (22330 59913 +;;;;;; 931323 563000)) ;;; Generated autoloads from emacs-lisp/unsafep.el (autoload 'unsafep "unsafep" "\ @@ -29130,7 +29176,7 @@ UNSAFEP-VARS is a list of symbols with local bindings. ;;;*** -;;;### (autoloads nil "url" "url/url.el" (22150 28229 234072 702000)) +;;;### (autoloads nil "url" "url/url.el" (22331 17372 121369 164000)) ;;; Generated autoloads from url/url.el (autoload 'url-retrieve "url" "\ @@ -29172,13 +29218,16 @@ Retrieve URL synchronously. Return the buffer containing the data, or nil if there are no data associated with it (the case for dired, info, or mailto URLs that need no further processing). URL is either a string or a parsed URL. +If SILENT is non-nil, don't display progress reports and similar messages. +If INHIBIT-COOKIES is non-nil, cookies will neither be stored nor sent +to the server. \(fn URL &optional SILENT INHIBIT-COOKIES)" nil nil) ;;;*** -;;;### (autoloads nil "url-auth" "url/url-auth.el" (22150 28229 210072 -;;;;;; 702000)) +;;;### (autoloads nil "url-auth" "url/url-auth.el" (22330 59913 992323 +;;;;;; 375000)) ;;; Generated autoloads from url/url-auth.el (autoload 'url-get-authentication "url-auth" "\ @@ -29219,8 +29268,8 @@ RATING a rating between 1 and 10 of the strength of the authentication. ;;;*** -;;;### (autoloads nil "url-cache" "url/url-cache.el" (22150 28229 -;;;;;; 210072 702000)) +;;;### (autoloads nil "url-cache" "url/url-cache.el" (22330 59913 +;;;;;; 992323 375000)) ;;; Generated autoloads from url/url-cache.el (autoload 'url-store-in-cache "url-cache" "\ @@ -29241,8 +29290,8 @@ Extract FNAM from the local disk cache. ;;;*** -;;;### (autoloads nil "url-cid" "url/url-cid.el" (22150 28229 210072 -;;;;;; 702000)) +;;;### (autoloads nil "url-cid" "url/url-cid.el" (22330 59913 992323 +;;;;;; 375000)) ;;; Generated autoloads from url/url-cid.el (autoload 'url-cid "url-cid" "\ @@ -29252,8 +29301,8 @@ Extract FNAM from the local disk cache. ;;;*** -;;;### (autoloads nil "url-dav" "url/url-dav.el" (22150 28229 214072 -;;;;;; 702000)) +;;;### (autoloads nil "url-dav" "url/url-dav.el" (22330 59913 992323 +;;;;;; 375000)) ;;; Generated autoloads from url/url-dav.el (autoload 'url-dav-supported-p "url-dav" "\ @@ -29287,8 +29336,8 @@ added to this list, so most requests can just pass in nil. ;;;*** -;;;### (autoloads nil "url-file" "url/url-file.el" (22150 28229 214072 -;;;;;; 702000)) +;;;### (autoloads nil "url-file" "url/url-file.el" (22330 59913 992323 +;;;;;; 375000)) ;;; Generated autoloads from url/url-file.el (autoload 'url-file "url-file" "\ @@ -29298,8 +29347,8 @@ Handle file: and ftp: URLs. ;;;*** -;;;### (autoloads nil "url-gw" "url/url-gw.el" (22150 28229 218072 -;;;;;; 702000)) +;;;### (autoloads nil "url-gw" "url/url-gw.el" (22331 17372 120369 +;;;;;; 168000)) ;;; Generated autoloads from url/url-gw.el (autoload 'url-gateway-nslookup-host "url-gw" "\ @@ -29320,13 +29369,14 @@ overriding the value of `url-gateway-method'. ;;;*** -;;;### (autoloads nil "url-handlers" "url/url-handlers.el" (22150 -;;;;;; 28229 218072 702000)) +;;;### (autoloads nil "url-handlers" "url/url-handlers.el" (22331 +;;;;;; 17372 120369 168000)) ;;; Generated autoloads from url/url-handlers.el (defvar url-handler-mode nil "\ Non-nil if Url-Handler mode is enabled. -See the command `url-handler-mode' for a description of this minor mode. +See the `url-handler-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `url-handler-mode'.") @@ -29382,8 +29432,8 @@ if it had been inserted from a file named URL. ;;;*** -;;;### (autoloads nil "url-http" "url/url-http.el" (22229 34898 908051 -;;;;;; 395000)) +;;;### (autoloads nil "url-http" "url/url-http.el" (22331 17372 121369 +;;;;;; 164000)) ;;; Generated autoloads from url/url-http.el (autoload 'url-default-expander "url-expand") @@ -29395,8 +29445,8 @@ if it had been inserted from a file named URL. ;;;*** -;;;### (autoloads nil "url-irc" "url/url-irc.el" (22150 28229 222072 -;;;;;; 702000)) +;;;### (autoloads nil "url-irc" "url/url-irc.el" (22330 59913 992323 +;;;;;; 375000)) ;;; Generated autoloads from url/url-irc.el (autoload 'url-irc "url-irc" "\ @@ -29406,8 +29456,8 @@ if it had been inserted from a file named URL. ;;;*** -;;;### (autoloads nil "url-ldap" "url/url-ldap.el" (22150 28229 222072 -;;;;;; 702000)) +;;;### (autoloads nil "url-ldap" "url/url-ldap.el" (22330 59913 992323 +;;;;;; 375000)) ;;; Generated autoloads from url/url-ldap.el (autoload 'url-ldap "url-ldap" "\ @@ -29420,8 +29470,8 @@ URL can be a URL string, or a URL vector of the type returned by ;;;*** -;;;### (autoloads nil "url-mailto" "url/url-mailto.el" (22150 28229 -;;;;;; 222072 702000)) +;;;### (autoloads nil "url-mailto" "url/url-mailto.el" (22330 59913 +;;;;;; 992323 375000)) ;;; Generated autoloads from url/url-mailto.el (autoload 'url-mail "url-mailto" "\ @@ -29436,8 +29486,8 @@ Handle the mailto: URL syntax. ;;;*** -;;;### (autoloads nil "url-misc" "url/url-misc.el" (22150 28229 222072 -;;;;;; 702000)) +;;;### (autoloads nil "url-misc" "url/url-misc.el" (22330 59913 992323 +;;;;;; 375000)) ;;; Generated autoloads from url/url-misc.el (autoload 'url-man "url-misc" "\ @@ -29468,8 +29518,8 @@ Fetch a data URL (RFC 2397). ;;;*** -;;;### (autoloads nil "url-news" "url/url-news.el" (22150 28229 222072 -;;;;;; 702000)) +;;;### (autoloads nil "url-news" "url/url-news.el" (22330 59913 992323 +;;;;;; 375000)) ;;; Generated autoloads from url/url-news.el (autoload 'url-news "url-news" "\ @@ -29484,8 +29534,8 @@ Fetch a data URL (RFC 2397). ;;;*** -;;;### (autoloads nil "url-ns" "url/url-ns.el" (22150 28229 222072 -;;;;;; 702000)) +;;;### (autoloads nil "url-ns" "url/url-ns.el" (22330 59913 992323 +;;;;;; 375000)) ;;; Generated autoloads from url/url-ns.el (autoload 'isPlainHostName "url-ns" "\ @@ -29525,8 +29575,8 @@ Fetch a data URL (RFC 2397). ;;;*** -;;;### (autoloads nil "url-parse" "url/url-parse.el" (22150 28229 -;;;;;; 222072 702000)) +;;;### (autoloads nil "url-parse" "url/url-parse.el" (22330 59913 +;;;;;; 992323 375000)) ;;; Generated autoloads from url/url-parse.el (autoload 'url-recreate-url "url-parse" "\ @@ -29577,8 +29627,8 @@ parses to ;;;*** -;;;### (autoloads nil "url-privacy" "url/url-privacy.el" (22150 28229 -;;;;;; 222072 702000)) +;;;### (autoloads nil "url-privacy" "url/url-privacy.el" (22330 59913 +;;;;;; 992323 375000)) ;;; Generated autoloads from url/url-privacy.el (autoload 'url-setup-privacy-info "url-privacy" "\ @@ -29588,8 +29638,8 @@ Setup variables that expose info about you and your system. ;;;*** -;;;### (autoloads nil "url-queue" "url/url-queue.el" (22150 28229 -;;;;;; 226072 702000)) +;;;### (autoloads nil "url-queue" "url/url-queue.el" (22331 17372 +;;;;;; 121369 164000)) ;;; Generated autoloads from url/url-queue.el (autoload 'url-queue-retrieve "url-queue" "\ @@ -29603,8 +29653,8 @@ The variable `url-queue-timeout' sets a timeout. ;;;*** -;;;### (autoloads nil "url-tramp" "url/url-tramp.el" (22165 43181 -;;;;;; 143854 955000)) +;;;### (autoloads nil "url-tramp" "url/url-tramp.el" (22330 59913 +;;;;;; 992323 375000)) ;;; Generated autoloads from url/url-tramp.el (defvar url-tramp-protocols '("ftp" "ssh" "scp" "rsync" "telnet") "\ @@ -29622,8 +29672,8 @@ would have been passed to OPERATION. ;;;*** -;;;### (autoloads nil "url-util" "url/url-util.el" (22150 28229 234072 -;;;;;; 702000)) +;;;### (autoloads nil "url-util" "url/url-util.el" (22331 17372 121369 +;;;;;; 164000)) ;;; Generated autoloads from url/url-util.el (defvar url-debug nil "\ @@ -29791,8 +29841,8 @@ This uses `url-current-object', set locally to the buffer. ;;;*** -;;;### (autoloads nil "userlock" "userlock.el" (22150 28229 234072 -;;;;;; 702000)) +;;;### (autoloads nil "userlock" "userlock.el" (22330 59913 915323 +;;;;;; 612000)) ;;; Generated autoloads from userlock.el (autoload 'ask-user-about-lock "userlock" "\ @@ -29820,8 +29870,8 @@ The buffer in question is current when this function is called. ;;;*** -;;;### (autoloads nil "utf-7" "international/utf-7.el" (22150 28228 -;;;;;; 134072 702000)) +;;;### (autoloads nil "utf-7" "international/utf-7.el" (22330 59913 +;;;;;; 940323 535000)) ;;; Generated autoloads from international/utf-7.el (autoload 'utf-7-post-read-conversion "utf-7" "\ @@ -29846,7 +29896,7 @@ The buffer in question is current when this function is called. ;;;*** -;;;### (autoloads nil "utf7" "gnus/utf7.el" (22150 28228 26072 702000)) +;;;### (autoloads nil "utf7" "gnus/utf7.el" (22331 17372 37369 462000)) ;;; Generated autoloads from gnus/utf7.el (autoload 'utf7-encode "utf7" "\ @@ -29856,8 +29906,8 @@ Encode UTF-7 STRING. Use IMAP modification if FOR-IMAP is non-nil. ;;;*** -;;;### (autoloads nil "uudecode" "mail/uudecode.el" (22150 28228 -;;;;;; 258072 702000)) +;;;### (autoloads nil "uudecode" "mail/uudecode.el" (22330 59913 +;;;;;; 948323 511000)) ;;; Generated autoloads from mail/uudecode.el (autoload 'uudecode-decode-region-external "uudecode" "\ @@ -29881,7 +29931,7 @@ If FILE-NAME is non-nil, save the result to FILE-NAME. ;;;*** -;;;### (autoloads nil "vc" "vc/vc.el" (22150 28229 306072 702000)) +;;;### (autoloads nil "vc" "vc/vc.el" (22330 59914 13323 310000)) ;;; Generated autoloads from vc/vc.el (defvar vc-checkout-hook nil "\ @@ -30197,8 +30247,8 @@ Return the branch part of a revision number REV. ;;;*** -;;;### (autoloads nil "vc-annotate" "vc/vc-annotate.el" (22271 43574 -;;;;;; 247751 139000)) +;;;### (autoloads nil "vc-annotate" "vc/vc-annotate.el" (22330 59914 +;;;;;; 13323 310000)) ;;; Generated autoloads from vc/vc-annotate.el (autoload 'vc-annotate "vc-annotate" "\ @@ -30237,8 +30287,8 @@ should be applied to the background or to the foreground. ;;;*** -;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (22150 28229 290072 -;;;;;; 702000)) +;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (22331 17372 123369 +;;;;;; 157000)) ;;; Generated autoloads from vc/vc-bzr.el (defconst vc-bzr-admin-dirname ".bzr" "\ @@ -30254,8 +30304,8 @@ Name of the format file in a .bzr directory.") ;;;*** -;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (22150 28229 290072 -;;;;;; 702000)) +;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (22331 17372 123369 +;;;;;; 157000)) ;;; Generated autoloads from vc/vc-cvs.el (defun vc-cvs-registered (f) "Return non-nil if file F is registered with CVS." @@ -30266,8 +30316,8 @@ Name of the format file in a .bzr directory.") ;;;*** -;;;### (autoloads nil "vc-dir" "vc/vc-dir.el" (22150 28229 294072 -;;;;;; 702000)) +;;;### (autoloads nil "vc-dir" "vc/vc-dir.el" (22330 59914 13323 +;;;;;; 310000)) ;;; Generated autoloads from vc/vc-dir.el (autoload 'vc-dir "vc-dir" "\ @@ -30291,8 +30341,8 @@ These are the commands available for use in the file status buffer: ;;;*** -;;;### (autoloads nil "vc-dispatcher" "vc/vc-dispatcher.el" (22150 -;;;;;; 28229 294072 702000)) +;;;### (autoloads nil "vc-dispatcher" "vc/vc-dispatcher.el" (22331 +;;;;;; 17372 124369 153000)) ;;; Generated autoloads from vc/vc-dispatcher.el (autoload 'vc-do-command "vc-dispatcher" "\ @@ -30315,8 +30365,8 @@ case, and the process object in the asynchronous case. ;;;*** -;;;### (autoloads nil "vc-git" "vc/vc-git.el" (22305 18655 607719 -;;;;;; 883000)) +;;;### (autoloads nil "vc-git" "vc/vc-git.el" (22331 17372 124369 +;;;;;; 153000)) ;;; Generated autoloads from vc/vc-git.el (defun vc-git-registered (file) "Return non-nil if FILE is registered with git." @@ -30327,7 +30377,7 @@ case, and the process object in the asynchronous case. ;;;*** -;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (22188 43494 205543 203000)) +;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (22331 17372 124369 153000)) ;;; Generated autoloads from vc/vc-hg.el (defun vc-hg-registered (file) "Return non-nil if FILE is registered with hg." @@ -30338,8 +30388,8 @@ case, and the process object in the asynchronous case. ;;;*** -;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (22188 43494 205543 -;;;;;; 203000)) +;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (22330 59914 13323 +;;;;;; 310000)) ;;; Generated autoloads from vc/vc-mtn.el (defconst vc-mtn-admin-dir "_MTN" "\ @@ -30355,8 +30405,8 @@ Name of the monotone directory's format file.") ;;;*** -;;;### (autoloads nil "vc-rcs" "vc/vc-rcs.el" (22150 28229 302072 -;;;;;; 702000)) +;;;### (autoloads nil "vc-rcs" "vc/vc-rcs.el" (22331 17372 125369 +;;;;;; 150000)) ;;; Generated autoloads from vc/vc-rcs.el (defvar vc-rcs-master-templates (purecopy '("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) "\ @@ -30369,8 +30419,8 @@ For a description of possible values, see `vc-check-master-templates'.") ;;;*** -;;;### (autoloads nil "vc-sccs" "vc/vc-sccs.el" (22150 28229 302072 -;;;;;; 702000)) +;;;### (autoloads nil "vc-sccs" "vc/vc-sccs.el" (22330 59914 13323 +;;;;;; 310000)) ;;; Generated autoloads from vc/vc-sccs.el (defvar vc-sccs-master-templates (purecopy '("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)) "\ @@ -30388,8 +30438,8 @@ find any project directory." (let ((project-dir (getenv "PROJECTDIR")) dirs dir) ;;;*** -;;;### (autoloads nil "vc-src" "vc/vc-src.el" (22150 28229 302072 -;;;;;; 702000)) +;;;### (autoloads nil "vc-src" "vc/vc-src.el" (22331 17372 125369 +;;;;;; 150000)) ;;; Generated autoloads from vc/vc-src.el (defvar vc-src-master-templates (purecopy '("%s.src/%s,v")) "\ @@ -30402,8 +30452,8 @@ For a description of possible values, see `vc-check-master-templates'.") ;;;*** -;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (22150 28229 302072 -;;;;;; 702000)) +;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (22330 59914 13323 +;;;;;; 310000)) ;;; Generated autoloads from vc/vc-svn.el (defun vc-svn-registered (f) (let ((admin-dir (cond ((and (eq system-type 'windows-nt) @@ -30416,8 +30466,8 @@ For a description of possible values, see `vc-check-master-templates'.") ;;;*** -;;;### (autoloads nil "vera-mode" "progmodes/vera-mode.el" (22197 -;;;;;; 58438 563460 447000)) +;;;### (autoloads nil "vera-mode" "progmodes/vera-mode.el" (22330 +;;;;;; 59913 985323 396000)) ;;; 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)) @@ -30476,7 +30526,7 @@ Key bindings: ;;;*** ;;;### (autoloads nil "verilog-mode" "progmodes/verilog-mode.el" -;;;;;; (22197 58438 615460 447000)) +;;;;;; (22331 17372 102369 231000)) ;;; Generated autoloads from progmodes/verilog-mode.el (autoload 'verilog-mode "verilog-mode" "\ @@ -30615,8 +30665,8 @@ Key bindings specific to `verilog-mode-map' are: ;;;*** -;;;### (autoloads nil "vhdl-mode" "progmodes/vhdl-mode.el" (22292 -;;;;;; 49734 746738 351000)) +;;;### (autoloads nil "vhdl-mode" "progmodes/vhdl-mode.el" (22330 +;;;;;; 59913 977323 421000)) ;;; Generated autoloads from progmodes/vhdl-mode.el (autoload 'vhdl-mode "vhdl-mode" "\ @@ -31170,8 +31220,8 @@ Key bindings: ;;;*** -;;;### (autoloads nil "viet-util" "language/viet-util.el" (22150 -;;;;;; 28228 198072 702000)) +;;;### (autoloads nil "viet-util" "language/viet-util.el" (22330 +;;;;;; 59913 941323 532000)) ;;; Generated autoloads from language/viet-util.el (autoload 'viet-encode-viscii-char "viet-util" "\ @@ -31215,7 +31265,7 @@ Convert Vietnamese characters of the current buffer to `VIQR' mnemonics. ;;;*** -;;;### (autoloads nil "view" "view.el" (22150 28229 322072 702000)) +;;;### (autoloads nil "view" "view.el" (22330 59913 915323 612000)) ;;; Generated autoloads from view.el (defvar view-remove-frame-by-deleting t "\ @@ -31471,8 +31521,8 @@ Exit View mode and make the current buffer editable. ;;;*** -;;;### (autoloads nil "viper" "emulation/viper.el" (22150 28227 478072 -;;;;;; 702000)) +;;;### (autoloads nil "viper" "emulation/viper.el" (22331 17371 998369 +;;;;;; 601000)) ;;; Generated autoloads from emulation/viper.el (push (purecopy '(viper 3 14 1)) package--builtin-versions) @@ -31489,8 +31539,8 @@ Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Top'. ;;;*** -;;;### (autoloads nil "warnings" "emacs-lisp/warnings.el" (22150 -;;;;;; 28227 458072 702000)) +;;;### (autoloads nil "warnings" "emacs-lisp/warnings.el" (22330 +;;;;;; 59913 931323 563000)) ;;; Generated autoloads from emacs-lisp/warnings.el (defvar warning-prefix-function nil "\ @@ -31580,7 +31630,7 @@ this is equivalent to `display-warning', using ;;;*** -;;;### (autoloads nil "wdired" "wdired.el" (22240 5212 92626 379000)) +;;;### (autoloads nil "wdired" "wdired.el" (22331 17372 126369 146000)) ;;; Generated autoloads from wdired.el (push (purecopy '(wdired 2 0)) package--builtin-versions) @@ -31598,8 +31648,8 @@ See `wdired-mode'. ;;;*** -;;;### (autoloads nil "webjump" "net/webjump.el" (22150 28228 442072 -;;;;;; 702000)) +;;;### (autoloads nil "webjump" "net/webjump.el" (22330 59913 954323 +;;;;;; 492000)) ;;; Generated autoloads from net/webjump.el (autoload 'webjump "webjump" "\ @@ -31615,8 +31665,8 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke ;;;*** -;;;### (autoloads nil "which-func" "progmodes/which-func.el" (22150 -;;;;;; 28228 986072 702000)) +;;;### (autoloads nil "which-func" "progmodes/which-func.el" (22331 +;;;;;; 17372 103369 228000)) ;;; Generated autoloads from progmodes/which-func.el (put 'which-func-format 'risky-local-variable t) (put 'which-func-current 'risky-local-variable t) @@ -31625,7 +31675,8 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke (defvar which-function-mode nil "\ Non-nil if Which-Function mode is enabled. -See the command `which-function-mode' for a description of this minor mode. +See the `which-function-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `which-function-mode'.") @@ -31646,8 +31697,8 @@ in certain major modes. ;;;*** -;;;### (autoloads nil "whitespace" "whitespace.el" (22150 28229 326072 -;;;;;; 702000)) +;;;### (autoloads nil "whitespace" "whitespace.el" (22330 59913 743324 +;;;;;; 144000)) ;;; Generated autoloads from whitespace.el (push (purecopy '(whitespace 13 2 2)) package--builtin-versions) @@ -31679,7 +31730,8 @@ See also `whitespace-newline' and `whitespace-display-mappings'. (defvar global-whitespace-mode nil "\ Non-nil if Global Whitespace mode is enabled. -See the command `global-whitespace-mode' for a description of this minor mode. +See the `global-whitespace-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-whitespace-mode'.") @@ -31699,7 +31751,8 @@ See also `whitespace-style', `whitespace-newline' and (defvar global-whitespace-newline-mode nil "\ Non-nil if Global Whitespace-Newline mode is enabled. -See the command `global-whitespace-newline-mode' for a description of this minor mode. +See the `global-whitespace-newline-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-whitespace-newline-mode'.") @@ -32015,8 +32068,8 @@ cleaning up these problems. ;;;*** -;;;### (autoloads nil "wid-browse" "wid-browse.el" (22150 28229 326072 -;;;;;; 702000)) +;;;### (autoloads nil "wid-browse" "wid-browse.el" (22330 59913 916323 +;;;;;; 609000)) ;;; Generated autoloads from wid-browse.el (autoload 'widget-browse-at "wid-browse" "\ @@ -32044,8 +32097,8 @@ if ARG is omitted or nil. ;;;*** -;;;### (autoloads nil "wid-edit" "wid-edit.el" (22150 28229 330072 -;;;;;; 702000)) +;;;### (autoloads nil "wid-edit" "wid-edit.el" (22331 17372 126369 +;;;;;; 146000)) ;;; Generated autoloads from wid-edit.el (autoload 'widgetp "wid-edit" "\ @@ -32087,8 +32140,8 @@ Setup current buffer so editing string widgets works. ;;;*** -;;;### (autoloads nil "windmove" "windmove.el" (22150 28229 330072 -;;;;;; 702000)) +;;;### (autoloads nil "windmove" "windmove.el" (22330 59913 916323 +;;;;;; 609000)) ;;; Generated autoloads from windmove.el (autoload 'windmove-left "windmove" "\ @@ -32140,12 +32193,13 @@ Default MODIFIER is `shift'. ;;;*** -;;;### (autoloads nil "winner" "winner.el" (22150 28229 354072 702000)) +;;;### (autoloads nil "winner" "winner.el" (22330 59913 743324 144000)) ;;; Generated autoloads from winner.el (defvar winner-mode nil "\ Non-nil if Winner mode is enabled. -See the command `winner-mode' for a description of this minor mode. +See the `winner-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `winner-mode'.") @@ -32156,14 +32210,20 @@ or call the function `winner-mode'.") Toggle Winner mode on or off. With a prefix argument ARG, enable Winner mode if ARG is positive, and disable it otherwise. If called from Lisp, enable -the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'. -\\{winner-mode-map} +the mode if ARG is omitted or nil, and toggle it if ARG is ‘toggle’. + +Winner mode is a global minor mode that records the changes in +the window configuration (i.e. how the frames are partitioned +into windows) so that the changes can be \"undone\" using the +command `winner-undo'. By default this one is bound to the key +sequence `C-c '. If you change your mind (while undoing), +you can press `C-c ' (calling `winner-redo'). \(fn &optional ARG)" t nil) ;;;*** -;;;### (autoloads nil "woman" "woman.el" (22216 22853 52596 491000)) +;;;### (autoloads nil "woman" "woman.el" (22330 59913 916323 609000)) ;;; Generated autoloads from woman.el (push (purecopy '(woman 0 551)) package--builtin-versions) @@ -32212,7 +32272,7 @@ Default bookmark handler for Woman buffers. ;;;*** -;;;### (autoloads nil "xml" "xml.el" (22249 52924 872284 99000)) +;;;### (autoloads nil "xml" "xml.el" (22330 59913 916323 609000)) ;;; Generated autoloads from xml.el (autoload 'xml-parse-file "xml" "\ @@ -32268,8 +32328,8 @@ Both features can be combined by providing a cons cell ;;;*** -;;;### (autoloads nil "xmltok" "nxml/xmltok.el" (22150 28228 462072 -;;;;;; 702000)) +;;;### (autoloads nil "xmltok" "nxml/xmltok.el" (22331 17372 67369 +;;;;;; 356000)) ;;; Generated autoloads from nxml/xmltok.el (autoload 'xmltok-get-declared-encoding-position "xmltok" "\ @@ -32287,8 +32347,8 @@ If LIMIT is non-nil, then do not consider characters beyond LIMIT. ;;;*** -;;;### (autoloads nil "xref" "progmodes/xref.el" (22286 10932 162198 -;;;;;; 251000)) +;;;### (autoloads nil "xref" "progmodes/xref.el" (22330 59913 977323 +;;;;;; 421000)) ;;; Generated autoloads from progmodes/xref.el (autoload 'xref-find-backend "xref" "\ @@ -32355,13 +32415,14 @@ IGNORES is a list of glob patterns. ;;;*** -;;;### (autoloads nil "xt-mouse" "xt-mouse.el" (22290 7990 504790 -;;;;;; 288000)) +;;;### (autoloads nil "xt-mouse" "xt-mouse.el" (22330 59913 743324 +;;;;;; 144000)) ;;; Generated autoloads from xt-mouse.el (defvar xterm-mouse-mode nil "\ Non-nil if Xterm-Mouse mode is enabled. -See the command `xterm-mouse-mode' for a description of this minor mode. +See the `xterm-mouse-mode' command +for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `xterm-mouse-mode'.") @@ -32385,8 +32446,8 @@ down the SHIFT key while pressing the mouse button. ;;;*** -;;;### (autoloads nil "xwidget" "xwidget.el" (22272 64438 424671 -;;;;;; 103000)) +;;;### (autoloads nil "xwidget" "xwidget.el" (22331 17377 954348 +;;;;;; 447000)) ;;; Generated autoloads from xwidget.el (autoload 'xwidget-webkit-browse-url "xwidget" "\ @@ -32398,7 +32459,7 @@ Interactively, URL defaults to the string looking like a url around point. ;;;*** -;;;### (autoloads nil "yenc" "gnus/yenc.el" (22150 28228 26072 702000)) +;;;### (autoloads nil "yenc" "gnus/yenc.el" (22331 17372 37369 462000)) ;;; Generated autoloads from gnus/yenc.el (autoload 'yenc-decode-region "yenc" "\ @@ -32413,7 +32474,7 @@ Extract file name from an yenc header. ;;;*** -;;;### (autoloads nil "zone" "play/zone.el" (22150 28228 682072 702000)) +;;;### (autoloads nil "zone" "play/zone.el" (22330 59913 970323 443000)) ;;; Generated autoloads from play/zone.el (autoload 'zone "zone" "\ @@ -32459,14 +32520,16 @@ Zone out, completely. ;;;;;; "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.el" "cedet/semantic/bovine/gcc.el" -;;;;;; "cedet/semantic/bovine/make.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" -;;;;;; "cedet/semantic/db-global.el" "cedet/semantic/db-javascript.el" -;;;;;; "cedet/semantic/db-mode.el" "cedet/semantic/db-ref.el" "cedet/semantic/db-typecache.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-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" "cedet/semantic/db-global.el" +;;;;;; "cedet/semantic/db-javascript.el" "cedet/semantic/db-mode.el" +;;;;;; "cedet/semantic/db-ref.el" "cedet/semantic/db-typecache.el" ;;;;;; "cedet/semantic/db.el" "cedet/semantic/debug.el" "cedet/semantic/decorate.el" ;;;;;; "cedet/semantic/decorate/include.el" "cedet/semantic/decorate/mode.el" ;;;;;; "cedet/semantic/dep.el" "cedet/semantic/doc.el" "cedet/semantic/ede-grammar.el" @@ -32484,20 +32547,22 @@ 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/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-macs.el" -;;;;;; "emacs-lisp/cl-seq.el" "emacs-lisp/cl.el" "emacs-lisp/eieio-base.el" -;;;;;; "emacs-lisp/eieio-compat.el" "emacs-lisp/eieio-custom.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" +;;;;;; "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-macs.el" "emacs-lisp/cl-seq.el" "emacs-lisp/cl.el" +;;;;;; "emacs-lisp/eieio-base.el" "emacs-lisp/eieio-compat.el" "emacs-lisp/eieio-custom.el" ;;;;;; "emacs-lisp/eieio-datadebug.el" "emacs-lisp/eieio-opt.el" ;;;;;; "emacs-lisp/eieio-speedbar.el" "emacs-lisp/generator.el" ;;;;;; "emacs-lisp/lisp-mnt.el" "emacs-lisp/package-x.el" "emacs-lisp/smie.el" @@ -32537,18 +32602,26 @@ Zone out, completely. ;;;;;; "gnus/nnweb.el" "gnus/registry.el" "gnus/rfc1843.el" "gnus/rfc2045.el" ;;;;;; "gnus/rfc2047.el" "gnus/rfc2231.el" "gnus/rtree.el" "gnus/sieve-manage.el" ;;;;;; "gnus/smime.el" "gnus/spam-stat.el" "gnus/spam-wash.el" "hex-util.el" -;;;;;; "hfy-cmap.el" "ibuf-ext.el" "international/charscript.el" +;;;;;; "hfy-cmap.el" "ibuf-ext.el" "international/charprop.el" "international/charscript.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/programmer-dvorak.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/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/programmer-dvorak.el" ;;;;;; "leim/quail/py-punct.el" "leim/quail/pypunct-b5.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/tamil-dvorak.el" "leim/quail/thai.el" @@ -32629,7 +32702,7 @@ Zone out, completely. ;;;;;; "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") (22309 59446 538986 699000)) +;;;;;; "x-dnd.el") (22331 19288 214877 938000)) ;;;*** commit 06cb28ff3f24a29fa140d8af747d10abeed44293 Author: Alan Third Date: Mon May 16 20:37:23 2016 +0200 Fix bug#23462: Crash when iconifying frame on OS X. * src/nsterm.m (x_iconify_frame): Block input while miniaturize is running. diff --git a/src/nsterm.m b/src/nsterm.m index 34c5395..e6a10b8 100644 --- a/src/nsterm.m +++ b/src/nsterm.m @@ -1612,7 +1612,12 @@ static void hide_bell () [[view window] orderOut: NSApp]; [[view window] setFrame: t display: NO]; } + + /* Processing input while Emacs is being minimized can cause a + crash, so block it for the duration. */ + block_input(); [[view window] miniaturize: NSApp]; + unblock_input(); } /* Free X resources of frame F. */ commit 9ca5dbf947a7421d37b3e2d2bc6b8d2c9218bc65 Author: Paul Eggert Date: Mon May 16 10:05:19 2016 -0700 Avoid shrinking windows with Gtk+ 3.20.3 Problem reported by Matthias Clasen (Bug#23144). This was fixed in a different way in master. Do not merge to master. * src/xterm.c (handle_one_xevent) [GTK_CHECK_VERSION (3, 20, 3)]: Do not call xg_frame_resized in the MapNotify case. diff --git a/src/xterm.c b/src/xterm.c index 2f8e077..c64c174 100644 --- a/src/xterm.c +++ b/src/xterm.c @@ -7897,7 +7897,13 @@ handle_one_xevent (struct x_display_info *dpyinfo, record_asynch_buffer_change (); #ifdef USE_GTK + /* xg_frame_resized does the wrong thing with Gtk+ 3.20.3 or later. + For earlier Gtk+ versions it is unclear whether + xg_frame_resized is useful, so leave it in for now. + See Bug#23144. */ +# if ! GTK_CHECK_VERSION (3, 20, 3) xg_frame_resized (f, -1, -1); +# endif #endif } goto OTHER; commit 939eb753d521830cd931b45d72a745f1dd85ec09 Author: Eli Zaretskii Date: Mon May 16 18:14:54 2016 +0300 Fix bug in default setting of 'ps-paper-type' * lisp/international/mule-cmds.el (set-locale-environment): Don't inherit the value of locale from previous examination of different environment variables, which didn't look at LC_PAPER, and so using that value would effectively ignore the setting of LC_PAPER. (Bug#23544) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 001aad1..e7c7049 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -2733,8 +2733,8 @@ See also `locale-charset-language-names', `locale-language-names', ;; Default to A4 paper if we're not in a C, POSIX or US locale. ;; (See comments in Flocale_info.) (unless frame - (let ((locale locale) - (paper (locale-info 'paper))) + (let ((paper (locale-info 'paper)) + locale) (if paper ;; This will always be null at the time of writing. (cond