diff options
Diffstat (limited to 'lisp')
35 files changed, 748 insertions, 517 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8b92eab8579..6a4d4b9cc9c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,70 @@ +2011-08-03 Stefan Monnier <monnier@iro.umontreal.ca> + + * progmodes/sh-script.el (sh-font-lock-paren): Don't mistake "main" for + "in" (bug#9190). + +2011-08-02 Lars Magne Ingebrigtsen <larsi@gnus.org> + + * mail/sendmail.el (sendmail-query-once): Restore the current + buffer after querying (bug#9074). + + * dired.el (dired-flagged): Use different faces for marked and + flagged files (bug#6117). + + * emacs-lisp/cl-macs.el (dolist): Mention that there's a nil block + (bug#4433). + + * ido.el (ido-mode): Switch off the message if called + non-interactively. + + * mail/smtpmail.el (smtpmail-query-smtp-server): Try port 25 + before 587, since it appears that that's more likely to work for + more people. + + * cus-edit.el (custom-file): When running under emacs -q, always + refuse to save the customisations, even if the .emacs file doesn't + exist. + + * info.el: Remove the `Info-beginning-of-buffer' function + (bug#8325). + + * net/network-stream.el (network-stream-open-starttls): + Use `starttls-available-p' to see whether starttls.el can be used. + +2011-08-01 Martin Rudalics <rudalics@gmx.at> + + * window.el (display-buffer-in-window): Don't set dedicated status + of window here (Bug#9215). + (display-buffer-pop-up-window, display-buffer-pop-up-frame) + (display-buffer-pop-up-side-window) + (display-buffer-in-side-window): Set dedicated status of window here. + +2011-08-01 Stefan Monnier <monnier@iro.umontreal.ca> + + * emacs-lisp/package.el (package-generate-autoloads): Load autoloads + before binding generated-autoload-file. + +2011-08-01 Deniz Dogan <deniz@dogan.se> + + * net/rcirc.el (rcirc-handler-333): Clarify docstring. + +2011-07-30 Michael Albinus <michael.albinus@gmx.de> + + Sync with Tramp 2.2.2. + + * net/trampver.el: Update release number. + +2011-07-30 Juri Linkov <juri@jurta.org> + + * dired-aux.el (dired-touch-initial): Remove function. + (dired-do-chxxx): For op-symbol `touch', set `initial' to the + current time, and `default' to the last modification time of the + current marked file (bug#6887). + 2011-07-28 Jose E. Marchesi <jemarch@gnu.org> * simple.el (goto-line): Use string-to-number to provide a - numeric argument to read-number. + numeric argument to read-number (bug#9163). 2011-07-27 Michael Albinus <michael.albinus@gmx.de> @@ -28,8 +91,8 @@ QT keyword "more" to prevent "more slots: ...." being spuriously parsed as a bitfield declaraion. - * progmodes/cc-engine.el (c-beginning-of-statement-1): Refactor - and enhance to handle bitfield declarations. + * progmodes/cc-engine.el (c-beginning-of-statement-1): + Refactor and enhance to handle bitfield declarations. (c-punctuation-in): New function. (c-forward-decl-or-cast-1): Enhance CASE 3 to handle bitfield declarations properly. @@ -38,7 +101,7 @@ * calendar/icalendar.el (icalendar--all-events): Take care of multiple vcalendars in a single file. - (icalendar--convert-float-to-ical): checkdoc fixes. + (icalendar--convert-float-to-ical): Checkdoc fixes. 2011-07-25 Deniz Dogan <deniz@dogan.se> @@ -72,8 +135,7 @@ (display-buffer-pop-up-side-window) (display-buffer-in-side-window): Call display-buffer-set-height and display-buffer-set-width after setting the new window's - buffer so `fit-window-to-buffer' and friends work on the right - buffer. + buffer so `fit-window-to-buffer' and friends work on the right buffer. 2011-07-20 Sam Steingold <sds@gnu.org> @@ -105,8 +167,8 @@ 2011-07-19 Martin Rudalics <rudalics@gmx.at> * window.el (display-buffer-alist-of-strings-p) - (display-buffer-alist-set-1, display-buffer-alist-set-2): New - functions. + (display-buffer-alist-set-1, display-buffer-alist-set-2): + New functions. (display-buffer-alist-set): Rewrite to handle Emacs 23 options more accurately. @@ -117,8 +179,8 @@ * progmodes/cc-langs.el (c-symbol-chars): Correct a typo. - * progmodes/cc-fonts.el (c-font-lock-enclosing-decls): New - function. + * progmodes/cc-fonts.el (c-font-lock-enclosing-decls): + New function. (c-complex-decl-matchers): Insert reference to c-font-lock-enclosing-decls. @@ -137,7 +199,7 @@ 2011-07-16 Lars Magne Ingebrigtsen <larsi@gnus.org> - * net/gnutls.el (gnutls-log-level): Removed. + * net/gnutls.el (gnutls-log-level): Remove. * textmodes/fill.el (adaptive-fill-regexp): Include EN DASH as an indentation character (bug#6380). @@ -159,11 +221,10 @@ 2011-07-16 Martin Rudalics <rudalics@gmx.at> - * frame.el (select-frame-set-input-focus): New argument - NORECORD. + * frame.el (select-frame-set-input-focus): New argument NORECORD. * window.el (pop-to-buffer): Select window used even if it was - selected before, see discussion of (Bug#8615), (Bug#6954). Pass - argument NORECORD on to select-frame-set-input-focus. + selected before, see discussion of (Bug#8615), (Bug#6954). + Pass argument NORECORD on to select-frame-set-input-focus. 2011-07-15 Glenn Morris <rgm@gnu.org> @@ -177,8 +238,8 @@ 2011-07-15 Lars Magne Ingebrigtsen <larsi@gnus.org> - * net/gnutls.el (gnutls-negotiate): Upcase - `gnutls-algorithm-priority'. + * net/gnutls.el (gnutls-negotiate): + Upcase `gnutls-algorithm-priority'. 2011-07-15 Glenn Morris <rgm@gnu.org> @@ -259,9 +320,9 @@ * printing.el (pr-toggle-region): Clarify the documentation slightly (bug#7493). - * time.el (display-time-update): Allow - `display-time-mail-function' to return nil (bug#7158). Fix - suggested by Detlev Zundel. + * time.el (display-time-update): + Allow `display-time-mail-function' to return nil (bug#7158). + Fix suggested by Detlev Zundel. * vc/diff.el (diff): Clarify the order the file names are read (bug#7111). @@ -277,8 +338,8 @@ 2011-07-14 Martin Rudalics <rudalics@gmx.at> - * window.el (display-buffer-normalize-special): Replace - `dedicated' by `dedicate' to dedicate window (Bug#9072). + * window.el (display-buffer-normalize-special): + Replace `dedicated' by `dedicate' to dedicate window (Bug#9072). 2011-07-14 Eli Zaretskii <eliz@gnu.org> @@ -299,7 +360,7 @@ switch-to-buffer. * net/tramp-compat.el (tramp-compat-pop-to-buffer-same-window): - Deleted. + Delete. 2011-07-14 Juanma Barranquero <lekktu@gmail.com> @@ -317,8 +378,8 @@ 2011-07-13 Chong Yidong <cyd@stupidchicken.com> - * window.el (switch-to-buffer): New arg FORCE-SAME-WINDOW. Use - pop-to-buffer buffer-or-name if it is nil. + * window.el (switch-to-buffer): New arg FORCE-SAME-WINDOW. + Use pop-to-buffer buffer-or-name if it is nil. * emacs-lisp/bytecomp.el (byte-compile-interactive-only-functions): Remove switch-to-buffer. @@ -343,8 +404,8 @@ 2011-07-13 Lars Magne Ingebrigtsen <larsi@gnus.org> - * progmodes/cperl-mode.el (cperl-syntaxify-by-font-lock): Rewrite - to avoid awkward possessive "s" (bug#5986). + * progmodes/cperl-mode.el (cperl-syntaxify-by-font-lock): + Rewrite to avoid awkward possessive "s" (bug#5986). 2011-07-13 Glenn Morris <rgm@gnu.org> @@ -438,15 +499,15 @@ 2011-07-12 Roland Winkler <winkler@gnu.org> - * textmodes/bibtex.el (bibtex-initialize): Use - pop-to-buffer-same-window. + * textmodes/bibtex.el (bibtex-initialize): + Use pop-to-buffer-same-window. (bibtex-search-entries): Fix interactive call. 2011-07-12 Lars Magne Ingebrigtsen <larsi@gnus.org> * progmodes/compile.el (compilation-error-regexp-alist-alist): - Fontise bytecomp Error lines more correctly (bug#2490). Fix - suggested by Johan Bockgård. + Fontise bytecomp Error lines more correctly (bug#2490). + Fix suggested by Johan Bockgård. * subr.el (remove-duplicates): Remove; `delete-dups' is sufficient. @@ -459,8 +520,8 @@ 2011-07-11 Lars Magne Ingebrigtsen <larsi@gnus.org> - * mail/sendmail.el (sendmail-query-once): Use - `customize-save-variable' unconditionally, now that it works under + * mail/sendmail.el (sendmail-query-once): + Use `customize-save-variable' unconditionally, now that it works under emacs -Q. * mail/smtpmail.el (smtpmail-query-smtp-server): Ditto. @@ -525,16 +586,15 @@ 2011-07-09 Bob Nnamtrop <bobnnamtrop@gmail.com> (tiny change) - * emulation/viper-cmd.el (viper-change-state-to-vi): Limit - triggering of abbrev expansion (Bug#9038). + * emulation/viper-cmd.el (viper-change-state-to-vi): + Limit triggering of abbrev expansion (Bug#9038). 2011-07-09 Martin Rudalics <rudalics@gmx.at> * window.el (display-buffer-default-specifiers): Remove. (display-buffer-macro-specifiers): Remove default specifiers. (display-buffer-alist): Default to nil. - (display-buffer-reuse-window): New optional argument - other-window. + (display-buffer-reuse-window): New optional argument other-window. (display-buffer-pop-up-window): Allow splitting internal windows. Check whether a live window was created. (display-buffer-other-window-means-other-frame) @@ -549,11 +609,10 @@ (display-buffer): Process other-window specifier and call display-buffer-reuse-window with it. Emulate Emacs 23 behavior more faithfully. - (pop-up-windows, even-window-heights): Restore Emacs 23 default - values. + (pop-up-windows, even-window-heights): Restore Emacs 23 default values. (display-buffer-alist-set): Don't handle 'unset default values. - (display-buffer-in-window, display-buffer-alist-set): Replace - symbol "dedicated" by "dedicate". Reported by Tassilo Horn + (display-buffer-in-window, display-buffer-alist-set): + Replace symbol "dedicated" by "dedicate". Reported by Tassilo Horn <tassilo@member.fsf.org>. 2011-07-09 Leo Liu <sdl.web@gmail.com> diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index 60d7690a3c8..093e592c475 100644 --- a/lisp/cedet/ChangeLog +++ b/lisp/cedet/ChangeLog @@ -1,3 +1,8 @@ +2011-07-30 Chong Yidong <cyd@stupidchicken.com> + + * semantic/grammar.el (semantic-grammar-insert-defanalyzers): Fix + require. + 2011-07-04 Darren Hoo <darren.hoo@gmail.com> (tiny change) * semantic/db.el (semanticdb-file-table-object): Don't bug out on diff --git a/lisp/cedet/semantic/bovine/c-by.el b/lisp/cedet/semantic/bovine/c-by.el index 8e1fe8d3617..31489a4f625 100644 --- a/lisp/cedet/semantic/bovine/c-by.el +++ b/lisp/cedet/semantic/bovine/c-by.el @@ -19,8 +19,7 @@ ;;; Commentary: ;; -;; This file was generated from the grammar file semantic/bovine/c.by -;; in the CEDET repository. +;; This file was generated from etc/grammars/c.by. ;;; Code: diff --git a/lisp/cedet/semantic/bovine/make-by.el b/lisp/cedet/semantic/bovine/make-by.el index 3cc4e5b23a3..41da728d537 100644 --- a/lisp/cedet/semantic/bovine/make-by.el +++ b/lisp/cedet/semantic/bovine/make-by.el @@ -19,8 +19,7 @@ ;;; Commentary: ;; -;; This file was generated from the grammar file -;; semantic/bovine/make.by in the CEDET repository. +;; This file was generated from etc/grammars/make.by. ;;; Code: diff --git a/lisp/cedet/semantic/bovine/scm-by.el b/lisp/cedet/semantic/bovine/scm-by.el index 87efe747a4c..8dd170384bc 100644 --- a/lisp/cedet/semantic/bovine/scm-by.el +++ b/lisp/cedet/semantic/bovine/scm-by.el @@ -19,8 +19,7 @@ ;;; Commentary: ;; -;; This file was generated from the grammar file -;; semantic/bovine/scm.by in the CEDET repository. +;; This file was generated from etc/grammars/scm.by. ;;; Code: diff --git a/lisp/cedet/semantic/grammar.el b/lisp/cedet/semantic/grammar.el index 270668e2959..1d1184e534f 100644 --- a/lisp/cedet/semantic/grammar.el +++ b/lisp/cedet/semantic/grammar.el @@ -801,7 +801,7 @@ Block definitions are read from the current table of lexical types." (with-current-buffer semantic--grammar-input-buffer (setq tokens (semantic-grammar-tokens) props (semantic-grammar-token-properties tokens))) - (insert "(require 'semantic-lex)\n\n") + (insert "(require 'semantic/lex)\n\n") (let ((semantic-lex-types-obarray (semantic-lex-make-type-table tokens props)) semantic-grammar--lex-block-specs) diff --git a/lisp/cedet/semantic/wisent/javat-wy.el b/lisp/cedet/semantic/wisent/javat-wy.el index adea4ef6932..38c19387440 100644 --- a/lisp/cedet/semantic/wisent/javat-wy.el +++ b/lisp/cedet/semantic/wisent/javat-wy.el @@ -19,8 +19,7 @@ ;;; Commentary: ;; -;; This file was generated from the grammar file -;; semantic/wisent/wisent-java-tags.wy in the CEDET repository. +;; This file was generated from etc/java-tags.wy. ;;; Code: diff --git a/lisp/cedet/semantic/wisent/js-wy.el b/lisp/cedet/semantic/wisent/js-wy.el index e982caf4485..b523db8771b 100644 --- a/lisp/cedet/semantic/wisent/js-wy.el +++ b/lisp/cedet/semantic/wisent/js-wy.el @@ -1,6 +1,7 @@ ;;; semantic/wisent/js-wy.el --- Generated parser support file ;; Copyright (C) 2005, 2009-2011 Free Software Foundation, Inc. +;; Copyright (C) Ecma International. ;; This file is part of GNU Emacs. @@ -19,8 +20,7 @@ ;;; Commentary: ;; -;; This file was generated from the grammar file -;; semantic/wisent/wisent-javascript-jv.wy in the CEDET repository. +;; This file was generated from etc/grammars/javascript-jv.wy. ;;; Code: (require 'semantic/lex) diff --git a/lisp/cedet/semantic/wisent/python-wy.el b/lisp/cedet/semantic/wisent/python-wy.el index 3a69078b02c..36965757a14 100644 --- a/lisp/cedet/semantic/wisent/python-wy.el +++ b/lisp/cedet/semantic/wisent/python-wy.el @@ -1,6 +1,7 @@ ;;; semantic/wisent/python-wy.el --- Generated parser support file ;; Copyright (C) 2002-2004, 2007, 2010-2011 Free Software Foundation, Inc. +;; Copyright (C) 2001-2010 Python Software Foundation ;; This file is part of GNU Emacs. @@ -19,8 +20,7 @@ ;;; Commentary: ;; -;; This file was generated from the grammar file -;; semantic/wisent/wisent-python.wy in the CEDET repository. +;; This file was generated from etc/grammars/python.wy. ;;; Code: diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index d443d6c160c..3e41a304f43 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -4409,25 +4409,14 @@ if only the first line of the docstring is shown.")) (defun custom-file (&optional no-error) "Return the file name for saving customizations." - (let ((file - (or custom-file - (let ((user-init-file user-init-file) - (default-init-file - (if (eq system-type 'ms-dos) "~/_emacs" "~/.emacs"))) - (when (null user-init-file) - (if (or (file-exists-p default-init-file) - (and (eq system-type 'windows-nt) - (file-exists-p "~/_emacs"))) - ;; Started with -q, i.e. the file containing - ;; Custom settings hasn't been read. Saving - ;; settings there would overwrite other settings. - (if no-error - nil - (error "Saving settings from \"emacs -q\" would overwrite existing customizations")) - (setq user-init-file default-init-file))) - user-init-file)))) - (and file - (file-chase-links file)))) + (if (null user-init-file) + ;; Started with -q, i.e. the file containing Custom settings + ;; hasn't been read. Saving settings there won't make much + ;; sense. + (if no-error + nil + (error "Saving settings from \"emacs -q\" would overwrite existing customizations")) + (file-chase-links (or custom-file user-init-file)))) ;; If recentf-mode is non-nil, this is defined. (declare-function recentf-expand-file-name "recentf" (name)) diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 3103fbd5a7f..ec157fc4939 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -226,34 +226,28 @@ List has a form of (file-name full-file-name (attribute-list))." (file-attributes full-file-name)))) (directory-files dir))) - -(defun dired-touch-initial (files) - "Create initial input value for `touch' command." - ;; Nobody can explain what this version is supposed to do. (Bug#6887) - ;; Also, the manual says it uses "the present time". - ;;; (let (initial) - ;;; (while files - ;;; (let ((current (nth 5 (file-attributes (car files))))) - ;;; (if (and initial (not (equal initial current))) - ;;; (setq initial (current-time) files nil) - ;;; (setq initial current)) - ;;; (setq files (cdr files)))) - ;;; (format-time-string "%Y%m%d%H%M.%S" initial))) - (format-time-string "%Y%m%d%H%M.%S" (current-time))) +;;; Change file attributes (defun dired-do-chxxx (attribute-name program op-symbol arg) - ;; Change file attributes (mode, group, owner, timestamp) of marked files and + ;; Change file attributes (group, owner, timestamp) of marked files and ;; refresh their file lines. ;; ATTRIBUTE-NAME is a string describing the attribute to the user. ;; PROGRAM is the program used to change the attribute. - ;; OP-SYMBOL is the type of operation (for use in dired-mark-pop-up). - ;; ARG describes which files to use, as in dired-get-marked-files. + ;; OP-SYMBOL is the type of operation (for use in `dired-mark-pop-up'). + ;; ARG describes which files to use, as in `dired-get-marked-files'. (let* ((files (dired-get-marked-files t arg)) + (initial + (if (eq op-symbol 'touch) + (format-time-string "%Y%m%d%H%M.%S"))) + (default + (if (eq op-symbol 'touch) + (and (stringp (car files)) + (format-time-string "%Y%m%d%H%M.%S" + (nth 5 (file-attributes (car files))))))) (new-attribute (dired-mark-read-string (concat "Change " attribute-name " of %s to: ") - (if (eq op-symbol 'touch) (dired-touch-initial files)) - op-symbol arg files)) + initial op-symbol arg files default)) (operation (concat program " " new-attribute)) failures) (setq failures diff --git a/lisp/dired.el b/lisp/dired.el index 01d41bba27d..746c16ff148 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -350,7 +350,7 @@ Subexpression 2 must end right before the \\n or \\r.") "Face name used for marked files.") (defface dired-flagged - '((t (:inherit font-lock-warning-face))) + '((t (:inherit font-lock-variable-name-face))) "Face used for files flagged for deletion." :group 'dired-faces :version "22.1") @@ -3663,7 +3663,7 @@ Ask means pop up a menu for the user to select one of copy, move or link." ;;;;;; dired-run-shell-command dired-do-shell-command dired-do-async-shell-command ;;;;;; dired-clean-directory dired-do-print dired-do-touch dired-do-chown ;;;;;; dired-do-chgrp dired-do-chmod dired-compare-directories dired-backup-diff -;;;;;; dired-diff) "dired-aux" "dired-aux.el" "ab62f310329f404f96a29e4f0ab8df73") +;;;;;; dired-diff) "dired-aux" "dired-aux.el" "bbb53a5b6bf56c413fe0f898559bef8d") ;;; Generated autoloads from dired-aux.el (autoload 'dired-diff "dired-aux" "\ diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index d6b4643d6a4..6d242eda3ab 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -1233,6 +1233,7 @@ Valid clauses are: "Loop over a list. Evaluate BODY with VAR bound to each `car' from LIST, in turn. Then evaluate RESULT to get return value, default nil. +An implicit nil block is established around the loop. \(fn (VAR LIST [RESULT]) BODY...)" (let ((temp (make-symbol "--cl-dolist-temp--"))) diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index e42103a7a01..19e8375966b 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -570,11 +570,11 @@ EXTRA-PROPERTIES is currently unused." file) (defun package-generate-autoloads (name pkg-dir) + (require 'autoload) ;Load before we let-bind generated-autoload-file! (let* ((auto-name (concat name "-autoloads.el")) (ignore-name (concat name "-pkg.el")) (generated-autoload-file (expand-file-name auto-name pkg-dir)) (version-control 'never)) - (require 'autoload) (unless (fboundp 'autoload-ensure-default-file) (package-autoload-ensure-default-file generated-autoload-file)) (update-directory-autoloads pkg-dir))) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index f90e180b128..e88b5154c76 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,50 @@ +2011-08-02 Andrew Cohen <cohen@andy.bu.edu> + + * nnir.el (nnir-search-thread): Position point on referring article + line. + (nnir-warp-to-article): Clean up summary buffers. + + * nnimap.el (nnimap-request-thread): Whitespace fix. + +2011-08-02 Steve Purcell <steve@sanityinc.com> (tiny change) + + * nnimap.el (nnimap-get-groups): Decode "&" correctly. + +2011-08-02 Lars Magne Ingebrigtsen <larsi@gnus.org> + + * starttls.el (starttls-available-p): Renamed from + `starttls-any-program-available' and changed return convention. + +2011-07-31 Lars Ingebrigtsen <larsi@gnus.org> + + * nnmaildir.el (nnmaildir-request-accept-article): Don't call + `unix-sync' unless it's defined. + +2011-07-31 Marcus Harnisch <marcus.harnisch@gmx.net> (tiny change) + + * gnus-art.el (gnus-article-stop-animations): Use `elt' instead of + `aref' for XEmacs compatibiltiy. + +2011-07-31 Lars Magne Ingebrigtsen <larsi@gnus.org> + + * spam.el (spam-fetch-field-fast): Rewrite slightly for clarity. + +2011-07-31 Dave Abrahams <dave@boostpro.com> (tiny change) + + * gnus-sum.el (gnus-summary-refer-thread): Since lambdas aren't + closures, quote the form properly (bug#9194). + +2011-07-31 Lars Magne Ingebrigtsen <larsi@gnus.org> + + * gnus-sum.el (gnus-summary-insert-new-articles): Clean up slightly. + (gnus-summary-insert-new-articles): Protect against servers that are + down. + +2011-07-29 Daniel Dehennin <daniel.dehennin@baby-gnu.org> + + * mm-decode.el (mm-dissect-buffer): Add a default content-disposition + in mm handle if none is specified. + 2011-07-24 Andrew Cohen <cohen@andy.bu.edu> * nnimap.el (nnimap-make-thread-query): Quote message-ids for gmail. diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index c29000f4691..28c6aca367c 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -4541,7 +4541,7 @@ commands: (defun gnus-article-stop-animations () (dolist (timer (and (boundp 'timer-list) timer-list)) - (when (eq (aref timer 5) 'image-animate-timeout) + (when (eq (elt timer 5) 'image-animate-timeout) (cancel-timer timer)))) ;; Set article window start at LINE, where LINE is the number of lines diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 5917c9d7cef..a8cf5e7c427 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -9015,9 +9015,9 @@ non-numeric or nil fetch the number specified by the (refs (split-string (or (mail-header-references header) ""))) (gnus-parse-headers-hook - (lambda () (goto-char (point-min)) + `(lambda () (goto-char (point-min)) (keep-lines - (regexp-opt (append refs (list id subject))))))) + (regexp-opt ',(append refs (list id subject))))))) (gnus-fetch-headers (list last) (if (numberp limit) (* 2 limit) limit) t))))) (when (listp new-headers) @@ -12851,26 +12851,26 @@ If ALL is a number, fetch this number of articles." (defun gnus-summary-insert-new-articles () "Insert all new articles in this group." (interactive) - (prog1 - (let ((old (sort (mapcar 'car gnus-newsgroup-data) '<)) - (old-high gnus-newsgroup-highest) - (nnmail-fetched-sources (list t)) - i new) - (setq gnus-newsgroup-active - (gnus-copy-sequence - (gnus-activate-group gnus-newsgroup-name 'scan))) - (setq i (cdr gnus-newsgroup-active) - gnus-newsgroup-highest i) - (while (> i old-high) - (push i new) - (decf i)) - (if (not new) - (message "No gnus is bad news") - (gnus-summary-insert-articles new) - (setq gnus-newsgroup-unreads - (gnus-sorted-nunion gnus-newsgroup-unreads new)) - (gnus-summary-limit (gnus-sorted-nunion old new)))) - (gnus-summary-position-point))) + (let ((old (sort (mapcar 'car gnus-newsgroup-data) '<)) + (old-high gnus-newsgroup-highest) + (nnmail-fetched-sources (list t)) + (new-active (gnus-activate-group gnus-newsgroup-name 'scan)) + i new) + (unless new-active + (error "Couldn't fetch new data")) + (setq gnus-newsgroup-active (gnus-copy-sequence new-active)) + (setq i (cdr gnus-newsgroup-active) + gnus-newsgroup-highest i) + (while (> i old-high) + (push i new) + (decf i)) + (if (not new) + (message "No gnus is bad news") + (gnus-summary-insert-articles new) + (setq gnus-newsgroup-unreads + (gnus-sorted-nunion gnus-newsgroup-unreads new)) + (gnus-summary-limit (gnus-sorted-nunion old new)))) + (gnus-summary-position-point)) ;;; Bookmark support for Gnus. (declare-function bookmark-make-record-default diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index a51c6630ac5..692175d471f 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -564,7 +564,13 @@ Postpone undisplaying of viewers for types in (setq ct (mail-fetch-field "content-type") ctl (and ct (mail-header-parse-content-type ct)) cte (mail-fetch-field "content-transfer-encoding") - cd (mail-fetch-field "content-disposition") + cd (or (mail-fetch-field "content-disposition") + (when (and ctl + (eq 'mm-inline-text + (cadr (mm-assoc-string-match + mm-inline-media-tests + (car ctl))))) + "inline")) ;; Newlines in description should be stripped so as ;; not to break the MIME tag into two or more lines. description (message-fetch-field "content-description") diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index 52de48869d8..f41f4af71b4 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el @@ -1107,9 +1107,9 @@ textual parts.") (separator (read (current-buffer))) (group (read (current-buffer)))) (unless (member '%NoSelect flags) - (push (if (stringp group) - group - (format "%s" group)) + (push (utf7-decode (if (stringp group) + group + (format "%s" group)) t) groups)))) (nreverse groups))) @@ -1168,7 +1168,7 @@ textual parts.") (nnimap-get-groups))) (unless (assoc group nnimap-current-infos) ;; Insert dummy numbers here -- they don't matter. - (insert (format "%S 0 1 y\n" group)))) + (insert (format "%S 0 1 y\n" (utf7-encode group))))) t))) (deffoo nnimap-retrieve-group-data-early (server infos) @@ -1566,7 +1566,7 @@ textual parts.") (articles &optional limit force-new dependencies)) (deffoo nnimap-request-thread (header &optional group server) - (if gnus-refer-thread-use-nnir + (if gnus-refer-thread-use-nnir (nnir-search-thread header) (when (nnimap-possibly-change-group group server) (let* ((cmd (nnimap-make-thread-query header)) diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el index e6420a4d7bb..d35e6560e71 100644 --- a/lisp/gnus/nnir.el +++ b/lisp/gnus/nnir.el @@ -767,11 +767,18 @@ Add an entry here when adding a new search engine.") (deffoo nnir-warp-to-article () (let* ((cur (if (> (gnus-summary-article-number) 0) (gnus-summary-article-number) - (error "This is not a real article."))) - (gnus-newsgroup-name (nnir-article-group cur)) - (backend-number (nnir-article-number cur))) - (gnus-summary-read-group-1 gnus-newsgroup-name t t gnus-summary-buffer - nil (list backend-number)))) + (error "This is not a real article"))) + (backend-article-group (nnir-article-group cur)) + (backend-article-number (nnir-article-number cur)) + (quit-config (gnus-ephemeral-group-p gnus-newsgroup-name))) + ;; first exit from the nnir summary buffer. + (gnus-summary-exit) + ;; and if the nnir summary buffer in turn came from another + ;; summary buffer we have to clean that summary up too. + (when (eq (cdr quit-config) 'summary) + (gnus-summary-exit)) + (gnus-summary-read-group-1 backend-article-group t t nil + nil (list backend-article-number)))) (nnoo-define-skeleton nnir) @@ -1659,7 +1666,8 @@ server is of form 'backend:name'." (cons 'server (gnus-method-to-server (gnus-find-method-for-group gnus-newsgroup-name)))))) - (gnus-group-make-nnir-group nil parm))) + (gnus-group-make-nnir-group nil parm) + (gnus-summary-goto-subject (gnus-id-to-article (mail-header-id header))))) ;; unused? (defun nnir-artlist-groups (artlist) diff --git a/lisp/gnus/nnmaildir.el b/lisp/gnus/nnmaildir.el index 8e2cd4bdde3..bbace7c784a 100644 --- a/lisp/gnus/nnmaildir.el +++ b/lisp/gnus/nnmaildir.el @@ -1381,7 +1381,8 @@ by nnmaildir-request-article.") (error (gmm-write-region (point-min) (point-max) tmpfile nil 'no-message nil 'excl) - (unix-sync))) ;; no fsync :( + (when (fboundp 'unix-sync) + (unix-sync)))) ;; no fsync :( (nnheader-cancel-timer 24h) (condition-case err (add-name-to-file tmpfile curfile) diff --git a/lisp/gnus/spam.el b/lisp/gnus/spam.el index 33dbaaa1f0c..c7f993d7293 100644 --- a/lisp/gnus/spam.el +++ b/lisp/gnus/spam.el @@ -1581,31 +1581,31 @@ to find it out)." (when (numberp article) (let* ((data-header (or prepared-data-header (spam-fetch-article-header article)))) - (if (arrayp data-header) - (cond - ((equal field 'number) - (mail-header-number data-header)) - ((equal field 'from) - (mail-header-from data-header)) - ((equal field 'message-id) - (mail-header-message-id data-header)) - ((equal field 'subject) - (mail-header-subject data-header)) - ((equal field 'references) - (mail-header-references data-header)) - ((equal field 'date) - (mail-header-date data-header)) - ((equal field 'xref) - (mail-header-xref data-header)) - ((equal field 'extra) - (mail-header-extra data-header)) - (t - (gnus-error - 5 - "spam-fetch-field-fast: unknown field %s requested" - field) - nil)) - (gnus-message 6 "Article %d has a nil data header" article))))) + (cond + ((not (arrayp data-header)) + (gnus-message 6 "Article %d has a nil data header" article)) + ((equal field 'number) + (mail-header-number data-header)) + ((equal field 'from) + (mail-header-from data-header)) + ((equal field 'message-id) + (mail-header-message-id data-header)) + ((equal field 'subject) + (mail-header-subject data-header)) + ((equal field 'references) + (mail-header-references data-header)) + ((equal field 'date) + (mail-header-date data-header)) + ((equal field 'xref) + (mail-header-xref data-header)) + ((equal field 'extra) + (mail-header-extra data-header)) + (t + (gnus-error + 5 + "spam-fetch-field-fast: unknown field %s requested" + field) + nil))))) (defun spam-fetch-field-from-fast (article &optional prepared-data-header) (spam-fetch-field-fast article 'from prepared-data-header)) diff --git a/lisp/gnus/starttls.el b/lisp/gnus/starttls.el index 4b4839a4df2..c1caca90cf0 100644 --- a/lisp/gnus/starttls.el +++ b/lisp/gnus/starttls.el @@ -295,18 +295,11 @@ GNUTLS requires a port number." (starttls-set-process-query-on-exit-flag process nil) process))) -(defun starttls-any-program-available () - (let ((program (if starttls-use-gnutls - starttls-gnutls-program - starttls-program))) - (condition-case () - (progn - (call-process program) - program) - (error (progn - (message "No STARTTLS program was available (tried '%s')" - program) - nil))))) +(defun starttls-available-p () + "Say whether the STARTTLS programs are available." + (executable-find (if starttls-use-gnutls + starttls-gnutls-program + starttls-program))) (provide 'starttls) diff --git a/lisp/ido.el b/lisp/ido.el index b50ddcc1254..4086000e3e9 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -1557,7 +1557,8 @@ This function also adds a hook to the minibuffer." (setq ido-minor-mode-map-entry (cons 'ido-mode map)) (add-to-list 'minor-mode-map-alist ido-minor-mode-map-entry)))) - (message "Ido mode %s" (if ido-mode "enabled" "disabled"))) + (when (called-interactively-p 'any) + (message "Ido mode %s" (if ido-mode "enabled" "disabled")))) ;;; IDO KEYMAP diff --git a/lisp/info.el b/lisp/info.el index a4826ee8c2c..447c86b3e9e 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -2789,11 +2789,6 @@ N is the digit argument used to invoke this command." (goto-char (point-max))))) (t (error "No previous nodes")))) -(defun Info-beginning-of-buffer () - "Go to the beginnning of the buffer." - (interactive) - (goto-char (point-min))) - (defun Info-scroll-up () "Scroll one screenful forward in Info, considering all nodes as one sequence. Once you scroll far enough in a node that its menu appears on the screen @@ -3655,7 +3650,7 @@ If FORK is non-nil, it is passed to `Info-goto-node'." (defvar Info-mode-map (let ((map (make-keymap))) (suppress-keymap map) - (define-key map "." 'Info-beginning-of-buffer) + (define-key map "." 'beginning-of-buffer) (define-key map " " 'Info-scroll-up) (define-key map "\C-m" 'Info-follow-nearest-node) (define-key map "\t" 'Info-next-reference) @@ -3676,8 +3671,8 @@ If FORK is non-nil, it is passed to `Info-goto-node'." (define-key map "[" 'Info-backward-node) (define-key map "<" 'Info-top-node) (define-key map ">" 'Info-final-node) - (define-key map "b" 'Info-beginning-of-buffer) - (put 'Info-beginning-of-buffer :advertised-binding "b") + (define-key map "b" 'beginning-of-buffer) + (put 'beginning-of-buffer :advertised-binding "b") (define-key map "d" 'Info-directory) (define-key map "e" 'Info-edit) (define-key map "f" 'Info-follow-reference) @@ -3731,7 +3726,7 @@ If FORK is non-nil, it is passed to `Info-goto-node'." :help "Go backward one node, considering all as a sequence"] ["Forward" Info-forward-node :help "Go forward one node, considering all as a sequence"] - ["Beginning" Info-beginning-of-buffer + ["Beginning" beginning-of-buffer :help "Go to beginning of this node"] ["Top" Info-top-node :help "Go to top node of file"] @@ -3937,7 +3932,7 @@ Moving within a node: \\[Info-scroll-down] Normally, scroll backward. If the beginning of the buffer is already visible, try to go to the previous menu entry, or up if there is none. -\\[Info-beginning-of-buffer] Go to beginning of node. +\\[beginning-of-buffer] Go to beginning of node. Advanced commands: \\[Info-search] Search through this Info file for specified regexp, diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index 75de9a9f9b2..bf3d2ddb154 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el @@ -489,7 +489,7 @@ A replacement function for `newline-and-indent', aligning as it goes. ;;;### (autoloads (outlineify-sticky allout-mode allout-mode-p allout-auto-activation ;;;;;; allout-setup allout-auto-activation-helper) "allout" "allout.el" -;;;;;; (19981 40664)) +;;;;;; (19988 13913)) ;;; Generated autoloads from allout.el (autoload 'allout-auto-activation-helper "allout" "\ @@ -749,6 +749,7 @@ without changes to the allout core. Here are key ones: `allout-structure-deleted-hook' `allout-structure-shifted-hook' `allout-after-copy-or-kill-hook' +`allout-post-undo-hook' Terminology @@ -847,7 +848,7 @@ for details on preparing emacs for automatic allout activation. ;;;### (autoloads (allout-widgets-mode allout-widgets-auto-activation ;;;;;; allout-widgets-setup allout-widgets) "allout-widgets" "allout-widgets.el" -;;;;;; (19981 40664)) +;;;;;; (19988 13913)) ;;; Generated autoloads from allout-widgets.el (let ((loads (get 'allout-widgets 'custom-loads))) (if (member '"allout-widgets" loads) nil (put 'allout-widgets 'custom-loads (cons '"allout-widgets" loads)))) @@ -928,11 +929,11 @@ directory, so that Emacs will know its current contents. ;;;*** ;;;### (autoloads (animate-birthday-present animate-sequence animate-string) -;;;;;; "animate" "play/animate.el" (19845 45374)) +;;;;;; "animate" "play/animate.el" (19986 58615)) ;;; Generated autoloads from play/animate.el (autoload 'animate-string "animate" "\ -Display STRING starting at position VPOS, HPOS, using animation. +Display STRING animations starting at position VPOS, HPOS. The characters start at randomly chosen places, and all slide in parallel to their final positions, passing through `animate-n-steps' positions before the final ones. @@ -942,14 +943,19 @@ in the current window. \(fn STRING VPOS &optional HPOS)" nil nil) (autoload 'animate-sequence "animate" "\ -Display strings from LIST-OF-STRING with animation in a new buffer. +Display animation strings from LIST-OF-STRING with buffer *Animation*. Strings will be separated from each other by SPACE lines. + When the variable `animation-buffer-name' is non-nil display +animation in the buffer named by variable's value, creating the +buffer if one does not exist. \(fn LIST-OF-STRINGS SPACE)" nil nil) (autoload 'animate-birthday-present "animate" "\ -Display one's birthday present in a new buffer. -You can specify the one's name by NAME; the default value is \"Sarah\". +Return a birthday present in the buffer *Birthday-Present*. +When optional arg NAME is non-nil or called-interactively, prompt for +NAME of birthday present receiver and return a birthday present in +the buffer *Birthday-Present-for-Name*. \(fn &optional NAME)" t nil) @@ -1144,8 +1150,8 @@ Returns list of symbols and documentation found. ;;;*** -;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (19886 -;;;;;; 45771)) +;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (19990 +;;;;;; 55648)) ;;; Generated autoloads from arc-mode.el (autoload 'archive-mode "arc-mode" "\ @@ -1472,7 +1478,7 @@ Special commands: ;;;*** ;;;### (autoloads (auth-source-cache-expiry) "auth-source" "gnus/auth-source.el" -;;;;;; (19981 40664)) +;;;;;; (19985 37722)) ;;; Generated autoloads from gnus/auth-source.el (defvar auth-source-cache-expiry 7200 "\ @@ -1550,7 +1556,7 @@ Major mode for editing Autoconf configure.in files. ;;;*** ;;;### (autoloads (auto-insert-mode define-auto-insert auto-insert) -;;;;;; "autoinsert" "autoinsert.el" (19845 45374)) +;;;;;; "autoinsert" "autoinsert.el" (19988 13913)) ;;; Generated autoloads from autoinsert.el (autoload 'auto-insert "autoinsert" "\ @@ -1827,7 +1833,7 @@ For non-interactive use see also `benchmark-run' and ;;;*** ;;;### (autoloads (bibtex-search-entry bibtex-mode bibtex-initialize) -;;;;;; "bibtex" "textmodes/bibtex.el" (19971 4823)) +;;;;;; "bibtex" "textmodes/bibtex.el" (19997 28887)) ;;; Generated autoloads from textmodes/bibtex.el (autoload 'bibtex-initialize "bibtex" "\ @@ -2075,7 +2081,7 @@ a reflection. ;;;;;; bookmark-save bookmark-write bookmark-delete bookmark-insert ;;;;;; bookmark-rename bookmark-insert-location bookmark-relocate ;;;;;; bookmark-jump-other-window bookmark-jump bookmark-set) "bookmark" -;;;;;; "bookmark.el" (19914 25180)) +;;;;;; "bookmark.el" (19998 49767)) ;;; Generated autoloads from bookmark.el (define-key ctl-x-r-map "b" 'bookmark-jump) (define-key ctl-x-r-map "m" 'bookmark-set) @@ -2276,10 +2282,10 @@ Incremental search of bookmarks, hiding the non-matches as we go. ;;;;;; browse-url-at-mouse browse-url-at-point browse-url browse-url-of-region ;;;;;; browse-url-of-dired-file browse-url-of-buffer browse-url-of-file ;;;;;; browse-url-browser-function) "browse-url" "net/browse-url.el" -;;;;;; (19973 46551)) +;;;;;; (19997 54906)) ;;; Generated autoloads from net/browse-url.el -(defvar browse-url-browser-function (cond ((memq system-type '(windows-nt ms-dos cygwin)) 'browse-url-default-windows-browser) ((memq system-type '(darwin)) 'browse-url-default-macosx-browser) (t 'browse-url-default-browser)) "\ +(defvar browse-url-browser-function 'browse-url-default-browser "\ Function to display the current buffer in a WWW browser. This is used by the `browse-url-at-point', `browse-url-at-mouse', and `browse-url-of-file' commands. @@ -2598,7 +2604,7 @@ Return a vector containing the lines from `bruce-phrases-file'. ;;;*** ;;;### (autoloads (bs-show bs-customize bs-cycle-previous bs-cycle-next) -;;;;;; "bs" "bs.el" (19976 22732)) +;;;;;; "bs" "bs.el" (19998 49767)) ;;; Generated autoloads from bs.el (autoload 'bs-cycle-next "bs" "\ @@ -2681,7 +2687,7 @@ Like `bug-reference-mode', but only buttonize in comments and strings. ;;;;;; batch-byte-compile-if-not-done display-call-tree byte-compile ;;;;;; compile-defun byte-compile-file byte-recompile-directory ;;;;;; byte-force-recompile byte-compile-enable-warning byte-compile-disable-warning) -;;;;;; "bytecomp" "emacs-lisp/bytecomp.el" (19968 28627)) +;;;;;; "bytecomp" "emacs-lisp/bytecomp.el" (19998 49767)) ;;; 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) @@ -3053,7 +3059,7 @@ Obsoletes `c-forward-into-nomenclature'. ;;;*** ;;;### (autoloads (c-guess-basic-syntax) "cc-engine" "progmodes/cc-engine.el" -;;;;;; (19981 40664)) +;;;;;; (20015 58840)) ;;; Generated autoloads from progmodes/cc-engine.el (autoload 'c-guess-basic-syntax "cc-engine" "\ @@ -3165,7 +3171,7 @@ the absolute file name of the file if STYLE-NAME is nil. ;;;### (autoloads (awk-mode pike-mode idl-mode java-mode objc-mode ;;;;;; c++-mode c-mode c-initialize-cc-mode) "cc-mode" "progmodes/cc-mode.el" -;;;;;; (19981 40664)) +;;;;;; (20010 40918)) ;;; Generated autoloads from progmodes/cc-mode.el (autoload 'c-initialize-cc-mode "cc-mode" "\ @@ -3393,7 +3399,7 @@ and exists only for compatibility reasons. ;;;*** -;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (19845 45374)) +;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (19997 28887)) ;;; Generated autoloads from progmodes/cc-vars.el (put 'c-basic-offset 'safe-local-variable 'integerp) (put 'c-backslash-column 'safe-local-variable 'integerp) @@ -4291,8 +4297,8 @@ on third call it again advances points to the next difference and so on. ;;;;;; compilation-shell-minor-mode compilation-mode compilation-start ;;;;;; compile compilation-disable-input compile-command compilation-search-path ;;;;;; compilation-ask-about-save compilation-window-height compilation-start-hook -;;;;;; compilation-mode-hook) "compile" "progmodes/compile.el" (19968 -;;;;;; 28627)) +;;;;;; compilation-mode-hook) "compile" "progmodes/compile.el" (19997 +;;;;;; 28887)) ;;; Generated autoloads from progmodes/compile.el (defvar compilation-mode-hook nil "\ @@ -4716,7 +4722,7 @@ If FIX is non-nil, run `copyright-fix-years' instead. ;;;*** ;;;### (autoloads (cperl-perldoc-at-point cperl-perldoc cperl-mode) -;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (19975 1875)) +;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (19997 56302)) ;;; Generated autoloads from progmodes/cperl-mode.el (put 'cperl-indent-level 'safe-local-variable 'integerp) (put 'cperl-brace-offset 'safe-local-variable 'integerp) @@ -5064,7 +5070,7 @@ Enable CUA selection mode without the C-z/C-x/C-c/C-v bindings. ;;;;;; customize-mode customize customize-push-and-save customize-save-variable ;;;;;; customize-set-variable customize-set-value custom-menu-sort-alphabetically ;;;;;; custom-buffer-sort-alphabetically custom-browse-sort-alphabetically) -;;;;;; "cus-edit" "cus-edit.el" (19980 19797)) +;;;;;; "cus-edit" "cus-edit.el" (19996 8027)) ;;; Generated autoloads from cus-edit.el (defvar custom-browse-sort-alphabetically nil "\ @@ -5498,7 +5504,7 @@ If the argument is nil, we return the display table to its standard state. ;;;*** ;;;### (autoloads (dabbrev-expand dabbrev-completion) "dabbrev" "dabbrev.el" -;;;;;; (19886 45771)) +;;;;;; (19989 34789)) ;;; Generated autoloads from dabbrev.el (put 'dabbrev-case-fold-search 'risky-local-variable t) (put 'dabbrev-case-replace 'risky-local-variable t) @@ -5697,13 +5703,13 @@ There is some minimal font-lock support (see vars ;;;*** ;;;### (autoloads (cancel-debug-on-entry debug-on-entry debug) "debug" -;;;;;; "emacs-lisp/debug.el" (19961 55377)) +;;;;;; "emacs-lisp/debug.el" (19999 41685)) ;;; Generated autoloads from emacs-lisp/debug.el (setq debugger 'debug) (autoload 'debug "debug" "\ -Enter debugger. To return, type \\<debugger-mode-map>`\\[debugger-continue]'. +Enter debugger. \\<debugger-mode-map>`\\[debugger-continue]' returns from the debugger. Arguments are mainly for use when this is called from the internals of the evaluator. @@ -5877,7 +5883,7 @@ any selection. ;;;*** ;;;### (autoloads (derived-mode-init-mode-variables define-derived-mode) -;;;;;; "derived" "emacs-lisp/derived.el" (19849 29307)) +;;;;;; "derived" "emacs-lisp/derived.el" (19988 13913)) ;;; Generated autoloads from emacs-lisp/derived.el (autoload 'define-derived-mode "derived" "\ @@ -6232,7 +6238,7 @@ Major mode for editing the diary file. ;;;*** ;;;### (autoloads (diff-buffer-with-file diff-backup diff diff-command -;;;;;; diff-switches) "diff" "vc/diff.el" (19903 54862)) +;;;;;; diff-switches) "diff" "vc/diff.el" (19999 41597)) ;;; Generated autoloads from vc/diff.el (defvar diff-switches (purecopy "-c") "\ @@ -6247,10 +6253,10 @@ The command to use to run diff.") (autoload 'diff "diff" "\ Find and display the differences between OLD and NEW files. -When called interactively, read OLD and NEW using the minibuffer; -the default for NEW is the current buffer's file name, and the -default for OLD is a backup file for NEW, if one exists. -If NO-ASYNC is non-nil, call diff synchronously. +When called interactively, read NEW, then OLD, using the +minibuffer. The default for NEW is the current buffer's file +name, and the default for OLD is a backup file for NEW, if one +exists. If NO-ASYNC is non-nil, call diff synchronously. When called interactively with a prefix argument, prompt interactively for diff switches. Otherwise, the switches @@ -6316,7 +6322,7 @@ Optional arguments are passed to `dig-invoke'. ;;;*** ;;;### (autoloads (dired-mode dired-noselect dired-other-frame dired-other-window -;;;;;; dired dired-listing-switches) "dired" "dired.el" (19966 16984)) +;;;;;; dired dired-listing-switches) "dired" "dired.el" (20019 55931)) ;;; Generated autoloads from dired.el (defvar dired-listing-switches (purecopy "-al") "\ @@ -6345,8 +6351,7 @@ Dired displays a list of files in DIRNAME (which may also have shell wildcards appended to select certain files). If DIRNAME is a cons, its first element is taken as the directory name and the rest as an explicit list of files to make directory entries for. -\\<dired-mode-map>You can move around in it with the usual commands. -You can flag files for deletion with \\[dired-flag-file-deletion] and then +\\<dired-mode-map>You can flag files for deletion with \\[dired-flag-file-deletion] and then delete them by typing \\[dired-do-flagged-delete]. Type \\[describe-mode] after entering Dired for more info. @@ -6382,8 +6387,8 @@ In Dired, you are \"editing\" a list of the files in a directory and files for later commands or \"flag\" them for deletion, either file by file or all files matching certain criteria. You can move using the usual cursor motion commands.\\<dired-mode-map> -Letters no longer insert themselves. Digits are prefix arguments. -Instead, type \\[dired-flag-file-deletion] to flag a file for Deletion. +The buffer is read-only. Digits are prefix arguments. +Type \\[dired-flag-file-deletion] to flag a file `D' for deletion. Type \\[dired-mark] to Mark a file or subdirectory for later commands. Most commands operate on the marked files and use the current file if no files are marked. Use a numeric prefix argument to operate on @@ -6391,9 +6396,9 @@ Type \\[dired-mark] to Mark a file or subdirectory for later commands. to operate on the current file only. Prefix arguments override marks. Mark-using commands display a list of failures afterwards. Type \\[dired-summary] to see why something went wrong. -Type \\[dired-unmark] to Unmark a file or all files of a subdirectory. -Type \\[dired-unmark-backward] to back up one line and unflag. -Type \\[dired-do-flagged-delete] to eXecute the deletions requested. +Type \\[dired-unmark] to Unmark a file or all files of an inserted subdirectory. +Type \\[dired-unmark-backward] to back up one line and unmark or unflag. +Type \\[dired-do-flagged-delete] to delete (eXecute) the files flagged `D'. Type \\[dired-find-file] to Find the current line's file (or dired it in another buffer, if it is a directory). Type \\[dired-find-file-other-window] to find file or dired directory in Other window. @@ -6403,10 +6408,10 @@ Type \\[dired-do-copy] to Copy files. Type \\[dired-sort-toggle-or-edit] to toggle Sorting by name/date or change the `ls' switches. Type \\[revert-buffer] to read all currently expanded directories aGain. This retains all marks and hides subdirs again that were hidden before. -SPC and DEL can be used to move down and up by lines. +Use `SPC' and `DEL' to move down and up by lines. If Dired ever gets confused, you can either type \\[revert-buffer] to read the -directories again, type \\[dired-do-redisplay] to relist a single or the marked files or a +directories again, type \\[dired-do-redisplay] to relist the file at point or the marked files or a subdirectory, or type \\[dired-build-subdir-alist] to parse the buffer again for the directory tree. @@ -6485,7 +6490,7 @@ redefine OBJECT if it is a symbol. ;;;;;; standard-display-g1 standard-display-ascii standard-display-default ;;;;;; standard-display-8bit describe-current-display-table describe-display-table ;;;;;; set-display-table-slot display-table-slot make-display-table) -;;;;;; "disp-table" "disp-table.el" (19845 45374)) +;;;;;; "disp-table" "disp-table.el" (19984 16846)) ;;; Generated autoloads from disp-table.el (autoload 'make-display-table "disp-table" "\ @@ -6668,8 +6673,8 @@ Locate SOA record and increment the serial field. ;;;*** ;;;### (autoloads (doc-view-bookmark-jump doc-view-minor-mode doc-view-mode-maybe -;;;;;; doc-view-mode doc-view-mode-p) "doc-view" "doc-view.el" (19953 -;;;;;; 8437)) +;;;;;; doc-view-mode doc-view-mode-p) "doc-view" "doc-view.el" (20002 +;;;;;; 46800)) ;;; Generated autoloads from doc-view.el (autoload 'doc-view-mode-p "doc-view" "\ @@ -7584,7 +7589,7 @@ Toggle edebugging of all forms. ;;;;;; ediff-merge-directories-with-ancestor ediff-merge-directories ;;;;;; ediff-directories3 ediff-directory-revisions ediff-directories ;;;;;; ediff-buffers3 ediff-buffers ediff-backup ediff-current-file -;;;;;; ediff-files3 ediff-files) "ediff" "vc/ediff.el" (19845 45374)) +;;;;;; ediff-files3 ediff-files) "ediff" "vc/ediff.el" (19996 8027)) ;;; Generated autoloads from vc/ediff.el (autoload 'ediff-files "ediff" "\ @@ -7768,7 +7773,7 @@ buffer. \(fn &optional FILE STARTUP-HOOKS MERGE-BUFFER-FILE)" t nil) (autoload 'ediff-patch-file "ediff" "\ -Run Ediff by patching SOURCE-FILENAME. +Query for a file name, and then run Ediff by patching that file. If optional PATCH-BUF is given, use the patch in that buffer and don't ask the user. If prefix argument, then: if even argument, assume that the patch is in a @@ -8149,6 +8154,32 @@ displayed. ;;;*** +;;;### (autoloads (emacs-lock-mode) "emacs-lock" "emacs-lock.el" +;;;;;; (19988 13913)) +;;; Generated autoloads from emacs-lock.el + +(autoload 'emacs-lock-mode "emacs-lock" "\ +Toggle Emacs Lock mode in the current buffer. + +With \\[universal-argument], ask for the locking mode to be used. +With other prefix ARG, turn mode on if ARG is positive, off otherwise. + +Initially, if the user does not pass an explicit locking mode, it defaults +to `emacs-lock-default-locking-mode' (which see); afterwards, the locking +mode most recently set on the buffer is used instead. + +When called from Elisp code, ARG can be any locking mode: + + exit -- Emacs cannot exit while the buffer is locked + kill -- the buffer cannot be killed, but Emacs can exit as usual + all -- the buffer is locked against both actions + +Other values are interpreted as usual. + +\(fn &optional ARG)" t nil) + +;;;*** + ;;;### (autoloads (report-emacs-bug) "emacsbug" "mail/emacsbug.el" ;;;;;; (19978 37530)) ;;; Generated autoloads from mail/emacsbug.el @@ -8579,7 +8610,7 @@ Look at CONFIG and try to expand GROUP. ;;;*** ;;;### (autoloads (erc-handle-irc-url erc erc-select-read-args) "erc" -;;;;;; "erc/erc.el" (19981 40664)) +;;;;;; "erc/erc.el" (19986 58615)) ;;; Generated autoloads from erc/erc.el (autoload 'erc-select-read-args "erc" "\ @@ -9202,7 +9233,7 @@ corresponding to a successful execution. ;;;;;; visit-tags-table tags-table-mode find-tag-default-function ;;;;;; find-tag-hook tags-add-tables tags-compression-info-list ;;;;;; tags-table-list tags-case-fold-search) "etags" "progmodes/etags.el" -;;;;;; (19936 52203)) +;;;;;; (20007 64734)) ;;; Generated autoloads from progmodes/etags.el (defvar tags-file-name nil "\ @@ -9459,7 +9490,11 @@ Search through all files listed in tags table for match for REGEXP. Stops when a match is found. To continue searching for next match, use command \\[tags-loop-continue]. -See documentation of variable `tags-file-name'. +If FILE-LIST-FORM is non-nil, it should be a form that, when +evaluated, will return a list of file names. The search will be +restricted to these files. + +Aleso see the documentation of the `tags-file-name' variable. \(fn REGEXP &optional FILE-LIST-FORM)" t nil) @@ -10138,7 +10173,7 @@ Besides the choice of face, it is the same as `buffer-face-mode'. ;;;### (autoloads (feedmail-queue-reminder feedmail-run-the-queue ;;;;;; feedmail-run-the-queue-global-prompt feedmail-run-the-queue-no-prompts -;;;;;; feedmail-send-it) "feedmail" "mail/feedmail.el" (19931 11784)) +;;;;;; feedmail-send-it) "feedmail" "mail/feedmail.el" (19986 58615)) ;;; Generated autoloads from mail/feedmail.el (autoload 'feedmail-send-it "feedmail" "\ @@ -10782,8 +10817,8 @@ to get the effect of a C-q. ;;;*** -;;;### (autoloads (flymake-mode-off flymake-mode-on flymake-mode) -;;;;;; "flymake" "progmodes/flymake.el" (19976 22732)) +;;;### (autoloads (flymake-find-file-hook flymake-mode-off flymake-mode-on +;;;;;; flymake-mode) "flymake" "progmodes/flymake.el" (19984 16846)) ;;; Generated autoloads from progmodes/flymake.el (autoload 'flymake-mode "flymake" "\ @@ -10803,11 +10838,16 @@ Turn flymake mode off. \(fn)" nil nil) +(autoload 'flymake-find-file-hook "flymake" "\ + + +\(fn)" nil nil) + ;;;*** ;;;### (autoloads (flyspell-buffer flyspell-region flyspell-mode-off ;;;;;; turn-off-flyspell turn-on-flyspell flyspell-mode flyspell-prog-mode) -;;;;;; "flyspell" "textmodes/flyspell.el" (19981 40664)) +;;;;;; "flyspell" "textmodes/flyspell.el" (19982 3545)) ;;; Generated autoloads from textmodes/flyspell.el (autoload 'flyspell-prog-mode "flyspell" "\ @@ -10877,7 +10917,7 @@ Flyspell whole buffer. ;;;### (autoloads (follow-delete-other-windows-and-split follow-mode ;;;;;; turn-off-follow-mode turn-on-follow-mode) "follow" "follow.el" -;;;;;; (19886 45771)) +;;;;;; (19998 49767)) ;;; Generated autoloads from follow.el (autoload 'turn-on-follow-mode "follow" "\ @@ -11129,7 +11169,7 @@ and choose the directory as the fortune-file. ;;;*** ;;;### (autoloads (gdb gdb-enable-debug) "gdb-mi" "progmodes/gdb-mi.el" -;;;;;; (19931 11784)) +;;;;;; (19988 13913)) ;;; Generated autoloads from progmodes/gdb-mi.el (defvar gdb-enable-debug nil "\ @@ -11337,7 +11377,7 @@ DEFAULT-MAP specifies the default key map for ICON-LIST. ;;;*** ;;;### (autoloads (gnus gnus-other-frame gnus-slave gnus-no-server -;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (19978 37530)) +;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (20006 43871)) ;;; Generated autoloads from gnus/gnus.el (when (fboundp 'custom-autoload) (custom-autoload 'gnus-select-method "gnus")) @@ -11481,7 +11521,7 @@ If CLEAN, obsolete (ignore). ;;;*** ;;;### (autoloads (gnus-article-prepare-display) "gnus-art" "gnus/gnus-art.el" -;;;;;; (19981 40664)) +;;;;;; (20022 32083)) ;;; Generated autoloads from gnus/gnus-art.el (autoload 'gnus-article-prepare-display "gnus-art" "\ @@ -11699,7 +11739,7 @@ If gravatars are already displayed, remove them. ;;;*** ;;;### (autoloads (gnus-fetch-group-other-frame gnus-fetch-group) -;;;;;; "gnus-group" "gnus/gnus-group.el" (19981 40664)) +;;;;;; "gnus-group" "gnus/gnus-group.el" (20006 43871)) ;;; Generated autoloads from gnus/gnus-group.el (autoload 'gnus-fetch-group "gnus-group" "\ @@ -11717,7 +11757,7 @@ Pop up a frame and enter GROUP. ;;;*** ;;;### (autoloads (gnus-html-prefetch-images gnus-article-html) "gnus-html" -;;;;;; "gnus/gnus-html.el" (19917 1372)) +;;;;;; "gnus/gnus-html.el" (20006 43871)) ;;; Generated autoloads from gnus/gnus-html.el (autoload 'gnus-article-html "gnus-html" "\ @@ -11874,7 +11914,7 @@ Calling (gnus-group-split-fancy nil nil \"mail.others\") returns: ;;;*** ;;;### (autoloads (gnus-button-reply gnus-button-mailto gnus-msg-mail) -;;;;;; "gnus-msg" "gnus/gnus-msg.el" (19978 37530)) +;;;;;; "gnus-msg" "gnus/gnus-msg.el" (19990 55648)) ;;; Generated autoloads from gnus/gnus-msg.el (autoload 'gnus-msg-mail "gnus-msg" "\ @@ -12051,7 +12091,7 @@ Update the format specification near point. ;;;*** ;;;### (autoloads (gnus-declare-backend) "gnus-start" "gnus/gnus-start.el" -;;;;;; (19953 61266)) +;;;;;; (19988 13913)) ;;; Generated autoloads from gnus/gnus-start.el (autoload 'gnus-declare-backend "gnus-start" "\ @@ -12062,7 +12102,7 @@ Declare back end NAME with ABILITIES as a Gnus back end. ;;;*** ;;;### (autoloads (gnus-summary-bookmark-jump) "gnus-sum" "gnus/gnus-sum.el" -;;;;;; (19981 40664)) +;;;;;; (20022 32083)) ;;; Generated autoloads from gnus/gnus-sum.el (autoload 'gnus-summary-bookmark-jump "gnus-sum" "\ @@ -12100,6 +12140,23 @@ Add the window configuration CONF to `gnus-buffer-configuration'. ;;;*** +;;;### (autoloads (gnutls-min-prime-bits) "gnutls" "net/gnutls.el" +;;;;;; (20002 46800)) +;;; Generated autoloads from net/gnutls.el + +(defvar gnutls-min-prime-bits nil "\ +The minimum number of bits to be used in Diffie-Hellman key exchange. + +This sets the minimum accepted size of the key to be used in a +client-server handshake. If the server sends a prime with fewer than +the specified number of bits the handshake will fail. + +A value of nil says to use the default gnutls value.") + +(custom-autoload 'gnutls-min-prime-bits "gnutls" t) + +;;;*** + ;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (19889 21967)) ;;; Generated autoloads from play/gomoku.el @@ -12185,7 +12242,7 @@ Retrieve MAIL-ADDRESS gravatar and returns it. ;;;### (autoloads (zrgrep rgrep lgrep grep-find grep grep-mode grep-compute-defaults ;;;;;; grep-process-setup grep-setup-hook grep-find-command grep-command -;;;;;; grep-window-height) "grep" "progmodes/grep.el" (19980 19797)) +;;;;;; grep-window-height) "grep" "progmodes/grep.el" (19989 34789)) ;;; Generated autoloads from progmodes/grep.el (defvar grep-window-height nil "\ @@ -12356,7 +12413,7 @@ the form \"WINDOW-ID PIXMAP-ID\". Value is non-nil if successful. ;;;*** ;;;### (autoloads (gud-tooltip-mode gdb-script-mode jdb pdb perldb -;;;;;; xdb dbx sdb gud-gdb) "gud" "progmodes/gud.el" (19931 11784)) +;;;;;; xdb dbx sdb gud-gdb) "gud" "progmodes/gud.el" (19988 13913)) ;;; Generated autoloads from progmodes/gud.el (autoload 'gud-gdb "gud" "\ @@ -13787,7 +13844,7 @@ FORMATS is the value to use for `ibuffer-formats'. ;;;### (autoloads (icalendar-import-buffer icalendar-import-file ;;;;;; icalendar-export-region icalendar-export-file) "icalendar" -;;;;;; "calendar/icalendar.el" (19897 16090)) +;;;;;; "calendar/icalendar.el" (20015 58840)) ;;; Generated autoloads from calendar/icalendar.el (autoload 'icalendar-export-file "icalendar" "\ @@ -14353,7 +14410,7 @@ Toggle inline image minor mode. ;;;;;; create-image image-type-auto-detected-p image-type-available-p ;;;;;; image-type image-type-from-file-name image-type-from-file-header ;;;;;; image-type-from-buffer image-type-from-data) "image" "image.el" -;;;;;; (19956 37456)) +;;;;;; (20013 17118)) ;;; Generated autoloads from image.el (autoload 'image-type-from-data "image" "\ @@ -14439,6 +14496,7 @@ IMAGE must be an image created with `create-image' or `defimage'. IMAGE is displayed by putting an overlay into the current buffer with a `before-string' STRING that has a `display' property whose value is the image. STRING is defaulted if you omit it. +The overlay created will have the `put-image' property set to t. POS may be an integer or marker. AREA is where to display the image. AREA nil or omitted means display it in the text area, a value of `left-margin' means @@ -14450,8 +14508,8 @@ means display it in the right marginal area. (autoload 'insert-image "image" "\ Insert IMAGE into current buffer at point. IMAGE is displayed by inserting STRING into the current buffer -with a `display' property whose value is the image. STRING is -defaulted if you omit it. +with a `display' property whose value is the image. STRING +defaults to the empty string if you omit it. AREA is where to display the image. AREA nil or omitted means display it in the text area, a value of `left-margin' means display it in the left marginal area, a value of `right-margin' @@ -14749,7 +14807,7 @@ Image files are those whose name has an extension in ;;;*** ;;;### (autoloads (image-bookmark-jump image-mode-as-text image-minor-mode -;;;;;; image-mode) "image-mode" "image-mode.el" (19951 19539)) +;;;;;; image-mode) "image-mode" "image-mode.el" (19999 41597)) ;;; Generated autoloads from image-mode.el (autoload 'image-mode "image-mode" "\ @@ -15007,7 +15065,7 @@ of `inferior-lisp-program'). Runs the hooks from ;;;;;; Info-goto-emacs-key-command-node Info-goto-emacs-command-node ;;;;;; Info-mode info-finder info-apropos Info-index Info-directory ;;;;;; Info-on-current-buffer info-standalone info-emacs-manual -;;;;;; info info-other-window) "info" "info.el" (19967 7755)) +;;;;;; info info-other-window) "info" "info.el" (20000 30124)) ;;; Generated autoloads from info.el (autoload 'info-other-window "info" "\ @@ -15022,7 +15080,7 @@ Enter Info, the documentation browser. Optional argument FILE-OR-NODE specifies the file to examine; the default is the top-level directory of Info. Called from a program, FILE-OR-NODE may specify an Info node of the form -`(FILENAME)NODENAME'. +\"(FILENAME)NODENAME\". Optional argument BUFFER specifies the Info buffer name; the default buffer name is *info*. If BUFFER exists, just switch to BUFFER. Otherwise, create a new buffer @@ -15130,7 +15188,7 @@ Moving within a node: \\[Info-scroll-down] Normally, scroll backward. If the beginning of the buffer is already visible, try to go to the previous menu entry, or up if there is none. -\\[beginning-of-buffer] Go to beginning of node. +\\[Info-beginning-of-buffer] Go to beginning of node. Advanced commands: \\[Info-search] Search through this Info file for specified regexp, @@ -15194,7 +15252,7 @@ Go to Info buffer that displays MANUAL, creating it if none already exists. ;;;### (autoloads (info-complete-file info-complete-symbol info-lookup-file ;;;;;; info-lookup-symbol info-lookup-reset) "info-look" "info-look.el" -;;;;;; (19936 52203)) +;;;;;; (19984 16846)) ;;; Generated autoloads from info-look.el (autoload 'info-lookup-reset "info-look" "\ @@ -15837,7 +15895,7 @@ If non-nil, second arg INITIAL-INPUT is a string to insert before reading. ;;;*** ;;;### (autoloads (jka-compr-uninstall jka-compr-handler) "jka-compr" -;;;;;; "jka-compr.el" (19886 45771)) +;;;;;; "jka-compr.el" (20000 30139)) ;;; Generated autoloads from jka-compr.el (defvar jka-compr-inhibit nil "\ @@ -16346,8 +16404,8 @@ See `linum-mode' for more information on Linum mode. ;;;*** -;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (19975 -;;;;;; 1875)) +;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (19996 +;;;;;; 8027)) ;;; Generated autoloads from loadhist.el (autoload 'unload-feature "loadhist" "\ @@ -16469,16 +16527,20 @@ Major mode for browsing CVS log output. ;;;*** -;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (19886 -;;;;;; 45771)) +;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (19984 +;;;;;; 16846)) ;;; Generated autoloads from longlines.el (autoload 'longlines-mode "longlines" "\ -Toggle Long Lines mode. +Minor mode to wrap long lines. In Long Lines mode, long lines are wrapped if they extend beyond `fill-column'. The soft newlines used for line wrapping will not show up when the text is yanked or saved to disk. +With no argument, this command toggles Flyspell mode. +With a prefix argument ARG, turn Flyspell minor mode on if ARG is positive, +otherwise turn it off. + If the variable `longlines-auto-wrap' is non-nil, lines are automatically wrapped whenever the buffer is changed. You can always call `fill-paragraph' to fill individual paragraphs. @@ -17103,7 +17165,7 @@ Previous contents of that buffer are killed first. ;;;*** ;;;### (autoloads (Man-bookmark-jump man-follow man) "man" "man.el" -;;;;;; (19870 57559)) +;;;;;; (19999 41597)) ;;; Generated autoloads from man.el (defalias 'manual-entry 'man) @@ -17211,7 +17273,7 @@ Returns non-nil if the new state is enabled. ;;;;;; message-forward-make-body message-forward message-recover ;;;;;; message-supersede message-cancel-news message-followup message-wide-reply ;;;;;; message-reply message-news message-mail message-mode) "message" -;;;;;; "gnus/message.el" (19980 19797)) +;;;;;; "gnus/message.el" (20006 43871)) ;;; 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) @@ -17439,7 +17501,7 @@ redisplayed as output is inserted. ;;;### (autoloads (mh-fully-kill-draft mh-send-letter mh-user-agent-compose ;;;;;; mh-smail-batch mh-smail-other-window mh-smail) "mh-comp" -;;;;;; "mh-e/mh-comp.el" (19845 45374)) +;;;;;; "mh-e/mh-comp.el" (19993 31832)) ;;; Generated autoloads from mh-e/mh-comp.el (autoload 'mh-smail "mh-comp" "\ @@ -17486,7 +17548,7 @@ Elements look like (HEADER . VALUE) where both HEADER and VALUE are strings. CONTINUE, SWITCH-FUNCTION, YANK-ACTION, SEND-ACTIONS, and -RETURN-ACTION are ignored. +RETURN-ACTION and any additional arguments are IGNORED. \(fn &optional TO SUBJECT OTHER-HEADERS CONTINUE SWITCH-FUNCTION YANK-ACTION SEND-ACTIONS RETURN-ACTION &rest IGNORED)" nil nil) @@ -17529,7 +17591,7 @@ delete the draft message. ;;;*** -;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (19931 11784)) +;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (20004 2139)) ;;; Generated autoloads from mh-e/mh-e.el (put 'mh-progs 'risky-local-variable t) @@ -17546,7 +17608,7 @@ Display version information about MH-E and the MH mail handling system. ;;;*** ;;;### (autoloads (mh-folder-mode mh-nmail mh-rmail) "mh-folder" -;;;;;; "mh-e/mh-folder.el" (19845 45374)) +;;;;;; "mh-e/mh-folder.el" (20004 2139)) ;;; Generated autoloads from mh-e/mh-folder.el (autoload 'mh-rmail "mh-folder" "\ @@ -18041,8 +18103,8 @@ To test this function, evaluate: ;;;*** -;;;### (autoloads (mouse-sel-mode) "mouse-sel" "mouse-sel.el" (19886 -;;;;;; 45771)) +;;;### (autoloads (mouse-sel-mode) "mouse-sel" "mouse-sel.el" (19997 +;;;;;; 28887)) ;;; Generated autoloads from mouse-sel.el (defvar mouse-sel-mode nil "\ @@ -18059,14 +18121,10 @@ Toggle Mouse Sel mode. With prefix ARG, turn Mouse Sel mode on if and only if ARG is positive. Returns the new status of Mouse Sel mode (non-nil means on). -When Mouse Sel mode is enabled, mouse selection is enhanced in various ways: - -- Clicking mouse-1 starts (cancels) selection, dragging extends it. - -- Clicking or dragging mouse-3 extends the selection as well. +When Mouse Sel mode is enabled, mouse selection is enhanced in +various ways: -- Double-clicking on word constituents selects words. -Double-clicking on symbol constituents selects symbols. +- Double-clicking on symbol constituents selects symbols. Double-clicking on quotes or parentheses selects sexps. Double-clicking on whitespace selects whitespace. Triple-clicking selects lines. @@ -18081,14 +18139,8 @@ mouse-sel sets the variables `interprogram-cut-function' and - Clicking mouse-2 inserts the contents of the primary selection at the mouse position (or point, if `mouse-yank-at-point' is non-nil). -- Pressing mouse-2 while selecting or extending copies selection -to the kill ring. Pressing mouse-1 or mouse-3 kills it. - -- Double-clicking mouse-3 also kills selection. - -- M-mouse-1, M-mouse-2 & M-mouse-3 work similarly to mouse-1, mouse-2 -& mouse-3, but operate on the X secondary selection rather than the -primary selection and region. +- mouse-2 while selecting or extending copies selection to the +kill ring; mouse-1 or mouse-3 kills it. \(fn &optional ARG)" t nil) @@ -18527,7 +18579,7 @@ listed in the PORTS list. ;;;*** ;;;### (autoloads (open-network-stream) "network-stream" "net/network-stream.el" -;;;;;; (19976 22732)) +;;;;;; (19990 55648)) ;;; Generated autoloads from net/network-stream.el (autoload 'open-network-stream "network-stream" "\ @@ -18578,6 +18630,10 @@ values: :end-of-command specifies a regexp matching the end of a command. +:end-of-capability specifies a regexp matching the end of the + response to the command specified for :capability-command. + It defaults to the regexp specified for :end-of-command. + :success specifies a regexp matching a message indicating a successful STARTTLS negotiation. For instance, the default should be \"^3\" for an NNTP connection. @@ -19083,13 +19139,14 @@ the variable `nxml-enabled-unicode-blocks'. ;;;;;; org-babel-next-src-block org-babel-goto-named-result org-babel-goto-named-src-block ;;;;;; org-babel-goto-src-block-head org-babel-hide-result-toggle-maybe ;;;;;; org-babel-sha1-hash org-babel-execute-subtree org-babel-execute-buffer -;;;;;; org-babel-map-src-blocks org-babel-open-src-block-result -;;;;;; org-babel-switch-to-session-with-code org-babel-switch-to-session -;;;;;; org-babel-initiate-session org-babel-load-in-session org-babel-expand-src-block -;;;;;; org-babel-execute-src-block org-babel-pop-to-session-maybe -;;;;;; org-babel-load-in-session-maybe org-babel-expand-src-block-maybe +;;;;;; org-babel-map-inline-src-blocks org-babel-map-src-blocks +;;;;;; org-babel-open-src-block-result org-babel-switch-to-session-with-code +;;;;;; org-babel-switch-to-session org-babel-initiate-session org-babel-load-in-session +;;;;;; org-babel-check-src-block org-babel-expand-src-block org-babel-execute-src-block +;;;;;; org-babel-pop-to-session-maybe org-babel-load-in-session-maybe +;;;;;; org-babel-expand-src-block-maybe org-babel-view-src-block-info ;;;;;; org-babel-execute-maybe org-babel-execute-safely-maybe) "ob" -;;;;;; "org/ob.el" (19845 45374)) +;;;;;; "org/ob.el" (20021 11227)) ;;; Generated autoloads from org/ob.el (autoload 'org-babel-execute-safely-maybe "ob" "\ @@ -19102,6 +19159,13 @@ the variable `nxml-enabled-unicode-blocks'. \(fn)" t nil) +(autoload 'org-babel-view-src-block-info "ob" "\ +Display information on the current source block. +This includes header arguments, language and name, and is largely +a window into the `org-babel-get-src-block-info' function. + +\(fn)" t nil) + (autoload 'org-babel-expand-src-block-maybe "ob" "\ Conditionally expand a source block. Detect if this is context for a org-babel src-block and if so @@ -19149,6 +19213,11 @@ arguments and pop open the results in a preview buffer. \(fn &optional ARG INFO PARAMS)" t nil) +(autoload 'org-babel-check-src-block "ob" "\ +Check for misspelled header arguments in the current code block. + +\(fn)" t nil) + (autoload 'org-babel-load-in-session "ob" "\ Load the body of the current source-code block. Evaluate the header arguments for the source block before @@ -19212,6 +19281,15 @@ end-body --------- point at the end of the body (put 'org-babel-map-src-blocks 'lisp-indent-function '1) +(autoload 'org-babel-map-inline-src-blocks "ob" "\ +Evaluate BODY forms on each inline source-block in FILE. +If FILE is nil evaluate BODY forms on source blocks in current +buffer. + +\(fn FILE &rest BODY)" nil (quote macro)) + +(put 'org-babel-map-inline-src-blocks 'lisp-indent-function '1) + (autoload 'org-babel-execute-buffer "ob" "\ Execute source code blocks in a buffer. Call `org-babel-execute-src-block' on every source block in @@ -19271,7 +19349,7 @@ Mark current src block ;;;*** ;;;### (autoloads (org-babel-describe-bindings) "ob-keys" "org/ob-keys.el" -;;;;;; (19845 45374)) +;;;;;; (20018 35031)) ;;; Generated autoloads from org/ob-keys.el (autoload 'org-babel-describe-bindings "ob-keys" "\ @@ -19282,7 +19360,7 @@ Describe all keybindings behind `org-babel-key-prefix'. ;;;*** ;;;### (autoloads (org-babel-lob-get-info org-babel-lob-execute-maybe -;;;;;; org-babel-lob-ingest) "ob-lob" "org/ob-lob.el" (19845 45374)) +;;;;;; org-babel-lob-ingest) "ob-lob" "org/ob-lob.el" (20018 35031)) ;;; Generated autoloads from org/ob-lob.el (autoload 'org-babel-lob-ingest "ob-lob" "\ @@ -19307,7 +19385,7 @@ Return a Library of Babel function call as a string. ;;;### (autoloads (org-babel-tangle org-babel-tangle-file org-babel-load-file ;;;;;; org-babel-tangle-lang-exts) "ob-tangle" "org/ob-tangle.el" -;;;;;; (19845 45374)) +;;;;;; (20018 35031)) ;;; Generated autoloads from org/ob-tangle.el (defvar org-babel-tangle-lang-exts '(("emacs-lisp" . "el")) "\ @@ -19344,7 +19422,7 @@ TARGET-FILE can be used to specify a default export file for all source blocks. Optional argument LANG can be used to limit the exported source code blocks by language. -\(fn &optional TARGET-FILE LANG)" t nil) +\(fn &optional ONLY-THIS-BLOCK TARGET-FILE LANG)" t nil) ;;;*** @@ -19460,7 +19538,7 @@ including a reproducible test case and send the message. ;;;;;; org-insert-link-global org-store-link org-run-like-in-org-mode ;;;;;; turn-on-orgstruct++ turn-on-orgstruct orgstruct-mode org-global-cycle ;;;;;; org-mode org-babel-do-load-languages) "org" "org/org.el" -;;;;;; (19931 11784)) +;;;;;; (20018 35031)) ;;; Generated autoloads from org/org.el (autoload 'org-babel-do-load-languages "org" "\ @@ -19598,6 +19676,7 @@ SCOPE determines the scope of this command. It can be any of: nil The current buffer, respecting the restriction if any tree The subtree started with the entry at point +region The entries within the active region, if any file The current buffer, without restriction file-with-archives The current buffer, and any archives associated with it @@ -19683,7 +19762,7 @@ Call the customize function with org as argument. ;;;;;; org-diary org-agenda-list-stuck-projects org-tags-view org-todo-list ;;;;;; org-search-view org-agenda-list org-batch-store-agenda-views ;;;;;; org-store-agenda-views org-batch-agenda-csv org-batch-agenda -;;;;;; org-agenda) "org-agenda" "org/org-agenda.el" (19914 25180)) +;;;;;; org-agenda) "org-agenda" "org/org-agenda.el" (20018 35031)) ;;; Generated autoloads from org/org-agenda.el (autoload 'org-agenda "org-agenda" "\ @@ -19784,11 +19863,6 @@ Produce a daily/weekly view from all files in variable `org-agenda-files'. The view will be for the current day or week, but from the overview buffer you will be able to go to other days/weeks. -With one \\[universal-argument] prefix argument INCLUDE-ALL, -all unfinished TODO items will also be shown, before the agenda. -This feature is considered obsolete, please use the TODO list or a block -agenda instead. - With a numeric prefix argument in an interactive call, the agenda will span INCLUDE-ALL days. Lisp programs should instead specify SPAN to change the number of days. SPAN defaults to `org-agenda-span'. @@ -19933,7 +20007,7 @@ belonging to the \"Work\" category. ;;;### (autoloads (org-archive-subtree-default-with-confirmation ;;;;;; org-archive-subtree-default) "org-archive" "org/org-archive.el" -;;;;;; (19845 45374)) +;;;;;; (20018 35031)) ;;; Generated autoloads from org/org-archive.el (autoload 'org-archive-subtree-default "org-archive" "\ @@ -19953,8 +20027,8 @@ This command is set with the variable `org-archive-default-command'. ;;;### (autoloads (org-export-as-ascii org-export-region-as-ascii ;;;;;; org-replace-region-by-ascii org-export-as-ascii-to-buffer ;;;;;; org-export-as-utf8-to-buffer org-export-as-utf8 org-export-as-latin1-to-buffer -;;;;;; org-export-as-latin1) "org-ascii" "org/org-ascii.el" (19931 -;;;;;; 11784)) +;;;;;; org-export-as-latin1) "org-ascii" "org/org-ascii.el" (20018 +;;;;;; 35031)) ;;; Generated autoloads from org/org-ascii.el (autoload 'org-export-as-latin1 "org-ascii" "\ @@ -19968,7 +20042,7 @@ Like `org-export-as-ascii-to-buffer', use latin1 encoding for symbols. \(fn &rest ARGS)" t nil) (autoload 'org-export-as-utf8 "org-ascii" "\ -Like `org-export-as-ascii', use use encoding for special symbols. +Like `org-export-as-ascii', use encoding for special symbols. \(fn &rest ARGS)" t nil) @@ -20027,8 +20101,8 @@ publishing directory. ;;;*** -;;;### (autoloads (org-attach) "org-attach" "org/org-attach.el" (19931 -;;;;;; 11784)) +;;;### (autoloads (org-attach) "org-attach" "org/org-attach.el" (20018 +;;;;;; 35031)) ;;; Generated autoloads from org/org-attach.el (autoload 'org-attach "org-attach" "\ @@ -20040,7 +20114,7 @@ Shows a list of commands and prompts for another key to execute a command. ;;;*** ;;;### (autoloads (org-bbdb-anniversaries) "org-bbdb" "org/org-bbdb.el" -;;;;;; (19845 45374)) +;;;;;; (20018 35031)) ;;; Generated autoloads from org/org-bbdb.el (autoload 'org-bbdb-anniversaries "org-bbdb" "\ @@ -20051,7 +20125,7 @@ Extract anniversaries from BBDB for display in the agenda. ;;;*** ;;;### (autoloads (org-capture-import-remember-templates org-capture-insert-template-here -;;;;;; org-capture) "org-capture" "org/org-capture.el" (19845 45374)) +;;;;;; org-capture) "org-capture" "org/org-capture.el" (20018 35031)) ;;; Generated autoloads from org/org-capture.el (autoload 'org-capture "org-capture" "\ @@ -20089,7 +20163,7 @@ Set org-capture-templates to be similar to `org-remember-templates'. ;;;*** ;;;### (autoloads (org-clock-persistence-insinuate org-get-clocktable) -;;;;;; "org-clock" "org/org-clock.el" (19845 45374)) +;;;;;; "org-clock" "org/org-clock.el" (20018 35031)) ;;; Generated autoloads from org/org-clock.el (autoload 'org-get-clocktable "org-clock" "\ @@ -20107,7 +20181,7 @@ Set up hooks for clock persistence. ;;;*** ;;;### (autoloads (org-datetree-find-date-create) "org-datetree" -;;;;;; "org/org-datetree.el" (19845 45374)) +;;;;;; "org/org-datetree.el" (20018 35031)) ;;; Generated autoloads from org/org-datetree.el (autoload 'org-datetree-find-date-create "org-datetree" "\ @@ -20123,7 +20197,7 @@ tree can be found. ;;;### (autoloads (org-export-as-docbook org-export-as-docbook-pdf-and-open ;;;;;; org-export-as-docbook-pdf org-export-region-as-docbook org-replace-region-by-docbook ;;;;;; org-export-as-docbook-to-buffer org-export-as-docbook-batch) -;;;;;; "org-docbook" "org/org-docbook.el" (19845 45374)) +;;;;;; "org-docbook" "org/org-docbook.el" (20018 35031)) ;;; Generated autoloads from org/org-docbook.el (autoload 'org-export-as-docbook-batch "org-docbook" "\ @@ -20200,7 +20274,7 @@ publishing directory. ;;;### (autoloads (org-insert-export-options-template org-export-as-org ;;;;;; org-export-visible org-export) "org-exp" "org/org-exp.el" -;;;;;; (19931 11784)) +;;;;;; (20018 35031)) ;;; Generated autoloads from org/org-exp.el (autoload 'org-export "org-exp" "\ @@ -20213,6 +20287,10 @@ The prefix argument ARG will be passed to the exporter. However, if ARG is a double universal prefix \\[universal-argument] \\[universal-argument], that means to inverse the value of `org-export-run-in-background'. +If `org-export-initial-scope' is set to 'subtree, try to export +the current subtree, otherwise try to export the whole buffer. +Pressing `1' will switch between these two options. + \(fn &optional ARG)" t nil) (autoload 'org-export-visible "org-exp" "\ @@ -20257,8 +20335,8 @@ Insert into the buffer a template with information for exporting. ;;;*** ;;;### (autoloads (org-feed-show-raw-feed org-feed-goto-inbox org-feed-update -;;;;;; org-feed-update-all) "org-feed" "org/org-feed.el" (19845 -;;;;;; 45374)) +;;;;;; org-feed-update-all) "org-feed" "org/org-feed.el" (20018 +;;;;;; 35031)) ;;; Generated autoloads from org/org-feed.el (autoload 'org-feed-update-all "org-feed" "\ @@ -20286,34 +20364,58 @@ Show the raw feed buffer of a feed. ;;;*** ;;;### (autoloads (org-footnote-normalize org-footnote-action) "org-footnote" -;;;;;; "org/org-footnote.el" (19845 45374)) +;;;;;; "org/org-footnote.el" (20018 35031)) ;;; Generated autoloads from org/org-footnote.el (autoload 'org-footnote-action "org-footnote" "\ Do the right thing for footnotes. -When at a footnote reference, jump to the definition. When at a definition, -jump to the references. When neither at definition or reference, -create a new footnote, interactively. + +When at a footnote reference, jump to the definition. + +When at a definition, jump to the references if they exist, offer +to create them otherwise. + +When neither at definition or reference, create a new footnote, +interactively. + With prefix arg SPECIAL, offer additional commands in a menu. \(fn &optional SPECIAL)" t nil) (autoload 'org-footnote-normalize "org-footnote" "\ Collect the footnotes in various formats and normalize them. + This finds the different sorts of footnotes allowed in Org, and normalizes them to the usual [N] format that is understood by the Org-mode exporters. + When SORT-ONLY is set, only sort the footnote definitions into the referenced sequence. -\(fn &optional SORT-ONLY FOR-PREPROCESSOR)" nil nil) +If Org is amidst an export process, EXPORT-PROPS will hold the +export properties of the buffer. + +When EXPORT-PROPS is non-nil, the default action is to insert +normalized footnotes towards the end of the pre-processing buffer. +Some exporters like docbook, odt, etc. expect that footnote +definitions be available before any references to them. Such +exporters can let bind `org-footnote-insert-pos-for-preprocessor' to +symbol 'point-min to achieve the desired behaviour. + +Additional note on `org-footnote-insert-pos-for-preprocessor': +1. This variable has not effect when FOR-PREPROCESSOR is nil. +2. This variable (potentially) obviates the need for extra scan + of pre-processor buffer as witnessed in + `org-export-docbook-get-footnotes'. + +\(fn &optional SORT-ONLY EXPORT-PROPS)" nil nil) ;;;*** ;;;### (autoloads (org-freemind-to-org-mode org-freemind-from-org-sparse-tree ;;;;;; org-freemind-from-org-mode org-freemind-from-org-mode-node ;;;;;; org-freemind-show org-export-as-freemind) "org-freemind" -;;;;;; "org/org-freemind.el" (19845 45374)) +;;;;;; "org/org-freemind.el" (20018 35031)) ;;; Generated autoloads from org/org-freemind.el (autoload 'org-export-as-freemind "org-freemind" "\ @@ -20374,7 +20476,7 @@ Convert FreeMind file MM-FILE to `org-mode' file ORG-FILE. ;;;### (autoloads (org-export-htmlize-generate-css org-export-as-html ;;;;;; org-export-region-as-html org-replace-region-by-html org-export-as-html-to-buffer ;;;;;; org-export-as-html-batch org-export-as-html-and-open) "org-html" -;;;;;; "org/org-html.el" (19931 11784)) +;;;;;; "org/org-html.el" (20018 35031)) ;;; Generated autoloads from org/org-html.el (put 'org-export-html-style-include-default 'safe-local-variable 'booleanp) @@ -20468,7 +20570,7 @@ that uses these same face definitions. ;;;### (autoloads (org-export-icalendar-combine-agenda-files org-export-icalendar-all-agenda-files ;;;;;; org-export-icalendar-this-file) "org-icalendar" "org/org-icalendar.el" -;;;;;; (19845 45374)) +;;;;;; (20018 35031)) ;;; Generated autoloads from org/org-icalendar.el (autoload 'org-export-icalendar-this-file "org-icalendar" "\ @@ -20496,7 +20598,7 @@ The file is stored under the name `org-combined-agenda-icalendar-file'. ;;;### (autoloads (org-id-store-link org-id-find-id-file org-id-find ;;;;;; org-id-goto org-id-get-with-outline-drilling org-id-get-with-outline-path-completion ;;;;;; org-id-get org-id-copy org-id-get-create) "org-id" "org/org-id.el" -;;;;;; (19845 45374)) +;;;;;; (20018 35031)) ;;; Generated autoloads from org/org-id.el (autoload 'org-id-get-create "org-id" "\ @@ -20565,7 +20667,7 @@ Store a link to the current entry, using its ID. ;;;*** ;;;### (autoloads (org-indent-mode) "org-indent" "org/org-indent.el" -;;;;;; (19845 45374)) +;;;;;; (20018 35031)) ;;; Generated autoloads from org/org-indent.el (autoload 'org-indent-mode "org-indent" "\ @@ -20580,7 +20682,7 @@ FIXME: How to update when broken? ;;;*** ;;;### (autoloads (org-irc-store-link) "org-irc" "org/org-irc.el" -;;;;;; (19845 45374)) +;;;;;; (20018 35031)) ;;; Generated autoloads from org/org-irc.el (autoload 'org-irc-store-link "org-irc" "\ @@ -20593,7 +20695,7 @@ Dispatch to the appropriate function to store a link to an IRC session. ;;;### (autoloads (org-export-as-pdf-and-open org-export-as-pdf org-export-as-latex ;;;;;; org-export-region-as-latex org-replace-region-by-latex org-export-as-latex-to-buffer ;;;;;; org-export-as-latex-batch) "org-latex" "org/org-latex.el" -;;;;;; (19845 45374)) +;;;;;; (20018 35031)) ;;; Generated autoloads from org/org-latex.el (autoload 'org-export-as-latex-batch "org-latex" "\ @@ -20673,8 +20775,8 @@ Export as LaTeX, then process through to PDF, and open. ;;;*** ;;;### (autoloads (org-mobile-create-sumo-agenda org-mobile-pull -;;;;;; org-mobile-push) "org-mobile" "org/org-mobile.el" (19845 -;;;;;; 45374)) +;;;;;; org-mobile-push) "org-mobile" "org/org-mobile.el" (20018 +;;;;;; 35031)) ;;; Generated autoloads from org/org-mobile.el (autoload 'org-mobile-push "org-mobile" "\ @@ -20699,7 +20801,7 @@ Create a file that contains all custom agenda views. ;;;*** ;;;### (autoloads (org-plot/gnuplot) "org-plot" "org/org-plot.el" -;;;;;; (19845 45374)) +;;;;;; (20018 35031)) ;;; Generated autoloads from org/org-plot.el (autoload 'org-plot/gnuplot "org-plot" "\ @@ -20713,7 +20815,7 @@ line directly before or after the table. ;;;### (autoloads (org-publish-current-project org-publish-current-file ;;;;;; org-publish-all org-publish) "org-publish" "org/org-publish.el" -;;;;;; (19845 45374)) +;;;;;; (20018 35031)) ;;; Generated autoloads from org/org-publish.el (defalias 'org-publish-project 'org-publish) @@ -20747,7 +20849,7 @@ the project. ;;;### (autoloads (org-remember-handler org-remember org-remember-apply-template ;;;;;; org-remember-annotation org-remember-insinuate) "org-remember" -;;;;;; "org/org-remember.el" (19845 45374)) +;;;;;; "org/org-remember.el" (20018 35031)) ;;; Generated autoloads from org/org-remember.el (autoload 'org-remember-insinuate "org-remember" "\ @@ -20823,7 +20925,7 @@ See also the variable `org-reverse-note-order'. ;;;*** ;;;### (autoloads (org-table-to-lisp orgtbl-mode turn-on-orgtbl) -;;;;;; "org-table" "org/org-table.el" (19914 25180)) +;;;;;; "org-table" "org/org-table.el" (20018 35031)) ;;; Generated autoloads from org/org-table.el (autoload 'turn-on-orgtbl "org-table" "\ @@ -20847,7 +20949,7 @@ The table is taken from the parameter TXT, or from the buffer at point. ;;;*** ;;;### (autoloads (org-export-as-taskjuggler-and-open org-export-as-taskjuggler) -;;;;;; "org-taskjuggler" "org/org-taskjuggler.el" (19845 45374)) +;;;;;; "org-taskjuggler" "org/org-taskjuggler.el" (20018 35031)) ;;; Generated autoloads from org/org-taskjuggler.el (autoload 'org-export-as-taskjuggler "org-taskjuggler" "\ @@ -20875,7 +20977,7 @@ with the TaskJuggler GUI. ;;;### (autoloads (org-timer-set-timer org-timer-item org-timer-change-times-in-region ;;;;;; org-timer org-timer-start) "org-timer" "org/org-timer.el" -;;;;;; (19845 45374)) +;;;;;; (20018 35031)) ;;; Generated autoloads from org/org-timer.el (autoload 'org-timer-start "org-timer" "\ @@ -20936,7 +21038,7 @@ replace any running timer. ;;;*** ;;;### (autoloads (org-export-as-xoxo) "org-xoxo" "org/org-xoxo.el" -;;;;;; (19845 45374)) +;;;;;; (20018 35031)) ;;; Generated autoloads from org/org-xoxo.el (autoload 'org-export-as-xoxo "org-xoxo" "\ @@ -21285,7 +21387,7 @@ Completion for the GNU tar utility. ;;;*** ;;;### (autoloads (pcomplete/mount pcomplete/umount pcomplete/kill) -;;;;;; "pcmpl-linux" "pcmpl-linux.el" (19845 45374)) +;;;;;; "pcmpl-linux" "pcmpl-linux.el" (19986 58615)) ;;; Generated autoloads from pcmpl-linux.el (autoload 'pcomplete/kill "pcmpl-linux" "\ @@ -21660,8 +21762,8 @@ they are not defaultly assigned to keys. ;;;*** -;;;### (autoloads (plstore-open) "plstore" "gnus/plstore.el" (19981 -;;;;;; 40664)) +;;;### (autoloads (plstore-open) "plstore" "gnus/plstore.el" (19990 +;;;;;; 55648)) ;;; Generated autoloads from gnus/plstore.el (autoload 'plstore-open "plstore" "\ @@ -21699,7 +21801,7 @@ pong-mode keybindings:\\<pong-mode-map> ;;;*** -;;;### (autoloads (pop3-movemail) "pop3" "gnus/pop3.el" (19940 49234)) +;;;### (autoloads (pop3-movemail) "pop3" "gnus/pop3.el" (19988 13913)) ;;; Generated autoloads from gnus/pop3.el (autoload 'pop3-movemail "pop3" "\ @@ -21780,7 +21882,7 @@ Ignores leading comment characters. ;;;;;; pr-ps-buffer-print pr-ps-buffer-using-ghostscript pr-ps-buffer-preview ;;;;;; pr-ps-directory-ps-print pr-ps-directory-print pr-ps-directory-using-ghostscript ;;;;;; pr-ps-directory-preview pr-interface) "printing" "printing.el" -;;;;;; (19845 45374)) +;;;;;; (19999 41597)) ;;; Generated autoloads from printing.el (autoload 'pr-interface "printing" "\ @@ -22222,7 +22324,7 @@ Toggle menu lock. \(fn)" t nil) (autoload 'pr-toggle-region "printing" "\ -Toggle auto region. +Toggle whether the region is automagically detected. \(fn)" t nil) @@ -22367,7 +22469,7 @@ are both set to t. ;;;*** -;;;### (autoloads (proced) "proced" "proced.el" (19975 1875)) +;;;### (autoloads (proced) "proced" "proced.el" (20006 43871)) ;;; Generated autoloads from proced.el (autoload 'proced "proced" "\ @@ -23093,7 +23195,7 @@ Display `quickurl-list' as a formatted list using `quickurl-list-mode'. ;;;*** ;;;### (autoloads (rcirc-track-minor-mode rcirc-connect rcirc) "rcirc" -;;;;;; "net/rcirc.el" (19968 28627)) +;;;;;; "net/rcirc.el" (20015 58840)) ;;; Generated autoloads from net/rcirc.el (autoload 'rcirc "rcirc" "\ @@ -23187,7 +23289,7 @@ that were operated on recently. ;;;;;; string-rectangle delete-whitespace-rectangle open-rectangle ;;;;;; insert-rectangle yank-rectangle kill-rectangle extract-rectangle ;;;;;; delete-extract-rectangle delete-rectangle) "rect" "rect.el" -;;;;;; (19886 45771)) +;;;;;; (19999 41597)) ;;; Generated autoloads from rect.el (define-key ctl-x-r-map "c" 'clear-rectangle) (define-key ctl-x-r-map "k" 'kill-rectangle) @@ -23737,7 +23839,7 @@ variable. ;;;;;; rmail-secondary-file-directory rmail-primary-inbox-list rmail-highlighted-headers ;;;;;; rmail-retry-ignored-headers rmail-displayed-headers rmail-ignored-headers ;;;;;; rmail-user-mail-address-regexp rmail-movemail-variant-p) -;;;;;; "rmail" "mail/rmail.el" (19976 23054)) +;;;;;; "rmail" "mail/rmail.el" (19990 55648)) ;;; Generated autoloads from mail/rmail.el (autoload 'rmail-movemail-variant-p "rmail" "\ @@ -24141,7 +24243,7 @@ Toggle the use of ROT13 encoding for the current window. ;;;*** ;;;### (autoloads (rst-minor-mode rst-mode) "rst" "textmodes/rst.el" -;;;;;; (19932 55155)) +;;;;;; (19986 58615)) ;;; Generated autoloads from textmodes/rst.el (add-to-list 'auto-mode-alist (purecopy '("\\.re?st\\'" . rst-mode))) @@ -24708,8 +24810,9 @@ Semantic mode. ;;;;;; mail-citation-prefix-regexp mail-citation-hook mail-indentation-spaces ;;;;;; mail-yank-prefix mail-setup-hook mail-personal-alias-file ;;;;;; mail-default-reply-to mail-archive-file-name mail-header-separator -;;;;;; send-mail-function mail-interactive mail-self-blind mail-specify-envelope-from -;;;;;; mail-from-style) "sendmail" "mail/sendmail.el" (19980 19797)) +;;;;;; sendmail-query-once send-mail-function mail-interactive mail-self-blind +;;;;;; mail-specify-envelope-from mail-from-style) "sendmail" "mail/sendmail.el" +;;;;;; (19996 8027)) ;;; Generated autoloads from mail/sendmail.el (defvar mail-from-style 'default "\ @@ -24752,9 +24855,7 @@ Otherwise, let mailer send back a message to report errors.") (custom-autoload 'mail-interactive "sendmail" t) -(put 'send-mail-function 'standard-value '((if (or (and window-system (eq system-type 'darwin)) (eq system-type 'windows-nt)) 'mailclient-send-it 'sendmail-send-it))) - -(defvar send-mail-function (if (or (and window-system (eq system-type 'darwin)) (eq system-type 'windows-nt)) 'mailclient-send-it 'sendmail-send-it) "\ +(defvar send-mail-function 'sendmail-query-once "\ Function to call to send the current buffer as mail. The headers should be delimited by a line which is not a valid RFC822 header or continuation line, @@ -24763,7 +24864,13 @@ This is used by the default mail-sending commands. See also `message-send-mail-function' for use with the Message package.") (custom-autoload 'send-mail-function "sendmail" t) -(custom-initialize-delay 'send-mail-function nil) + +(autoload 'sendmail-query-once "sendmail" "\ +Send an email via `sendmail-query-once-function'. +If `sendmail-query-once-function' is `query', ask the user what +function to use, and then save that choice. + +\(fn)" nil nil) (defvar mail-header-separator (purecopy "--text follows this line--") "\ Line used to separate headers from text in messages being composed.") @@ -24988,8 +25095,8 @@ Like `mail' command, but display mail buffer in another frame. ;;;*** ;;;### (autoloads (server-save-buffers-kill-terminal server-mode -;;;;;; server-force-delete server-start) "server" "server.el" (19975 -;;;;;; 1875)) +;;;;;; server-force-delete server-start) "server" "server.el" (19986 +;;;;;; 58615)) ;;; Generated autoloads from server.el (put 'server-host 'risky-local-variable t) @@ -25341,8 +25448,8 @@ Otherwise, one argument `-i' is passed to the shell. ;;;*** -;;;### (autoloads (shr-insert-document) "shr" "gnus/shr.el" (19976 -;;;;;; 22732)) +;;;### (autoloads (shr-insert-document) "shr" "gnus/shr.el" (20007 +;;;;;; 64734)) ;;; Generated autoloads from gnus/shr.el (autoload 'shr-insert-document "shr" "\ @@ -25592,7 +25699,7 @@ interactively. If there's no argument, do it at the current buffer. ;;;*** ;;;### (autoloads (smtpmail-send-queued-mail smtpmail-send-it) "smtpmail" -;;;;;; "mail/smtpmail.el" (19978 37530)) +;;;;;; "mail/smtpmail.el" (20002 46800)) ;;; Generated autoloads from mail/smtpmail.el (autoload 'smtpmail-send-it "smtpmail" "\ @@ -25898,8 +26005,8 @@ From a program takes two point or marker arguments, BEG and END. ;;;*** -;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (19976 -;;;;;; 22732)) +;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (20022 +;;;;;; 32083)) ;;; Generated autoloads from gnus/spam.el (autoload 'spam-initialize "spam" "\ @@ -26002,7 +26109,7 @@ Return a vector containing the lines from `spook-phrases-file'. ;;;;;; sql-ms sql-ingres sql-solid sql-mysql sql-sqlite sql-informix ;;;;;; sql-sybase sql-oracle sql-product-interactive sql-connect ;;;;;; sql-mode sql-help sql-add-product-keywords) "sql" "progmodes/sql.el" -;;;;;; (19931 11784)) +;;;;;; (19988 13913)) ;;; Generated autoloads from progmodes/sql.el (autoload 'sql-add-product-keywords "sql" "\ @@ -26100,7 +26207,7 @@ their settings. The user will not be prompted for any login parameters if a value is specified in the connection settings. -\(fn CONNECTION)" t nil) +\(fn CONNECTION &optional NEW-NAME)" t nil) (autoload 'sql-product-interactive "sql" "\ Run PRODUCT interpreter as an inferior process. @@ -26778,7 +26885,7 @@ It relies on the `gpm' daemon being activated. ;;;*** -;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (19845 45374)) +;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (19998 49767)) ;;; Generated autoloads from tabify.el (autoload 'untabify "tabify" "\ @@ -27639,7 +27746,7 @@ subprocess started. ;;;*** ;;;### (autoloads (testcover-this-defun) "testcover" "emacs-lisp/testcover.el" -;;;;;; (19943 25429)) +;;;;;; (19998 49767)) ;;; Generated autoloads from emacs-lisp/testcover.el (autoload 'testcover-this-defun "testcover" "\ @@ -28137,33 +28244,39 @@ Compose Thai characters in the current buffer. ;;;### (autoloads (list-at-point number-at-point symbol-at-point ;;;;;; sexp-at-point thing-at-point bounds-of-thing-at-point forward-thing) -;;;;;; "thingatpt" "thingatpt.el" (19980 19797)) +;;;;;; "thingatpt" "thingatpt.el" (19990 55648)) ;;; Generated autoloads from thingatpt.el (autoload 'forward-thing "thingatpt" "\ Move forward to the end of the Nth next THING. +THING should be a symbol specifying a type of syntactic entity. +Possibilities include `symbol', `list', `sexp', `defun', +`filename', `url', `email', `word', `sentence', `whitespace', +`line', and `page'. \(fn THING &optional N)" nil nil) (autoload 'bounds-of-thing-at-point "thingatpt" "\ Determine the start and end buffer locations for the THING at point. -THING is a symbol which specifies the kind of syntactic entity you want. -Possibilities include `symbol', `list', `sexp', `defun', `filename', `url', -`email', `word', `sentence', `whitespace', `line', `page' and others. +THING should be a symbol specifying a type of syntactic entity. +Possibilities include `symbol', `list', `sexp', `defun', +`filename', `url', `email', `word', `sentence', `whitespace', +`line', and `page'. -See the file `thingatpt.el' for documentation on how to define -a symbol as a valid THING. +See the file `thingatpt.el' for documentation on how to define a +valid THING. -The value is a cons cell (START . END) giving the start and end positions -of the textual entity that was found. +Return a cons cell (START . END) giving the start and end +positions of the thing found. \(fn THING)" nil nil) (autoload 'thing-at-point "thingatpt" "\ Return the THING at point. -THING is a symbol which specifies the kind of syntactic entity you want. -Possibilities include `symbol', `list', `sexp', `defun', `filename', `url', -`email', `word', `sentence', `whitespace', `line', `page' and others. +THING should be a symbol specifying a type of syntactic entity. +Possibilities include `symbol', `list', `sexp', `defun', +`filename', `url', `email', `word', `sentence', `whitespace', +`line', and `page'. See the file `thingatpt.el' for documentation on how to define a symbol as a valid THING. @@ -28332,7 +28445,7 @@ This function performs no refilling of the changed text. ;;;### (autoloads (emacs-init-time emacs-uptime display-time-world ;;;;;; display-time-mode display-time display-time-day-and-date) -;;;;;; "time" "time.el" (19886 45771)) +;;;;;; "time" "time.el" (19999 41597)) ;;; Generated autoloads from time.el (defvar display-time-day-and-date nil "\ @@ -28778,7 +28891,7 @@ Show TODO list. ;;;### (autoloads (tool-bar-local-item-from-menu tool-bar-add-item-from-menu ;;;;;; tool-bar-local-item tool-bar-add-item toggle-tool-bar-mode-from-frame) -;;;;;; "tool-bar" "tool-bar.el" (19886 45771)) +;;;;;; "tool-bar" "tool-bar.el" (19994 52720)) ;;; Generated autoloads from tool-bar.el (autoload 'toggle-tool-bar-mode-from-frame "tool-bar" "\ @@ -28961,7 +29074,7 @@ BUFFER defaults to `trace-buffer'. ;;;### (autoloads (tramp-unload-tramp tramp-completion-handle-file-name-completion ;;;;;; tramp-completion-handle-file-name-all-completions tramp-unload-file-name-handlers ;;;;;; tramp-file-name-handler tramp-syntax tramp-mode) "tramp" -;;;;;; "net/tramp.el" (19981 40664)) +;;;;;; "net/tramp.el" (20010 40918)) ;;; Generated autoloads from net/tramp.el (defvar tramp-mode t "\ @@ -29197,7 +29310,7 @@ First column's text sSs Second column's text ;;;;;; type-break type-break-mode type-break-keystroke-threshold ;;;;;; type-break-good-break-interval type-break-good-rest-interval ;;;;;; type-break-interval type-break-mode) "type-break" "type-break.el" -;;;;;; (19981 40664)) +;;;;;; (19985 37722)) ;;; Generated autoloads from type-break.el (defvar type-break-mode nil "\ @@ -29601,7 +29714,7 @@ RATING a rating between 1 and 10 of the strength of the authentication. ;;;*** ;;;### (autoloads (url-cache-extract url-is-cached url-store-in-cache) -;;;;;; "url-cache" "url/url-cache.el" (19845 45374)) +;;;;;; "url-cache" "url/url-cache.el" (19988 13913)) ;;; Generated autoloads from url/url-cache.el (autoload 'url-store-in-cache "url-cache" "\ @@ -29732,7 +29845,7 @@ accessible. ;;;*** ;;;### (autoloads (url-http-options url-http-file-attributes url-http-file-exists-p -;;;;;; url-http) "url-http" "url/url-http.el" (19882 48702)) +;;;;;; url-http) "url-http" "url/url-http.el" (19997 54906)) ;;; Generated autoloads from url/url-http.el (autoload 'url-http "url-http" "\ @@ -30210,8 +30323,8 @@ If FILE-NAME is non-nil, save the result to FILE-NAME. ;;;;;; vc-print-log vc-retrieve-tag vc-create-tag vc-merge vc-insert-headers ;;;;;; vc-revision-other-window vc-root-diff vc-ediff vc-version-ediff ;;;;;; vc-diff vc-version-diff vc-register vc-next-action vc-before-checkin-hook -;;;;;; vc-checkin-hook vc-checkout-hook) "vc" "vc/vc.el" (19976 -;;;;;; 22732)) +;;;;;; vc-checkin-hook vc-checkout-hook) "vc" "vc/vc.el" (19997 +;;;;;; 28887)) ;;; Generated autoloads from vc/vc.el (defvar vc-checkout-hook nil "\ @@ -30531,7 +30644,7 @@ mode-specific menu. `vc-annotate-color-map' and ;;;*** -;;;### (autoloads nil "vc-arch" "vc/vc-arch.el" (19845 45374)) +;;;### (autoloads nil "vc-arch" "vc/vc-arch.el" (19984 16846)) ;;; Generated autoloads from vc/vc-arch.el (defun vc-arch-registered (file) (if (vc-find-root file "{arch}/=tagging-method") @@ -30541,7 +30654,7 @@ mode-specific menu. `vc-annotate-color-map' and ;;;*** -;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (19931 34253)) +;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (19991 42275)) ;;; Generated autoloads from vc/vc-bzr.el (defconst vc-bzr-admin-dirname ".bzr" "\ @@ -31535,7 +31648,7 @@ Convert Vietnamese characters of the current buffer to `VIQR' mnemonics. ;;;;;; view-mode view-buffer-other-frame view-buffer-other-window ;;;;;; view-buffer view-file-other-frame view-file-other-window ;;;;;; view-file kill-buffer-if-not-modified view-remove-frame-by-deleting) -;;;;;; "view" "view.el" (19958 33091)) +;;;;;; "view" "view.el" (20006 43871)) ;;; Generated autoloads from view.el (defvar view-remove-frame-by-deleting t "\ @@ -31929,7 +32042,7 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke ;;;*** ;;;### (autoloads (which-function-mode) "which-func" "progmodes/which-func.el" -;;;;;; (19915 46047)) +;;;;;; (19988 13913)) ;;; Generated autoloads from progmodes/which-func.el (put 'which-func-format 'risky-local-variable t) (put 'which-func-current 'risky-local-variable t) @@ -32488,7 +32601,7 @@ Default MODIFIER is 'shift. ;;;*** ;;;### (autoloads (winner-mode winner-mode) "winner" "winner.el" -;;;;;; (19845 45374)) +;;;;;; (19998 49767)) ;;; Generated autoloads from winner.el (defvar winner-mode nil "\ @@ -32900,36 +33013,35 @@ Zone out, completely. ;;;;;; "emacs-lisp/eieio.el" "emacs-lisp/find-gc.el" "emacs-lisp/gulp.el" ;;;;;; "emacs-lisp/lisp-mnt.el" "emacs-lisp/package-x.el" "emacs-lisp/regi.el" ;;;;;; "emacs-lisp/smie.el" "emacs-lisp/tcover-ses.el" "emacs-lisp/tcover-unsafep.el" -;;;;;; "emacs-lock.el" "emulation/cua-gmrk.el" "emulation/cua-rect.el" -;;;;;; "emulation/edt-lk201.el" "emulation/edt-mapper.el" "emulation/edt-pc.el" -;;;;;; "emulation/edt-vt100.el" "emulation/tpu-extras.el" "emulation/viper-cmd.el" -;;;;;; "emulation/viper-ex.el" "emulation/viper-init.el" "emulation/viper-keym.el" -;;;;;; "emulation/viper-macs.el" "emulation/viper-mous.el" "emulation/viper-util.el" -;;;;;; "erc/erc-backend.el" "erc/erc-goodies.el" "erc/erc-ibuffer.el" -;;;;;; "erc/erc-lang.el" "eshell/em-alias.el" "eshell/em-banner.el" -;;;;;; "eshell/em-basic.el" "eshell/em-cmpl.el" "eshell/em-dirs.el" -;;;;;; "eshell/em-glob.el" "eshell/em-hist.el" "eshell/em-ls.el" -;;;;;; "eshell/em-pred.el" "eshell/em-prompt.el" "eshell/em-rebind.el" -;;;;;; "eshell/em-script.el" "eshell/em-smart.el" "eshell/em-term.el" -;;;;;; "eshell/em-unix.el" "eshell/em-xtra.el" "eshell/esh-arg.el" -;;;;;; "eshell/esh-cmd.el" "eshell/esh-ext.el" "eshell/esh-groups.el" -;;;;;; "eshell/esh-io.el" "eshell/esh-module.el" "eshell/esh-opt.el" -;;;;;; "eshell/esh-proc.el" "eshell/esh-util.el" "eshell/esh-var.el" -;;;;;; "ezimage.el" "foldout.el" "format-spec.el" "forms-d2.el" -;;;;;; "forms-pass.el" "fringe.el" "generic-x.el" "gnus/compface.el" -;;;;;; "gnus/gnus-async.el" "gnus/gnus-bcklg.el" "gnus/gnus-cite.el" -;;;;;; "gnus/gnus-cus.el" "gnus/gnus-demon.el" "gnus/gnus-dup.el" -;;;;;; "gnus/gnus-eform.el" "gnus/gnus-ems.el" "gnus/gnus-int.el" -;;;;;; "gnus/gnus-logic.el" "gnus/gnus-mh.el" "gnus/gnus-salt.el" -;;;;;; "gnus/gnus-score.el" "gnus/gnus-setup.el" "gnus/gnus-srvr.el" -;;;;;; "gnus/gnus-topic.el" "gnus/gnus-undo.el" "gnus/gnus-util.el" -;;;;;; "gnus/gnus-uu.el" "gnus/gnus-vm.el" "gnus/gssapi.el" "gnus/ietf-drums.el" -;;;;;; "gnus/legacy-gnus-agent.el" "gnus/mail-parse.el" "gnus/mail-prsvr.el" -;;;;;; "gnus/mail-source.el" "gnus/mailcap.el" "gnus/messcompat.el" -;;;;;; "gnus/mm-bodies.el" "gnus/mm-decode.el" "gnus/mm-encode.el" -;;;;;; "gnus/mm-util.el" "gnus/mm-view.el" "gnus/mml-sec.el" "gnus/mml-smime.el" -;;;;;; "gnus/mml.el" "gnus/nnagent.el" "gnus/nnbabyl.el" "gnus/nndir.el" -;;;;;; "gnus/nndraft.el" "gnus/nneething.el" "gnus/nngateway.el" +;;;;;; "emulation/cua-gmrk.el" "emulation/cua-rect.el" "emulation/edt-lk201.el" +;;;;;; "emulation/edt-mapper.el" "emulation/edt-pc.el" "emulation/edt-vt100.el" +;;;;;; "emulation/tpu-extras.el" "emulation/viper-cmd.el" "emulation/viper-ex.el" +;;;;;; "emulation/viper-init.el" "emulation/viper-keym.el" "emulation/viper-macs.el" +;;;;;; "emulation/viper-mous.el" "emulation/viper-util.el" "erc/erc-backend.el" +;;;;;; "erc/erc-goodies.el" "erc/erc-ibuffer.el" "erc/erc-lang.el" +;;;;;; "eshell/em-alias.el" "eshell/em-banner.el" "eshell/em-basic.el" +;;;;;; "eshell/em-cmpl.el" "eshell/em-dirs.el" "eshell/em-glob.el" +;;;;;; "eshell/em-hist.el" "eshell/em-ls.el" "eshell/em-pred.el" +;;;;;; "eshell/em-prompt.el" "eshell/em-rebind.el" "eshell/em-script.el" +;;;;;; "eshell/em-smart.el" "eshell/em-term.el" "eshell/em-unix.el" +;;;;;; "eshell/em-xtra.el" "eshell/esh-arg.el" "eshell/esh-cmd.el" +;;;;;; "eshell/esh-ext.el" "eshell/esh-groups.el" "eshell/esh-io.el" +;;;;;; "eshell/esh-module.el" "eshell/esh-opt.el" "eshell/esh-proc.el" +;;;;;; "eshell/esh-util.el" "eshell/esh-var.el" "ezimage.el" "foldout.el" +;;;;;; "format-spec.el" "forms-d2.el" "forms-pass.el" "fringe.el" +;;;;;; "generic-x.el" "gnus/compface.el" "gnus/gnus-async.el" "gnus/gnus-bcklg.el" +;;;;;; "gnus/gnus-cite.el" "gnus/gnus-cus.el" "gnus/gnus-demon.el" +;;;;;; "gnus/gnus-dup.el" "gnus/gnus-eform.el" "gnus/gnus-ems.el" +;;;;;; "gnus/gnus-int.el" "gnus/gnus-logic.el" "gnus/gnus-mh.el" +;;;;;; "gnus/gnus-salt.el" "gnus/gnus-score.el" "gnus/gnus-setup.el" +;;;;;; "gnus/gnus-srvr.el" "gnus/gnus-topic.el" "gnus/gnus-undo.el" +;;;;;; "gnus/gnus-util.el" "gnus/gnus-uu.el" "gnus/gnus-vm.el" "gnus/gssapi.el" +;;;;;; "gnus/ietf-drums.el" "gnus/legacy-gnus-agent.el" "gnus/mail-parse.el" +;;;;;; "gnus/mail-prsvr.el" "gnus/mail-source.el" "gnus/mailcap.el" +;;;;;; "gnus/messcompat.el" "gnus/mm-bodies.el" "gnus/mm-decode.el" +;;;;;; "gnus/mm-encode.el" "gnus/mm-util.el" "gnus/mm-view.el" "gnus/mml-sec.el" +;;;;;; "gnus/mml-smime.el" "gnus/mml.el" "gnus/nnagent.el" "gnus/nnbabyl.el" +;;;;;; "gnus/nndir.el" "gnus/nndraft.el" "gnus/nneething.el" "gnus/nngateway.el" ;;;;;; "gnus/nnheader.el" "gnus/nnimap.el" "gnus/nnir.el" "gnus/nnmail.el" ;;;;;; "gnus/nnmaildir.el" "gnus/nnmairix.el" "gnus/nnmbox.el" "gnus/nnmh.el" ;;;;;; "gnus/nnnil.el" "gnus/nnoo.el" "gnus/nnregistry.el" "gnus/nnrss.el" @@ -32963,60 +33075,62 @@ Zone out, completely. ;;;;;; "mh-e/mh-utils.el" "mh-e/mh-xface.el" "mouse-copy.el" "mouse.el" ;;;;;; "mwheel.el" "net/dns.el" "net/eudc-vars.el" "net/eudcb-bbdb.el" ;;;;;; "net/eudcb-ldap.el" "net/eudcb-mab.el" "net/eudcb-ph.el" -;;;;;; "net/gnutls.el" "net/hmac-def.el" "net/hmac-md5.el" "net/imap.el" -;;;;;; "net/ldap.el" "net/mairix.el" "net/newsticker.el" "net/ntlm.el" -;;;;;; "net/sasl-cram.el" "net/sasl-digest.el" "net/sasl-ntlm.el" -;;;;;; "net/sasl.el" "net/soap-client.el" "net/soap-inspect.el" -;;;;;; "net/socks.el" "net/tls.el" "net/tramp-cache.el" "net/tramp-cmds.el" -;;;;;; "net/tramp-compat.el" "net/tramp-gvfs.el" "net/tramp-gw.el" -;;;;;; "net/tramp-loaddefs.el" "net/tramp-sh.el" "net/tramp-smb.el" -;;;;;; "net/tramp-uu.el" "net/trampver.el" "net/zeroconf.el" "notifications.el" -;;;;;; "nxml/nxml-enc.el" "nxml/nxml-maint.el" "nxml/nxml-ns.el" -;;;;;; "nxml/nxml-outln.el" "nxml/nxml-parse.el" "nxml/nxml-rap.el" -;;;;;; "nxml/nxml-util.el" "nxml/rng-dt.el" "nxml/rng-loc.el" "nxml/rng-maint.el" -;;;;;; "nxml/rng-match.el" "nxml/rng-parse.el" "nxml/rng-pttrn.el" -;;;;;; "nxml/rng-uri.el" "nxml/rng-util.el" "nxml/xsd-regexp.el" -;;;;;; "org/ob-C.el" "org/ob-R.el" "org/ob-asymptote.el" "org/ob-calc.el" -;;;;;; "org/ob-clojure.el" "org/ob-comint.el" "org/ob-css.el" "org/ob-ditaa.el" -;;;;;; "org/ob-dot.el" "org/ob-emacs-lisp.el" "org/ob-eval.el" "org/ob-exp.el" -;;;;;; "org/ob-gnuplot.el" "org/ob-haskell.el" "org/ob-js.el" "org/ob-latex.el" -;;;;;; "org/ob-ledger.el" "org/ob-lisp.el" "org/ob-matlab.el" "org/ob-mscgen.el" -;;;;;; "org/ob-ocaml.el" "org/ob-octave.el" "org/ob-org.el" "org/ob-perl.el" -;;;;;; "org/ob-plantuml.el" "org/ob-python.el" "org/ob-ref.el" "org/ob-ruby.el" -;;;;;; "org/ob-sass.el" "org/ob-scheme.el" "org/ob-screen.el" "org/ob-sh.el" -;;;;;; "org/ob-sql.el" "org/ob-sqlite.el" "org/ob-table.el" "org/org-beamer.el" -;;;;;; "org/org-bibtex.el" "org/org-colview.el" "org/org-compat.el" -;;;;;; "org/org-complete.el" "org/org-crypt.el" "org/org-ctags.el" -;;;;;; "org/org-docview.el" "org/org-entities.el" "org/org-exp-blocks.el" -;;;;;; "org/org-faces.el" "org/org-gnus.el" "org/org-habit.el" "org/org-info.el" -;;;;;; "org/org-inlinetask.el" "org/org-install.el" "org/org-jsinfo.el" -;;;;;; "org/org-list.el" "org/org-mac-message.el" "org/org-macs.el" -;;;;;; "org/org-mew.el" "org/org-mhe.el" "org/org-mks.el" "org/org-mouse.el" -;;;;;; "org/org-protocol.el" "org/org-rmail.el" "org/org-src.el" -;;;;;; "org/org-vm.el" "org/org-w3m.el" "org/org-wl.el" "patcomp.el" -;;;;;; "play/gamegrid.el" "play/gametree.el" "play/meese.el" "progmodes/ada-prj.el" -;;;;;; "progmodes/cc-align.el" "progmodes/cc-awk.el" "progmodes/cc-bytecomp.el" -;;;;;; "progmodes/cc-cmds.el" "progmodes/cc-defs.el" "progmodes/cc-fonts.el" -;;;;;; "progmodes/cc-langs.el" "progmodes/cc-menus.el" "progmodes/ebnf-abn.el" -;;;;;; "progmodes/ebnf-bnf.el" "progmodes/ebnf-dtd.el" "progmodes/ebnf-ebx.el" -;;;;;; "progmodes/ebnf-iso.el" "progmodes/ebnf-otz.el" "progmodes/ebnf-yac.el" -;;;;;; "progmodes/idlw-complete-structtag.el" "progmodes/idlw-help.el" -;;;;;; "progmodes/idlw-toolbar.el" "progmodes/mantemp.el" "progmodes/xscheme.el" -;;;;;; "ps-def.el" "ps-mule.el" "ps-samp.el" "saveplace.el" "sb-image.el" -;;;;;; "scroll-bar.el" "select.el" "soundex.el" "subdirs.el" "tempo.el" -;;;;;; "textmodes/bib-mode.el" "textmodes/makeinfo.el" "textmodes/page-ext.el" -;;;;;; "textmodes/refbib.el" "textmodes/refer.el" "textmodes/reftex-auc.el" -;;;;;; "textmodes/reftex-dcr.el" "textmodes/reftex-ref.el" "textmodes/reftex-sel.el" -;;;;;; "textmodes/reftex-toc.el" "textmodes/texnfo-upd.el" "timezone.el" -;;;;;; "tooltip.el" "tree-widget.el" "uniquify.el" "url/url-about.el" -;;;;;; "url/url-cookie.el" "url/url-dired.el" "url/url-expand.el" -;;;;;; "url/url-ftp.el" "url/url-future.el" "url/url-history.el" -;;;;;; "url/url-imap.el" "url/url-methods.el" "url/url-nfs.el" "url/url-proxy.el" -;;;;;; "url/url-vars.el" "vc/ediff-diff.el" "vc/ediff-init.el" "vc/ediff-merg.el" -;;;;;; "vc/ediff-ptch.el" "vc/ediff-vers.el" "vc/ediff-wind.el" -;;;;;; "vc/pcvs-info.el" "vc/pcvs-parse.el" "vc/pcvs-util.el" "vc/vc-dav.el" -;;;;;; "vcursor.el" "vt-control.el" "vt100-led.el" "w32-fns.el" -;;;;;; "w32-vars.el" "x-dnd.el") (19981 41048 99944)) +;;;;;; "net/hmac-def.el" "net/hmac-md5.el" "net/imap.el" "net/ldap.el" +;;;;;; "net/mairix.el" "net/newsticker.el" "net/ntlm.el" "net/sasl-cram.el" +;;;;;; "net/sasl-digest.el" "net/sasl-ntlm.el" "net/sasl.el" "net/soap-client.el" +;;;;;; "net/soap-inspect.el" "net/socks.el" "net/tls.el" "net/tramp-cache.el" +;;;;;; "net/tramp-cmds.el" "net/tramp-compat.el" "net/tramp-gvfs.el" +;;;;;; "net/tramp-gw.el" "net/tramp-loaddefs.el" "net/tramp-sh.el" +;;;;;; "net/tramp-smb.el" "net/tramp-uu.el" "net/trampver.el" "net/zeroconf.el" +;;;;;; "notifications.el" "nxml/nxml-enc.el" "nxml/nxml-maint.el" +;;;;;; "nxml/nxml-ns.el" "nxml/nxml-outln.el" "nxml/nxml-parse.el" +;;;;;; "nxml/nxml-rap.el" "nxml/nxml-util.el" "nxml/rng-dt.el" "nxml/rng-loc.el" +;;;;;; "nxml/rng-maint.el" "nxml/rng-match.el" "nxml/rng-parse.el" +;;;;;; "nxml/rng-pttrn.el" "nxml/rng-uri.el" "nxml/rng-util.el" +;;;;;; "nxml/xsd-regexp.el" "org/ob-C.el" "org/ob-R.el" "org/ob-asymptote.el" +;;;;;; "org/ob-awk.el" "org/ob-calc.el" "org/ob-clojure.el" "org/ob-comint.el" +;;;;;; "org/ob-css.el" "org/ob-ditaa.el" "org/ob-dot.el" "org/ob-emacs-lisp.el" +;;;;;; "org/ob-eval.el" "org/ob-exp.el" "org/ob-gnuplot.el" "org/ob-haskell.el" +;;;;;; "org/ob-java.el" "org/ob-js.el" "org/ob-latex.el" "org/ob-ledger.el" +;;;;;; "org/ob-lilypond.el" "org/ob-lisp.el" "org/ob-matlab.el" +;;;;;; "org/ob-maxima.el" "org/ob-mscgen.el" "org/ob-ocaml.el" "org/ob-octave.el" +;;;;;; "org/ob-org.el" "org/ob-perl.el" "org/ob-plantuml.el" "org/ob-python.el" +;;;;;; "org/ob-ref.el" "org/ob-ruby.el" "org/ob-sass.el" "org/ob-scheme.el" +;;;;;; "org/ob-screen.el" "org/ob-sh.el" "org/ob-sql.el" "org/ob-sqlite.el" +;;;;;; "org/ob-table.el" "org/org-beamer.el" "org/org-bibtex.el" +;;;;;; "org/org-colview.el" "org/org-compat.el" "org/org-crypt.el" +;;;;;; "org/org-ctags.el" "org/org-docview.el" "org/org-entities.el" +;;;;;; "org/org-exp-blocks.el" "org/org-faces.el" "org/org-gnus.el" +;;;;;; "org/org-habit.el" "org/org-info.el" "org/org-inlinetask.el" +;;;;;; "org/org-install.el" "org/org-jsinfo.el" "org/org-list.el" +;;;;;; "org/org-mac-message.el" "org/org-macs.el" "org/org-mew.el" +;;;;;; "org/org-mhe.el" "org/org-mks.el" "org/org-mouse.el" "org/org-pcomplete.el" +;;;;;; "org/org-protocol.el" "org/org-rmail.el" "org/org-special-blocks.el" +;;;;;; "org/org-src.el" "org/org-vm.el" "org/org-w3m.el" "org/org-wl.el" +;;;;;; "patcomp.el" "play/gamegrid.el" "play/gametree.el" "play/meese.el" +;;;;;; "progmodes/ada-prj.el" "progmodes/cc-align.el" "progmodes/cc-awk.el" +;;;;;; "progmodes/cc-bytecomp.el" "progmodes/cc-cmds.el" "progmodes/cc-defs.el" +;;;;;; "progmodes/cc-fonts.el" "progmodes/cc-langs.el" "progmodes/cc-menus.el" +;;;;;; "progmodes/ebnf-abn.el" "progmodes/ebnf-bnf.el" "progmodes/ebnf-dtd.el" +;;;;;; "progmodes/ebnf-ebx.el" "progmodes/ebnf-iso.el" "progmodes/ebnf-otz.el" +;;;;;; "progmodes/ebnf-yac.el" "progmodes/idlw-complete-structtag.el" +;;;;;; "progmodes/idlw-help.el" "progmodes/idlw-toolbar.el" "progmodes/mantemp.el" +;;;;;; "progmodes/xscheme.el" "ps-def.el" "ps-mule.el" "ps-samp.el" +;;;;;; "saveplace.el" "sb-image.el" "scroll-bar.el" "select.el" +;;;;;; "soundex.el" "subdirs.el" "tempo.el" "textmodes/bib-mode.el" +;;;;;; "textmodes/makeinfo.el" "textmodes/page-ext.el" "textmodes/refbib.el" +;;;;;; "textmodes/refer.el" "textmodes/reftex-auc.el" "textmodes/reftex-dcr.el" +;;;;;; "textmodes/reftex-ref.el" "textmodes/reftex-sel.el" "textmodes/reftex-toc.el" +;;;;;; "textmodes/texnfo-upd.el" "timezone.el" "tooltip.el" "tree-widget.el" +;;;;;; "uniquify.el" "url/url-about.el" "url/url-cookie.el" "url/url-dired.el" +;;;;;; "url/url-expand.el" "url/url-ftp.el" "url/url-future.el" +;;;;;; "url/url-history.el" "url/url-imap.el" "url/url-methods.el" +;;;;;; "url/url-nfs.el" "url/url-proxy.el" "url/url-vars.el" "vc/ediff-diff.el" +;;;;;; "vc/ediff-init.el" "vc/ediff-merg.el" "vc/ediff-ptch.el" +;;;;;; "vc/ediff-vers.el" "vc/ediff-wind.el" "vc/pcvs-info.el" "vc/pcvs-parse.el" +;;;;;; "vc/pcvs-util.el" "vc/vc-dav.el" "vcursor.el" "vt-control.el" +;;;;;; "vt100-led.el" "w32-fns.el" "w32-vars.el" "x-dnd.el") (20022 +;;;;;; 32281 188358)) ;;;*** diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index fe20ad921da..158435de86b 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -165,7 +165,8 @@ This is used by the default mail-sending commands. See also If `sendmail-query-once-function' is `query', ask the user what function to use, and then save that choice." (when (equal sendmail-query-once-function 'query) - (let* ((default + (let* ((mail-buffer (current-buffer)) + (default (cond ((or (and window-system (eq system-type 'darwin)) (eq system-type 'windows-nt)) @@ -195,7 +196,8 @@ function to use, and then save that choice." (if (y-or-n-p "Configure outgoing SMTP in Emacs? ") 'smtpmail-send-it default)) - (kill-buffer (current-buffer)))))) + (kill-buffer (current-buffer)) + (set-buffer mail-buffer))))) (customize-save-variable 'sendmail-query-once-function function))) (funcall sendmail-query-once-function)) diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index cc46660712f..3b406fa9331 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -589,7 +589,7 @@ The list is in preference order.") (defun smtpmail-query-smtp-server () (let ((server (read-string "Outgoing SMTP mail server: ")) - (ports '(587 "smtp")) + (ports '("smtp" 587)) stream port) (when (and smtpmail-smtp-server (not (member smtpmail-smtp-server ports))) diff --git a/lisp/net/network-stream.el b/lisp/net/network-stream.el index bb09d8945c9..ceb094cded7 100644 --- a/lisp/net/network-stream.el +++ b/lisp/net/network-stream.el @@ -230,7 +230,7 @@ functionality. (or builtin-starttls (and (or require-tls (plist-get parameters :use-starttls-if-possible)) - (executable-find "gnutls-cli"))) + (starttls-available-p))) (not (eq (plist-get parameters :type) 'plain))) ;; If using external STARTTLS, drop this connection and start ;; anew with `starttls-open-stream'. diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 9e04abb8cd5..7d43c4f7547 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -2695,7 +2695,8 @@ the only argument." (setq rcirc-topic (caddr args))))) (defun rcirc-handler-333 (process sender args text) - "Not in rfc1459.txt" + "333 says who set the topic and when. +Not in rfc1459.txt" (let ((buffer (or (rcirc-get-buffer process (cadr args)) (rcirc-get-temp-buffer-create process (cadr args))))) (with-current-buffer buffer diff --git a/lisp/net/trampver.el b/lisp/net/trampver.el index 7b4c6fd75b1..da51662b216 100644 --- a/lisp/net/trampver.el +++ b/lisp/net/trampver.el @@ -31,7 +31,7 @@ ;; should be changed only there. ;;;###tramp-autoload -(defconst tramp-version "2.2.2-pre" +(defconst tramp-version "2.2.2" "This version of Tramp.") ;;;###tramp-autoload @@ -44,7 +44,7 @@ (= emacs-major-version 21) (>= emacs-minor-version 4))) "ok" - (format "Tramp 2.2.2-pre is not fit for %s" + (format "Tramp 2.2.2 is not fit for %s" (when (string-match "^.*$" (emacs-version)) (match-string 0 (emacs-version))))))) (unless (string-match "\\`ok\\'" x) (error "%s" x))) diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index 0822f313ac4..43e4ad30e06 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog @@ -1,3 +1,8 @@ +2011-07-30 Carsten Dominik <carsten.dominik@gmail.com> + + * ob.el (org-babel-src-block-regexp): If a code block has a body, + its last character must be a newline. + 2011-07-28 Bastien Guerry <bzg@gnu.org> * org-publish.el (org-publish-index-generate-theindex): rename diff --git a/lisp/org/ob.el b/lisp/org/ob.el index 0de0aa661c5..44173fdb789 100644 --- a/lisp/org/ob.el +++ b/lisp/org/ob.el @@ -137,7 +137,7 @@ remove code block execution from the C-c C-c keybinding." ;; (4) header arguments "\\([^\n]*\\)\n" ;; (5) body - "\\([^\000]*?\\)[ \t]*#\\+end_src") + "\\([^\000]*?\n\\)?[ \t]*#\\+end_src") "Regexp used to identify code blocks.") (defvar org-babel-inline-src-block-regexp diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 258f9be9237..31a4fbaef4d 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -1028,45 +1028,45 @@ subshells can nest." (defun sh-font-lock-paren (start) (unless (nth 8 (syntax-ppss)) - (save-excursion - (goto-char start) - ;; Skip through all patterns - (while - (progn + (save-excursion + (goto-char start) + ;; Skip through all patterns + (while + (progn (while (progn - (forward-comment (- (point-max))) + (forward-comment (- (point-max))) (when (and (eolp) (sh-is-quoted-p (point))) (forward-char -1) t))) - ;; Skip through one pattern - (while - (or (/= 0 (skip-syntax-backward "w_")) + ;; Skip through one pattern + (while + (or (/= 0 (skip-syntax-backward "w_")) (/= 0 (skip-chars-backward "-$=?[]*@/\\\\")) - (and (sh-is-quoted-p (1- (point))) - (goto-char (- (point) 2))) + (and (sh-is-quoted-p (1- (point))) + (goto-char (- (point) 2))) (when (memq (char-before) '(?\" ?\' ?\})) - (condition-case nil (progn (backward-sexp 1) t) - (error nil))))) - ;; Patterns can be preceded by an open-paren (Bug#1320). - (if (eq (char-before (point)) ?\() - (backward-char 1)) - (while (progn - (forward-comment (- (point-max))) - ;; Maybe we've bumped into an escaped newline. - (sh-is-quoted-p (point))) - (backward-char 1)) - (when (eq (char-before) ?|) - (backward-char 1) t))) - (when (progn (backward-char 2) - (if (> start (line-end-position)) - (put-text-property (point) (1+ start) - 'syntax-multiline t)) - ;; FIXME: The `in' may just be a random argument to - ;; a normal command rather than the real `in' keyword. - ;; I.e. we should look back to try and find the - ;; corresponding `case'. - (and (looking-at ";[;&]\\|in") + (condition-case nil (progn (backward-sexp 1) t) + (error nil))))) + ;; Patterns can be preceded by an open-paren (Bug#1320). + (if (eq (char-before (point)) ?\() + (backward-char 1)) + (while (progn + (forward-comment (- (point-max))) + ;; Maybe we've bumped into an escaped newline. + (sh-is-quoted-p (point))) + (backward-char 1)) + (when (eq (char-before) ?|) + (backward-char 1) t))) + (when (progn (backward-char 2) + (if (> start (line-end-position)) + (put-text-property (point) (1+ start) + 'syntax-multiline t)) + ;; FIXME: The `in' may just be a random argument to + ;; a normal command rather than the real `in' keyword. + ;; I.e. we should look back to try and find the + ;; corresponding `case'. + (and (looking-at ";[;&]\\|\\_<in") ;; ";; esac )" is a case that looks like a case-pattern ;; but it's really just a close paren after a case ;; statement. I.e. if we skipped over `esac' just now, diff --git a/lisp/window.el b/lisp/window.el index 905db8dc9b6..215dbab7849 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -4715,15 +4715,12 @@ documentation of `display-buffer-alist' for a description." (setq window (window-normalize-live-window window)) (let* ((old-frame (selected-frame)) (new-frame (window-frame window)) - (dedicate (cdr (assq 'dedicate specifiers))) (no-other-window (cdr (assq 'no-other-window specifiers)))) ;; Show BUFFER in WINDOW. (unless (eq buffer (window-buffer window)) ;; If we show another buffer in WINDOW, undedicate it first. (set-window-dedicated-p window nil)) (set-window-buffer window buffer) - (when dedicate - (set-window-dedicated-p window dedicate)) (when no-other-window (set-window-parameter window 'no-other-window t)) (unless (or (eq old-frame new-frame) @@ -4965,7 +4962,7 @@ Return the new window, nil if it could not be created." (selected-window (selected-window)) root new new-parent) - ;; We are in an atomic window. + ;; We are in an atomic window. (when (and (window-parameter window 'window-atom) (not nest)) ;; Split the root window. (setq window (window-atom-root window))) @@ -5059,6 +5056,10 @@ description." (setq display-buffer-window (cons window 'new-window)) ;; Install BUFFER in the new window. (display-buffer-in-window buffer window specifiers) + (let ((dedicate (cdr (assq 'dedicate specifiers)))) + (when dedicate + ;; Dedicate window to buffer. + (set-window-dedicated-p window dedicate))) ;; Adjust sizes if asked for (for `fit-window-to-buffer' ;; and friends BUFFER must be already shown in the new ;; window). @@ -5094,7 +5095,12 @@ documentation of `display-buffer-alist' for a description." (set-window-parameter window 'quit-restore (list 'new-frame buffer selected-window)) (setq display-buffer-window (cons window 'new-frame)) - (display-buffer-in-window buffer window specifiers)))))) + (display-buffer-in-window buffer window specifiers) + (let ((dedicate (cdr (assq 'dedicate specifiers)))) + (when dedicate + ;; Dedicate window to buffer. + (set-window-dedicated-p window dedicate))) + window))))) (defun display-buffer-pop-up-side-window (buffer side slot &optional specifiers) "Display BUFFER in a new window on SIDE of the selected frame. @@ -5142,6 +5148,10 @@ failed." (setq display-buffer-window (cons window 'new-window)) ;; Install BUFFER in new window. (display-buffer-in-window buffer window specifiers) + (let ((dedicate (cdr (assq 'dedicate specifiers)))) + (when dedicate + ;; Dedicate window to buffer. + (set-window-dedicated-p window dedicate))) ;; Adjust sizes of new window if asked for. (display-buffer-set-height window specifiers) (display-buffer-set-width window specifiers) @@ -5282,6 +5292,10 @@ SPECIFIERS must be a list of buffer display specifiers." (set-window-parameter window 'window-slot slot)) ;; Install BUFFER in the window. (display-buffer-in-window buffer window specifiers) + (let ((dedicate (cdr (assq 'dedicate specifiers)))) + (when dedicate + ;; Dedicate window to buffer. + (set-window-dedicated-p window dedicate))) (when new-window ;; Adjust sizes if asked for (for `fit-window-to-buffer' and ;; friends BUFFER must be already shown in the new window). |