Merged from miles@gnu.org--gnu-2005 (patch 142-148, 615-628)
authorKaroly Lorentey <lorentey@elte.hu>
Tue, 1 Nov 2005 06:23:08 +0000 (06:23 +0000)
committerKaroly Lorentey <lorentey@elte.hu>
Tue, 1 Nov 2005 06:23:08 +0000 (06:23 +0000)
Patches applied:

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-615
   Merge from gnus--rel--5.10

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-616
   Add lisp/mh-e/.arch-inventory

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-617
   Update from CVS

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-618
   Update from CVS

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-619
   Update from CVS

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-620
   Update from CVS

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-621
   Merge from gnus--rel--5.10

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-622
   Update from CVS

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-623
   Update from CVS

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-624
   Update from CVS: lisp/smerge-mode.el: Add 'tools' to file keywords.

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-625
   Update from CVS

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-626
   Update from CVS

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-627
   Update from CVS

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-628
   Update from CVS

 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-142
   Update from CVS

 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-143
   Update from CVS

 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-144
   Update from CVS

 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-145
   Update from CVS

 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-146
   Update from CVS

 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-147
   Update from CVS

 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-148
   Update from CVS

git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-435

18 files changed:
1  2 
etc/TODO
lisp/faces.el
lisp/files.el
lisp/font-lock.el
lisp/help-fns.el
lisp/international/mule.el
lisp/ldefs-boot.el
lisp/server.el
lisp/simple.el
lisp/subr.el
lisp/term/x-win.el
src/coding.h
src/data.c
src/fringe.c
src/lread.c
src/macterm.c
src/minibuf.c
src/xterm.c

diff --combined etc/TODO
+++ b/etc/TODO
@@@ -37,8 -37,8 +37,8 @@@ to the FSF
  * Important features:
  
  ** Provide user-friendly ways to list all available font families,
-   display a font as a sample, etc.  [fx is looking at multilingual
-   font selection for Emacs 22.]
+    list fonts, display a font as a sample, etc.  [fx is looking at
+   multilingual font selection for Emacs 22.]
  
  ** Program Enriched mode to read and save in RTF.  [Is there actually a
    decent single definition of RTF?  Maybe see info at
    Bison input files, for instance, or other kinds of text
    where one language is embedded in another language.
  
+ ** Arrange a way for an input method to return the first character
+   immediately, then replace it later.  So that C-s a with
+   input method latin-1-postfix would immediately search for an a.
  ** Give start-process the ability to direct standard-error
    output to a different filter.
  
  ** Highlight rectangles (`mouse-track-rectangle-p' in XEmacs).  Already in CUA,
    but it's a valuable feature worth making more general.
  
 -** Support simultaneous tty and X frames.
 +** Support simultaneous tty and X frames.  [For a partial
 +  implementation, see tla branch
 +  lorentey@elte.hu--2004/emacs--multi-tty--0 at
 +  http://lorentey.hu/arch/2004]
  
  ** Provide MIME support for Rmail using the Gnus MIME library.  [Maybe
    not now feasible, given Gnus maintenance decisions.  fx looked at
  
  ** Investigate using the language environment (or locale?) to set up
    more things, such as the default Ispell dictionary, calendar
-   holidays, quoting characters?,...
+   holidays, quoting characters, space after periods and colons, ...
  
  ** Improve the GC (generational, incremental).  (We may be able to use
    the Boehm collector.)  [See the Boehm-GC branch in CVS for work on
  ** Provide an optional feature which computes a scroll bar slider's
    size and its position from lines instead of characters.
  
- ** Make the Custom themes support do useful things.
  ** Add support for SVG (Scalable Vector Graphics) rendering to
    Emacs.
  
diff --combined lisp/faces.el
@@@ -33,7 -33,6 +33,6 @@@
    (autoload 'xw-defined-colors "x-win"))
  
  (defvar help-xref-stack-item)
  \f
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Font selection.
@@@ -547,6 -546,9 +546,9 @@@ If FACE is a face-alias, get the docume
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  
+ (defvar inhibit-face-set-after-frame-default nil
+   "If non-nil, that tells `face-set-after-frame-default' to do nothing.")
  (defun set-face-attribute (face frame &rest args)
    "Set attributes of FACE on FRAME from ARGS.
  
@@@ -677,9 -679,12 +679,12 @@@ like an underlying face would be, with 
      (if (memq where '(0 t))
        (put (or (get face 'face-alias) face) 'face-modified t))
      (while args
-       (internal-set-lisp-face-attribute face (car args)
-                                       (purecopy (cadr args))
-                                       where)
+       ;; Don't recursively set the attributes from the frame's font param
+       ;; when we update the frame's font param fro the attributes.
+       (let ((inhibit-face-set-after-frame-default t))
+       (internal-set-lisp-face-attribute face (car args)
+                                         (purecopy (cadr args))
+                                         where))
        (setq args (cdr (cdr args))))))
  
  
@@@ -926,7 -931,7 +931,7 @@@ an integer value.
    (let ((valid
           (case attribute
             (:family
 -            (if window-system
 +            (if (window-system frame)
                  (mapcar #'(lambda (x) (cons (car x) (car x)))
                          (x-font-family-list))
              ;; Only one font on TTYs.
              (mapcar #'(lambda (x) (cons (symbol-name x) x))
                      (internal-lisp-face-attribute-values attribute)))
             ((:underline :overline :strike-through :box)
 -            (if window-system
 +            (if (window-system frame)
                  (nconc (mapcar #'(lambda (x) (cons (symbol-name x) x))
                                 (internal-lisp-face-attribute-values attribute))
                         (mapcar #'(lambda (c) (cons c c))
             ((:height)
              'integerp)
             (:stipple
 -            (and (memq window-system '(x w32 mac))
 +            (and (memq (window-system frame) '(x w32 mac))
                   (mapcar #'list
                           (apply #'nconc
                                  (mapcar (lambda (dir)
@@@ -1066,7 -1071,7 +1071,7 @@@ of a global face.  Value is the new att
               ;; explicitly in VALID, using color approximation code
               ;; in tty-colors.el.
               (when (and (memq attribute '(:foreground :background))
 -                        (not (memq window-system '(x w32 mac)))
 +                        (not (memq (window-system frame) '(x w32 mac)))
                          (not (member new-value
                                       '("unspecified"
                                         "unspecified-fg" "unspecified-bg"))))
@@@ -1297,6 -1302,7 +1302,7 @@@ If FRAME is omitted or nil, use the sel
              ;; The next 4 sexps are copied from describe-function-1
              ;; and simplified.
              (setq file-name (symbol-file f 'defface))
+             (setq file-name (describe-simplify-lib-file-name file-name))
              (when file-name
                (princ "Defined in `")
                (princ file-name)
@@@ -1360,14 -1366,14 +1366,14 @@@ If FRAME is nil, the current FRAME is u
            req (car conjunct)
            options (cdr conjunct)
            match (cond ((eq req 'type)
 -                       (or (memq window-system options)
 +                       (or (memq (window-system frame) options)
                             ;; FIXME: This should be revisited to use
                             ;; display-graphic-p, provided that the
                             ;; color selection depends on the number
                             ;; of supported colors, and all defface's
                             ;; are changed to look at number of colors
                             ;; instead of (type graphic) etc.
 -                           (and (null window-system)
 +                           (and (null (window-system frame))
                                  (memq 'tty options))
                             (and (memq 'motif options)
                                  (featurep 'motif))
@@@ -1580,38 -1586,35 +1586,38 @@@ this won't have the expected effect.
                 (choice-item light)
                 (choice-item :tag "default" nil)))
  
 -(defvar default-frame-background-mode nil
 -  "Internal variable for the default brightness of the background.
 -Emacs sets it automatically depending on the terminal type.
 -The value `nil' means `dark'.  If Emacs runs in non-windowed
 -mode from `xterm' or a similar terminal emulator, the value is
 -`light'.  On rxvt terminals, the value depends on the environment
 -variable COLORFGBG.")
  
  (defun frame-set-background-mode (frame)
    "Set up display-dependent faces on FRAME.
  Display-dependent faces are those which have different definitions
  according to the `background-mode' and `display-type' frame parameters."
    (let* ((bg-resource
 -        (and window-system
 +        (and (window-system frame)
               (x-get-resource "backgroundMode" "BackgroundMode")))
         (bg-color (frame-parameter frame 'background-color))
 +       (tty-type (frame-parameter frame 'tty-type))
         (bg-mode
          (cond (frame-background-mode)
                (bg-resource
                 (intern (downcase bg-resource)))
 -              ((and (null window-system) (null bg-color))
 -               ;; No way to determine this automatically (?).
 -               (or default-frame-background-mode 'dark))
 -              ;; Unspecified frame background color can only happen
 -              ;; on tty's.
 -              ((member bg-color '(unspecified "unspecified-bg"))
 -               (or default-frame-background-mode 'dark))
 +              ((and (null (window-system frame))
 +                    ;; Unspecified frame background color can only
 +                    ;; happen on tty's.
 +                    (member bg-color '(nil unspecified "unspecified-bg")))
 +               ;; There is no way to determine the background mode
 +               ;; automatically, so we make a guess based on the
 +               ;; terminal type.
 +               (if (and tty-type
 +                        (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)"
 +                                      tty-type))
 +                   'light
 +                 'dark))
                ((equal bg-color "unspecified-fg") ; inverted colors
 -               (if (eq default-frame-background-mode 'light) 'dark 'light))
 +               (if (and tty-type
 +                        (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)"
 +                                      tty-type))
 +                   'dark
 +                 'light))
                ((>= (apply '+ (x-color-values bg-color frame))
                    ;; Just looking at the screen, colors whose
                    ;; values add up to .6 of the white total
                 'light)
                (t 'dark)))
         (display-type
 -        (cond ((null window-system)
 +        (cond ((null (window-system frame))
                 (if (tty-display-color-p frame) 'color 'mono))
                ((x-display-color-p frame)
                 'color)
@@@ -1717,51 -1720,45 +1723,51 @@@ Value is the new frame created.
    (setq parameters (x-handle-named-frame-geometry parameters))
    (let ((visibility-spec (assq 'visibility parameters))
        (frame-list (frame-list))
 -      (frame (x-create-frame (cons '(visibility . nil) parameters)))
 +      (frame (x-create-frame `((visibility . nil) . ,parameters)))
        success)
      (unwind-protect
        (progn
 +        (x-setup-function-keys frame)
          (x-handle-reverse-video frame parameters)
          (frame-set-background-mode frame)
          (face-set-after-frame-default frame)
          (if (or (null frame-list) (null visibility-spec))
              (make-frame-visible frame)
            (modify-frame-parameters frame (list visibility-spec)))
 +        ;; Arrange for the kill and yank functions to set and check the clipboard.
 +        (modify-frame-parameters
 +         frame '((interprogram-cut-function . x-select-text)))
 +        (modify-frame-parameters
 +         frame '((interprogram-paste-function . x-cut-buffer-or-selection-value)))
          (setq success t))
        (unless success
        (delete-frame frame)))
      frame))
  
  (defun face-set-after-frame-default (frame)
    "Set frame-local faces of FRAME from face specs and resources.
  Initialize colors of certain faces from frame parameters."
-   (if (face-attribute 'default :font t)
-       (set-face-attribute 'default frame :font
-                         (face-attribute 'default :font t))
-     (set-face-attribute 'default frame :family
-                       (face-attribute 'default :family t))
-     (set-face-attribute 'default frame :height
-                       (face-attribute 'default :height t))
-     (set-face-attribute 'default frame :slant
-                       (face-attribute 'default :slant t))
-     (set-face-attribute 'default frame :weight
-                       (face-attribute 'default :weight t))
-     (set-face-attribute 'default frame :width
-                       (face-attribute 'default :width t)))
+   (unless inhibit-face-set-after-frame-default
+     (if (face-attribute 'default :font t)
+       (set-face-attribute 'default frame :font
+                           (face-attribute 'default :font t))
+       (set-face-attribute 'default frame :family
+                         (face-attribute 'default :family t))
+       (set-face-attribute 'default frame :height
+                         (face-attribute 'default :height t))
+       (set-face-attribute 'default frame :slant
+                         (face-attribute 'default :slant t))
+       (set-face-attribute 'default frame :weight
+                         (face-attribute 'default :weight t))
+       (set-face-attribute 'default frame :width
+                         (face-attribute 'default :width t))))
    (dolist (face (face-list))
      ;; Don't let frame creation fail because of an invalid face spec.
      (condition-case ()
        (when (not (equal face 'default))
          (face-spec-set face (face-user-default-spec face) frame)
          (internal-merge-in-global-face face frame)
 -        (when (and (memq window-system '(x w32 mac))
 +        (when (and (memq (window-system frame) '(x w32 mac))
                     (or (not (boundp 'inhibit-default-face-x-resources))
                         (not (eq face 'default))))
            (make-face-x-resource-internal face frame)))
@@@ -1812,50 -1809,15 +1818,50 @@@ created.
    (let ((frame (make-terminal-frame parameters))
        success)
      (unwind-protect
 -      (progn
 +      (with-selected-frame frame
          (tty-handle-reverse-video frame (frame-parameters frame))
          (frame-set-background-mode frame)
          (face-set-after-frame-default frame)
 +
 +        ;; Make sure the kill and yank functions do not touch the X clipboard.
 +        (modify-frame-parameters frame '((interprogram-cut-function . nil)))
 +        (modify-frame-parameters frame '((interprogram-paste-function . nil)))
 +
 +        (set-locale-environment nil frame)
 +        (tty-run-terminal-initialization frame)
          (setq success t))
        (unless success
        (delete-frame frame)))
      frame))
  
 +(defun tty-run-terminal-initialization (frame)
 +  "Run the special initialization code for the terminal type of FRAME."
 +  ;; Load library for our terminal type.
 +  ;; User init file can set term-file-prefix to nil to prevent this.
 +  (with-selected-frame frame
 +    (unless (null term-file-prefix)
 +      (let* ((term (frame-parameter frame 'tty-type))
 +           (term2 term)
 +           hyphend term-init-func)
 +      (while (and term
 +                  (not (load (concat term-file-prefix term) t t)))
 +        ;; Strip off last hyphen and what follows, then try again
 +        (setq term
 +              (if (setq hyphend (string-match "[-_][^-_]+$" term))
 +                  (substring term 0 hyphend)
 +                nil)))
 +      ;; The terminal file has been loaded, now find and call the
 +      ;; terminal specific initialization function.
 +      (while (and term2
 +                  (not (fboundp
 +                        (setq term-init-func (intern (concat "terminal-init-" term2))))))
 +        ;; Strip off last hyphen and what follows, then try again
 +        (setq term2
 +              (if (setq hyphend (string-match "[-_][^-_]+$" term2))
 +                  (substring term2 0 hyphend)
 +                nil)))
 +      (when (fboundp term-init-func)
 +        (funcall term-init-func))))))
  
  ;; Called from C function init_display to initialize faces of the
  ;; dumped terminal frame on startup.
diff --combined lisp/files.el
@@@ -861,6 -861,43 +861,43 @@@ it means chase no more than that many l
        (setq count (1+ count))))
      newname))
  
+ (defun make-temp-file (prefix &optional dir-flag suffix)
+   "Create a temporary file.
+ The returned file name (created by appending some random characters at the end
+ of PREFIX, and expanding against `temporary-file-directory' if necessary),
+ is guaranteed to point to a newly created empty file.
+ You can then use `write-region' to write new data into the file.
+ If DIR-FLAG is non-nil, create a new empty directory instead of a file.
+ If SUFFIX is non-nil, add that at the end of the file name."
+   (let ((umask (default-file-modes))
+       file)
+     (unwind-protect
+       (progn
+         ;; Create temp files with strict access rights.  It's easy to
+         ;; loosen them later, whereas it's impossible to close the
+         ;; time-window of loose permissions otherwise.
+         (set-default-file-modes ?\700)
+         (while (condition-case ()
+                    (progn
+                      (setq file
+                            (make-temp-name
+                             (expand-file-name prefix temporary-file-directory)))
+                      (if suffix
+                          (setq file (concat file suffix)))
+                      (if dir-flag
+                          (make-directory file)
+                        (write-region "" nil file nil 'silent nil 'excl))
+                      nil)
+                  (file-already-exists t))
+           ;; the file was somehow created by someone else between
+           ;; `make-temp-name' and `write-region', let's try again.
+           nil)
+         file)
+       ;; Reset the umask.
+       (set-default-file-modes umask))))
  (defun recode-file-name (file coding new-coding &optional ok-if-already-exists)
    "Change the encoding of FILE's name from CODING to NEW-CODING.
  The value is a new name of FILE.
@@@ -4438,6 -4475,57 +4475,57 @@@ program specified by `directory-free-sp
                  (forward-word -1)
                  (buffer-substring (point) end)))))))))
  
+ ;; The following expression replaces `dired-move-to-filename-regexp'.
+ (defvar directory-listing-before-filename-regexp
+   (let* ((l "\\([A-Za-z]\\|[^\0-\177]\\)")
+        (l-or-quote "\\([A-Za-z']\\|[^\0-\177]\\)")
+        ;; In some locales, month abbreviations are as short as 2 letters,
+        ;; and they can be followed by ".".
+        ;; In Breton, a month name  can include a quote character.
+        (month (concat l-or-quote l-or-quote "+\\.?"))
+        (s " ")
+        (yyyy "[0-9][0-9][0-9][0-9]")
+        (dd "[ 0-3][0-9]")
+        (HH:MM "[ 0-2][0-9][:.][0-5][0-9]")
+        (seconds "[0-6][0-9]\\([.,][0-9]+\\)?")
+        (zone "[-+][0-2][0-9][0-5][0-9]")
+        (iso-mm-dd "[01][0-9]-[0-3][0-9]")
+        (iso-time (concat HH:MM "\\(:" seconds "\\( ?" zone "\\)?\\)?"))
+        (iso (concat "\\(\\(" yyyy "-\\)?" iso-mm-dd "[ T]" iso-time
+                     "\\|" yyyy "-" iso-mm-dd "\\)"))
+        (western (concat "\\(" month s "+" dd "\\|" dd "\\.?" s month "\\)"
+                         s "+"
+                         "\\(" HH:MM "\\|" yyyy "\\)"))
+        (western-comma (concat month s "+" dd "," s "+" yyyy))
+        ;; Japanese MS-Windows ls-lisp has one-digit months, and
+        ;; omits the Kanji characters after month and day-of-month.
+        ;; On Mac OS X 10.3, the date format in East Asian locales is
+        ;; day-of-month digits followed by month digits.
+        (mm "[ 0-1]?[0-9]")
+        (east-asian
+         (concat "\\(" mm l "?" s dd l "?" s "+"
+                 "\\|" dd s mm s "+" "\\)"
+                 "\\(" HH:MM "\\|" yyyy l "?" "\\)")))
+        ;; The "[0-9]" below requires the previous column to end in a digit.
+        ;; This avoids recognizing `1 may 1997' as a date in the line:
+        ;; -r--r--r--   1 may      1997        1168 Oct 19 16:49 README
+        ;; The "[BkKMGTPEZY]?" below supports "ls -alh" output.
+        ;; The ".*" below finds the last match if there are multiple matches.
+        ;; This avoids recognizing `jservice  10  1024' as a date in the line:
+        ;; drwxr-xr-x  3 jservice  10  1024 Jul  2  1997 esg-host
+          ;; vc dired listings provide the state or blanks between file
+          ;; permissions and date.  The state is always surrounded by
+          ;; parantheses:
+          ;; -rw-r--r-- (modified) 2005-10-22 21:25 files.el
+          ;; This is not supported yet.
+     (concat ".*[0-9][BkKMGTPEZY]?" s
+           "\\(" western "\\|" western-comma "\\|" east-asian "\\|" iso "\\)"
+           s "+"))
+   "Regular expression to match up to the file name in a directory listing.
+ The default value is designed to recognize dates and times
+ regardless of the language.")
  
  (defvar insert-directory-ls-version 'unknown)
  
@@@ -4881,7 -4969,7 +4969,7 @@@ With prefix arg, silently save all file
  (define-key ctl-x-map "i" 'insert-file)
  (define-key esc-map "~" 'not-modified)
  (define-key ctl-x-map "\C-d" 'list-directory)
 -(define-key ctl-x-map "\C-c" 'save-buffers-kill-emacs)
 +(define-key ctl-x-map "\C-c" 'server-save-buffers-kill-display)
  (define-key ctl-x-map "\C-q" 'toggle-read-only)
  
  (define-key ctl-x-4-map "f" 'find-file-other-window)
diff --combined lisp/font-lock.el
@@@ -2035,12 -2035,12 +2035,12 @@@ This function could be MATCHER in a MAT
                 "save-match-data" "save-current-buffer" "unwind-protect"
                 "condition-case" "track-mouse"
                 "eval-after-load" "eval-and-compile" "eval-when-compile"
-                "eval-when"
+                "eval-when" "eval-at-startup" "eval-next-after-load"
                 "with-category-table"
                 "with-current-buffer" "with-electric-help"
                 "with-local-quit" "with-no-warnings"
                 "with-output-to-string" "with-output-to-temp-buffer"
 -               "with-selected-window" "with-syntax-table"
 +               "with-selected-window" "with-selected-frame" "with-syntax-table"
                 "with-temp-buffer" "with-temp-file" "with-temp-message"
                 "with-timeout" "with-timeout-handler") t)
          "\\>")
diff --combined lisp/help-fns.el
@@@ -311,6 -311,19 +311,19 @@@ face (according to `face-differs-from-d
    ;; Return value is like the one from help-split-fundoc, but highlighted
    (cons usage doc))
  
+ (defun describe-simplify-lib-file-name (file)
+   "Simplify a library name FILE to a relative name, and make it a source file."
+   (if file
+       ;; Try converting the absolute file name to a library name.
+       (let ((libname (file-name-nondirectory file)))
+       ;; Now convert that back to a file name and see if we get
+       ;; the original one.  If so, they are equivalent.
+       (if (equal file (locate-file libname load-path '("")))
+           (if (string-match "[.]elc?\\'" libname)
+               (substring libname 0 -1)
+             libname)
+         file))))
  ;;;###autoload
  (defun describe-function-1 (function)
    (let* ((def (if (symbolp function)
              (help-xref-button 1 'help-function def)))))
      (or file-name
        (setq file-name (symbol-file function 'defun)))
+     (setq file-name (describe-simplify-lib-file-name file-name))
      (when (equal file-name "loaddefs.el")
        ;; Find the real def site of the preloaded function.
        ;; This is necessary only for defaliases.
@@@ -496,11 -510,10 +510,11 @@@ If ANY-SYMBOL is non-nil, don't insist 
        0))
  
  ;;;###autoload
 -(defun describe-variable (variable &optional buffer)
 +(defun describe-variable (variable &optional buffer frame)
    "Display the full documentation of VARIABLE (a symbol).
  Returns the documentation as a string, also.
 -If VARIABLE has a buffer-local value in BUFFER (default to the current buffer),
 +If VARIABLE has a buffer-local value in BUFFER or FRAME
 +\(default to the current buffer and current frame),
  it is displayed along with the global value."
    (interactive
     (let ((v (variable-at-point))
       (list (if (equal val "")
               v (intern val)))))
    (unless (buffer-live-p buffer) (setq buffer (current-buffer)))
 +  (unless (frame-live-p frame) (setq frame (selected-frame)))
    (if (not (symbolp variable))
        (message "You did not specify a variable")
      (save-excursion
 -      (let* ((valvoid (not (with-current-buffer buffer (boundp variable))))
 -           ;; Extract the value before setting up the output buffer,
 -           ;; in case `buffer' *is* the output buffer.
 -           (val (unless valvoid (buffer-local-value variable buffer)))
 -           val-start-pos)
 +      (let ((valvoid (not (with-current-buffer buffer (boundp variable))))
 +          val val-start-pos locus)
 +      ;; Extract the value before setting up the output buffer,
 +      ;; in case `buffer' *is* the output buffer.
 +      (unless valvoid
 +        (with-selected-frame frame
 +          (with-current-buffer buffer
 +            (setq val (symbol-value variable)
 +                  locus (variable-binding-locus variable)))))
        (help-setup-xref (list #'describe-variable variable buffer)
                         (interactive-p))
        (with-output-to-temp-buffer (help-buffer)
            ;; change the format of the buffer's initial line in case
            ;; anything expects the current format.)
            (let ((file-name (symbol-file variable 'defvar)))
+             (setq file-name (describe-simplify-lib-file-name file-name))
              (when (equal file-name "loaddefs.el")
                ;; Find the real def site of the preloaded variable.
                (let ((location
                      (delete-region (1- from) from)))))
            (terpri)
  
 -          (when (local-variable-p variable)
 -            (princ (format "%socal in buffer %s; "
 -                           (if (get variable 'permanent-local)
 -                               "Permanently l" "L")
 -                           (buffer-name)))
 +          (when locus
 +            (if (bufferp locus)
 +                (princ (format "%socal in buffer %s; "
 +                               (if (get variable 'permanent-local)
 +                                   "Permanently l" "L")
 +                               (buffer-name)))
 +              (princ (format "It is a frame-local variable; ")))
              (if (not (default-boundp variable))
                  (princ "globally void")
                (let ((val (default-value variable)))
@@@ -85,7 -85,9 +85,9 @@@ Return t if file exists.
              ;; Make `kill-buffer' quiet.
              (set-buffer-modified-p nil))
            ;; Have the original buffer current while we eval.
-           (eval-buffer buffer nil file
+           (eval-buffer buffer nil
+                        ;; This is compatible with what `load' does.
+                        (if purify-flag file fullname)
                         ;; If this Emacs is running with --unibyte,
                         ;; convert multibyte strings to unibyte
                         ;; after reading them.
@@@ -1207,17 -1209,13 +1209,17 @@@ see) to CODING-SYSTEM.
  This is normally set according to the selected language environment.
  See also the command `set-terminal-coding-system'.")
  
 -(defun set-terminal-coding-system (coding-system)
 -  "Set coding system of your terminal to CODING-SYSTEM.
 -All text output to the terminal will be encoded
 +(defun set-terminal-coding-system (coding-system &optional display)
 +  "Set coding system of terminal output to CODING-SYSTEM.
 +All text output to DISPLAY will be encoded
  with the specified coding system.
 +
  For a list of possible values of CODING-SYSTEM, use \\[list-coding-systems].
  The default is determined by the selected language environment
 -or by the previous use of this command."
 +or by the previous use of this command.
 +
 +DISPLAY may be a display id, a frame, or nil for the selected frame's display.
 +The setting has no effect on graphical displays."
    (interactive
     (list (let ((default (if (and (not (terminal-coding-system))
                                 default-terminal-coding-system)
        (setq coding-system default-terminal-coding-system))
    (if coding-system
        (setq default-terminal-coding-system coding-system))
 -  (set-terminal-coding-system-internal coding-system)
 +  (set-terminal-coding-system-internal coding-system display)
    (redraw-frame (selected-frame)))
  
  (defvar default-keyboard-coding-system nil
  This is normally set according to the selected language environment.
  See also the command `set-keyboard-coding-system'.")
  
 -(defun set-keyboard-coding-system (coding-system)
 -  "Set coding system for keyboard input to CODING-SYSTEM.
 -In addition, this command enables Encoded-kbd minor mode.
 -\(If CODING-SYSTEM is nil, Encoded-kbd mode is turned off -- see
 -`encoded-kbd-mode'.)
 +(defun set-keyboard-coding-system (coding-system &optional display)
 +  "Set coding system for keyboard input on DISPLAY to CODING-SYSTEM.
 +In addition, this command calls `encoded-kbd-setup-display' to set up the
 +translation of keyboard input events to the specified coding system.
 +
  For a list of possible values of CODING-SYSTEM, use \\[list-coding-systems].
  The default is determined by the selected language environment
 -or by the previous use of this command."
 +or by the previous use of this command.
 +
 +DISPLAY may be a display id, a frame, or nil for the selected frame's display.
 +The setting has no effect on graphical displays."
    (interactive
     (list (let ((default (if (and (not (keyboard-coding-system))
                                 default-keyboard-coding-system)
    (if (and coding-system
           (coding-system-get coding-system 'ascii-incompatible))
        (error "%s is not ASCII-compatible" coding-system))
 -  (set-keyboard-coding-system-internal coding-system)
 +  (set-keyboard-coding-system-internal coding-system display)
    (setq keyboard-coding-system coding-system)
 -  (encoded-kbd-mode (if coding-system 1 0)))
 +  (encoded-kbd-setup-display display))
  
  (defcustom keyboard-coding-system nil
    "Specify coding system for keyboard input.
@@@ -1284,8 -1279,8 +1286,8 @@@ use either \\[customize] or \\[set-keyb
    :link '(info-link "(emacs)Specify Coding")
    :link '(info-link "(emacs)Single-Byte Character Support")
    :set (lambda (symbol value)
 -       ;; Don't load encoded-kbd-mode unnecessarily.
 -       (if (or value (boundp 'encoded-kbd-mode))
 +       ;; Don't load encoded-kb unnecessarily.
 +       (if (or value (boundp 'encoded-kbd-setup-display))
             (set-keyboard-coding-system value)
           (set-default 'keyboard-coding-system nil))) ; must initialize
    :version "22.1"
diff --combined lisp/ldefs-boot.el
@@@ -4,7 -4,7 +4,7 @@@
  \f
  ;;;### (autoloads (5x5-crack 5x5-crack-xor-mutate 5x5-crack-mutating-best
  ;;;;;;  5x5-crack-mutating-current 5x5-crack-randomly 5x5) "5x5"
- ;;;;;;  "play/5x5.el" (17178 22152))
 -;;;;;;  "play/5x5.el" (17140 20945))
++;;;;;;  "play/5x5.el" (17187 59902))
  ;;; Generated autoloads from play/5x5.el
  
  (autoload (quote 5x5) "5x5" "\
@@@ -64,7 -64,7 +64,7 @@@ should return a grid vector array that 
  ;;;***
  \f
  ;;;### (autoloads (ada-mode ada-add-extensions) "ada-mode" "progmodes/ada-mode.el"
- ;;;;;;  (17178 22152))
 -;;;;;;  (17205 6157))
++;;;;;;  (17226 24577))
  ;;; Generated autoloads from progmodes/ada-mode.el
  
  (autoload (quote ada-add-extensions) "ada-mode" "\
@@@ -125,7 -125,7 +125,7 @@@ If you use ada-xref.el
  ;;;***
  \f
  ;;;### (autoloads (ada-header) "ada-stmt" "progmodes/ada-stmt.el"
- ;;;;;;  (17178 22152))
 -;;;;;;  (17140 20951))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from progmodes/ada-stmt.el
  
  (autoload (quote ada-header) "ada-stmt" "\
@@@ -136,7 -136,7 +136,7 @@@ Insert a descriptive header at the top 
  ;;;***
  \f
  ;;;### (autoloads (ada-find-file) "ada-xref" "progmodes/ada-xref.el"
- ;;;;;;  (17178 22152))
 -;;;;;;  (17205 6160))
++;;;;;;  (17226 24577))
  ;;; Generated autoloads from progmodes/ada-xref.el
  
  (autoload (quote ada-find-file) "ada-xref" "\
@@@ -151,7 -151,7 +151,7 @@@ Completion is available
  ;;;;;;  change-log-mode add-change-log-entry-other-window add-change-log-entry
  ;;;;;;  find-change-log prompt-for-change-log-name add-log-mailing-address
  ;;;;;;  add-log-full-name add-log-current-defun-function) "add-log"
- ;;;;;;  "add-log.el" (17178 22141))
 -;;;;;;  "add-log.el" (17244 43726))
++;;;;;;  "add-log.el" (17254 63790))
  ;;; Generated autoloads from add-log.el
  
  (defvar add-log-current-defun-function nil "\
@@@ -288,8 -288,8 +288,8 @@@ Fix any old-style date entries in the c
  ;;;***
  \f
  ;;;### (autoloads (defadvice ad-add-advice ad-default-compilation-action
- ;;;;;;  ad-redefinition-action) "advice" "emacs-lisp/advice.el" (17178
- ;;;;;;  22143))
 -;;;;;;  ad-redefinition-action) "advice" "emacs-lisp/advice.el" (17239
 -;;;;;;  32273))
++;;;;;;  ad-redefinition-action) "advice" "emacs-lisp/advice.el" (17226
++;;;;;;  24574))
  ;;; Generated autoloads from emacs-lisp/advice.el
  
  (defvar ad-redefinition-action (quote warn) "\
@@@ -388,7 -388,7 +388,7 @@@ See Info node `(elisp)Advising Function
  \f
  ;;;### (autoloads (align-newline-and-indent align-unhighlight-rule
  ;;;;;;  align-highlight-rule align-current align-entire align-regexp
- ;;;;;;  align) "align" "align.el" (17178 22141))
 -;;;;;;  align) "align" "align.el" (17148 24935))
++;;;;;;  align) "align" "align.el" (17187 59901))
  ;;; Generated autoloads from align.el
  
  (autoload (quote align) "align" "\
@@@ -477,43 -477,224 +477,224 @@@ A replacement function for `newline-and
  
  ;;;***
  \f
- ;;;### (autoloads (allout-init) "allout" "allout.el" (17178 22141))
+ ;;;### (autoloads (outlineify-sticky allout-mode) "allout" "allout.el"
 -;;;;;;  (17243 17075))
++;;;;;;  (17254 63790))
  ;;; Generated autoloads from allout.el
  
- (autoload (quote allout-init) "allout" "\
- Prime `allout-mode' to enable/disable auto-activation, wrt `allout-layout'.
+ (autoload (quote allout-mode) "allout" "\
+ Toggle minor mode for controlling exposure and editing of text outlines.
+ Optional arg forces mode to re-initialize iff arg is positive num or
+ symbol.  Allout outline mode always runs as a minor mode.
+ Allout outline mode provides extensive outline oriented formatting and
+ manipulation.  It enables structural editing of outlines, as well as
+ navigation and exposure.  It also is specifically aimed at
+ accommodating syntax-sensitive text like programming languages.  (For
+ an example, see the allout code itself, which is organized as an allout
+ outline.)
+ In addition to outline navigation and exposure, allout includes:
+  - topic-oriented repositioning, promotion/demotion, cut, and paste
+  - integral outline exposure-layout
+  - incremental search with dynamic exposure and reconcealment of hidden text
+  - automatic topic-number maintenance
+  - easy topic encryption and decryption
+  - \"Hot-spot\" operation, for single-keystroke maneuvering and
+     exposure control.  (See the allout-mode docstring.)
+ and many other features.
+ Below is a description of the bindings, and then explanation of
+ special `allout-mode' features and terminology.  See also the outline
+ menubar additions for quick reference to many of the features, and see
+ the docstring of the function `allout-init' for instructions on
+ priming your emacs session for automatic activation of `allout-mode'.
+ The bindings are dictated by the `allout-keybindings-list' and
+ `allout-command-prefix' variables.
+       Navigation:                                Exposure Control:
+       ----------                                 ----------------
+ \\[allout-next-visible-heading] allout-next-visible-heading     | \\[allout-hide-current-subtree] allout-hide-current-subtree
+ \\[allout-previous-visible-heading] allout-previous-visible-heading | \\[allout-show-children] allout-show-children
+ \\[allout-up-current-level] allout-up-current-level         | \\[allout-show-current-subtree] allout-show-current-subtree
+ \\[allout-forward-current-level] allout-forward-current-level    | \\[allout-show-current-entry] allout-show-current-entry
+ \\[allout-backward-current-level] allout-backward-current-level   | \\[allout-show-all] allout-show-all
+ \\[allout-end-of-entry] allout-end-of-entry
+ \\[allout-beginning-of-current-entry,] allout-beginning-of-current-entry, alternately, goes to hot-spot
+       Topic Header Production:
+       -----------------------
+ \\[allout-open-sibtopic]  allout-open-sibtopic        Create a new sibling after current topic.
+ \\[allout-open-subtopic]  allout-open-subtopic        ... an offspring of current topic.
+ \\[allout-open-supertopic]  allout-open-supertopic    ... a sibling of the current topic's parent.
+       Topic Level and Prefix Adjustment:
+       ---------------------------------
+ \\[allout-shift-in]  allout-shift-in  Shift current topic and all offspring deeper.
+ \\[allout-shift-out]  allout-shift-out        ... less deep.
+ \\[allout-rebullet-current-heading]  allout-rebullet-current-heading Prompt for alternate bullet for
+                                        current topic.
+ \\[allout-rebullet-topic]     allout-rebullet-topic   Reconcile bullets of topic and its offspring
+                               - distinctive bullets are not changed, others
+                                 alternated according to nesting depth.
+ \\[allout-number-siblings]  allout-number-siblings    Number bullets of topic and siblings - the
+                               offspring are not affected.  With repeat
+                               count, revoke numbering.
+       Topic-oriented Killing and Yanking:
+       ----------------------------------
+ \\[allout-kill-topic]     allout-kill-topic   Kill current topic, including offspring.
+ \\[allout-kill-line]     allout-kill-line     Like kill-line, but reconciles numbering, etc.
+ \\[allout-yank]     allout-yank               Yank, adjusting depth of yanked topic to
+                               depth of heading if yanking into bare topic
+                               heading (ie, prefix sans text).
+ \\[allout-yank-pop]     allout-yank-pop       Is to allout-yank as yank-pop is to yank
+       Misc commands:
+       -------------
+ M-x outlineify-sticky         Activate outline mode for current buffer,
+                               and establish a default file-var setting
+                               for `allout-layout'.
+ \\[allout-mark-topic]     allout-mark-topic
+ \\[allout-copy-exposed-to-buffer]     allout-copy-exposed-to-buffer
+                               Duplicate outline, sans concealed text, to
+                               buffer with name derived from derived from that
+                               of current buffer - \"*BUFFERNAME exposed*\".
+ \\[allout-flatten-exposed-to-buffer]     allout-flatten-exposed-to-buffer
+                               Like above 'copy-exposed', but convert topic
+                               prefixes to section.subsection... numeric
+                               format.
+ ESC ESC (allout-init t)       Setup Emacs session for outline mode
+                               auto-activation.
+                   Encrypted Entries
+ Outline mode supports easily togglable gpg encryption of topics, with
+ niceties like support for symmetric and key-pair modes, passphrase timeout,
+ passphrase consistency checking, user-provided hinting for symmetric key
+ mode, and auto-encryption of topics pending encryption on save.  The aim is
+ to enable reliable topic privacy while preventing accidents like neglected
+ encryption, encryption with a mistaken passphrase, forgetting which
+ passphrase was used, and other practical pitfalls.
+ See the `allout-toggle-current-subtree-encryption' function and
+ `allout-encrypt-unencrypted-on-saves' customization variable for details.
+                HOT-SPOT Operation
+ Hot-spot operation provides a means for easy, single-keystroke outline
+ navigation and exposure control.
+ \\<allout-mode-map>
+ When the text cursor is positioned directly on the bullet character of
+ a topic, regular characters (a to z) invoke the commands of the
+ corresponding allout-mode keymap control chars.  For example, \"f\"
+ would invoke the command typically bound to \"C-c C-f\"
+ \(\\[allout-forward-current-level] `allout-forward-current-level').
+ Thus, by positioning the cursor on a topic bullet, you can execute
+ the outline navigation and manipulation commands with a single
+ keystroke.  Non-literal chars never get this special translation, so
+ you can use them to get away from the hot-spot, and back to normal
+ operation.
+ Note that the command `allout-beginning-of-current-entry' (\\[allout-beginning-of-current-entry])
+ will move to the hot-spot when the cursor is already located at the
+ beginning of the current entry, so you can simply hit \\[allout-beginning-of-current-entry]
+ twice in a row to get to the hot-spot.
+                           Terminology
+ Topic hierarchy constituents - TOPICS and SUBTOPICS:
+ TOPIC:        A basic, coherent component of an Emacs outline.  It can
+       contain other topics, and it can be subsumed by other topics,
+ CURRENT topic:
+       The visible topic most immediately containing the cursor.
+ DEPTH:        The degree of nesting of a topic; it increases with
+       containment.  Also called the:
+ LEVEL:        The same as DEPTH.
+ ANCESTORS:
+       The topics that contain a topic.
+ PARENT:       A topic's immediate ancestor.  It has a depth one less than
+       the topic.
+ OFFSPRING:
+       The topics contained by a topic;
+ SUBTOPIC:
+       An immediate offspring of a topic;
+ CHILDREN:
+       The immediate offspring of a topic.
+ SIBLINGS:
+       Topics having the same parent and depth.
+ Topic text constituents:
+ HEADER:       The first line of a topic, include the topic PREFIX and header
+       text.
+ PREFIX: The leading text of a topic which distinguishes it from normal
+         text.  It has a strict form, which consists of a prefix-lead
+         string, padding, and a bullet.  The bullet may be followed by a
+         number, indicating the ordinal number of the topic among its
+         siblings, a space, and then the header text.
+       The relative length of the PREFIX determines the nesting depth
+       of the topic.
+ PREFIX-LEAD:
+       The string at the beginning of a topic prefix, normally a `.'.
+       It can be customized by changing the setting of
+       `allout-header-prefix' and then reinitializing `allout-mode'.
+       By setting the prefix-lead to the comment-string of a
+       programming language, you can embed outline structuring in
+       program code without interfering with the language processing
+       of that code.  See `allout-use-mode-specific-leader'
+       docstring for more detail.
+ PREFIX-PADDING:
+       Spaces or asterisks which separate the prefix-lead and the
+       bullet, according to the depth of the topic.
+ BULLET: A character at the end of the topic prefix, it must be one of
+       the characters listed on `allout-plain-bullets-string' or
+         `allout-distinctive-bullets-string'.  (See the documentation
+         for these variables for more details.)  The default choice of
+       bullet when generating varies in a cycle with the depth of the
+       topic.
+ ENTRY:        The text contained in a topic before any offspring.
+ BODY: Same as ENTRY.
+ EXPOSURE:
+       The state of a topic which determines the on-screen visibility
+       of its offspring and contained text.
+ CONCEALED:
+       Topics and entry text whose display is inhibited.  Contiguous
+       units of concealed text is represented by `...' ellipses.
+       (Ref the `selective-display' var.)
+       Concealed topics are effectively collapsed within an ancestor.
+ CLOSED:       A topic whose immediate offspring and body-text is concealed.
+ OPEN: A topic that is not closed, though its offspring or body may be.
+ \(fn &optional TOGGLE)" t nil)
+ (defalias (quote outlinify-sticky) (quote outlineify-sticky))
+ (autoload (quote outlineify-sticky) "allout" "\
+ Activate outline mode and establish file var so it is started subsequently.
+ See doc-string for `allout-layout' and `allout-init' for details on
+ setup for auto-startup.
  
- MODE is one of the following symbols:
-  - nil (or no argument) deactivate auto-activation/layout;
-  - `activate', enable auto-activation only;
-  - `ask', enable auto-activation, and enable auto-layout but with
-    confirmation for layout operation solicited from user each time;
-  - `report', just report and return the current auto-activation state;
-  - anything else (eg, t) for auto-activation and auto-layout, without
-    any confirmation check.
- Use this function to setup your Emacs session for automatic activation
- of allout outline mode, contingent to the buffer-specific setting of
- the `allout-layout' variable.  (See `allout-layout' and
- `allout-expose-topic' docstrings for more details on auto layout).
- `allout-init' works by setting up (or removing)
- `allout-find-file-hook' in `find-file-hook', and giving
- `allout-auto-activation' a suitable setting.
- To prime your Emacs session for full auto-outline operation, include
- the following two lines in your Emacs init file:
- \(require 'allout)
- \(allout-init t)
- \(fn &optional MODE)" t nil)
+ \(fn &optional ARG)" t nil)
  
  ;;;***
  \f
  ;;;### (autoloads (ange-ftp-hook-function ange-ftp-reread-dir) "ange-ftp"
- ;;;;;;  "net/ange-ftp.el" (17178 22151))
 -;;;;;;  "net/ange-ftp.el" (17244 43756))
++;;;;;;  "net/ange-ftp.el" (17254 63791))
  ;;; Generated autoloads from net/ange-ftp.el
  
  (defalias (quote ange-ftp-re-read-dir) (quote ange-ftp-reread-dir))
@@@ -535,7 -716,7 +716,7 @@@ Not documente
  ;;;***
  \f
  ;;;### (autoloads (animate-birthday-present animate-sequence animate-string)
- ;;;;;;  "animate" "play/animate.el" (17178 22152))
 -;;;;;;  "animate" "play/animate.el" (17239 32364))
++;;;;;;  "animate" "play/animate.el" (17226 24576))
  ;;; Generated autoloads from play/animate.el
  
  (autoload (quote animate-string) "animate" "\
@@@ -563,7 -744,7 +744,7 @@@ You can specify the one's name by NAME
  ;;;***
  \f
  ;;;### (autoloads (ansi-color-process-output ansi-color-for-comint-mode-on)
- ;;;;;;  "ansi-color" "ansi-color.el" (17178 22141))
 -;;;;;;  "ansi-color" "ansi-color.el" (17185 27398))
++;;;;;;  "ansi-color" "ansi-color.el" (17187 59901))
  ;;; Generated autoloads from ansi-color.el
  
  (autoload (quote ansi-color-for-comint-mode-on) "ansi-color" "\
@@@ -589,7 -770,7 +770,7 @@@ This is a good function to put in `comi
  ;;;***
  \f
  ;;;### (autoloads (antlr-set-tabs antlr-mode antlr-show-makefile-rules)
- ;;;;;;  "antlr-mode" "progmodes/antlr-mode.el" (17178 22152))
 -;;;;;;  "antlr-mode" "progmodes/antlr-mode.el" (17185 27618))
++;;;;;;  "antlr-mode" "progmodes/antlr-mode.el" (17187 59902))
  ;;; Generated autoloads from progmodes/antlr-mode.el
  
  (autoload (quote antlr-show-makefile-rules) "antlr-mode" "\
@@@ -628,7 -809,7 +809,7 @@@ Used in `antlr-mode'.  Also a useful fu
  ;;;### (autoloads (appt-activate appt-make-list appt-delete appt-add
  ;;;;;;  appt-display-diary appt-display-duration appt-display-mode-line
  ;;;;;;  appt-msg-window appt-visible appt-audible appt-message-warning-time
- ;;;;;;  appt-issue-message) "appt" "calendar/appt.el" (17178 20480))
 -;;;;;;  appt-issue-message) "appt" "calendar/appt.el" (17239 32265))
++;;;;;;  appt-issue-message) "appt" "calendar/appt.el" (17229 28052))
  ;;; Generated autoloads from calendar/appt.el
  
  (defvar appt-issue-message t "\
@@@ -716,7 -897,7 +897,7 @@@ ARG is positive, otherwise off
  \f
  ;;;### (autoloads (apropos-documentation apropos-value apropos apropos-documentation-property
  ;;;;;;  apropos-command apropos-variable) "apropos" "apropos.el"
- ;;;;;;  (17178 22141))
 -;;;;;;  (17205 5977))
++;;;;;;  (17226 24570))
  ;;; Generated autoloads from apropos.el
  
  (autoload (quote apropos-variable) "apropos" "\
@@@ -770,8 -951,8 +951,8 @@@ Returns list of symbols and documentati
  
  ;;;***
  \f
- ;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (17178
- ;;;;;;  22141))
 -;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (17239
 -;;;;;;  32182))
++;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (17238
++;;;;;;  21257))
  ;;; Generated autoloads from arc-mode.el
  
  (autoload (quote archive-mode) "arc-mode" "\
@@@ -791,7 -972,7 +972,7 @@@ archive
  
  ;;;***
  \f
- ;;;### (autoloads (array-mode) "array" "array.el" (17178 22141))
 -;;;### (autoloads (array-mode) "array" "array.el" (17148 24939))
++;;;### (autoloads (array-mode) "array" "array.el" (17187 59901))
  ;;; Generated autoloads from array.el
  
  (autoload (quote array-mode) "array" "\
@@@ -862,8 -1043,8 +1043,8 @@@ Entering array mode calls the function 
  
  ;;;***
  \f
- ;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (17178
- ;;;;;;  22154))
 -;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (17239
 -;;;;;;  32406))
++;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (17229
++;;;;;;  28057))
  ;;; Generated autoloads from textmodes/artist.el
  
  (autoload (quote artist-mode) "artist" "\
@@@ -1068,8 -1249,8 +1249,8 @@@ Keymap summar
  
  ;;;***
  \f
- ;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (17178
- ;;;;;;  22152))
 -;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (17140
 -;;;;;;  20953))
++;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from progmodes/asm-mode.el
  
  (autoload (quote asm-mode) "asm-mode" "\
@@@ -1097,7 -1278,7 +1278,7 @@@ Special commands
  ;;;***
  \f
  ;;;### (autoloads (auto-show-mode auto-show-mode) "auto-show" "obsolete/auto-show.el"
- ;;;;;;  (17178 20481))
 -;;;;;;  (17075 55468))
++;;;;;;  (17187 59881))
  ;;; Generated autoloads from obsolete/auto-show.el
  
  (defvar auto-show-mode nil "\
@@@ -1113,7 -1294,7 +1294,7 @@@ This command is obsolete
  ;;;***
  \f
  ;;;### (autoloads (autoarg-kp-mode autoarg-mode) "autoarg" "autoarg.el"
- ;;;;;;  (17178 22141))
 -;;;;;;  (17148 24940))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from autoarg.el
  
  (defvar autoarg-mode nil "\
@@@ -1170,7 -1351,7 +1351,7 @@@ This is similar to \\[autoarg-mode] bu
  ;;;***
  \f
  ;;;### (autoloads (autoconf-mode) "autoconf" "progmodes/autoconf.el"
- ;;;;;;  (17178 22152))
 -;;;;;;  (17185 27619))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from progmodes/autoconf.el
  
  (autoload (quote autoconf-mode) "autoconf" "\
@@@ -1181,7 -1362,7 +1362,7 @@@ Major mode for editing Autoconf configu
  ;;;***
  \f
  ;;;### (autoloads (auto-insert-mode define-auto-insert auto-insert)
- ;;;;;;  "autoinsert" "autoinsert.el" (17178 22141))
 -;;;;;;  "autoinsert" "autoinsert.el" (17148 24940))
++;;;;;;  "autoinsert" "autoinsert.el" (17187 59901))
  ;;; Generated autoloads from autoinsert.el
  
  (autoload (quote auto-insert) "autoinsert" "\
@@@ -1221,7 -1402,7 +1402,7 @@@ insert a template for the file dependin
  \f
  ;;;### (autoloads (batch-update-autoloads update-directory-autoloads
  ;;;;;;  update-file-autoloads) "autoload" "emacs-lisp/autoload.el"
- ;;;;;;  (17178 22143))
 -;;;;;;  (17239 32274))
++;;;;;;  (17229 28053))
  ;;; Generated autoloads from emacs-lisp/autoload.el
  
  (autoload (quote update-file-autoloads) "autoload" "\
@@@ -1236,7 -1417,7 +1417,7 @@@ Return FILE if there was no autoload co
  
  (autoload (quote update-directory-autoloads) "autoload" "\
  Update loaddefs.el with all the current autoloads from DIRS, and no old ones.
- This uses `update-file-autoloads' (which see) do its work.
+ This uses `update-file-autoloads' (which see) to do its work.
  In an interactive call, you must give one argument, the name
  of a single directory.  In a call from Lisp, you can supply multiple
  directories as separate arguments, but this usage is discouraged.
@@@ -1256,7 -1437,7 +1437,7 @@@ Calls `update-directory-autoloads' on t
  \f
  ;;;### (autoloads (global-auto-revert-mode turn-on-auto-revert-tail-mode
  ;;;;;;  auto-revert-tail-mode turn-on-auto-revert-mode auto-revert-mode)
- ;;;;;;  "autorevert" "autorevert.el" (17178 22141))
 -;;;;;;  "autorevert" "autorevert.el" (17148 24940))
++;;;;;;  "autorevert" "autorevert.el" (17187 59901))
  ;;; Generated autoloads from autorevert.el
  
  (autoload (quote auto-revert-mode) "autorevert" "\
@@@ -1326,7 -1507,7 +1507,7 @@@ Use `auto-revert-mode' to revert a part
  ;;;***
  \f
  ;;;### (autoloads (mouse-avoidance-mode mouse-avoidance-mode) "avoid"
- ;;;;;;  "avoid.el" (17178 22141))
 -;;;;;;  "avoid.el" (17148 24940))
++;;;;;;  "avoid.el" (17187 59901))
  ;;; Generated autoloads from avoid.el
  
  (defvar mouse-avoidance-mode nil "\
@@@ -1367,7 -1548,7 +1548,7 @@@ definition of \"random distance\".
  ;;;***
  \f
  ;;;### (autoloads (backquote) "backquote" "emacs-lisp/backquote.el"
- ;;;;;;  (17178 22143))
 -;;;;;;  (17148 25082))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from emacs-lisp/backquote.el
  
  (autoload (quote backquote) "backquote" "\
@@@ -1392,7 -1573,7 +1573,7 @@@ Vectors work just like lists.  Nested b
  ;;;***
  \f
  ;;;### (autoloads (display-battery-mode battery) "battery" "battery.el"
- ;;;;;;  (17178 22141))
 -;;;;;;  (17148 24941))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from battery.el
   (put 'battery-mode-line-string 'risky-local-variable t)
  
@@@ -1425,7 -1606,7 +1606,7 @@@ seconds
  ;;;***
  \f
  ;;;### (autoloads (benchmark benchmark-run-compiled benchmark-run)
- ;;;;;;  "benchmark" "emacs-lisp/benchmark.el" (17178 22143))
 -;;;;;;  "benchmark" "emacs-lisp/benchmark.el" (17148 25082))
++;;;;;;  "benchmark" "emacs-lisp/benchmark.el" (17187 59901))
  ;;; Generated autoloads from emacs-lisp/benchmark.el
  
  (autoload (quote benchmark-run) "benchmark" "\
@@@ -1457,8 -1638,8 +1638,8 @@@ non-interactive use see also `benchmark
  
  ;;;***
  \f
- ;;;### (autoloads (bibtex-mode) "bibtex" "textmodes/bibtex.el" (17178
- ;;;;;;  22154))
 -;;;### (autoloads (bibtex-mode) "bibtex" "textmodes/bibtex.el" (17239
 -;;;;;;  32408))
++;;;### (autoloads (bibtex-mode) "bibtex" "textmodes/bibtex.el" (17238
++;;;;;;  21257))
  ;;; Generated autoloads from textmodes/bibtex.el
  
  (autoload (quote bibtex-mode) "bibtex" "\
@@@ -1520,7 -1701,7 +1701,7 @@@ if that value is non-nil
  \f
  ;;;### (autoloads (binhex-decode-region binhex-decode-region-external
  ;;;;;;  binhex-decode-region-internal) "binhex" "gnus/binhex.el"
- ;;;;;;  (17178 22145))
 -;;;;;;  (17148 25105))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/binhex.el
  
  (defconst binhex-begin-line "^:...............................................................$")
@@@ -1543,8 -1724,8 +1724,8 @@@ Binhex decode region between START and 
  
  ;;;***
  \f
- ;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (17178
- ;;;;;;  22152))
 -;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (17140
 -;;;;;;  20945))
++;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from play/blackbox.el
  
  (autoload (quote blackbox) "blackbox" "\
@@@ -1666,7 -1847,7 +1847,7 @@@ a reflection
  ;;;### (autoloads (bookmark-bmenu-list bookmark-load bookmark-save
  ;;;;;;  bookmark-write bookmark-delete bookmark-insert bookmark-rename
  ;;;;;;  bookmark-insert-location bookmark-relocate bookmark-jump
- ;;;;;;  bookmark-set) "bookmark" "bookmark.el" (17178 22141))
 -;;;;;;  bookmark-set) "bookmark" "bookmark.el" (17239 32184))
++;;;;;;  bookmark-set) "bookmark" "bookmark.el" (17244 4913))
  ;;; Generated autoloads from bookmark.el
   (define-key ctl-x-map "rb" 'bookmark-jump)
   (define-key ctl-x-map "rm" 'bookmark-set)
@@@ -1856,7 -2037,7 +2037,7 @@@ deletion, or > if it is flagged for dis
  ;;;;;;  browse-url browse-url-of-region browse-url-of-dired-file
  ;;;;;;  browse-url-of-buffer browse-url-of-file browse-url-url-at-point
  ;;;;;;  browse-url-galeon-program browse-url-firefox-program browse-url-browser-function)
- ;;;;;;  "browse-url" "net/browse-url.el" (17178 22151))
 -;;;;;;  "browse-url" "net/browse-url.el" (17140 20940))
++;;;;;;  "browse-url" "net/browse-url.el" (17187 59902))
  ;;; Generated autoloads from net/browse-url.el
  
  (defvar browse-url-browser-function (cond ((memq system-type (quote (windows-nt ms-dos cygwin))) (quote browse-url-default-windows-browser)) ((memq system-type (quote (darwin))) (quote browse-url-default-macosx-browser)) (t (quote browse-url-default-browser))) "\
@@@ -2187,8 -2368,8 +2368,8 @@@ Default to the URL around or before poi
  
  ;;;***
  \f
- ;;;### (autoloads (snarf-bruces bruce) "bruce" "play/bruce.el" (17178
- ;;;;;;  22152))
 -;;;### (autoloads (snarf-bruces bruce) "bruce" "play/bruce.el" (17140
 -;;;;;;  20945))
++;;;### (autoloads (snarf-bruces bruce) "bruce" "play/bruce.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from play/bruce.el
  
  (autoload (quote bruce) "bruce" "\
@@@ -2204,7 -2385,7 +2385,7 @@@ Return a vector containing the lines fr
  ;;;***
  \f
  ;;;### (autoloads (bs-show bs-customize bs-cycle-previous bs-cycle-next)
- ;;;;;;  "bs" "bs.el" (17178 22141))
 -;;;;;;  "bs" "bs.el" (17185 27401))
++;;;;;;  "bs" "bs.el" (17187 59901))
  ;;; Generated autoloads from bs.el
  
  (autoload (quote bs-cycle-next) "bs" "\
@@@ -2245,8 -2426,8 +2426,8 @@@ name of buffer configuration
  ;;;***
  \f
  ;;;### (autoloads (insert-text-button make-text-button insert-button
- ;;;;;;  make-button define-button-type) "button" "button.el" (17178
- ;;;;;;  22141))
 -;;;;;;  make-button define-button-type) "button" "button.el" (17148
 -;;;;;;  24943))
++;;;;;;  make-button define-button-type) "button" "button.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from button.el
  
  (defvar button-map (let ((map (make-sparse-keymap))) (define-key map "\r" (quote push-button)) (define-key map [mouse-2] (quote push-button)) map) "\
@@@ -2334,7 -2515,7 +2515,7 @@@ Also see `make-text-button'
  ;;;;;;  batch-byte-compile-if-not-done display-call-tree byte-compile
  ;;;;;;  compile-defun byte-compile-file byte-recompile-directory
  ;;;;;;  byte-force-recompile) "bytecomp" "emacs-lisp/bytecomp.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17243 16676))
++;;;;;;  (17254 63790))
  ;;; Generated autoloads from emacs-lisp/bytecomp.el
  
  (autoload (quote byte-force-recompile) "bytecomp" "\
@@@ -2426,7 -2607,7 +2607,7 @@@ For example, invoke `emacs -batch -f ba
  
  ;;;***
  \f
- ;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (17178 20480))
 -;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (17102 18464))
++;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (17187 59880))
  ;;; Generated autoloads from calendar/cal-dst.el
  
  (put (quote calendar-daylight-savings-starts) (quote risky-local-variable) t)
  ;;;***
  \f
  ;;;### (autoloads (list-yahrzeit-dates) "cal-hebrew" "calendar/cal-hebrew.el"
- ;;;;;;  (17178 22142))
 -;;;;;;  (17167 2790))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from calendar/cal-hebrew.el
  
  (autoload (quote list-yahrzeit-dates) "cal-hebrew" "\
@@@ -2451,7 -2632,7 +2632,7 @@@ from the cursor position
  ;;;### (autoloads (defmath calc-embedded-activate calc-embedded calc-grab-rectangle
  ;;;;;;  calc-grab-region full-calc-keypad calc-keypad calc-eval quick-calc
  ;;;;;;  full-calc calc calc-dispatch calc-settings-file) "calc" "calc/calc.el"
- ;;;;;;  (17178 22142))
 -;;;;;;  (17239 32263))
++;;;;;;  (17229 28052))
  ;;; Generated autoloads from calc/calc.el
  
  (defvar calc-settings-file (convert-standard-filename "~/.calc.el") "\
@@@ -2529,8 -2710,8 +2710,8 @@@ Not documente
  
  ;;;***
  \f
- ;;;### (autoloads (calculator) "calculator" "calculator.el" (17178
- ;;;;;;  22142))
 -;;;### (autoloads (calculator) "calculator" "calculator.el" (17148
 -;;;;;;  24944))
++;;;### (autoloads (calculator) "calculator" "calculator.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from calculator.el
  
  (autoload (quote calculator) "calculator" "\
@@@ -2557,8 -2738,8 +2738,8 @@@ See the documentation for `calculator-m
  ;;;;;;  all-christian-calendar-holidays all-hebrew-calendar-holidays
  ;;;;;;  mark-holidays-in-calendar view-calendar-holidays-initially
  ;;;;;;  calendar-remove-frame-by-deleting mark-diary-entries-in-calendar
- ;;;;;;  number-of-diary-entries view-diary-entries-initially calendar-offset)
- ;;;;;;  "calendar" "calendar/calendar.el" (17178 22143))
+ ;;;;;;  view-diary-entries-initially calendar-offset) "calendar"
 -;;;;;;  "calendar/calendar.el" (17239 32268))
++;;;;;;  "calendar/calendar.el" (17229 28052))
  ;;; Generated autoloads from calendar/calendar.el
  
  (defvar calendar-offset 0 "\
@@@ -2578,26 -2759,6 +2759,6 @@@ be overridden by the value of `calendar
  
  (custom-autoload (quote view-diary-entries-initially) "calendar")
  
- (defvar number-of-diary-entries 1 "\
- *Specifies how many days of diary entries are to be displayed initially.
- This variable affects the diary display when the command \\[diary] is used,
- or if the value of the variable `view-diary-entries-initially' is t.  For
- example, if the default value 1 is used, then only the current day's diary
- entries will be displayed.  If the value 2 is used, then both the current
- day's and the next day's entries will be displayed.
- The value can also be a vector such as [0 2 2 2 2 4 1]; this value
- says to display no diary entries on Sunday, the display the entries
- for the current date and the day after on Monday through Thursday,
- display Friday through Monday's entries on Friday, and display only
- Saturday's entries on Saturday.
- This variable does not affect the diary display with the `d' command
- from the calendar; in that case, the prefix argument controls the
- number of days of diary entries displayed.")
- (custom-autoload (quote number-of-diary-entries) "calendar")
  (defvar mark-diary-entries-in-calendar nil "\
  *Non-nil means mark dates with diary entries, in the calendar window.
  The marking symbol is specified by the variable `diary-entry-marker'.")
@@@ -2709,7 -2870,7 +2870,7 @@@ functions that move by days and weeks."
  
  For example,
  
-   (add-hook 'calendar-move-hook (lambda () (view-diary-entries 1)))
+   (add-hook 'calendar-move-hook (lambda () (diary-view-entries 1)))
  
  redisplays the diary for whatever date the cursor is moved to.")
  
@@@ -3149,7 -3310,7 +3310,7 @@@ movement commands will not work correct
  ;;;***
  \f
  ;;;### (autoloads (canlock-verify canlock-insert-header) "canlock"
- ;;;;;;  "gnus/canlock.el" (17178 22145))
 -;;;;;;  "gnus/canlock.el" (17148 25106))
++;;;;;;  "gnus/canlock.el" (17187 59901))
  ;;; Generated autoloads from gnus/canlock.el
  
  (autoload (quote canlock-insert-header) "canlock" "\
@@@ -3167,7 -3328,7 +3328,7 @@@ it fails
  ;;;***
  \f
  ;;;### (autoloads (c-guess-basic-syntax) "cc-engine" "progmodes/cc-engine.el"
- ;;;;;;  (17178 22152))
 -;;;;;;  (17148 25186))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from progmodes/cc-engine.el
  
  (autoload (quote c-guess-basic-syntax) "cc-engine" "\
@@@ -3180,7 -3341,7 +3341,7 @@@ This function does not do any hidden bu
  \f
  ;;;### (autoloads (pike-mode idl-mode java-mode objc-mode c++-mode
  ;;;;;;  c-mode c-initialize-cc-mode) "cc-mode" "progmodes/cc-mode.el"
- ;;;;;;  (17178 22152))
 -;;;;;;  (17239 32368))
++;;;;;;  (17226 24577))
  ;;; Generated autoloads from progmodes/cc-mode.el
  
  (autoload (quote c-initialize-cc-mode) "cc-mode" "\
@@@ -3338,7 -3499,7 +3499,7 @@@ Key bindings
  ;;;***
  \f
  ;;;### (autoloads (c-set-offset c-add-style c-set-style) "cc-styles"
- ;;;;;;  "progmodes/cc-styles.el" (17178 22152))
 -;;;;;;  "progmodes/cc-styles.el" (17239 32369))
++;;;;;;  "progmodes/cc-styles.el" (17226 24577))
  ;;; Generated autoloads from progmodes/cc-styles.el
  
  (autoload (quote c-set-style) "cc-styles" "\
@@@ -3395,7 -3556,7 +3556,7 @@@ and exists only for compatibility reaso
  \f
  ;;;### (autoloads (ccl-execute-with-args check-ccl-program define-ccl-program
  ;;;;;;  declare-ccl-program ccl-dump ccl-compile) "ccl" "international/ccl.el"
- ;;;;;;  (17178 20480))
 -;;;;;;  (17102 18708))
++;;;;;;  (17187 59880))
  ;;; Generated autoloads from international/ccl.el
  
  (autoload (quote ccl-compile) "ccl" "\
@@@ -3654,7 -3815,7 +3815,7 @@@ See the documentation of `define-ccl-pr
  ;;;***
  \f
  ;;;### (autoloads (cfengine-mode) "cfengine" "progmodes/cfengine.el"
- ;;;;;;  (17178 22152))
 -;;;;;;  (17140 20960))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from progmodes/cfengine.el
  
  (autoload (quote cfengine-mode) "cfengine" "\
@@@ -3676,7 -3837,7 +3837,7 @@@ to the action header
  ;;;;;;  checkdoc-comments checkdoc-continue checkdoc-start checkdoc-current-buffer
  ;;;;;;  checkdoc-eval-current-buffer checkdoc-message-interactive
  ;;;;;;  checkdoc-interactive checkdoc) "checkdoc" "emacs-lisp/checkdoc.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17239 32275))
++;;;;;;  (17226 24574))
  ;;; Generated autoloads from emacs-lisp/checkdoc.el
  
  (autoload (quote checkdoc) "checkdoc" "\
@@@ -3859,8 -4020,8 +4020,8 @@@ checking of documentation strings
  ;;;***
  \f
  ;;;### (autoloads (encode-hz-buffer encode-hz-region decode-hz-buffer
- ;;;;;;  decode-hz-region) "china-util" "language/china-util.el" (17178
- ;;;;;;  20481))
 -;;;;;;  decode-hz-region) "china-util" "language/china-util.el" (17102
 -;;;;;;  18766))
++;;;;;;  decode-hz-region) "china-util" "language/china-util.el" (17187
++;;;;;;  59881))
  ;;; Generated autoloads from language/china-util.el
  
  (autoload (quote decode-hz-region) "china-util" "\
@@@ -3888,7 -4049,7 +4049,7 @@@ Encode the text in the current buffer t
  ;;;***
  \f
  ;;;### (autoloads (command-history list-command-history repeat-matching-complex-command)
- ;;;;;;  "chistory" "chistory.el" (17178 22143))
 -;;;;;;  "chistory" "chistory.el" (17148 24944))
++;;;;;;  "chistory" "chistory.el" (17187 59901))
  ;;; Generated autoloads from chistory.el
  
  (autoload (quote repeat-matching-complex-command) "chistory" "\
@@@ -3927,7 -4088,7 +4088,7 @@@ and runs the normal hook `command-histo
  
  ;;;***
  \f
- ;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (17178 22144))
 -;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (17148 25089))
++;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (17187 59901))
  ;;; Generated autoloads from emacs-lisp/cl.el
  
  (defvar custom-print-functions nil "\
@@@ -3943,7 -4104,7 +4104,7 @@@ a future Emacs interpreter will be abl
  ;;;***
  \f
  ;;;### (autoloads (common-lisp-indent-function) "cl-indent" "emacs-lisp/cl-indent.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17148 25088))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from emacs-lisp/cl-indent.el
  
  (autoload (quote common-lisp-indent-function) "cl-indent" "\
@@@ -3954,7 -4115,7 +4115,7 @@@ Not documente
  ;;;***
  \f
  ;;;### (autoloads (c-macro-expand) "cmacexp" "progmodes/cmacexp.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17205 6162))
++;;;;;;  (17226 24577))
  ;;; Generated autoloads from progmodes/cmacexp.el
  
  (autoload (quote c-macro-expand) "cmacexp" "\
@@@ -3974,8 -4135,8 +4135,8 @@@ For use inside Lisp programs, see also 
  
  ;;;***
  \f
- ;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (17178
- ;;;;;;  22143))
 -;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (17148
 -;;;;;;  24945))
++;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from cmuscheme.el
  
  (autoload (quote run-scheme) "cmuscheme" "\
@@@ -3996,7 -4157,7 +4157,7 @@@ is run)
  ;;;***
  \f
  ;;;### (autoloads (cp-make-coding-system) "code-pages" "international/code-pages.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17239 32320))
++;;;;;;  (17226 24576))
  ;;; Generated autoloads from international/code-pages.el
  
  (autoload (quote cp-make-coding-system) "code-pages" "\
@@@ -4049,7 -4210,7 +4210,7 @@@ Return an updated `non-iso-charset-alis
  \f
  ;;;### (autoloads (codepage-setup cp-supported-codepages cp-offset-for-codepage
  ;;;;;;  cp-language-for-codepage cp-charset-for-codepage cp-make-coding-systems-for-codepage)
- ;;;;;;  "codepage" "international/codepage.el" (17178 20480))
 -;;;;;;  "codepage" "international/codepage.el" (17239 32321))
++;;;;;;  "codepage" "international/codepage.el" (17226 24576))
  ;;; Generated autoloads from international/codepage.el
  
  (autoload (quote cp-make-coding-systems-for-codepage) "codepage" "\
@@@ -4108,7 -4269,7 +4269,7 @@@ read/written by MS-DOS software, or fo
  ;;;### (autoloads (comint-redirect-results-list-from-process comint-redirect-results-list
  ;;;;;;  comint-redirect-send-command-to-process comint-redirect-send-command
  ;;;;;;  comint-run make-comint make-comint-in-buffer) "comint" "comint.el"
- ;;;;;;  (17178 22143))
 -;;;;;;  (17239 32187))
++;;;;;;  (17226 24571))
  ;;; Generated autoloads from comint.el
  
  (defvar comint-output-filter-functions (quote (comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt)) "\
@@@ -4198,8 -4359,8 +4359,8 @@@ REGEXP-GROUP is the regular expression 
  
  ;;;***
  \f
- ;;;### (autoloads (compare-windows) "compare-w" "compare-w.el" (17178
- ;;;;;;  22143))
 -;;;### (autoloads (compare-windows) "compare-w" "compare-w.el" (17159
 -;;;;;;  1461))
++;;;### (autoloads (compare-windows) "compare-w" "compare-w.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from compare-w.el
  
  (autoload (quote compare-windows) "compare-w" "\
@@@ -4234,9 -4395,9 +4395,9 @@@ on third call it again advances points 
  \f
  ;;;### (autoloads (compilation-next-error-function compilation-minor-mode
  ;;;;;;  compilation-shell-minor-mode compilation-mode compilation-start
- ;;;;;;  compile compilation-search-path compilation-ask-about-save
- ;;;;;;  compilation-window-height compilation-mode-hook) "compile"
- ;;;;;;  "progmodes/compile.el" (17178 22153))
+ ;;;;;;  compile compilation-disable-input compile-command compilation-search-path
+ ;;;;;;  compilation-ask-about-save compilation-window-height compilation-mode-hook)
 -;;;;;;  "compile" "progmodes/compile.el" (17239 32370))
++;;;;;;  "compile" "progmodes/compile.el" (17238 21257))
  ;;; Generated autoloads from progmodes/compile.el
  
  (defvar compilation-mode-hook nil "\
@@@ -4286,6 -4447,29 +4447,29 @@@ nil as an element means to try the defa
  
  (custom-autoload (quote compilation-search-path) "compile")
  
+ (defvar compile-command "make -k " "\
+ *Last shell command used to do a compilation; default for next compilation.
+ Sometimes it is useful for files to supply local values for this variable.
+ You might also use mode hooks to specify it in certain modes, like this:
+     (add-hook 'c-mode-hook
+        (lambda ()
+        (unless (or (file-exists-p \"makefile\")
+                    (file-exists-p \"Makefile\"))
+          (set (make-local-variable 'compile-command)
+               (concat \"make -k \"
+                       (file-name-sans-extension buffer-file-name))))))")
+ (custom-autoload (quote compile-command) "compile")
+ (defvar compilation-disable-input nil "\
+ *If non-nil, send end-of-file as compilation process input.
+ This only affects platforms that support asynchronous processes (see
+ `start-process'); synchronous compilation processes never accept input.")
+ (custom-autoload (quote compilation-disable-input) "compile")
  (autoload (quote compile) "compile" "\
  Compile the program including the current buffer.  Default: run `make'.
  Runs COMMAND, a shell command, in a separate process asynchronously
@@@ -4374,7 -4558,7 +4558,7 @@@ This is the value of `next-error-functi
  ;;;***
  \f
  ;;;### (autoloads (partial-completion-mode) "complete" "complete.el"
- ;;;;;;  (17178 22143))
 -;;;;;;  (17148 24947))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from complete.el
  
  (defvar partial-completion-mode nil "\
@@@ -4411,7 -4595,7 +4595,7 @@@ See also the variable `PC-include-file-
  ;;;***
  \f
  ;;;### (autoloads (dynamic-completion-mode) "completion" "completion.el"
- ;;;;;;  (17178 22143))
 -;;;;;;  (17239 32188))
++;;;;;;  (17226 24571))
  ;;; Generated autoloads from completion.el
  
  (autoload (quote dynamic-completion-mode) "completion" "\
@@@ -4424,7 -4608,7 +4608,7 @@@ Enable dynamic word-completion
  ;;;### (autoloads (decompose-composite-char compose-last-chars compose-chars-after
  ;;;;;;  find-composition compose-chars decompose-string compose-string
  ;;;;;;  decompose-region compose-region encode-composition-rule)
- ;;;;;;  "composite" "composite.el" (17178 22143))
 -;;;;;;  "composite" "composite.el" (17120 44761))
++;;;;;;  "composite" "composite.el" (17187 59901))
  ;;; Generated autoloads from composite.el
  
  (defconst reference-point-alist (quote ((tl . 0) (tc . 1) (tr . 2) (Bl . 3) (Bc . 4) (Br . 5) (bl . 6) (bc . 7) (br . 8) (cl . 9) (cc . 10) (cr . 11) (top-left . 0) (top-center . 1) (top-right . 2) (base-left . 3) (base-center . 4) (base-right . 5) (bottom-left . 6) (bottom-center . 7) (bottom-right . 8) (center-left . 9) (center-center . 10) (center-right . 11) (ml . 3) (mc . 10) (mr . 5) (mid-left . 3) (mid-center . 10) (mid-right . 5))) "\
@@@ -4645,7 -4829,7 +4829,7 @@@ Optional 3rd arg WITH-COMPOSITION-RULE 
  \f
  ;;;### (autoloads (conf-xdefaults-mode conf-ppd-mode conf-colon-mode
  ;;;;;;  conf-space-mode conf-javaprop-mode conf-windows-mode conf-unix-mode
- ;;;;;;  conf-mode) "conf-mode" "textmodes/conf-mode.el" (17178 22154))
 -;;;;;;  conf-mode) "conf-mode" "textmodes/conf-mode.el" (17239 32409))
++;;;;;;  conf-mode) "conf-mode" "textmodes/conf-mode.el" (17238 21257))
  ;;; Generated autoloads from textmodes/conf-mode.el
  
  (autoload (quote conf-mode) "conf-mode" "\
@@@ -4686,7 -4870,7 +4870,7 @@@ Conf Mode starter for Unix style Conf f
  Comments start with `#'.
  For details see `conf-mode'.  Example:
  
- # Conf mode font-locks this right on Unix and with C-c C-u
+ # Conf mode font-locks this right on Unix and with \\[conf-unix-mode]
  
  \[Desktop Entry]
         Encoding=UTF-8
@@@ -4701,7 -4885,7 +4885,7 @@@ Conf Mode starter for Windows style Con
  Comments start with `;'.
  For details see `conf-mode'.  Example:
  
- ; Conf mode font-locks this right on Windows and with C-c C-w
+ ; Conf mode font-locks this right on Windows and with \\[conf-windows-mode]
  
  \[ExtShellFolderViews]
  Default={5984FFE0-28D4-11CF-AE66-08002B2E1262}
@@@ -4718,7 -4902,7 +4902,7 @@@ Comments start with `#' but are also re
  between `/*' and `*/'.
  For details see `conf-mode'.  Example:
  
- # Conf mode font-locks this right with C-c C-j (Java properties)
+ # Conf mode font-locks this right with \\[conf-javaprop-mode] (Java properties)
  // another kind of comment
  /* yet another */
  
@@@ -4742,7 -4926,7 +4926,7 @@@ KEYWORDS, or any non-nil non-string fo
  
  For details see `conf-mode'.  Example:
  
- # Conf mode font-locks this right with C-c C-s (space separated)
+ # Conf mode font-locks this right with \\[conf-space-mode] (space separated)
  
  image/jpeg                    jpeg jpg jpe
  image/png                     png
@@@ -4761,7 -4945,7 +4945,7 @@@ Conf Mode starter for Colon files
  \"Assignments\" are with `:'.
  For details see `conf-mode'.  Example:
  
- # Conf mode font-locks this right with C-c C-c (colon)
+ # Conf mode font-locks this right with \\[conf-colon-mode] (colon)
  
  <Multi_key> <exclam> <exclam>         : \"\\241\"     exclamdown
  <Multi_key> <c> <slash>                       : \"\\242\"     cent
@@@ -4773,7 -4957,7 +4957,7 @@@ Conf Mode starter for Adobe/CUPS PPD fi
  Comments start with `*%' and \"assignments\" are with `:'.
  For details see `conf-mode'.  Example:
  
- *% Conf mode font-locks this right with C-c C-p (PPD)
+ *% Conf mode font-locks this right with \\[conf-ppd-mode] (PPD)
  
  *DefaultTransfer: Null
  *Transfer Null.Inverse: \"{ 1 exch sub }\"
@@@ -4785,7 -4969,7 +4969,7 @@@ Conf Mode starter for Xdefaults files
  Comments start with `!' and \"assignments\" are with `:'.
  For details see `conf-mode'.  Example:
  
- ! Conf mode font-locks this right with C-c C-x (.Xdefaults)
+ ! Conf mode font-locks this right with \\[conf-xdefaults-mode] (.Xdefaults)
  
  *background:                  gray99
  *foreground:                  black
  ;;;***
  \f
  ;;;### (autoloads (shuffle-vector cookie-snarf cookie-insert cookie)
- ;;;;;;  "cookie1" "play/cookie1.el" (17178 22152))
 -;;;;;;  "cookie1" "play/cookie1.el" (17140 20945))
++;;;;;;  "cookie1" "play/cookie1.el" (17187 59902))
  ;;; Generated autoloads from play/cookie1.el
  
  (autoload (quote cookie) "cookie1" "\
@@@ -4827,7 -5011,7 +5011,7 @@@ Randomly permute the elements of VECTO
  ;;;***
  \f
  ;;;### (autoloads (copyright copyright-fix-years copyright-update)
- ;;;;;;  "copyright" "emacs-lisp/copyright.el" (17178 22144))
 -;;;;;;  "copyright" "emacs-lisp/copyright.el" (17148 25089))
++;;;;;;  "copyright" "emacs-lisp/copyright.el" (17187 59901))
  ;;; Generated autoloads from emacs-lisp/copyright.el
  
  (autoload (quote copyright-update) "copyright" "\
@@@ -4855,7 -5039,7 +5039,7 @@@ Insert a copyright by $ORGANIZATION not
  ;;;***
  \f
  ;;;### (autoloads (cperl-mode) "cperl-mode" "progmodes/cperl-mode.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17185 27634))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from progmodes/cperl-mode.el
  
  (autoload (quote cperl-mode) "cperl-mode" "\
@@@ -5028,7 -5212,7 +5212,7 @@@ or as help on variables `cperl-tips', `
  ;;;***
  \f
  ;;;### (autoloads (cpp-parse-edit cpp-highlight-buffer) "cpp" "progmodes/cpp.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17140 20963))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from progmodes/cpp.el
  
  (autoload (quote cpp-highlight-buffer) "cpp" "\
@@@ -5047,7 -5231,7 +5231,7 @@@ Edit display information for cpp condit
  ;;;***
  \f
  ;;;### (autoloads (crisp-mode crisp-mode) "crisp" "emulation/crisp.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17140 20920))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from emulation/crisp.el
  
  (defvar crisp-mode nil "\
@@@ -5071,7 -5255,7 +5255,7 @@@ With ARG, turn CRiSP mode on if ARG is 
  ;;;***
  \f
  ;;;### (autoloads (completing-read-multiple) "crm" "emacs-lisp/crm.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17148 25089))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from emacs-lisp/crm.el
  
  (autoload (quote completing-read-multiple) "crm" "\
@@@ -5107,7 -5291,7 +5291,7 @@@ INHERIT-INPUT-METHOD
  ;;;***
  \f
  ;;;### (autoloads (cua-selection-mode cua-mode) "cua-base" "emulation/cua-base.el"
- ;;;;;;  (17178 24780))
 -;;;;;;  (17239 32278))
++;;;;;;  (17251 25141))
  ;;; Generated autoloads from emulation/cua-base.el
  
  (defvar cua-mode nil "\
@@@ -5169,7 -5353,7 +5353,7 @@@ Enable CUA selection mode without the C
  ;;;;;;  customize-face customize-changed-options customize-option-other-window
  ;;;;;;  customize-option customize-group-other-window customize-group
  ;;;;;;  customize-mode customize customize-save-variable customize-set-variable
- ;;;;;;  customize-set-value) "cus-edit" "cus-edit.el" (17178 22143))
 -;;;;;;  customize-set-value) "cus-edit" "cus-edit.el" (17244 43728))
++;;;;;;  customize-set-value) "cus-edit" "cus-edit.el" (17254 63790))
  ;;; Generated autoloads from cus-edit.el
   (add-hook 'same-window-regexps "\\`\\*Customiz.*\\*\\'")
  
@@@ -5424,7 -5608,7 +5608,7 @@@ The format is suitable for use with `ea
  ;;;***
  \f
  ;;;### (autoloads (custom-reset-faces custom-theme-reset-faces custom-set-faces
- ;;;;;;  custom-declare-face) "cus-face" "cus-face.el" (17178 22143))
 -;;;;;;  custom-declare-face) "cus-face" "cus-face.el" (17242 7305))
++;;;;;;  custom-declare-face) "cus-face" "cus-face.el" (17244 4913))
  ;;; Generated autoloads from cus-face.el
  
  (autoload (quote custom-declare-face) "cus-face" "\
@@@ -5494,7 -5678,7 +5678,7 @@@ This means reset FACE to its value in F
  ;;;***
  \f
  ;;;### (autoloads (customize-create-theme) "cus-theme" "cus-theme.el"
- ;;;;;;  (17178 22143))
 -;;;;;;  (17185 27407))
++;;;;;;  (17187 59914))
  ;;; Generated autoloads from cus-theme.el
  
  (autoload (quote customize-create-theme) "cus-theme" "\
@@@ -5505,7 -5689,7 +5689,7 @@@ Create a custom theme
  ;;;***
  \f
  ;;;### (autoloads (cvs-status-mode) "cvs-status" "cvs-status.el"
- ;;;;;;  (17178 22143))
 -;;;;;;  (17148 24952))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from cvs-status.el
  
  (autoload (quote cvs-status-mode) "cvs-status" "\
@@@ -5516,7 -5700,7 +5700,7 @@@ Mode used for cvs status output
  ;;;***
  \f
  ;;;### (autoloads (global-cwarn-mode turn-on-cwarn-mode cwarn-mode)
- ;;;;;;  "cwarn" "progmodes/cwarn.el" (17178 22153))
 -;;;;;;  "cwarn" "progmodes/cwarn.el" (17140 20964))
++;;;;;;  "cwarn" "progmodes/cwarn.el" (17187 59902))
  ;;; Generated autoloads from progmodes/cwarn.el
  
  (autoload (quote cwarn-mode) "cwarn" "\
@@@ -5560,7 -5744,7 +5744,7 @@@ in which `turn-on-cwarn-mode-if-enabled
  \f
  ;;;### (autoloads (standard-display-cyrillic-translit cyrillic-encode-alternativnyj-char
  ;;;;;;  cyrillic-encode-koi8-r-char) "cyril-util" "language/cyril-util.el"
- ;;;;;;  (17178 20481))
 -;;;;;;  (17102 18767))
++;;;;;;  (17187 59881))
  ;;; Generated autoloads from language/cyril-util.el
  
  (autoload (quote cyrillic-encode-koi8-r-char) "cyril-util" "\
@@@ -5589,7 -5773,7 +5773,7 @@@ If the argument is nil, we return the d
  ;;;***
  \f
  ;;;### (autoloads (dabbrev-expand dabbrev-completion) "dabbrev" "dabbrev.el"
- ;;;;;;  (17178 22143))
 -;;;;;;  (17239 32191))
++;;;;;;  (17238 21257))
  ;;; Generated autoloads from dabbrev.el
   (define-key esc-map "/" 'dabbrev-expand)
   (define-key esc-map [?\C-/] 'dabbrev-completion)
@@@ -5636,8 -5820,8 +5820,8 @@@ See also `dabbrev-abbrev-char-regexp' a
  
  ;;;***
  \f
- ;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (17178
- ;;;;;;  22153))
 -;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (17140
 -;;;;;;  20964))
++;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from progmodes/dcl-mode.el
  
  (autoload (quote dcl-mode) "dcl-mode" "\
@@@ -5764,7 -5948,7 +5948,7 @@@ There is some minimal font-lock suppor
  ;;;***
  \f
  ;;;### (autoloads (cancel-debug-on-entry debug-on-entry debug) "debug"
- ;;;;;;  "emacs-lisp/debug.el" (17178 22144))
 -;;;;;;  "emacs-lisp/debug.el" (17244 43742))
++;;;;;;  "emacs-lisp/debug.el" (17254 63790))
  ;;; Generated autoloads from emacs-lisp/debug.el
  
  (setq debugger (quote debug))
@@@ -5808,7 -5992,7 +5992,7 @@@ To specify a nil argument interactively
  ;;;***
  \f
  ;;;### (autoloads (decipher-mode decipher) "decipher" "play/decipher.el"
- ;;;;;;  (17178 22152))
 -;;;;;;  (17205 6149))
++;;;;;;  (17226 24576))
  ;;; Generated autoloads from play/decipher.el
  
  (autoload (quote decipher) "decipher" "\
@@@ -5837,8 -6021,8 +6021,8 @@@ The most useful commands are
  ;;;***
  \f
  ;;;### (autoloads (delimit-columns-rectangle delimit-columns-region
- ;;;;;;  delimit-columns-customize) "delim-col" "delim-col.el" (17178
- ;;;;;;  22143))
 -;;;;;;  delimit-columns-customize) "delim-col" "delim-col.el" (17148
 -;;;;;;  24953))
++;;;;;;  delimit-columns-customize) "delim-col" "delim-col.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from delim-col.el
  
  (autoload (quote delimit-columns-customize) "delim-col" "\
@@@ -5862,8 -6046,8 +6046,8 @@@ START and END delimits the corners of t
  
  ;;;***
  \f
- ;;;### (autoloads (delphi-mode) "delphi" "progmodes/delphi.el" (17178
- ;;;;;;  22153))
 -;;;### (autoloads (delphi-mode) "delphi" "progmodes/delphi.el" (17185
 -;;;;;;  27637))
++;;;### (autoloads (delphi-mode) "delphi" "progmodes/delphi.el" (17187
++;;;;;;  59914))
  ;;; Generated autoloads from progmodes/delphi.el
  
  (autoload (quote delphi-mode) "delphi" "\
@@@ -5913,8 -6097,8 +6097,8 @@@ no args, if that value is non-nil
  
  ;;;***
  \f
- ;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (17178
- ;;;;;;  22143))
 -;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (17159
 -;;;;;;  1461))
++;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from delsel.el
  
  (defalias (quote pending-delete-mode) (quote delete-selection-mode))
@@@ -5944,7 -6128,7 +6128,7 @@@ any selection
  ;;;***
  \f
  ;;;### (autoloads (derived-mode-init-mode-variables define-derived-mode)
- ;;;;;;  "derived" "emacs-lisp/derived.el" (17178 22144))
 -;;;;;;  "derived" "emacs-lisp/derived.el" (17148 25090))
++;;;;;;  "derived" "emacs-lisp/derived.el" (17187 59901))
  ;;; Generated autoloads from emacs-lisp/derived.el
  
  (autoload (quote define-derived-mode) "derived" "\
@@@ -6009,7 -6193,7 +6193,7 @@@ the first time the mode is used
  ;;;***
  \f
  ;;;### (autoloads (describe-char describe-text-properties) "descr-text"
- ;;;;;;  "descr-text.el" (17178 22143))
 -;;;;;;  "descr-text.el" (17185 27409))
++;;;;;;  "descr-text.el" (17187 59914))
  ;;; Generated autoloads from descr-text.el
  
  (autoload (quote describe-text-properties) "descr-text" "\
@@@ -6034,7 -6218,7 +6218,7 @@@ as well as widgets, buttons, overlays, 
  \f
  ;;;### (autoloads (desktop-revert desktop-save-in-desktop-dir desktop-change-dir
  ;;;;;;  desktop-load-default desktop-read desktop-locals-to-save
- ;;;;;;  desktop-save-mode) "desktop" "desktop.el" (17178 22143))
 -;;;;;;  desktop-save-mode) "desktop" "desktop.el" (17242 7306))
++;;;;;;  desktop-save-mode) "desktop" "desktop.el" (17244 4913))
  ;;; Generated autoloads from desktop.el
  
  (defvar desktop-save-mode nil "\
@@@ -6199,7 -6383,7 +6383,7 @@@ Revert to the last loaded desktop
  ;;;;;;  gnus-article-outlook-repair-attribution gnus-article-outlook-unwrap-lines
  ;;;;;;  gnus-outlook-display-hook gnus-outlook-deuglify-unwrap-max
  ;;;;;;  gnus-outlook-deuglify-unwrap-min) "deuglify" "gnus/deuglify.el"
- ;;;;;;  (17178 20480))
 -;;;;;;  (17102 18579))
++;;;;;;  (17187 59879))
  ;;; Generated autoloads from gnus/deuglify.el
  
  (defvar gnus-outlook-deuglify-unwrap-min 45 "\
@@@ -6248,7 -6432,7 +6432,7 @@@ Deuglify broken Outlook (Express) artic
  ;;;***
  \f
  ;;;### (autoloads (devanagari-post-read-conversion devanagari-compose-region)
- ;;;;;;  "devan-util" "language/devan-util.el" (17178 20481))
 -;;;;;;  "devan-util" "language/devan-util.el" (17102 18768))
++;;;;;;  "devan-util" "language/devan-util.el" (17187 59881))
  ;;; Generated autoloads from language/devan-util.el
  
  (defconst devanagari-consonant "[\x51ad5-\x51af9\x51b38-\x51b3f]")
@@@ -6266,7 -6450,7 +6450,7 @@@ Not documente
  ;;;***
  \f
  ;;;### (autoloads (diary-mode diary-mail-entries diary) "diary-lib"
- ;;;;;;  "calendar/diary-lib.el" (17178 22143))
 -;;;;;;  "calendar/diary-lib.el" (17239 32269))
++;;;;;;  "calendar/diary-lib.el" (17229 28052))
  ;;; Generated autoloads from calendar/diary-lib.el
  
  (autoload (quote diary) "diary-lib" "\
@@@ -6312,7 -6496,7 +6496,7 @@@ Major mode for editing the diary file
  ;;;***
  \f
  ;;;### (autoloads (diff-backup diff diff-command diff-switches) "diff"
- ;;;;;;  "diff.el" (17178 22143))
 -;;;;;;  "diff.el" (17239 32193))
++;;;;;;  "diff.el" (17226 24572))
  ;;; Generated autoloads from diff.el
  
  (defvar diff-switches "-c" "\
@@@ -6346,7 -6530,7 +6530,7 @@@ With prefix arg, prompt for diff switch
  ;;;***
  \f
  ;;;### (autoloads (diff-minor-mode diff-mode) "diff-mode" "diff-mode.el"
- ;;;;;;  (17178 22143))
 -;;;;;;  (17239 32193))
++;;;;;;  (17238 21257))
  ;;; Generated autoloads from diff-mode.el
  
  (autoload (quote diff-mode) "diff-mode" "\
@@@ -6358,7 -6542,7 +6542,7 @@@ If you edit the buffer manually, diff-m
  headers for you on-the-fly.
  
  You can also switch between context diff and unified diff with \\[diff-context->unified],
- or vice versa with \\[diff-unified->context] and you can also revert the direction of
+ or vice versa with \\[diff-unified->context] and you can also reverse the direction of
  a diff with \\[diff-reverse-direction].
  
  \(fn)" t nil)
@@@ -6375,7 -6559,7 +6559,7 @@@ Minor mode for viewing/editing context 
  ;;;;;;  dired dired-copy-preserve-time dired-dwim-target dired-keep-marker-symlink
  ;;;;;;  dired-keep-marker-hardlink dired-keep-marker-copy dired-keep-marker-rename
  ;;;;;;  dired-trivial-filenames dired-ls-F-marks-symlinks dired-listing-switches)
- ;;;;;;  "dired" "dired.el" (17178 22143))
 -;;;;;;  "dired" "dired.el" (17244 43730))
++;;;;;;  "dired" "dired.el" (17254 63790))
  ;;; Generated autoloads from dired.el
  
  (defvar dired-listing-switches "-al" "\
@@@ -6580,7 -6764,7 +6764,7 @@@ Keybindings
  ;;;;;;  dired-run-shell-command dired-do-shell-command dired-clean-directory
  ;;;;;;  dired-do-print dired-do-touch dired-do-chown dired-do-chgrp
  ;;;;;;  dired-do-chmod dired-compare-directories dired-backup-diff
- ;;;;;;  dired-diff) "dired-aux" "dired-aux.el" (17178 22143))
 -;;;;;;  dired-diff) "dired-aux" "dired-aux.el" (17239 32194))
++;;;;;;  dired-diff) "dired-aux" "dired-aux.el" (17226 24572))
  ;;; Generated autoloads from dired-aux.el
  
  (autoload (quote dired-diff) "dired-aux" "\
@@@ -6988,7 -7172,7 +7172,7 @@@ true then the type of the file linked t
  
  ;;;***
  \f
- ;;;### (autoloads (dired-jump) "dired-x" "dired-x.el" (17178 22143))
 -;;;### (autoloads (dired-jump) "dired-x" "dired-x.el" (17244 43729))
++;;;### (autoloads (dired-jump) "dired-x" "dired-x.el" (17254 63790))
  ;;; Generated autoloads from dired-x.el
  
  (autoload (quote dired-jump) "dired-x" "\
@@@ -7002,7 -7186,7 +7186,7 @@@ buffer and try again
  
  ;;;***
  \f
- ;;;### (autoloads (dirtrack) "dirtrack" "dirtrack.el" (17178 22143))
 -;;;### (autoloads (dirtrack) "dirtrack" "dirtrack.el" (17148 24959))
++;;;### (autoloads (dirtrack) "dirtrack" "dirtrack.el" (17187 59901))
  ;;; Generated autoloads from dirtrack.el
  
  (autoload (quote dirtrack) "dirtrack" "\
@@@ -7021,8 -7205,8 +7205,8 @@@ You can enable directory tracking by ad
  
  ;;;***
  \f
- ;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (17178
- ;;;;;;  22144))
 -;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (17148
 -;;;;;;  25090))
++;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from emacs-lisp/disass.el
  
  (autoload (quote disassemble) "disass" "\
@@@ -7040,7 -7224,7 +7224,7 @@@ redefine OBJECT if it is a symbol
  ;;;;;;  standard-display-graphic standard-display-g1 standard-display-ascii
  ;;;;;;  standard-display-default standard-display-8bit describe-current-display-table
  ;;;;;;  describe-display-table set-display-table-slot display-table-slot
- ;;;;;;  make-display-table) "disp-table" "disp-table.el" (17178 22143))
 -;;;;;;  make-display-table) "disp-table" "disp-table.el" (17242 7306))
++;;;;;;  make-display-table) "disp-table" "disp-table.el" (17244 4913))
  ;;; Generated autoloads from disp-table.el
  
  (autoload (quote make-display-table) "disp-table" "\
@@@ -7141,7 -7325,7 +7325,7 @@@ for users who call this function in `.e
  ;;;***
  \f
  ;;;### (autoloads (dissociated-press) "dissociate" "play/dissociate.el"
- ;;;;;;  (17178 22152))
 -;;;;;;  (17140 20946))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from play/dissociate.el
  
  (autoload (quote dissociated-press) "dissociate" "\
@@@ -7157,7 -7341,7 +7341,7 @@@ Default is 2
  
  ;;;***
  \f
- ;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (17178 22143))
 -;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (17205 5985))
++;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (17226 24572))
  ;;; Generated autoloads from dnd.el
  
  (defvar dnd-protocol-alist (quote (("^file:///" . dnd-open-local-file) ("^file://" . dnd-open-file) ("^file:" . dnd-open-local-file))) "\
@@@ -7178,7 -7362,7 +7362,7 @@@ if some action was made, or nil if the 
  ;;;***
  \f
  ;;;### (autoloads (dns-mode-soa-increment-serial dns-mode) "dns-mode"
- ;;;;;;  "textmodes/dns-mode.el" (17178 22154))
 -;;;;;;  "textmodes/dns-mode.el" (17148 25205))
++;;;;;;  "textmodes/dns-mode.el" (17187 59902))
  ;;; Generated autoloads from textmodes/dns-mode.el
  
  (autoload (quote dns-mode) "dns-mode" "\
@@@ -7201,7 -7385,7 +7385,7 @@@ Locate SOA record and increment the ser
  
  ;;;***
  \f
- ;;;### (autoloads (doctor) "doctor" "play/doctor.el" (17178 22152))
 -;;;### (autoloads (doctor) "doctor" "play/doctor.el" (17244 43757))
++;;;### (autoloads (doctor) "doctor" "play/doctor.el" (17254 63791))
  ;;; Generated autoloads from play/doctor.el
  
  (autoload (quote doctor) "doctor" "\
@@@ -7212,7 -7396,7 +7396,7 @@@ Switch to *doctor* buffer and start giv
  ;;;***
  \f
  ;;;### (autoloads (double-mode double-mode) "double" "double.el"
- ;;;;;;  (17178 22143))
 -;;;;;;  (17148 24959))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from double.el
  
  (defvar double-mode nil "\
@@@ -7233,7 -7417,7 +7417,7 @@@ when pressed twice.  See variable `doub
  
  ;;;***
  \f
- ;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (17178 22152))
 -;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (17140 20947))
++;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (17187 59902))
  ;;; Generated autoloads from play/dunnet.el
  
  (autoload (quote dunnet) "dunnet" "\
@@@ -7244,7 -7428,7 +7428,7 @@@ Switch to *dungeon* buffer and start ga
  ;;;***
  \f
  ;;;### (autoloads (gnus-earcon-display) "earcon" "gnus/earcon.el"
- ;;;;;;  (17178 22145))
 -;;;;;;  (17148 25106))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/earcon.el
  
  (autoload (quote gnus-earcon-display) "earcon" "\
@@@ -7256,7 -7440,7 +7440,7 @@@ Play sounds in message buffers
  \f
  ;;;### (autoloads (easy-mmode-defsyntax easy-mmode-defmap easy-mmode-define-keymap
  ;;;;;;  define-global-minor-mode define-minor-mode) "easy-mmode"
- ;;;;;;  "emacs-lisp/easy-mmode.el" (17178 22144))
 -;;;;;;  "emacs-lisp/easy-mmode.el" (17167 2793))
++;;;;;;  "emacs-lisp/easy-mmode.el" (17187 59901))
  ;;; Generated autoloads from emacs-lisp/easy-mmode.el
  
  (defalias (quote easy-mmode-define-minor-mode) (quote define-minor-mode))
@@@ -7342,8 -7526,8 +7526,8 @@@ CSS contains a list of syntax specifica
  ;;;***
  \f
  ;;;### (autoloads (easy-menu-change easy-menu-create-menu easy-menu-do-define
- ;;;;;;  easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (17178
- ;;;;;;  22144))
 -;;;;;;  easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (17148
 -;;;;;;  25091))
++;;;;;;  easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from emacs-lisp/easymenu.el
  
  (put (quote easy-menu-define) (quote lisp-indent-function) (quote defun))
@@@ -7488,7 -7672,7 +7672,7 @@@ to implement dynamic menus
  ;;;;;;  ebnf-eps-directory ebnf-spool-region ebnf-spool-buffer ebnf-spool-file
  ;;;;;;  ebnf-spool-directory ebnf-print-region ebnf-print-buffer
  ;;;;;;  ebnf-print-file ebnf-print-directory ebnf-customize) "ebnf2ps"
- ;;;;;;  "progmodes/ebnf2ps.el" (17178 20481))
 -;;;;;;  "progmodes/ebnf2ps.el" (17239 32372))
++;;;;;;  "progmodes/ebnf2ps.el" (17226 24577))
  ;;; Generated autoloads from progmodes/ebnf2ps.el
  
  (autoload (quote ebnf-customize) "ebnf2ps" "\
@@@ -7747,8 -7931,8 +7931,8 @@@ See `ebnf-style-database' documentation
  ;;;;;;  ebrowse-tags-find-declaration-other-window ebrowse-tags-find-definition
  ;;;;;;  ebrowse-tags-view-definition ebrowse-tags-find-declaration
  ;;;;;;  ebrowse-tags-view-declaration ebrowse-member-mode ebrowse-electric-choose-tree
- ;;;;;;  ebrowse-tree-mode) "ebrowse" "progmodes/ebrowse.el" (17178
- ;;;;;;  22153))
 -;;;;;;  ebrowse-tree-mode) "ebrowse" "progmodes/ebrowse.el" (17239
 -;;;;;;  32375))
++;;;;;;  ebrowse-tree-mode) "ebrowse" "progmodes/ebrowse.el" (17226
++;;;;;;  24577))
  ;;; Generated autoloads from progmodes/ebrowse.el
  
  (autoload (quote ebrowse-tree-mode) "ebrowse" "\
@@@ -7899,7 -8083,7 +8083,7 @@@ Display statistics for a class tree
  ;;;***
  \f
  ;;;### (autoloads (electric-buffer-list) "ebuff-menu" "ebuff-menu.el"
- ;;;;;;  (17178 22143))
 -;;;;;;  (17148 24959))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from ebuff-menu.el
  
  (autoload (quote electric-buffer-list) "ebuff-menu" "\
@@@ -7924,7 -8108,7 +8108,7 @@@ Run hooks in `electric-buffer-menu-mode
  ;;;***
  \f
  ;;;### (autoloads (Electric-command-history-redo-expression) "echistory"
- ;;;;;;  "echistory.el" (17178 22143))
 -;;;;;;  "echistory.el" (17205 5985))
++;;;;;;  "echistory.el" (17226 24572))
  ;;; Generated autoloads from echistory.el
  
  (autoload (quote Electric-command-history-redo-expression) "echistory" "\
@@@ -7936,7 -8120,7 +8120,7 @@@ With prefix arg NOCONFIRM, execute curr
  ;;;***
  \f
  ;;;### (autoloads (edebug-eval-top-level-form def-edebug-spec edebug-all-forms
- ;;;;;;  edebug-all-defs) "edebug" "emacs-lisp/edebug.el" (17178 22144))
 -;;;;;;  edebug-all-defs) "edebug" "emacs-lisp/edebug.el" (17148 25093))
++;;;;;;  edebug-all-defs) "edebug" "emacs-lisp/edebug.el" (17187 59901))
  ;;; Generated autoloads from emacs-lisp/edebug.el
  
  (defvar edebug-all-defs nil "\
@@@ -7999,7 -8183,7 +8183,7 @@@ already is one.
  ;;;;;;  ediff-merge-directory-revisions ediff-merge-directories-with-ancestor
  ;;;;;;  ediff-merge-directories ediff-directories3 ediff-directory-revisions
  ;;;;;;  ediff-directories ediff-buffers3 ediff-buffers ediff-backup
- ;;;;;;  ediff-files3 ediff-files) "ediff" "ediff.el" (17178 22143))
 -;;;;;;  ediff-files3 ediff-files) "ediff" "ediff.el" (17239 32202))
++;;;;;;  ediff-files3 ediff-files) "ediff" "ediff.el" (17229 28053))
  ;;; Generated autoloads from ediff.el
  
  (autoload (quote ediff-files) "ediff" "\
@@@ -8237,7 -8421,7 +8421,7 @@@ With optional NODE, goes to that node
  ;;;***
  \f
  ;;;### (autoloads (ediff-customize) "ediff-help" "ediff-help.el"
- ;;;;;;  (17178 22143))
 -;;;;;;  (17148 24960))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from ediff-help.el
  
  (autoload (quote ediff-customize) "ediff-help" "\
@@@ -8247,7 -8431,7 +8431,7 @@@ Not documente
  
  ;;;***
  \f
- ;;;### (autoloads nil "ediff-hook" "ediff-hook.el" (17178 22143))
 -;;;### (autoloads nil "ediff-hook" "ediff-hook.el" (17148 24960))
++;;;### (autoloads nil "ediff-hook" "ediff-hook.el" (17187 59901))
  ;;; Generated autoloads from ediff-hook.el
  
  (defvar ediff-window-setup-function)
  ;;;***
  \f
  ;;;### (autoloads (ediff-show-registry) "ediff-mult" "ediff-mult.el"
- ;;;;;;  (17178 22143))
 -;;;;;;  (17239 32198))
++;;;;;;  (17229 28052))
  ;;; Generated autoloads from ediff-mult.el
  
  (autoload (quote ediff-show-registry) "ediff-mult" "\
@@@ -8273,7 -8457,7 +8457,7 @@@ Display Ediff's registry
  ;;;***
  \f
  ;;;### (autoloads (ediff-toggle-use-toolbar ediff-toggle-multiframe)
- ;;;;;;  "ediff-util" "ediff-util.el" (17178 22143))
 -;;;;;;  "ediff-util" "ediff-util.el" (17239 32201))
++;;;;;;  "ediff-util" "ediff-util.el" (17229 28052))
  ;;; Generated autoloads from ediff-util.el
  
  (autoload (quote ediff-toggle-multiframe) "ediff-util" "\
@@@ -8294,7 -8478,7 +8478,7 @@@ To change the default, set the variabl
  \f
  ;;;### (autoloads (format-kbd-macro read-kbd-macro edit-named-kbd-macro
  ;;;;;;  edit-last-kbd-macro edit-kbd-macro) "edmacro" "edmacro.el"
- ;;;;;;  (17178 22143))
 -;;;;;;  (17148 24966))
++;;;;;;  (17251 25141))
  ;;; Generated autoloads from edmacro.el
  
  (defvar edmacro-eight-bits nil "\
@@@ -8347,7 -8531,7 +8531,7 @@@ or nil, use a compact 80-column format
  ;;;***
  \f
  ;;;### (autoloads (edt-emulation-on edt-set-scroll-margins) "edt"
- ;;;;;;  "emulation/edt.el" (17178 22144))
 -;;;;;;  "emulation/edt.el" (17140 20922))
++;;;;;;  "emulation/edt.el" (17187 59901))
  ;;; Generated autoloads from emulation/edt.el
  
  (autoload (quote edt-set-scroll-margins) "edt" "\
@@@ -8365,7 -8549,7 +8549,7 @@@ Turn on EDT Emulation
  ;;;***
  \f
  ;;;### (autoloads (electric-helpify with-electric-help) "ehelp" "ehelp.el"
- ;;;;;;  (17178 22143))
 -;;;;;;  (17148 24966))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from ehelp.el
  
  (autoload (quote with-electric-help) "ehelp" "\
@@@ -8403,7 -8587,7 +8587,7 @@@ Not documente
  ;;;***
  \f
  ;;;### (autoloads (turn-on-eldoc-mode eldoc-mode eldoc-minor-mode-string)
- ;;;;;;  "eldoc" "emacs-lisp/eldoc.el" (17178 22144))
 -;;;;;;  "eldoc" "emacs-lisp/eldoc.el" (17239 32276))
++;;;;;;  "eldoc" "emacs-lisp/eldoc.el" (17226 24574))
  ;;; Generated autoloads from emacs-lisp/eldoc.el
  
  (defvar eldoc-minor-mode-string " ElDoc" "\
@@@ -8441,8 -8625,8 +8625,8 @@@ Emacs Lisp mode) that support Eldoc."
  
  ;;;***
  \f
- ;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (17178
- ;;;;;;  22143))
 -;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (17148
 -;;;;;;  24966))
++;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from elide-head.el
  
  (autoload (quote elide-head) "elide-head" "\
@@@ -8458,7 -8642,7 +8642,7 @@@ This is suitable as an entry on `find-f
  ;;;***
  \f
  ;;;### (autoloads (elint-initialize) "elint" "emacs-lisp/elint.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17148 25094))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from emacs-lisp/elint.el
  
  (autoload (quote elint-initialize) "elint" "\
@@@ -8469,8 -8653,8 +8653,8 @@@ Initialize elint
  ;;;***
  \f
  ;;;### (autoloads (elp-results elp-instrument-package elp-instrument-list
- ;;;;;;  elp-instrument-function) "elp" "emacs-lisp/elp.el" (17178
- ;;;;;;  22144))
 -;;;;;;  elp-instrument-function) "elp" "emacs-lisp/elp.el" (17148
 -;;;;;;  25094))
++;;;;;;  elp-instrument-function) "elp" "emacs-lisp/elp.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from emacs-lisp/elp.el
  
  (autoload (quote elp-instrument-function) "elp" "\
@@@ -8504,7 -8688,7 +8688,7 @@@ displayed
  ;;;***
  \f
  ;;;### (autoloads (report-emacs-bug) "emacsbug" "mail/emacsbug.el"
- ;;;;;;  (17178 22150))
 -;;;;;;  (17148 25154))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from mail/emacsbug.el
  
  (autoload (quote report-emacs-bug) "emacsbug" "\
@@@ -8519,7 -8703,7 +8703,7 @@@ Prompts for bug subject.  Leaves you i
  ;;;;;;  emerge-revisions emerge-files-with-ancestor-remote emerge-files-remote
  ;;;;;;  emerge-files-with-ancestor-command emerge-files-command emerge-buffers-with-ancestor
  ;;;;;;  emerge-buffers emerge-files-with-ancestor emerge-files) "emerge"
- ;;;;;;  "emerge.el" (17178 22144))
 -;;;;;;  "emerge.el" (17167 2775))
++;;;;;;  "emerge.el" (17187 59901))
  ;;; Generated autoloads from emerge.el
  
  (defvar menu-bar-emerge-menu (make-sparse-keymap "Emerge"))
@@@ -8596,21 -8780,38 +8780,21 @@@ Not documente
  
  ;;;***
  \f
 -;;;### (autoloads (encoded-kbd-mode) "encoded-kb" "international/encoded-kb.el"
 -;;;;;;  (17102 18713))
 +;;;### (autoloads (encoded-kbd-setup-display) "encoded-kb" "international/encoded-kb.el"
- ;;;;;;  (17178 21353))
++;;;;;;  (17251 25141))
  ;;; Generated autoloads from international/encoded-kb.el
  
 -(defvar encoded-kbd-mode nil "\
 -Non-nil if Encoded-Kbd mode is enabled.
 -See the command `encoded-kbd-mode' for a description of this minor-mode.
 -Setting this variable directly does not take effect;
 -use either \\[customize] or the function `encoded-kbd-mode'.")
 -
 -(custom-autoload (quote encoded-kbd-mode) "encoded-kb")
 -
 -(put (quote encoded-kbd-mode) (quote custom-set) (quote custom-set-minor-mode))
 -
 -(autoload (quote encoded-kbd-mode) "encoded-kb" "\
 -Toggle Encoded-kbd minor mode.
 -With arg, turn Encoded-kbd mode on if and only if arg is positive.
 +(autoload (quote encoded-kbd-setup-display) "encoded-kb" "\
 +Set up a `key-translation-map' for `keyboard-coding-system' on DISPLAY.
  
 -You should not turn this mode on manually, instead use the command
 -\\[set-keyboard-coding-system] which turns on or off this mode
 -automatically.
 +DISPLAY may be a display id, a frame, or nil for the selected frame's display.
  
 -In Encoded-kbd mode, a text sent from keyboard is accepted
 -as a multilingual text encoded in a coding system set by
 -\\[set-keyboard-coding-system].
 -
 -\(fn &optional ARG)" t nil)
 +\(fn DISPLAY)" nil nil)
  
  ;;;***
  \f
  ;;;### (autoloads (enriched-decode enriched-encode enriched-mode)
- ;;;;;;  "enriched" "textmodes/enriched.el" (17178 22154))
 -;;;;;;  "enriched" "textmodes/enriched.el" (17148 25205))
++;;;;;;  "enriched" "textmodes/enriched.el" (17187 59902))
  ;;; Generated autoloads from textmodes/enriched.el
  
  (autoload (quote enriched-mode) "enriched" "\
@@@ -8640,8 -8841,8 +8824,8 @@@ Not documente
  
  ;;;***
  \f
- ;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (17178
- ;;;;;;  22144))
 -;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (17140
 -;;;;;;  20930))
++;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from eshell/esh-mode.el
  
  (autoload (quote eshell-mode) "esh-mode" "\
@@@ -8653,8 -8854,8 +8837,8 @@@ Emacs shell interactive mode
  
  ;;;***
  \f
- ;;;### (autoloads (eshell-test) "esh-test" "eshell/esh-test.el" (17178
- ;;;;;;  22144))
 -;;;### (autoloads (eshell-test) "esh-test" "eshell/esh-test.el" (17140
 -;;;;;;  20931))
++;;;### (autoloads (eshell-test) "esh-test" "eshell/esh-test.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from eshell/esh-test.el
  
  (autoload (quote eshell-test) "esh-test" "\
@@@ -8665,7 -8866,7 +8849,7 @@@ Test Eshell to verify that it works as 
  ;;;***
  \f
  ;;;### (autoloads (eshell-report-bug eshell-command-result eshell-command
- ;;;;;;  eshell) "eshell" "eshell/eshell.el" (17178 22144))
 -;;;;;;  eshell) "eshell" "eshell/eshell.el" (17148 25104))
++;;;;;;  eshell) "eshell" "eshell/eshell.el" (17187 59901))
  ;;; Generated autoloads from eshell/eshell.el
  
  (autoload (quote eshell) "eshell" "\
@@@ -8708,10 -8909,10 +8892,10 @@@ Please include any configuration detail
  ;;;;;;  tags-query-replace tags-search tags-loop-continue next-file
  ;;;;;;  pop-tag-mark find-tag-regexp find-tag-other-frame find-tag-other-window
  ;;;;;;  find-tag find-tag-noselect tags-table-files visit-tags-table-buffer
- ;;;;;;  visit-tags-table 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" (17178
- ;;;;;;  22153))
+ ;;;;;;  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"
 -;;;;;;  (17242 7321))
++;;;;;;  (17244 4914))
  ;;; Generated autoloads from progmodes/etags.el
  
  (defvar tags-file-name nil "\
@@@ -8769,6 -8970,11 +8953,11 @@@ Otherwise, `find-tag-default' is used."
  
  (custom-autoload (quote find-tag-default-function) "etags")
  
+ (autoload (quote tags-table-mode) "etags" "\
+ Major mode for tags table file buffers.
+ \(fn)" t nil)
  (autoload (quote visit-tags-table) "etags" "\
  Tell tags commands to use tags table file FILE.
  FILE should be the name of a file created with the `etags' program.
@@@ -9008,7 -9214,7 +9197,7 @@@ for \\[find-tag] (which see)
  ;;;;;;  ethio-fidel-to-sera-buffer ethio-fidel-to-sera-region ethio-sera-to-fidel-marker
  ;;;;;;  ethio-sera-to-fidel-mail ethio-sera-to-fidel-mail-or-marker
  ;;;;;;  ethio-sera-to-fidel-buffer ethio-sera-to-fidel-region setup-ethiopic-environment-internal)
- ;;;;;;  "ethio-util" "language/ethio-util.el" (17178 22147))
 -;;;;;;  "ethio-util" "language/ethio-util.el" (17185 27568))
++;;;;;;  "ethio-util" "language/ethio-util.el" (17187 59901))
  ;;; Generated autoloads from language/ethio-util.el
  
  (autoload (quote setup-ethiopic-environment-internal) "ethio-util" "\
@@@ -9203,7 -9409,7 +9392,7 @@@ Transcribe Ethiopic characters in ASCI
  \f
  ;;;### (autoloads (eudc-load-eudc eudc-query-form eudc-expand-inline
  ;;;;;;  eudc-get-phone eudc-get-email eudc-set-server) "eudc" "net/eudc.el"
- ;;;;;;  (17178 22151))
 -;;;;;;  (17185 27585))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from net/eudc.el
  
  (autoload (quote eudc-set-server) "eudc" "\
@@@ -9259,7 -9465,7 +9448,7 @@@ This does nothing except loading eudc b
  \f
  ;;;### (autoloads (eudc-display-jpeg-as-button eudc-display-jpeg-inline
  ;;;;;;  eudc-display-sound eudc-display-mail eudc-display-url eudc-display-generic-binary)
- ;;;;;;  "eudc-bob" "net/eudc-bob.el" (17178 22151))
 -;;;;;;  "eudc-bob" "net/eudc-bob.el" (17140 20940))
++;;;;;;  "eudc-bob" "net/eudc-bob.el" (17187 59902))
  ;;; Generated autoloads from net/eudc-bob.el
  
  (autoload (quote eudc-display-generic-binary) "eudc-bob" "\
@@@ -9295,7 -9501,7 +9484,7 @@@ Display a button for the JPEG DATA
  ;;;***
  \f
  ;;;### (autoloads (eudc-try-bbdb-insert eudc-insert-record-at-point-into-bbdb)
- ;;;;;;  "eudc-export" "net/eudc-export.el" (17178 22151))
 -;;;;;;  "eudc-export" "net/eudc-export.el" (17140 20940))
++;;;;;;  "eudc-export" "net/eudc-export.el" (17187 59902))
  ;;; Generated autoloads from net/eudc-export.el
  
  (autoload (quote eudc-insert-record-at-point-into-bbdb) "eudc-export" "\
@@@ -9312,7 -9518,7 +9501,7 @@@ Call `eudc-insert-record-at-point-into-
  ;;;***
  \f
  ;;;### (autoloads (eudc-edit-hotlist) "eudc-hotlist" "net/eudc-hotlist.el"
- ;;;;;;  (17178 22151))
 -;;;;;;  (17140 20940))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from net/eudc-hotlist.el
  
  (autoload (quote eudc-edit-hotlist) "eudc-hotlist" "\
@@@ -9325,7 -9531,7 +9514,7 @@@ Edit the hotlist of directory servers i
  ;;;### (autoloads (executable-make-buffer-file-executable-if-script-p
  ;;;;;;  executable-self-display executable-set-magic executable-interpret
  ;;;;;;  executable-command-find-posix-p) "executable" "progmodes/executable.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17140 20967))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from progmodes/executable.el
  
  (autoload (quote executable-command-find-posix-p) "executable" "\
@@@ -9367,7 -9573,7 +9556,7 @@@ file modes
  ;;;***
  \f
  ;;;### (autoloads (expand-jump-to-next-slot expand-jump-to-previous-slot
- ;;;;;;  expand-add-abbrevs) "expand" "expand.el" (17178 22144))
 -;;;;;;  expand-add-abbrevs) "expand" "expand.el" (17148 24967))
++;;;;;;  expand-add-abbrevs) "expand" "expand.el" (17187 59901))
  ;;; Generated autoloads from expand.el
  
  (autoload (quote expand-add-abbrevs) "expand" "\
@@@ -9410,7 -9616,7 +9599,7 @@@ This is used only in conjunction with `
  
  ;;;***
  \f
- ;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (17178 22153))
 -;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (17239 32377))
++;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (17229 28054))
  ;;; Generated autoloads from progmodes/f90.el
  
  (autoload (quote f90-mode) "f90" "\
@@@ -9465,8 -9671,6 +9654,6 @@@ Variables controlling indentation styl
    The possibilities are 'downcase-word, 'upcase-word, 'capitalize-word.
  `f90-leave-line-no'
    Do not left-justify line numbers (default nil).
- `f90-keywords-re'
-   List of keywords used for highlighting/upcase-keywords etc.
  
  Turning on F90 mode calls the value of the variable `f90-mode-hook'
  with no args, if that value is non-nil.
  ;;;;;;  facemenu-remove-all facemenu-remove-face-props facemenu-set-read-only
  ;;;;;;  facemenu-set-intangible facemenu-set-invisible facemenu-set-face-from-menu
  ;;;;;;  facemenu-set-background facemenu-set-foreground facemenu-set-face)
- ;;;;;;  "facemenu" "facemenu.el" (17178 22144))
 -;;;;;;  "facemenu" "facemenu.el" (17148 24967))
++;;;;;;  "facemenu" "facemenu.el" (17187 59901))
  ;;; Generated autoloads from facemenu.el
   (define-key global-map "\M-o" 'facemenu-keymap)
   (autoload 'facemenu-keymap "facemenu" "Keymap for face-changing commands." t 'keymap)
@@@ -9642,7 -9846,7 +9829,7 @@@ argument BUFFER-NAME is nil, it default
  ;;;***
  \f
  ;;;### (autoloads (turn-on-fast-lock fast-lock-mode) "fast-lock"
- ;;;;;;  "obsolete/fast-lock.el" (17178 22151))
 -;;;;;;  "obsolete/fast-lock.el" (17205 6148))
++;;;;;;  "obsolete/fast-lock.el" (17226 24576))
  ;;; Generated autoloads from obsolete/fast-lock.el
  
  (autoload (quote fast-lock-mode) "fast-lock" "\
@@@ -9683,7 -9887,7 +9870,7 @@@ Unconditionally turn on Fast Lock mode
  \f
  ;;;### (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" (17178 20480))
 -;;;;;;  feedmail-send-it) "feedmail" "mail/feedmail.el" (17239 32329))
++;;;;;;  feedmail-send-it) "feedmail" "mail/feedmail.el" (17226 24576))
  ;;; Generated autoloads from mail/feedmail.el
  
  (autoload (quote feedmail-send-it) "feedmail" "\
@@@ -9737,7 -9941,7 +9924,7 @@@ you can set feedmail-queue-reminder-ali
  ;;;***
  \f
  ;;;### (autoloads (ffap-bindings dired-at-point ffap-at-mouse ffap-menu
- ;;;;;;  find-file-at-point ffap-next) "ffap" "ffap.el" (17178 22144))
 -;;;;;;  find-file-at-point ffap-next) "ffap" "ffap.el" (17239 32205))
++;;;;;;  find-file-at-point ffap-next) "ffap" "ffap.el" (17238 21257))
  ;;; Generated autoloads from ffap.el
  
  (autoload (quote ffap-next) "ffap" "\
@@@ -9758,8 -9962,6 +9945,6 @@@ If `ffap-require-prefix' is set, the pr
  See also the variables `ffap-dired-wildcards', `ffap-newfile-prompt',
  and the functions `ffap-file-at-point' and `ffap-url-at-point'.
  
- See <ftp://ftp.mathcs.emory.edu/pub/mic/emacs/> for latest version.
  \(fn &optional FILENAME)" t nil)
  
  (defalias (quote ffap) (quote find-file-at-point))
@@@ -9796,7 -9998,7 +9981,7 @@@ Evaluate the forms in variable `ffap-bi
  ;;;***
  \f
  ;;;### (autoloads (file-cache-minibuffer-complete) "filecache" "filecache.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17239 32205))
++;;;;;;  (17238 21257))
  ;;; Generated autoloads from filecache.el
  
  (autoload (quote file-cache-minibuffer-complete) "filecache" "\
@@@ -9814,8 -10016,8 +9999,8 @@@ the name is considered already unique; 
  
  ;;;***
  \f
- ;;;### (autoloads (filesets-init) "filesets" "filesets.el" (17178
- ;;;;;;  22144))
 -;;;### (autoloads (filesets-init) "filesets" "filesets.el" (17148
 -;;;;;;  24974))
++;;;### (autoloads (filesets-init) "filesets" "filesets.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from filesets.el
  
  (autoload (quote filesets-init) "filesets" "\
@@@ -9828,7 -10030,7 +10013,7 @@@ Set up hooks, load the cache file -- i
  \f
  ;;;### (autoloads (find-grep-dired find-name-dired find-dired find-grep-options
  ;;;;;;  find-ls-subdir-switches find-ls-option) "find-dired" "find-dired.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17148 24974))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from find-dired.el
  
  (defvar find-ls-option (if (eq system-type (quote berkeley-unix)) (quote ("-ls" . "-gilsb")) (quote ("-exec ls -ld {} \\;" . "-ld"))) "\
@@@ -9889,7 -10091,7 +10074,7 @@@ Thus ARG can also contain additional gr
  \f
  ;;;### (autoloads (ff-mouse-find-other-file-other-window ff-mouse-find-other-file
  ;;;;;;  ff-find-other-file ff-get-other-file) "find-file" "find-file.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17148 24975))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from find-file.el
  
  (defvar ff-special-constructs (quote (("^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]" lambda nil (setq fname (buffer-substring (match-beginning 2) (match-end 2)))))) "\
@@@ -9981,7 -10183,7 +10166,7 @@@ Visit the file you click on in another 
  ;;;;;;  find-variable find-variable-noselect find-function-other-frame
  ;;;;;;  find-function-other-window find-function find-function-noselect
  ;;;;;;  find-function-search-for-symbol find-library) "find-func"
- ;;;;;;  "emacs-lisp/find-func.el" (17178 22144))
 -;;;;;;  "emacs-lisp/find-func.el" (17242 7313))
++;;;;;;  "emacs-lisp/find-func.el" (17244 4913))
  ;;; Generated autoloads from emacs-lisp/find-func.el
  
  (autoload (quote find-library) "find-func" "\
@@@ -10130,7 -10332,7 +10315,7 @@@ Define some key bindings for the find-f
  ;;;***
  \f
  ;;;### (autoloads (find-lisp-find-dired-filter find-lisp-find-dired-subdirectories
- ;;;;;;  find-lisp-find-dired) "find-lisp" "find-lisp.el" (17178 22144))
 -;;;;;;  find-lisp-find-dired) "find-lisp" "find-lisp.el" (17185 27434))
++;;;;;;  find-lisp-find-dired) "find-lisp" "find-lisp.el" (17187 59901))
  ;;; Generated autoloads from find-lisp.el
  
  (autoload (quote find-lisp-find-dired) "find-lisp" "\
@@@ -10151,7 -10353,7 +10336,7 @@@ Change the filter on a find-lisp-find-d
  ;;;***
  \f
  ;;;### (autoloads (finder-by-keyword finder-commentary finder-list-keywords)
- ;;;;;;  "finder" "finder.el" (17178 22144))
 -;;;;;;  "finder" "finder.el" (17148 24975))
++;;;;;;  "finder" "finder.el" (17187 59901))
  ;;; Generated autoloads from finder.el
  
  (autoload (quote finder-list-keywords) "finder" "\
@@@ -10173,7 -10375,7 +10358,7 @@@ Find packages matching a given keyword
  ;;;***
  \f
  ;;;### (autoloads (enable-flow-control-on enable-flow-control) "flow-ctrl"
- ;;;;;;  "flow-ctrl.el" (17178 22144))
 -;;;;;;  "flow-ctrl.el" (17148 24975))
++;;;;;;  "flow-ctrl.el" (17187 59901))
  ;;; Generated autoloads from flow-ctrl.el
  
  (autoload (quote enable-flow-control) "flow-ctrl" "\
@@@ -10195,7 -10397,7 +10380,7 @@@ to get the effect of a C-q
  ;;;***
  \f
  ;;;### (autoloads (fill-flowed fill-flowed-encode) "flow-fill" "gnus/flow-fill.el"
- ;;;;;;  (17178 22145))
 -;;;;;;  (17148 25106))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/flow-fill.el
  
  (autoload (quote fill-flowed-encode) "flow-fill" "\
@@@ -10211,7 -10413,7 +10396,7 @@@ Not documente
  ;;;***
  \f
  ;;;### (autoloads (flymake-mode-off flymake-mode-on flymake-mode)
- ;;;;;;  "flymake" "progmodes/flymake.el" (17178 22153))
 -;;;;;;  "flymake" "progmodes/flymake.el" (17205 6169))
++;;;;;;  "flymake" "progmodes/flymake.el" (17226 24577))
  ;;; Generated autoloads from progmodes/flymake.el
  
  (autoload (quote flymake-mode) "flymake" "\
@@@ -10235,7 -10437,7 +10420,7 @@@ Turn flymake mode off
  \f
  ;;;### (autoloads (flyspell-buffer flyspell-region flyspell-mode-off
  ;;;;;;  flyspell-mode flyspell-prog-mode) "flyspell" "textmodes/flyspell.el"
- ;;;;;;  (17178 22154))
 -;;;;;;  (17244 43759))
++;;;;;;  (17254 63791))
  ;;; Generated autoloads from textmodes/flyspell.el
  
  (autoload (quote flyspell-prog-mode) "flyspell" "\
@@@ -10294,7 -10496,7 +10479,7 @@@ Flyspell whole buffer
  \f
  ;;;### (autoloads (follow-delete-other-windows-and-split follow-mode
  ;;;;;;  turn-off-follow-mode turn-on-follow-mode) "follow" "follow.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17194 38158))
++;;;;;;  (17196 27217))
  ;;; Generated autoloads from follow.el
  
  (autoload (quote turn-on-follow-mode) "follow" "\
@@@ -10370,9 -10572,129 +10555,129 @@@ in your `~/.emacs' file, replacing [f7
  \f
  ;;;### (autoloads (font-lock-fontify-buffer font-lock-remove-keywords
  ;;;;;;  font-lock-add-keywords font-lock-mode-internal) "font-lock"
- ;;;;;;  "font-lock.el" (17178 22144))
 -;;;;;;  "font-lock.el" (17244 43734))
++;;;;;;  "font-lock.el" (17254 63790))
  ;;; Generated autoloads from font-lock.el
  
+ (defvar font-lock-keywords nil "\
+ A list of the keywords to highlight.
+ There are two kinds of values: user-level, and compiled.
+ A user-level keywords list is what a major mode or the user would
+ set up.  Normally the list would come from `font-lock-defaults'.
+ through selection of a fontification level and evaluation of any
+ contained expressions.  You can also alter it by calling
+ `font-lock-add-keywords' or `font-lock-remove-keywords' with MODE = nil.
+ Each element in a user-level keywords list should have one of these forms:
+  MATCHER
+  (MATCHER . SUBEXP)
+  (MATCHER . FACENAME)
+  (MATCHER . HIGHLIGHT)
+  (MATCHER HIGHLIGHT ...)
+  (eval . FORM)
+ where MATCHER can be either the regexp to search for, or the function name to
+ call to make the search (called with one argument, the limit of the search;
+ it should return non-nil, move point, and set `match-data' appropriately iff
+ it succeeds; like `re-search-forward' would).
+ MATCHER regexps can be generated via the function `regexp-opt'.
+ FORM is an expression, whose value should be a keyword element, evaluated when
+ the keyword is (first) used in a buffer.  This feature can be used to provide a
+ keyword that can only be generated when Font Lock mode is actually turned on.
+ HIGHLIGHT should be either MATCH-HIGHLIGHT or MATCH-ANCHORED.
+ For highlighting single items, for example each instance of the word \"foo\",
+ typically only MATCH-HIGHLIGHT is required.
+ However, if an item or (typically) items are to be highlighted following the
+ instance of another item (the anchor), for example each instance of the
+ word \"bar\" following the word \"anchor\" then MATCH-ANCHORED may be required.
+ MATCH-HIGHLIGHT should be of the form:
+  (SUBEXP FACENAME [OVERRIDE [LAXMATCH]])
+ SUBEXP is the number of the subexpression of MATCHER to be highlighted.
+ FACENAME is an expression whose value is the face name to use.
+ Instead of a face, FACENAME can evaluate to a property list
+ of the form (face FACE PROP1 VAL1 PROP2 VAL2 ...)
+ in which case all the listed text-properties will be set rather than
+ just FACE.  In such a case, you will most likely want to put those
+ properties in `font-lock-extra-managed-props' or to override
+ `font-lock-unfontify-region-function'.
+ OVERRIDE and LAXMATCH are flags.  If OVERRIDE is t, existing fontification can
+ be overwritten.  If `keep', only parts not already fontified are highlighted.
+ If `prepend' or `append', existing fontification is merged with the new, in
+ which the new or existing fontification, respectively, takes precedence.
+ If LAXMATCH is non-nil, that means don't signal an error if there is
+ no match for SUBEXP in MATCHER.
+ For example, an element of the form highlights (if not already highlighted):
+  \"\\\\\\=<foo\\\\\\=>\"              discrete occurrences of \"foo\" in the value of the
+                       variable `font-lock-keyword-face'.
+  (\"fu\\\\(bar\\\\)\" . 1)    substring \"bar\" within all occurrences of \"fubar\" in
+                       the value of `font-lock-keyword-face'.
+  (\"fubar\" . fubar-face)     Occurrences of \"fubar\" in the value of `fubar-face'.
+  (\"foo\\\\|bar\" 0 foo-bar-face t)
+                       occurrences of either \"foo\" or \"bar\" in the value
+                       of `foo-bar-face', even if already highlighted.
+  (fubar-match 1 fubar-face)
+                       the first subexpression within all occurrences of
+                       whatever the function `fubar-match' finds and matches
+                       in the value of `fubar-face'.
+ MATCH-ANCHORED should be of the form:
+  (MATCHER PRE-MATCH-FORM POST-MATCH-FORM MATCH-HIGHLIGHT ...)
+ where MATCHER is a regexp to search for or the function name to call to make
+ the search, as for MATCH-HIGHLIGHT above, but with one exception; see below.
+ PRE-MATCH-FORM and POST-MATCH-FORM are evaluated before the first, and after
+ the last, instance MATCH-ANCHORED's MATCHER is used.  Therefore they can be
+ used to initialize before, and cleanup after, MATCHER is used.  Typically,
+ PRE-MATCH-FORM is used to move to some position relative to the original
+ MATCHER, before starting with MATCH-ANCHORED's MATCHER.  POST-MATCH-FORM might
+ be used to move back, before resuming with MATCH-ANCHORED's parent's MATCHER.
+ For example, an element of the form highlights (if not already highlighted):
+  (\"\\\\\\=<anchor\\\\\\=>\" (0 anchor-face) (\"\\\\\\=<item\\\\\\=>\" nil nil (0 item-face)))
+  discrete occurrences of \"anchor\" in the value of `anchor-face', and subsequent
+  discrete occurrences of \"item\" (on the same line) in the value of `item-face'.
+  (Here PRE-MATCH-FORM and POST-MATCH-FORM are nil.  Therefore \"item\" is
+  initially searched for starting from the end of the match of \"anchor\", and
+  searching for subsequent instances of \"anchor\" resumes from where searching
+  for \"item\" concluded.)
+ The above-mentioned exception is as follows.  The limit of the MATCHER search
+ defaults to the end of the line after PRE-MATCH-FORM is evaluated.
+ However, if PRE-MATCH-FORM returns a position greater than the position after
+ PRE-MATCH-FORM is evaluated, that position is used as the limit of the search.
+ It is generally a bad idea to return a position greater than the end of the
+ line, i.e., cause the MATCHER search to span lines.
+ These regular expressions can match text which spans lines, although
+ it is better to avoid it if possible since updating them while editing
+ text is slower, and it is not guaranteed to be always correct when using
+ support modes like jit-lock or lazy-lock.
+ This variable is set by major modes via the variable `font-lock-defaults'.
+ Be careful when composing regexps for this list; a poorly written pattern can
+ dramatically slow things down!
+ A compiled keywords list starts with t.  It is produced internal
+ by `font-lock-compile-keywords' from a user-level keywords list.
+ Its second element is the user-level keywords list that was
+ compiled.  The remaining elements have the same form as
+ user-level keywords, but normally their values have been
+ optimized.")
  (autoload (quote font-lock-mode-internal) "font-lock" "\
  Not documented
  
@@@ -10442,8 -10764,8 +10747,8 @@@ Fontify the current buffer the way the 
  
  ;;;***
  \f
- ;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (17178
- ;;;;;;  22150))
 -;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (17148
 -;;;;;;  25154))
++;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from mail/footnote.el
  
  (autoload (quote footnote-mode) "footnote" "\
@@@ -10464,7 -10786,7 +10769,7 @@@ key          bindin
  ;;;***
  \f
  ;;;### (autoloads (forms-find-file-other-window forms-find-file forms-mode)
- ;;;;;;  "forms" "forms.el" (17178 22144))
 -;;;;;;  "forms" "forms.el" (17239 32209))
++;;;;;;  "forms" "forms.el" (17226 24575))
  ;;; Generated autoloads from forms.el
  
  (autoload (quote forms-mode) "forms" "\
@@@ -10501,7 -10823,7 +10806,7 @@@ Visit a file in Forms mode in other win
  ;;;***
  \f
  ;;;### (autoloads (fortran-mode fortran-tab-mode-default) "fortran"
- ;;;;;;  "progmodes/fortran.el" (17178 22153))
 -;;;;;;  "progmodes/fortran.el" (17239 32378))
++;;;;;;  "progmodes/fortran.el" (17229 28054))
  ;;; Generated autoloads from progmodes/fortran.el
  
  (defvar fortran-tab-mode-default nil "\
@@@ -10587,7 -10909,7 +10892,7 @@@ with no args, if that value is non-nil
  ;;;***
  \f
  ;;;### (autoloads (fortune fortune-to-signature fortune-compile fortune-from-region
- ;;;;;;  fortune-add-fortune) "fortune" "play/fortune.el" (17178 22152))
 -;;;;;;  fortune-add-fortune) "fortune" "play/fortune.el" (17140 20947))
++;;;;;;  fortune-add-fortune) "fortune" "play/fortune.el" (17187 59902))
  ;;; Generated autoloads from play/fortune.el
  
  (autoload (quote fortune-add-fortune) "fortune" "\
@@@ -10637,7 -10959,7 +10942,7 @@@ and choose the directory as the fortune
  ;;;***
  \f
  ;;;### (autoloads (set-fringe-style fringe-mode fringe-mode) "fringe"
- ;;;;;;  "fringe.el" (17178 22144))
 -;;;;;;  "fringe.el" (17148 24980))
++;;;;;;  "fringe.el" (17187 59901))
  ;;; Generated autoloads from fringe.el
  
  (defvar fringe-mode nil "\
@@@ -10708,7 -11030,7 +11013,7 @@@ default appearance of fringes on all fr
  ;;;***
  \f
  ;;;### (autoloads (gdb-enable-debug-log gdba) "gdb-ui" "progmodes/gdb-ui.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17244 43757))
++;;;;;;  (17254 64068))
  ;;; Generated autoloads from progmodes/gdb-ui.el
  
  (autoload (quote gdba) "gdb-ui" "\
@@@ -10738,28 -11060,28 +11043,28 @@@ See Info node `(emacs)GDB Graphical Int
  detailed description of this mode.
  
  
- ---------------------------------------------------------------------
-                                GDB Toolbar
- ---------------------------------------------------------------------
-  GUD buffer (I/O of GDB)          | Locals buffer
                                  |
                                  |
                                  |
- ---------------------------------------------------------------------
-  Source buffer                    | Input/Output (of inferior) buffer
-                                   | (comint-mode)
                                  |
                                  |
                                  |
                                  |
                                  |
                                  |
- ---------------------------------------------------------------------
-  Stack buffer                     | Breakpoints buffer
-  RET      gdb-frames-select       | SPC    gdb-toggle-breakpoint
-                                   | RET    gdb-goto-breakpoint
-                                   |   d    gdb-delete-breakpoint
- ---------------------------------------------------------------------
+ +--------------------------------------------------------------+
+ |                           GDB Toolbar                        |
+ +-------------------------------+------------------------------+
+ | GUD buffer (I/O of GDB)       | Locals buffer                |
|                               |                              |
|                               |                              |
|                               |                              |
+ +-------------------------------+------------------------------+
+ | Source buffer                 | I/O buffer (of inferior)     |
+ |                               | (comint-mode)                |
|                               |                              |
|                               |                              |
|                               |                              |
|                               |                              |
|                               |                              |
|                               |                              |
+ +-------------------------------+------------------------------+
+ | Stack buffer                  | Breakpoints buffer           |
+ | RET      gdb-frames-select    | SPC    gdb-toggle-breakpoint |
+ |                               | RET    gdb-goto-breakpoint   |
+ |                               | d      gdb-delete-breakpoint |
+ +-------------------------------+------------------------------+
  
  \(fn COMMAND-LINE)" t nil)
  
@@@ -10771,8 -11093,8 +11076,8 @@@ Non-nil means record the process input 
  ;;;***
  \f
  ;;;### (autoloads (generic-make-keywords-list generic-mode generic-mode-internal
- ;;;;;;  define-generic-mode) "generic" "emacs-lisp/generic.el" (17178
- ;;;;;;  22144))
 -;;;;;;  define-generic-mode) "generic" "emacs-lisp/generic.el" (17148
 -;;;;;;  25095))
++;;;;;;  define-generic-mode) "generic" "emacs-lisp/generic.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from emacs-lisp/generic.el
  
  (defvar generic-mode-list nil "\
@@@ -10847,7 -11169,7 +11152,7 @@@ regular expression that can be used as 
  ;;;***
  \f
  ;;;### (autoloads (glasses-mode) "glasses" "progmodes/glasses.el"
- ;;;;;;  (17178 20481))
 -;;;;;;  (17195 59536))
++;;;;;;  (17226 24577))
  ;;; Generated autoloads from progmodes/glasses.el
  
  (autoload (quote glasses-mode) "glasses" "\
@@@ -10860,7 -11182,7 +11165,7 @@@ at places they belong to
  ;;;***
  \f
  ;;;### (autoloads (gnus gnus-other-frame gnus-slave gnus-no-server
- ;;;;;;  gnus-slave-no-server) "gnus" "gnus/gnus.el" (17178 22145))
 -;;;;;;  gnus-slave-no-server) "gnus" "gnus/gnus.el" (17205 6099))
++;;;;;;  gnus-slave-no-server) "gnus" "gnus/gnus.el" (17226 24575))
  ;;; Generated autoloads from gnus/gnus.el
  
  (autoload (quote gnus-slave-no-server) "gnus" "\
@@@ -10911,7 -11233,7 +11216,7 @@@ prompt the user for the name of an NNT
  ;;;;;;  gnus-agent-get-undownloaded-list gnus-agent-delete-group
  ;;;;;;  gnus-agent-rename-group gnus-agent-possibly-save-gcc gnus-agentize
  ;;;;;;  gnus-slave-unplugged gnus-plugged gnus-unplugged) "gnus-agent"
- ;;;;;;  "gnus/gnus-agent.el" (17178 22145))
 -;;;;;;  "gnus/gnus-agent.el" (17239 32296))
++;;;;;;  "gnus/gnus-agent.el" (17226 24575))
  ;;; Generated autoloads from gnus/gnus-agent.el
  
  (autoload (quote gnus-unplugged) "gnus-agent" "\
@@@ -10998,7 -11320,7 +11303,7 @@@ If CLEAN, obsolete (ignore)
  ;;;***
  \f
  ;;;### (autoloads (gnus-article-prepare-display) "gnus-art" "gnus/gnus-art.el"
- ;;;;;;  (17178 22145))
 -;;;;;;  (17242 7315))
++;;;;;;  (17254 63788))
  ;;; Generated autoloads from gnus/gnus-art.el
  
  (autoload (quote gnus-article-prepare-display) "gnus-art" "\
@@@ -11009,7 -11331,7 +11314,7 @@@ Make the current buffer look like a nic
  ;;;***
  \f
  ;;;### (autoloads (gnus-audio-play) "gnus-audio" "gnus/gnus-audio.el"
- ;;;;;;  (17178 22145))
 -;;;;;;  (17148 25111))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/gnus-audio.el
  
  (autoload (quote gnus-audio-play) "gnus-audio" "\
@@@ -11021,8 -11343,8 +11326,8 @@@ Play a sound FILE through the speaker
  \f
  ;;;### (autoloads (gnus-cache-delete-group gnus-cache-rename-group
  ;;;;;;  gnus-cache-generate-nov-databases gnus-cache-generate-active
- ;;;;;;  gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (17178
- ;;;;;;  22145))
 -;;;;;;  gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (17148
 -;;;;;;  25111))
++;;;;;;  gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from gnus/gnus-cache.el
  
  (autoload (quote gnus-jog-cache) "gnus-cache" "\
@@@ -11060,7 -11382,7 +11365,7 @@@ next enabled. Depends upon the caller t
  ;;;***
  \f
  ;;;### (autoloads (gnus-delay-initialize gnus-delay-send-queue gnus-delay-article)
- ;;;;;;  "gnus-delay" "gnus/gnus-delay.el" (17178 22145))
 -;;;;;;  "gnus-delay" "gnus/gnus-delay.el" (17148 25112))
++;;;;;;  "gnus-delay" "gnus/gnus-delay.el" (17187 59901))
  ;;; Generated autoloads from gnus/gnus-delay.el
  
  (defgroup gnus-delay nil "Arrange for sending postings later." :version "22.1" :group (quote gnus))
@@@ -11098,7 -11420,7 +11403,7 @@@ Checking delayed messages is skipped i
  ;;;***
  \f
  ;;;### (autoloads (turn-on-gnus-dired-mode) "gnus-dired" "gnus/gnus-dired.el"
- ;;;;;;  (17178 22145))
 -;;;;;;  (17148 25112))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/gnus-dired.el
  
  (autoload (quote turn-on-gnus-dired-mode) "gnus-dired" "\
@@@ -11109,7 -11431,7 +11414,7 @@@ Convenience method to turn on gnus-dire
  ;;;***
  \f
  ;;;### (autoloads (gnus-draft-reminder) "gnus-draft" "gnus/gnus-draft.el"
- ;;;;;;  (17178 22145))
 -;;;;;;  (17148 25113))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/gnus-draft.el
  
  (autoload (quote gnus-draft-reminder) "gnus-draft" "\
@@@ -11121,8 -11443,8 +11426,8 @@@ Reminder user if there are unsent draft
  \f
  ;;;### (autoloads (gnus-convert-png-to-face gnus-convert-face-to-png
  ;;;;;;  gnus-face-from-file gnus-x-face-from-file gnus-insert-random-x-face-header
- ;;;;;;  gnus-random-x-face) "gnus-fun" "gnus/gnus-fun.el" (17178
- ;;;;;;  22145))
 -;;;;;;  gnus-random-x-face) "gnus-fun" "gnus/gnus-fun.el" (17185
 -;;;;;;  27513))
++;;;;;;  gnus-random-x-face) "gnus-fun" "gnus/gnus-fun.el" (17187
++;;;;;;  59914))
  ;;; Generated autoloads from gnus/gnus-fun.el
  
  (autoload (quote gnus-random-x-face) "gnus-fun" "\
@@@ -11141,7 -11463,7 +11446,7 @@@ Insert an X-Face header based on an ima
  \(fn FILE)" t nil)
  
  (autoload (quote gnus-face-from-file) "gnus-fun" "\
- Return an Face header based on an image file.
+ Return a Face header based on an image file.
  
  \(fn FILE)" t nil)
  
@@@ -11161,7 -11483,7 +11466,7 @@@ FILE should be a PNG file that's 48x48 
  ;;;***
  \f
  ;;;### (autoloads (gnus-fetch-group-other-frame gnus-fetch-group)
- ;;;;;;  "gnus-group" "gnus/gnus-group.el" (17178 22145))
 -;;;;;;  "gnus-group" "gnus/gnus-group.el" (17148 25115))
++;;;;;;  "gnus-group" "gnus/gnus-group.el" (17187 59901))
  ;;; Generated autoloads from gnus/gnus-group.el
  
  (autoload (quote gnus-fetch-group) "gnus-group" "\
@@@ -11178,7 -11500,7 +11483,7 @@@ Pop up a frame and enter GROUP
  ;;;***
  \f
  ;;;### (autoloads (gnus-batch-score) "gnus-kill" "gnus/gnus-kill.el"
- ;;;;;;  (17178 22145))
 -;;;;;;  (17148 25116))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/gnus-kill.el
  
  (defalias (quote gnus-batch-kill) (quote gnus-batch-score))
@@@ -11193,7 -11515,7 +11498,7 @@@ Usage: emacs -batch -l ~/.emacs -l gnu
  \f
  ;;;### (autoloads (gnus-mailing-list-mode gnus-mailing-list-insinuate
  ;;;;;;  turn-on-gnus-mailing-list-mode) "gnus-ml" "gnus/gnus-ml.el"
- ;;;;;;  (17178 22145))
 -;;;;;;  (17148 25116))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/gnus-ml.el
  
  (autoload (quote turn-on-gnus-mailing-list-mode) "gnus-ml" "\
@@@ -11218,7 -11540,7 +11523,7 @@@ Minor mode for providing mailing-list c
  \f
  ;;;### (autoloads (gnus-group-split-fancy gnus-group-split gnus-group-split-update
  ;;;;;;  gnus-group-split-setup) "gnus-mlspl" "gnus/gnus-mlspl.el"
- ;;;;;;  (17178 22145))
 -;;;;;;  (17148 25116))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/gnus-mlspl.el
  
  (autoload (quote gnus-group-split-setup) "gnus-mlspl" "\
@@@ -11319,7 -11641,7 +11624,7 @@@ Calling (gnus-group-split-fancy nil ni
  ;;;***
  \f
  ;;;### (autoloads (gnus-change-server) "gnus-move" "gnus/gnus-move.el"
- ;;;;;;  (17178 22145))
 -;;;;;;  (17148 25116))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/gnus-move.el
  
  (autoload (quote gnus-change-server) "gnus-move" "\
@@@ -11331,7 -11653,7 +11636,7 @@@ Update the .newsrc.eld file to reflect 
  ;;;***
  \f
  ;;;### (autoloads (gnus-button-reply gnus-button-mailto gnus-msg-mail)
- ;;;;;;  "gnus-msg" "gnus/gnus-msg.el" (17178 22145))
 -;;;;;;  "gnus-msg" "gnus/gnus-msg.el" (17185 27515))
++;;;;;;  "gnus-msg" "gnus/gnus-msg.el" (17187 59914))
  ;;; Generated autoloads from gnus/gnus-msg.el
  
  (autoload (quote gnus-msg-mail) "gnus-msg" "\
@@@ -11357,7 -11679,7 +11662,7 @@@ Like `message-reply'
  \f
  ;;;### (autoloads (gnus-treat-newsgroups-picon gnus-treat-mail-picon
  ;;;;;;  gnus-treat-from-picon) "gnus-picon" "gnus/gnus-picon.el"
- ;;;;;;  (17178 22145))
 -;;;;;;  (17148 25117))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/gnus-picon.el
  
  (autoload (quote gnus-treat-from-picon) "gnus-picon" "\
@@@ -11384,7 -11706,7 +11689,7 @@@ If picons are already displayed, remov
  ;;;;;;  gnus-sorted-nintersection gnus-sorted-range-intersection
  ;;;;;;  gnus-sorted-intersection gnus-intersection gnus-sorted-complement
  ;;;;;;  gnus-sorted-ndifference gnus-sorted-difference) "gnus-range"
- ;;;;;;  "gnus/gnus-range.el" (17178 22145))
 -;;;;;;  "gnus/gnus-range.el" (17148 25118))
++;;;;;;  "gnus/gnus-range.el" (17187 59901))
  ;;; Generated autoloads from gnus/gnus-range.el
  
  (autoload (quote gnus-sorted-difference) "gnus-range" "\
@@@ -11452,7 -11774,7 +11757,7 @@@ Add NUM into sorted LIST by side effect
  ;;;***
  \f
  ;;;### (autoloads (gnus-registry-install-hooks gnus-registry-initialize)
- ;;;;;;  "gnus-registry" "gnus/gnus-registry.el" (17178 22145))
 -;;;;;;  "gnus-registry" "gnus/gnus-registry.el" (17148 25118))
++;;;;;;  "gnus-registry" "gnus/gnus-registry.el" (17187 59901))
  ;;; Generated autoloads from gnus/gnus-registry.el
  
  (autoload (quote gnus-registry-initialize) "gnus-registry" "\
@@@ -11468,8 -11790,8 +11773,8 @@@ Install the registry hooks
  ;;;***
  \f
  ;;;### (autoloads (gnus-sieve-article-add-rule gnus-sieve-generate
- ;;;;;;  gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (17178
- ;;;;;;  22145))
 -;;;;;;  gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (17148
 -;;;;;;  25120))
++;;;;;;  gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from gnus/gnus-sieve.el
  
  (autoload (quote gnus-sieve-update) "gnus-sieve" "\
@@@ -11497,7 -11819,7 +11802,7 @@@ Not documente
  ;;;***
  \f
  ;;;### (autoloads (gnus-batch-brew-soup) "gnus-soup" "gnus/gnus-soup.el"
- ;;;;;;  (17178 22145))
 -;;;;;;  (17148 25120))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/gnus-soup.el
  
  (autoload (quote gnus-batch-brew-soup) "gnus-soup" "\
@@@ -11517,7 -11839,7 +11822,7 @@@ Note -- this function hasn't been imple
  ;;;***
  \f
  ;;;### (autoloads (gnus-update-format) "gnus-spec" "gnus/gnus-spec.el"
- ;;;;;;  (17178 22145))
 -;;;;;;  (17185 27516))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/gnus-spec.el
  
  (autoload (quote gnus-update-format) "gnus-spec" "\
@@@ -11528,8 -11850,8 +11833,8 @@@ Update the format specification near po
  ;;;***
  \f
  ;;;### (autoloads (gnus-fixup-nnimap-unread-after-getting-new-news
- ;;;;;;  gnus-declare-backend) "gnus-start" "gnus/gnus-start.el" (17178
- ;;;;;;  22145))
 -;;;;;;  gnus-declare-backend) "gnus-start" "gnus/gnus-start.el" (17239
 -;;;;;;  32303))
++;;;;;;  gnus-declare-backend) "gnus-start" "gnus/gnus-start.el" (17226
++;;;;;;  24575))
  ;;; Generated autoloads from gnus/gnus-start.el
  
  (autoload (quote gnus-declare-backend) "gnus-start" "\
@@@ -11545,7 -11867,7 +11850,7 @@@ Not documente
  ;;;***
  \f
  ;;;### (autoloads (gnus-add-configuration) "gnus-win" "gnus/gnus-win.el"
- ;;;;;;  (17178 22145))
 -;;;;;;  (17148 25131))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/gnus-win.el
  
  (autoload (quote gnus-add-configuration) "gnus-win" "\
@@@ -11555,7 -11877,7 +11860,7 @@@ Add the window configuration CONF to `g
  
  ;;;***
  \f
- ;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (17178 22152))
 -;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (17239 32364))
++;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (17226 24576))
  ;;; Generated autoloads from play/gomoku.el
  
  (autoload (quote gomoku) "gomoku" "\
@@@ -11582,7 -11904,7 +11887,7 @@@ Use \\[describe-mode] for more info
  ;;;***
  \f
  ;;;### (autoloads (goto-address goto-address-at-point) "goto-addr"
- ;;;;;;  "net/goto-addr.el" (17178 22151))
 -;;;;;;  "net/goto-addr.el" (17140 20941))
++;;;;;;  "net/goto-addr.el" (17187 59902))
  ;;; Generated autoloads from net/goto-addr.el
  
  (define-obsolete-function-alias (quote goto-address-at-mouse) (quote goto-address-at-point) "22.1")
@@@ -11610,7 -11932,7 +11915,7 @@@ Also fontifies the buffer appropriatel
  \f
  ;;;### (autoloads (grep-tree grep-find grep-mode grep grep-compute-defaults
  ;;;;;;  grep-process-setup grep-setup-hook grep-find-command grep-command
- ;;;;;;  grep-window-height) "grep" "progmodes/grep.el" (17178 22153))
 -;;;;;;  grep-window-height) "grep" "progmodes/grep.el" (17185 27647))
++;;;;;;  grep-window-height) "grep" "progmodes/grep.el" (17187 59902))
  ;;; Generated autoloads from progmodes/grep.el
  
  (defvar grep-window-height nil "\
@@@ -11734,7 -12056,7 +12039,7 @@@ those sub directories of DIR
  
  ;;;***
  \f
- ;;;### (autoloads (gs-load-image) "gs" "gs.el" (17178 22146))
 -;;;### (autoloads (gs-load-image) "gs" "gs.el" (17148 24982))
++;;;### (autoloads (gs-load-image) "gs" "gs.el" (17187 59901))
  ;;; Generated autoloads from gs.el
  
  (autoload (quote gs-load-image) "gs" "\
@@@ -11748,7 -12070,7 +12053,7 @@@ the form \"WINDOW-ID PIXMAP-ID\".  Valu
  ;;;***
  \f
  ;;;### (autoloads (gud-tooltip-mode gdb-script-mode bashdb jdb pdb
- ;;;;;;  perldb xdb dbx sdb gdb) "gud" "progmodes/gud.el" (17178 22153))
 -;;;;;;  perldb xdb dbx sdb gdb) "gud" "progmodes/gud.el" (17244 43759))
++;;;;;;  perldb xdb dbx sdb gdb) "gud" "progmodes/gud.el" (17254 64068))
  ;;; Generated autoloads from progmodes/gud.el
  
  (autoload (quote gdb) "gud" "\
@@@ -11844,8 -12166,8 +12149,8 @@@ Toggle the display of GUD tooltips
  
  ;;;***
  \f
- ;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (17178
- ;;;;;;  22152))
 -;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (17185
 -;;;;;;  27606))
++;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from play/handwrite.el
  
  (autoload (quote handwrite) "handwrite" "\
@@@ -11863,7 -12185,7 +12168,7 @@@ Variables: handwrite-linespace     (def
  ;;;***
  \f
  ;;;### (autoloads (hanoi-unix-64 hanoi-unix hanoi) "hanoi" "play/hanoi.el"
- ;;;;;;  (17178 20480))
 -;;;;;;  (17075 55477))
++;;;;;;  (17187 59879))
  ;;; Generated autoloads from play/hanoi.el
  
  (autoload (quote hanoi) "hanoi" "\
@@@ -11893,7 -12215,7 +12198,7 @@@ to be updated
  ;;;### (autoloads (scan-buf-previous-region scan-buf-next-region
  ;;;;;;  scan-buf-move-to-region help-at-pt-display-when-idle help-at-pt-set-timer
  ;;;;;;  help-at-pt-cancel-timer display-local-help help-at-pt-kbd-string
- ;;;;;;  help-at-pt-string) "help-at-pt" "help-at-pt.el" (17178 22146))
 -;;;;;;  help-at-pt-string) "help-at-pt" "help-at-pt.el" (17148 24982))
++;;;;;;  help-at-pt-string) "help-at-pt" "help-at-pt.el" (17187 59901))
  ;;; Generated autoloads from help-at-pt.el
  
  (autoload (quote help-at-pt-string) "help-at-pt" "\
@@@ -12023,7 -12345,7 +12328,7 @@@ different regions.  With numeric argume
  ;;;### (autoloads (describe-categories describe-syntax describe-variable
  ;;;;;;  variable-at-point describe-function-1 help-C-file-name describe-function
  ;;;;;;  locate-library help-with-tutorial) "help-fns" "help-fns.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17244 43734))
++;;;;;;  (17254 63790))
  ;;; Generated autoloads from help-fns.el
  
  (autoload (quote help-with-tutorial) "help-fns" "\
@@@ -12079,11 -12401,10 +12384,11 @@@ If ANY-SYMBOL is non-nil, don't insist 
  (autoload (quote describe-variable) "help-fns" "\
  Display the full documentation of VARIABLE (a symbol).
  Returns the documentation as a string, also.
 -If VARIABLE has a buffer-local value in BUFFER (default to the current buffer),
 +If VARIABLE has a buffer-local value in BUFFER or FRAME
 +\(default to the current buffer and current frame),
  it is displayed along with the global value.
  
 -\(fn VARIABLE &optional BUFFER)" t nil)
 +\(fn VARIABLE &optional BUFFER FRAME)" t nil)
  
  (autoload (quote describe-syntax) "help-fns" "\
  Describe the syntax specifications in the syntax table of BUFFER.
@@@ -12103,7 -12424,7 +12408,7 @@@ BUFFER should be a buffer or a buffer n
  ;;;***
  \f
  ;;;### (autoloads (three-step-help) "help-macro" "help-macro.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17148 24982))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from help-macro.el
  
  (defvar three-step-help nil "\
@@@ -12119,7 -12440,7 +12424,7 @@@ A value of nil means skip the middle st
  \f
  ;;;### (autoloads (help-xref-on-pp help-insert-xref-button help-xref-button
  ;;;;;;  help-make-xrefs help-setup-xref help-mode-finish help-mode-setup
- ;;;;;;  help-mode) "help-mode" "help-mode.el" (17178 22146))
 -;;;;;;  help-mode) "help-mode" "help-mode.el" (17148 24983))
++;;;;;;  help-mode) "help-mode" "help-mode.el" (17187 59901))
  ;;; Generated autoloads from help-mode.el
  
  (autoload (quote help-mode) "help-mode" "\
@@@ -12202,7 -12523,7 +12507,7 @@@ Add xrefs for symbols in `pp's output b
  ;;;***
  \f
  ;;;### (autoloads (Helper-help Helper-describe-bindings) "helper"
- ;;;;;;  "emacs-lisp/helper.el" (17178 22144))
 -;;;;;;  "emacs-lisp/helper.el" (17148 25095))
++;;;;;;  "emacs-lisp/helper.el" (17187 59901))
  ;;; Generated autoloads from emacs-lisp/helper.el
  
  (autoload (quote Helper-describe-bindings) "helper" "\
@@@ -12218,7 -12539,7 +12523,7 @@@ Provide help for current mode
  ;;;***
  \f
  ;;;### (autoloads (hexlify-buffer hexl-find-file hexl-mode) "hexl"
- ;;;;;;  "hexl.el" (17178 22146))
 -;;;;;;  "hexl.el" (17167 2778))
++;;;;;;  "hexl.el" (17187 59901))
  ;;; Generated autoloads from hexl.el
  
  (autoload (quote hexl-mode) "hexl" "\
@@@ -12313,8 -12634,8 +12618,8 @@@ This discards the buffer's undo informa
  \f
  ;;;### (autoloads (hi-lock-write-interactive-patterns hi-lock-unface-buffer
  ;;;;;;  hi-lock-face-phrase-buffer hi-lock-face-buffer hi-lock-line-face-buffer
- ;;;;;;  hi-lock-mode hi-lock-mode) "hi-lock" "hi-lock.el" (17178
- ;;;;;;  22146))
 -;;;;;;  hi-lock-mode hi-lock-mode) "hi-lock" "hi-lock.el" (17205
 -;;;;;;  6005))
++;;;;;;  hi-lock-mode hi-lock-mode) "hi-lock" "hi-lock.el" (17226
++;;;;;;  24576))
  ;;; Generated autoloads from hi-lock.el
  
  (defvar hi-lock-mode nil "\
@@@ -12425,7 -12746,7 +12730,7 @@@ be found in variable `hi-lock-interacti
  ;;;***
  \f
  ;;;### (autoloads (hide-ifdef-lines hide-ifdef-read-only hide-ifdef-initially
- ;;;;;;  hide-ifdef-mode) "hideif" "progmodes/hideif.el" (17178 22153))
 -;;;;;;  hide-ifdef-mode) "hideif" "progmodes/hideif.el" (17140 20971))
++;;;;;;  hide-ifdef-mode) "hideif" "progmodes/hideif.el" (17187 59902))
  ;;; Generated autoloads from progmodes/hideif.el
  
  (autoload (quote hide-ifdef-mode) "hideif" "\
@@@ -12479,15 -12800,10 +12784,10 @@@ how the hiding is done
  
  ;;;***
  \f
- ;;;### (autoloads (hs-minor-mode hs-hide-comments-when-hiding-all)
- ;;;;;;  "hideshow" "progmodes/hideshow.el" (17178 22153))
+ ;;;### (autoloads (hs-minor-mode) "hideshow" "progmodes/hideshow.el"
 -;;;;;;  (17194 38303))
++;;;;;;  (17196 27217))
  ;;; Generated autoloads from progmodes/hideshow.el
  
- (defvar hs-hide-comments-when-hiding-all t "\
- *Hide the comments too when you do an `hs-hide-all'.")
- (custom-autoload (quote hs-hide-comments-when-hiding-all) "hideshow")
  (defvar hs-special-modes-alist (quote ((c-mode "{" "}" "/[*/]" nil hs-c-like-adjust-block-beginning) (c++-mode "{" "}" "/[*/]" nil hs-c-like-adjust-block-beginning) (bibtex-mode ("^@\\S(*\\(\\s(\\)" 1)) (java-mode "{" "}" "/[*/]" nil hs-c-like-adjust-block-beginning))) "\
  *Alist for initializing the hideshow variables for different modes.
  Each element has the form
@@@ -12543,7 -12859,7 +12843,7 @@@ Key bindings
  ;;;;;;  highlight-compare-buffers highlight-changes-rotate-faces
  ;;;;;;  highlight-changes-previous-change highlight-changes-next-change
  ;;;;;;  highlight-changes-mode highlight-changes-remove-highlight)
- ;;;;;;  "hilit-chg" "hilit-chg.el" (17178 22146))
 -;;;;;;  "hilit-chg" "hilit-chg.el" (17148 24984))
++;;;;;;  "hilit-chg" "hilit-chg.el" (17187 59901))
  ;;; Generated autoloads from hilit-chg.el
  
  (autoload (quote highlight-changes-remove-highlight) "hilit-chg" "\
@@@ -12673,7 -12989,7 +12973,7 @@@ variable `highlight-changes-global-chan
  ;;;;;;  hippie-expand-ignore-buffers hippie-expand-max-buffers hippie-expand-no-restriction
  ;;;;;;  hippie-expand-dabbrev-as-symbol hippie-expand-dabbrev-skip-space
  ;;;;;;  hippie-expand-verbose hippie-expand-try-functions-list) "hippie-exp"
- ;;;;;;  "hippie-exp.el" (17178 22146))
 -;;;;;;  "hippie-exp.el" (17148 24985))
++;;;;;;  "hippie-exp.el" (17187 59901))
  ;;; Generated autoloads from hippie-exp.el
  
  (defvar hippie-expand-try-functions-list (quote (try-complete-file-name-partially try-complete-file-name try-expand-all-abbrevs try-expand-list try-expand-line try-expand-dabbrev try-expand-dabbrev-all-buffers try-expand-dabbrev-from-kill try-complete-lisp-symbol-partially try-complete-lisp-symbol)) "\
@@@ -12746,7 -13062,7 +13046,7 @@@ argument VERBOSE non-nil makes the func
  ;;;***
  \f
  ;;;### (autoloads (global-hl-line-mode hl-line-mode) "hl-line" "hl-line.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17148 24985))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from hl-line.el
  
  (autoload (quote hl-line-mode) "hl-line" "\
@@@ -12788,7 -13104,7 +13088,7 @@@ Global-Hl-Line mode uses the functions 
  ;;;***
  \f
  ;;;### (autoloads (list-holidays holidays) "holidays" "calendar/holidays.el"
- ;;;;;;  (17178 20480))
 -;;;;;;  (17239 32269))
++;;;;;;  (17229 28052))
  ;;; Generated autoloads from calendar/holidays.el
  
  (autoload (quote holidays) "holidays" "\
@@@ -12812,7 -13128,7 +13112,7 @@@ The optional LABEL is used to label th
  ;;;***
  \f
  ;;;### (autoloads (hscroll-global-mode hscroll-mode turn-on-hscroll)
- ;;;;;;  "hscroll" "obsolete/hscroll.el" (17178 22152))
 -;;;;;;  "hscroll" "obsolete/hscroll.el" (17148 25179))
++;;;;;;  "hscroll" "obsolete/hscroll.el" (17187 59902))
  ;;; Generated autoloads from obsolete/hscroll.el
  
  (autoload (quote turn-on-hscroll) "hscroll" "\
@@@ -12838,8 -13154,8 +13138,8 @@@ Also see `automatic-hscrolling'
  
  ;;;***
  \f
- ;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (17178
- ;;;;;;  22145))
 -;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (17148
 -;;;;;;  25133))
++;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from gnus/html2text.el
  
  (autoload (quote html2text) "html2text" "\
@@@ -12870,7 -13186,7 +13170,7 @@@ Convert HTML to plain text in the curre
  ;;;;;;  ibuffer-backward-filter-group ibuffer-forward-filter-group
  ;;;;;;  ibuffer-toggle-filter-group ibuffer-mouse-toggle-filter-group
  ;;;;;;  ibuffer-interactive-filter-by-mode ibuffer-mouse-filter-by-mode
- ;;;;;;  ibuffer-auto-mode) "ibuf-ext" "ibuf-ext.el" (17178 22146))
 -;;;;;;  ibuffer-auto-mode) "ibuf-ext" "ibuf-ext.el" (17239 32209))
++;;;;;;  ibuffer-auto-mode) "ibuf-ext" "ibuf-ext.el" (17229 28053))
  ;;; Generated autoloads from ibuf-ext.el
  
  (autoload (quote ibuffer-auto-mode) "ibuf-ext" "\
@@@ -12908,17 -13224,17 +13208,17 @@@ Move point forwards by COUNT filtering 
  Move point backwards by COUNT filtering groups.
  
  \(fn &optional COUNT)" t nil)
-  (autoload 'ibuffer-do-shell-command-pipe "ibuf-ext.el")
-  (autoload 'ibuffer-do-shell-command-pipe-replace "ibuf-ext.el")
-  (autoload 'ibuffer-do-shell-command-file "ibuf-ext.el")
-  (autoload 'ibuffer-do-eval "ibuf-ext.el")
-  (autoload 'ibuffer-do-view-and-eval "ibuf-ext.el")
-  (autoload 'ibuffer-do-rename-uniquely "ibuf-ext.el")
-  (autoload 'ibuffer-do-revert "ibuf-ext.el")
-  (autoload 'ibuffer-do-replace-regexp "ibuf-ext.el")
-  (autoload 'ibuffer-do-query-replace "ibuf-ext.el")
-  (autoload 'ibuffer-do-query-replace-regexp "ibuf-ext.el")
-  (autoload 'ibuffer-do-print "ibuf-ext.el")
+  (autoload 'ibuffer-do-shell-command-pipe "ibuf-ext")
+  (autoload 'ibuffer-do-shell-command-pipe-replace "ibuf-ext")
+  (autoload 'ibuffer-do-shell-command-file "ibuf-ext")
+  (autoload 'ibuffer-do-eval "ibuf-ext")
+  (autoload 'ibuffer-do-view-and-eval "ibuf-ext")
+  (autoload 'ibuffer-do-rename-uniquely "ibuf-ext")
+  (autoload 'ibuffer-do-revert "ibuf-ext")
+  (autoload 'ibuffer-do-replace-regexp "ibuf-ext")
+  (autoload 'ibuffer-do-query-replace "ibuf-ext")
+  (autoload 'ibuffer-do-query-replace-regexp "ibuf-ext")
+  (autoload 'ibuffer-do-print "ibuf-ext")
  
  (autoload (quote ibuffer-included-in-filters-p) "ibuf-ext" "\
  Not documented
@@@ -13056,14 -13372,14 +13356,14 @@@ If prefix argument ADD is non-nil, the
  of replacing the current filters.
  
  \(fn NAME)" t nil)
-  (autoload 'ibuffer-filter-by-mode "ibuf-ext.el")
-  (autoload 'ibuffer-filter-by-used-mode "ibuf-ext.el")
-  (autoload 'ibuffer-filter-by-name "ibuf-ext.el")
-  (autoload 'ibuffer-filter-by-filename "ibuf-ext.el")
-  (autoload 'ibuffer-filter-by-size-gt  "ibuf-ext.el")
-  (autoload 'ibuffer-filter-by-size-lt  "ibuf-ext.el")
-  (autoload 'ibuffer-filter-by-content "ibuf-ext.el")
-  (autoload 'ibuffer-filter-by-predicate "ibuf-ext.el")
+  (autoload 'ibuffer-filter-by-mode "ibuf-ext")
+  (autoload 'ibuffer-filter-by-used-mode "ibuf-ext")
+  (autoload 'ibuffer-filter-by-name "ibuf-ext")
+  (autoload 'ibuffer-filter-by-filename "ibuf-ext")
+  (autoload 'ibuffer-filter-by-size-gt  "ibuf-ext")
+  (autoload 'ibuffer-filter-by-size-lt  "ibuf-ext")
+  (autoload 'ibuffer-filter-by-content "ibuf-ext")
+  (autoload 'ibuffer-filter-by-predicate "ibuf-ext")
  
  (autoload (quote ibuffer-toggle-sorting-mode) "ibuf-ext" "\
  Toggle the current sorting mode.
@@@ -13079,10 -13395,10 +13379,10 @@@ Default sorting modes are
  Toggle whether or not sorting is in reverse order.
  
  \(fn)" t nil)
-  (autoload 'ibuffer-do-sort-by-major-mode "ibuf-ext.el")
-  (autoload 'ibuffer-do-sort-by-mode-name "ibuf-ext.el")
-  (autoload 'ibuffer-do-sort-by-alphabetic "ibuf-ext.el")
-  (autoload 'ibuffer-do-sort-by-size "ibuf-ext.el")
+  (autoload 'ibuffer-do-sort-by-major-mode "ibuf-ext")
+  (autoload 'ibuffer-do-sort-by-mode-name "ibuf-ext")
+  (autoload 'ibuffer-do-sort-by-alphabetic "ibuf-ext")
+  (autoload 'ibuffer-do-sort-by-size "ibuf-ext")
  
  (autoload (quote ibuffer-bs-show) "ibuf-ext" "\
  Emulate `bs-show' from the bs.el package.
@@@ -13231,8 -13547,8 +13531,8 @@@ defaults to one
  ;;;***
  \f
  ;;;### (autoloads (define-ibuffer-filter define-ibuffer-op define-ibuffer-sorter
- ;;;;;;  define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (17178
- ;;;;;;  22146))
 -;;;;;;  define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (17205
 -;;;;;;  6006))
++;;;;;;  define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (17226
++;;;;;;  24576))
  ;;; Generated autoloads from ibuf-macs.el
  
  (autoload (quote define-ibuffer-column) "ibuf-macs" "\
@@@ -13318,7 -13634,7 +13618,7 @@@ bound to the current value of the filte
  ;;;***
  \f
  ;;;### (autoloads (ibuffer ibuffer-other-window ibuffer-list-buffers)
- ;;;;;;  "ibuffer" "ibuffer.el" (17178 22146))
 -;;;;;;  "ibuffer" "ibuffer.el" (17167 2779))
++;;;;;;  "ibuffer" "ibuffer.el" (17187 59901))
  ;;; Generated autoloads from ibuffer.el
  
  (autoload (quote ibuffer-list-buffers) "ibuffer" "\
@@@ -13359,7 -13675,7 +13659,7 @@@ FORMATS is the value to use for `ibuffe
  \f
  ;;;### (autoloads (icalendar-import-buffer icalendar-import-file
  ;;;;;;  icalendar-export-region icalendar-export-file) "icalendar"
- ;;;;;;  "calendar/icalendar.el" (17178 22143))
 -;;;;;;  "calendar/icalendar.el" (17244 43742))
++;;;;;;  "calendar/icalendar.el" (17254 64014))
  ;;; Generated autoloads from calendar/icalendar.el
  
  (autoload (quote icalendar-export-file) "icalendar" "\
@@@ -13381,7 -13697,7 +13681,7 @@@ written into the buffer `*icalendar-err
  \(fn MIN MAX ICAL-FILENAME)" t nil)
  
  (autoload (quote icalendar-import-file) "icalendar" "\
- Import a iCalendar file and append to a diary file.
+ Import an iCalendar file and append to a diary file.
  Argument ICAL-FILENAME output iCalendar file.
  Argument DIARY-FILENAME input `diary-file'.
  Optional argument NON-MARKING determines whether events are created as
@@@ -13411,8 -13727,8 +13711,8 @@@ buffer `*icalendar-errors*'
  
  ;;;***
  \f
- ;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (17178
- ;;;;;;  22146))
 -;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (17148
 -;;;;;;  24987))
++;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from icomplete.el
  
  (defvar icomplete-mode nil "\
@@@ -13433,7 -13749,7 +13733,7 @@@ With a numeric argument, turn Icomplet
  
  ;;;***
  \f
- ;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (17178 22153))
 -;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (17140 20972))
++;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (17187 59902))
  ;;; Generated autoloads from progmodes/icon.el
  
  (autoload (quote icon-mode) "icon" "\
@@@ -13474,7 -13790,7 +13774,7 @@@ with no args, if that value is non-nil
  ;;;***
  \f
  ;;;### (autoloads (idlwave-shell) "idlw-shell" "progmodes/idlw-shell.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17239 32385))
++;;;;;;  (17226 24577))
  ;;; Generated autoloads from progmodes/idlw-shell.el
  
  (autoload (quote idlwave-shell) "idlw-shell" "\
@@@ -13500,7 -13816,7 +13800,7 @@@ See also the variable `idlwave-shell-pr
  ;;;***
  \f
  ;;;### (autoloads (idlwave-mode) "idlwave" "progmodes/idlwave.el"
- ;;;;;;  (17178 20481))
 -;;;;;;  (17205 6190))
++;;;;;;  (17226 24577))
  ;;; Generated autoloads from progmodes/idlwave.el
  
  (autoload (quote idlwave-mode) "idlwave" "\
@@@ -13636,8 -13952,8 +13936,8 @@@ The main features of this mode ar
  ;;;;;;  ido-find-alternate-file ido-find-file-other-window ido-find-file
  ;;;;;;  ido-find-file-in-dir ido-switch-buffer-other-frame ido-insert-buffer
  ;;;;;;  ido-kill-buffer ido-display-buffer ido-switch-buffer-other-window
- ;;;;;;  ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (17178
- ;;;;;;  22146))
 -;;;;;;  ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (17239
 -;;;;;;  32211))
++;;;;;;  ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (17244
++;;;;;;  4913))
  ;;; Generated autoloads from ido.el
  
  (defvar ido-mode nil "\
@@@ -13898,7 -14214,7 +14198,7 @@@ DEF, if non-nil, is the default value
  
  ;;;***
  \f
- ;;;### (autoloads (ielm) "ielm" "ielm.el" (17178 22146))
 -;;;### (autoloads (ielm) "ielm" "ielm.el" (17148 24990))
++;;;### (autoloads (ielm) "ielm" "ielm.el" (17187 59901))
  ;;; Generated autoloads from ielm.el
   (add-hook 'same-window-buffer-names "*ielm*")
  
@@@ -13911,7 -14227,7 +14211,7 @@@ Switches to the buffer `*ielm*', or cre
  ;;;***
  \f
  ;;;### (autoloads (iimage-mode turn-on-iimage-mode) "iimage" "iimage.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17148 24990))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from iimage.el
  
  (autoload (quote turn-on-iimage-mode) "iimage" "\
@@@ -13928,8 -14244,8 +14228,8 @@@ Toggle inline image minor mode
  \f
  ;;;### (autoloads (defimage find-image remove-images insert-sliced-image
  ;;;;;;  insert-image put-image create-image image-type-available-p
- ;;;;;;  image-type-from-file-header image-type-from-data) "image"
- ;;;;;;  "image.el" (17178 22146))
+ ;;;;;;  image-type-from-file-name image-type-from-file-header image-type-from-buffer
 -;;;;;;  image-type-from-data) "image" "image.el" (17242 27251))
++;;;;;;  image-type-from-data) "image" "image.el" (17254 63790))
  ;;; Generated autoloads from image.el
  
  (autoload (quote image-type-from-data) "image" "\
@@@ -13939,6 -14255,13 +14239,13 @@@ be determined
  
  \(fn DATA)" nil nil)
  
+ (autoload (quote image-type-from-buffer) "image" "\
+ Determine the image type from data in the current buffer.
+ Value is a symbol specifying the image type or nil if type cannot
+ be determined.
+ \(fn)" nil nil)
  (autoload (quote image-type-from-file-header) "image" "\
  Determine the type of image file FILE from its first few bytes.
  Value is a symbol specifying the image type, or nil if type cannot
@@@ -13946,6 -14269,13 +14253,13 @@@ be determined
  
  \(fn FILE)" nil nil)
  
+ (autoload (quote image-type-from-file-name) "image" "\
+ Determine the type of image file FILE from its name.
+ Value is a symbol specifying the image type, or nil if type cannot
+ be determined.
+ \(fn FILE)" nil nil)
  (autoload (quote image-type-available-p) "image" "\
  Return non-nil if image type TYPE is available.
  Image types are symbols like `xbm' or `jpeg'.
@@@ -13964,6 -14294,8 +14278,8 @@@ Optional PROPS are additional image att
  like, e.g. `:mask MASK'.
  Value is the image created, or nil if images of type TYPE are not supported.
  
+ Images should not be larger than specified by `max-image-size'.
  \(fn FILE-OR-DATA &optional TYPE DATA-P &rest PROPS)" nil nil)
  
  (autoload (quote put-image) "image" "\
@@@ -14032,7 -14364,9 +14348,9 @@@ is supported, and FILE exists, is used 
  specification to be returned.  Return nil if no specification is
  satisfied.
  
- The image is looked for first on `load-path' and then in `data-directory'.
+ The image is looked for in `image-load-path'.
+ Image files should not be larger than specified by `max-image-size'.
  
  \(fn SPECS)" nil nil)
  
@@@ -14062,7 -14396,7 +14380,7 @@@ Example
  \f
  ;;;### (autoloads (auto-image-file-mode insert-image-file image-file-name-regexp
  ;;;;;;  image-file-name-regexps image-file-name-extensions) "image-file"
- ;;;;;;  "image-file.el" (17178 22146))
 -;;;;;;  "image-file.el" (17148 24990))
++;;;;;;  "image-file.el" (17187 59901))
  ;;; Generated autoloads from image-file.el
  
  (defvar image-file-name-extensions (quote ("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm")) "\
@@@ -14125,7 -14459,7 +14443,7 @@@ Image files are those whose name has a
  ;;;***
  \f
  ;;;### (autoloads (image-mode-maybe image-minor-mode image-mode)
- ;;;;;;  "image-mode" "image-mode.el" (17178 20481))
 -;;;;;;  "image-mode" "image-mode.el" (17205 6006))
++;;;;;;  "image-mode" "image-mode.el" (17226 24576))
  ;;; Generated autoloads from image-mode.el
   (push '("\\.jpe?g\\'"    . image-mode) auto-mode-alist)
   (push '("\\.png\\'"      . image-mode) auto-mode-alist)
@@@ -14163,7 -14497,7 +14481,7 @@@ information on these modes
  ;;;***
  \f
  ;;;### (autoloads (imenu imenu-add-menubar-index imenu-add-to-menubar
- ;;;;;;  imenu-sort-function) "imenu" "imenu.el" (17178 22146))
 -;;;;;;  imenu-sort-function) "imenu" "imenu.el" (17148 24991))
++;;;;;;  imenu-sort-function) "imenu" "imenu.el" (17187 59901))
  ;;; Generated autoloads from imenu.el
  
  (defvar imenu-sort-function nil "\
@@@ -14283,7 -14617,7 +14601,7 @@@ for more information
  \f
  ;;;### (autoloads (indian-char-glyph indian-glyph-char in-is13194-pre-write-conversion
  ;;;;;;  in-is13194-post-read-conversion indian-compose-string indian-compose-region)
- ;;;;;;  "ind-util" "language/ind-util.el" (17178 20481))
 -;;;;;;  "ind-util" "language/ind-util.el" (17102 18773))
++;;;;;;  "ind-util" "language/ind-util.el" (17187 59881))
  ;;; Generated autoloads from language/ind-util.el
  
  (autoload (quote indian-compose-region) "ind-util" "\
@@@ -14326,7 -14660,7 +14644,7 @@@ See also the function `indian-glyph-cha
  \f
  ;;;### (autoloads (inferior-lisp inferior-lisp-prompt inferior-lisp-load-command
  ;;;;;;  inferior-lisp-program inferior-lisp-filter-regexp) "inf-lisp"
- ;;;;;;  "progmodes/inf-lisp.el" (17178 22153))
 -;;;;;;  "progmodes/inf-lisp.el" (17140 20976))
++;;;;;;  "progmodes/inf-lisp.el" (17187 59902))
  ;;; Generated autoloads from progmodes/inf-lisp.el
  
  (defvar inferior-lisp-filter-regexp "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'" "\
@@@ -14393,7 -14727,7 +14711,7 @@@ of `inferior-lisp-program').  Runs the 
  ;;;### (autoloads (Info-speedbar-browser Info-goto-emacs-key-command-node
  ;;;;;;  Info-goto-emacs-command-node Info-mode info-apropos Info-index
  ;;;;;;  Info-directory info-standalone info-emacs-manual info info-other-window)
- ;;;;;;  "info" "info.el" (17178 22146))
 -;;;;;;  "info" "info.el" (17242 7308))
++;;;;;;  "info" "info.el" (17244 4913))
  ;;; Generated autoloads from info.el
  
  (autoload (quote info-other-window) "info" "\
@@@ -14478,18 -14812,17 +14796,17 @@@ Selecting other nodes
  \\[Info-menu] Pick menu item specified by name (or abbreviation).
          Picking a menu item causes another node to be selected.
  \\[Info-directory]    Go to the Info directory node.
+ \\[Info-top-node]     Go to the Top node of this file.
+ \\[Info-final-node]   Go to the final node in this file.
+ \\[Info-backward-node]        Go backward one node, considering all nodes as forming one sequence.
+ \\[Info-forward-node] Go forward one node, considering all nodes as forming one sequence.
+ \\[Info-next-reference]       Move cursor to next cross-reference or menu item.
+ \\[Info-prev-reference]       Move cursor to previous cross-reference or menu item.
  \\[Info-follow-reference]     Follow a cross reference.  Reads name of reference.
  \\[Info-history-back] Move back in history to the last node you were at.
  \\[Info-history-forward]      Move forward in history to the node you returned from after using \\[Info-history-back].
  \\[Info-history]      Go to menu of visited nodes.
  \\[Info-toc]  Go to table of contents of the current Info file.
- \\[Info-top-node]     Go to the Top node of this file.
- \\[Info-final-node]   Go to the final node in this file.
- \\[Info-backward-node]        Go backward one node, considering all nodes as forming one sequence.
- \\[Info-forward-node] Go forward one node, considering all nodes as forming one sequence.
- \\[Info-index]        Look up a topic in this file's Index and move to that node.
- \\[Info-index-next]   (comma) Move to the next match from a previous \\<Info-mode-map>\\[Info-index] command.
- \\[info-apropos]      Look for a string in the indices of all manuals.
  
  Moving within a node:
  \\[Info-scroll-up]    Normally, scroll forward a full screen.
  \\[beginning-of-buffer]       Go to beginning of node.
  
  Advanced commands:
- \\[Info-copy-current-node-name]       Put name of current Info node in the kill ring.
- \\[clone-buffer]      Select a new cloned Info buffer in another window.
- \\[Info-edit] Edit contents of selected node.
- 1 .. 9        Pick first ... ninth item in node's menu.
-         Every third `*' is highlighted to help pick the right number.
- \\[Info-goto-node]    Move to node specified by name.
-         You may include a filename as well, as (FILENAME)NODENAME.
- \\[universal-argument] \\[info]       Move to new Info file with completion.
- \\[universal-argument] N \\[info]     Select Info buffer with prefix number in the name *info*<N>.
  \\[Info-search]       Search through this Info file for specified regexp,
          and select the node in which the next occurrence is found.
  \\[Info-search-case-sensitively]      Search through this Info file for specified regexp case-sensitively.
  \\[Info-search-next]  Search for another occurrence of regexp
          from a previous \\<Info-mode-map>\\[Info-search] command.
- \\[Info-next-reference]       Move cursor to next cross-reference or menu item.
- \\[Info-prev-reference]       Move cursor to previous cross-reference or menu item.
+ \\[Info-index]        Look up a topic in this file's Index and move to that node.
+ \\[Info-index-next]   (comma) Move to the next match from a previous \\<Info-mode-map>\\[Info-index] command.
+ \\[info-apropos]      Look for a string in the indices of all manuals.
+ \\[Info-goto-node]    Move to node specified by name.
+         You may include a filename as well, as (FILENAME)NODENAME.
+ 1 .. 9        Pick first ... ninth item in node's menu.
+         Every third `*' is highlighted to help pick the right number.
+ \\[Info-copy-current-node-name]       Put name of current Info node in the kill ring.
+ \\[clone-buffer]      Select a new cloned Info buffer in another window.
+ \\[universal-argument] \\[info]       Move to new Info file with completion.
+ \\[universal-argument] N \\[info]     Select Info buffer with prefix number in the name *info*<N>.
  
  \(fn)" nil nil)
   (put 'Info-goto-emacs-command-node 'info-file "emacs")
@@@ -14553,7 -14886,7 +14870,7 @@@ This will add a speedbar major display 
  \f
  ;;;### (autoloads (info-complete-file info-complete-symbol info-lookup-file
  ;;;;;;  info-lookup-symbol info-lookup-reset) "info-look" "info-look.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17148 24992))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from info-look.el
  
  (autoload (quote info-lookup-reset) "info-look" "\
@@@ -14601,7 -14934,7 +14918,7 @@@ Perform completion on file preceding po
  ;;;***
  \f
  ;;;### (autoloads (info-xref-check-all-custom info-xref-check-all
- ;;;;;;  info-xref-check) "info-xref" "info-xref.el" (17178 22146))
 -;;;;;;  info-xref-check) "info-xref" "info-xref.el" (17167 2781))
++;;;;;;  info-xref-check) "info-xref" "info-xref.el" (17187 59901))
  ;;; Generated autoloads from info-xref.el
  
  (autoload (quote info-xref-check) "info-xref" "\
@@@ -14628,7 -14961,7 +14945,7 @@@ quite a while
  ;;;***
  \f
  ;;;### (autoloads (batch-info-validate Info-validate Info-split Info-tagify)
- ;;;;;;  "informat" "informat.el" (17178 22146))
 -;;;;;;  "informat" "informat.el" (17148 24995))
++;;;;;;  "informat" "informat.el" (17187 59901))
  ;;; Generated autoloads from informat.el
  
  (autoload (quote Info-tagify) "informat" "\
@@@ -14669,7 -15002,7 +14986,7 @@@ For example, invoke \"emacs -batch -f b
  \f
  ;;;### (autoloads (isearch-process-search-multibyte-characters isearch-toggle-input-method
  ;;;;;;  isearch-toggle-specified-input-method) "isearch-x" "international/isearch-x.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17120 44797))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from international/isearch-x.el
  
  (autoload (quote isearch-toggle-specified-input-method) "isearch-x" "\
@@@ -14689,8 -15022,8 +15006,8 @@@ Not documente
  
  ;;;***
  \f
- ;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (17178
- ;;;;;;  22147))
 -;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (17148
 -;;;;;;  24996))
++;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from isearchb.el
  
  (autoload (quote isearchb-activate) "isearchb" "\
@@@ -14704,7 -15037,7 +15021,7 @@@ accessed via isearchb
  ;;;***
  \f
  ;;;### (autoloads (iso-accents-mode) "iso-acc" "obsolete/iso-acc.el"
- ;;;;;;  (17178 22152))
 -;;;;;;  (17148 25179))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from obsolete/iso-acc.el
  
  (autoload (quote iso-accents-mode) "iso-acc" "\
@@@ -14737,7 -15070,7 +15054,7 @@@ and a negative argument disables it
  ;;;### (autoloads (iso-cvt-define-menu iso-cvt-write-only iso-cvt-read-only
  ;;;;;;  iso-sgml2iso iso-iso2sgml iso-iso2duden iso-iso2gtex iso-gtex2iso
  ;;;;;;  iso-tex2iso iso-iso2tex iso-german iso-spanish) "iso-cvt"
- ;;;;;;  "international/iso-cvt.el" (17178 20480))
 -;;;;;;  "international/iso-cvt.el" (17102 18714))
++;;;;;;  "international/iso-cvt.el" (17187 59880))
  ;;; Generated autoloads from international/iso-cvt.el
  
  (autoload (quote iso-spanish) "iso-cvt" "\
@@@ -14821,7 -15154,7 +15138,7 @@@ Add submenus to the File menu, to conve
  ;;;***
  \f
  ;;;### (autoloads nil "iso-transl" "international/iso-transl.el"
- ;;;;;;  (17178 20504))
 -;;;;;;  (17102 18715))
++;;;;;;  (17187 59894))
  ;;; Generated autoloads from international/iso-transl.el
   (or key-translation-map (setq key-translation-map (make-sparse-keymap)))
   (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map)
  ;;;;;;  ispell-region ispell-change-dictionary ispell-kill-ispell
  ;;;;;;  ispell-help ispell-pdict-save ispell-word ispell-local-dictionary-alist
  ;;;;;;  ispell-personal-dictionary) "ispell" "textmodes/ispell.el"
- ;;;;;;  (17178 22154))
 -;;;;;;  (17244 43761))
++;;;;;;  (17254 63791))
  ;;; Generated autoloads from textmodes/ispell.el
  
  (defvar ispell-personal-dictionary nil "\
@@@ -15120,8 -15453,8 +15437,8 @@@ You can bind this to the key C-c i in G
  
  ;;;***
  \f
- ;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (17178
- ;;;;;;  22147))
 -;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (17239
 -;;;;;;  32217))
++;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (17226
++;;;;;;  24576))
  ;;; Generated autoloads from iswitchb.el
  
  (defvar iswitchb-mode nil "\
@@@ -15147,7 -15480,7 +15464,7 @@@ This mode enables switching between buf
  ;;;### (autoloads (read-hiragana-string japanese-zenkaku-region japanese-hankaku-region
  ;;;;;;  japanese-hiragana-region japanese-katakana-region japanese-zenkaku
  ;;;;;;  japanese-hankaku japanese-hiragana japanese-katakana setup-japanese-environment-internal)
- ;;;;;;  "japan-util" "language/japan-util.el" (17178 20481))
 -;;;;;;  "japan-util" "language/japan-util.el" (17102 18773))
++;;;;;;  "japan-util" "language/japan-util.el" (17187 59881))
  ;;; Generated autoloads from language/japan-util.el
  
  (autoload (quote setup-japanese-environment-internal) "japan-util" "\
@@@ -15224,8 -15557,8 +15541,8 @@@ If non-nil, second arg INITIAL-INPUT i
  
  ;;;***
  \f
- ;;;### (autoloads (jit-lock-register) "jit-lock" "jit-lock.el" (17178
- ;;;;;;  22147))
 -;;;### (autoloads (jit-lock-register) "jit-lock" "jit-lock.el" (17239
 -;;;;;;  32217))
++;;;### (autoloads (jit-lock-register) "jit-lock" "jit-lock.el" (17238
++;;;;;;  21257))
  ;;; Generated autoloads from jit-lock.el
  
  (autoload (quote jit-lock-register) "jit-lock" "\
@@@ -15239,7 -15572,7 +15556,7 @@@ If non-nil, CONTEXTUAL means that a con
  ;;;***
  \f
  ;;;### (autoloads (jka-compr-uninstall jka-compr-handler) "jka-compr"
- ;;;;;;  "jka-compr.el" (17178 22147))
 -;;;;;;  "jka-compr.el" (17148 24997))
++;;;;;;  "jka-compr.el" (17187 59901))
  ;;; Generated autoloads from jka-compr.el
  
  (defvar jka-compr-inhibit nil "\
@@@ -15264,7 -15597,7 +15581,7 @@@ by `jka-compr-installed'
  \f
  ;;;### (autoloads (keypad-setup keypad-numlock-shifted-setup keypad-shifted-setup
  ;;;;;;  keypad-numlock-setup keypad-setup) "keypad" "emulation/keypad.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17140 20922))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from emulation/keypad.el
  
  (defvar keypad-setup nil "\
@@@ -15320,7 -15653,7 +15637,7 @@@ the decimal key on the keypad is mappe
  ;;;***
  \f
  ;;;### (autoloads (kinsoku) "kinsoku" "international/kinsoku.el"
- ;;;;;;  (17178 20480))
 -;;;;;;  (17102 18716))
++;;;;;;  (17187 59880))
  ;;; Generated autoloads from international/kinsoku.el
  
  (autoload (quote kinsoku) "kinsoku" "\
@@@ -15341,8 -15674,8 +15658,8 @@@ the context of text formatting
  
  ;;;***
  \f
- ;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (17178
- ;;;;;;  20480))
 -;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (17102
 -;;;;;;  18717))
++;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (17187
++;;;;;;  59880))
  ;;; Generated autoloads from international/kkc.el
  
  (defvar kkc-after-update-conversion-functions nil "\
@@@ -15367,7 -15700,7 +15684,7 @@@ and the return value is the length of t
  ;;;### (autoloads (kmacro-end-call-mouse kmacro-end-and-call-macro
  ;;;;;;  kmacro-end-or-call-macro kmacro-start-macro-or-insert-counter
  ;;;;;;  kmacro-call-macro kmacro-end-macro kmacro-start-macro) "kmacro"
- ;;;;;;  "kmacro.el" (17178 22147))
 -;;;;;;  "kmacro.el" (17148 24998))
++;;;;;;  "kmacro.el" (17187 59901))
  ;;; Generated autoloads from kmacro.el
   (global-set-key "\C-x(" 'kmacro-start-macro)
   (global-set-key "\C-x)" 'kmacro-end-macro)
@@@ -15474,7 -15807,7 +15791,7 @@@ If kbd macro currently being defined en
  \f
  ;;;### (autoloads (kannada-post-read-conversion kannada-compose-string
  ;;;;;;  kannada-compose-region) "knd-util" "language/knd-util.el"
- ;;;;;;  (17178 20481))
 -;;;;;;  (17102 18774))
++;;;;;;  (17187 59881))
  ;;; Generated autoloads from language/knd-util.el
  
  (defconst kannada-consonant "[\x51f75-\x51fb9]")
@@@ -15497,7 -15830,7 +15814,7 @@@ Not documente
  ;;;***
  \f
  ;;;### (autoloads (setup-korean-environment-internal) "korea-util"
- ;;;;;;  "language/korea-util.el" (17178 20481))
 -;;;;;;  "language/korea-util.el" (17102 18775))
++;;;;;;  "language/korea-util.el" (17187 59881))
  ;;; Generated autoloads from language/korea-util.el
  
  (defvar default-korean-keyboard (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) "3" "") "\
@@@ -15512,7 -15845,7 +15829,7 @@@ Not documente
  ;;;***
  \f
  ;;;### (autoloads (lm lm-test-run) "landmark" "play/landmark.el"
- ;;;;;;  (17178 22152))
 -;;;;;;  (17239 32365))
++;;;;;;  (17226 24576))
  ;;; Generated autoloads from play/landmark.el
  
  (defalias (quote landmark-repeat) (quote lm-test-run))
@@@ -15546,8 -15879,8 +15863,8 @@@ Use \\[describe-mode] for more info
  \f
  ;;;### (autoloads (lao-compose-region lao-composition-function lao-post-read-conversion
  ;;;;;;  lao-transcribe-roman-to-lao-string lao-transcribe-single-roman-syllable-to-lao
- ;;;;;;  lao-compose-string) "lao-util" "language/lao-util.el" (17178
- ;;;;;;  20481))
 -;;;;;;  lao-compose-string) "lao-util" "language/lao-util.el" (17102
 -;;;;;;  18775))
++;;;;;;  lao-compose-string) "lao-util" "language/lao-util.el" (17187
++;;;;;;  59881))
  ;;; Generated autoloads from language/lao-util.el
  
  (autoload (quote lao-compose-string) "lao-util" "\
@@@ -15596,7 -15929,7 +15913,7 @@@ Not documente
  \f
  ;;;### (autoloads (latexenc-find-file-coding-system latexenc-coding-system-to-inputenc
  ;;;;;;  latexenc-inputenc-to-coding-system latex-inputenc-coding-alist)
- ;;;;;;  "latexenc" "international/latexenc.el" (17178 20480))
 -;;;;;;  "latexenc" "international/latexenc.el" (17102 18717))
++;;;;;;  "latexenc" "international/latexenc.el" (17187 59880))
  ;;; Generated autoloads from international/latexenc.el
  
  (defvar latex-inputenc-coding-alist (quote (("ansinew" . windows-1252) ("applemac" . mac-roman) ("ascii" . us-ascii) ("cp1250" . windows-1250) ("cp1252" . windows-1252) ("cp1257" . cp1257) ("cp437de" . cp437) ("cp437" . cp437) ("cp850" . cp850) ("cp852" . cp852) ("cp865" . cp865) ("latin1" . iso-8859-1) ("latin2" . iso-8859-2) ("latin3" . iso-8859-3) ("latin4" . iso-8859-4) ("latin5" . iso-8859-5) ("latin9" . iso-8859-15) ("next" . next) ("utf8" . utf-8) ("utf8x" . utf-8))) "\
@@@ -15627,7 -15960,7 +15944,7 @@@ coding system names is determined from 
  ;;;***
  \f
  ;;;### (autoloads (latin1-display-ucs-per-lynx latin1-display latin1-display)
- ;;;;;;  "latin1-disp" "international/latin1-disp.el" (17178 20480))
 -;;;;;;  "latin1-disp" "international/latin1-disp.el" (17102 18720))
++;;;;;;  "latin1-disp" "international/latin1-disp.el" (17187 59880))
  ;;; Generated autoloads from international/latin1-disp.el
  
  (defvar latin1-display nil "\
@@@ -15671,7 -16004,7 +15988,7 @@@ use either \\[customize] or the functio
  ;;;***
  \f
  ;;;### (autoloads (turn-on-lazy-lock lazy-lock-mode) "lazy-lock"
- ;;;;;;  "obsolete/lazy-lock.el" (17178 22152))
 -;;;;;;  "obsolete/lazy-lock.el" (17185 27600))
++;;;;;;  "obsolete/lazy-lock.el" (17187 59902))
  ;;; Generated autoloads from obsolete/lazy-lock.el
  
  (autoload (quote lazy-lock-mode) "lazy-lock" "\
@@@ -15739,7 -16072,7 +16056,7 @@@ Unconditionally turn on Lazy Lock mode
  ;;;***
  \f
  ;;;### (autoloads (ld-script-mode) "ld-script" "progmodes/ld-script.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17159 1485))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from progmodes/ld-script.el
  
  (add-to-list (quote auto-mode-alist) (quote ("\\.lds" . ld-script-mode)))
@@@ -15752,7 -16085,7 +16069,7 @@@ A major mode to edit GNU ld script file
  ;;;***
  \f
  ;;;### (autoloads (ledit-from-lisp-mode ledit-mode) "ledit" "ledit.el"
- ;;;;;;  (17178 22149))
 -;;;;;;  (17148 25013))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from ledit.el
  
  (defconst ledit-save-files t "\
@@@ -15786,7 -16119,7 +16103,7 @@@ Not documente
  
  ;;;***
  \f
- ;;;### (autoloads (life) "life" "play/life.el" (17178 22152))
 -;;;### (autoloads (life) "life" "play/life.el" (17140 20949))
++;;;### (autoloads (life) "life" "play/life.el" (17187 59902))
  ;;; Generated autoloads from play/life.el
  
  (autoload (quote life) "life" "\
@@@ -15799,8 -16132,8 +16116,8 @@@ generations (this defaults to 1)
  
  ;;;***
  \f
- ;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (17178
- ;;;;;;  22150))
 -;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (17242
 -;;;;;;  7308))
++;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (17244
++;;;;;;  4913))
  ;;; Generated autoloads from loadhist.el
  
  (autoload (quote unload-feature) "loadhist" "\
@@@ -15823,7 -16156,7 +16140,7 @@@ such as redefining an Emacs function
  ;;;***
  \f
  ;;;### (autoloads (locate-with-filter locate locate-ls-subdir-switches)
- ;;;;;;  "locate" "locate.el" (17178 22150))
 -;;;;;;  "locate" "locate.el" (17244 43734))
++;;;;;;  "locate" "locate.el" (17254 63790))
  ;;; Generated autoloads from locate.el
  
  (defvar locate-ls-subdir-switches "-al" "\
@@@ -15848,7 -16181,7 +16165,7 @@@ shown; this is often useful to constrai
  
  ;;;***
  \f
- ;;;### (autoloads (log-edit) "log-edit" "log-edit.el" (17178 22150))
 -;;;### (autoloads (log-edit) "log-edit" "log-edit.el" (17239 32218))
++;;;### (autoloads (log-edit) "log-edit" "log-edit.el" (17226 24576))
  ;;; Generated autoloads from log-edit.el
  
  (autoload (quote log-edit) "log-edit" "\
@@@ -15869,8 -16202,8 +16186,8 @@@ If BUFFER is non-nil `log-edit' will ju
  
  ;;;***
  \f
- ;;;### (autoloads (log-view-mode) "log-view" "log-view.el" (17178
- ;;;;;;  22150))
 -;;;### (autoloads (log-view-mode) "log-view" "log-view.el" (17185
 -;;;;;;  27447))
++;;;### (autoloads (log-view-mode) "log-view" "log-view.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from log-view.el
  
  (autoload (quote log-view-mode) "log-view" "\
@@@ -15880,8 -16213,8 +16197,8 @@@ Major mode for browsing CVS log output
  
  ;;;***
  \f
- ;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (17178
- ;;;;;;  22150))
 -;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (17239
 -;;;;;;  32218))
++;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (17238
++;;;;;;  21257))
  ;;; Generated autoloads from longlines.el
  
  (autoload (quote longlines-mode) "longlines" "\
@@@ -15902,8 -16235,8 +16219,8 @@@ are indicated with a symbol
  ;;;***
  \f
  ;;;### (autoloads (print-region lpr-region print-buffer lpr-buffer
- ;;;;;;  lpr-command lpr-switches printer-name) "lpr" "lpr.el" (17178
- ;;;;;;  22150))
 -;;;;;;  lpr-command lpr-switches printer-name) "lpr" "lpr.el" (17148
 -;;;;;;  25014))
++;;;;;;  lpr-command lpr-switches printer-name) "lpr" "lpr.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from lpr.el
  
  (defvar lpr-windows-system (memq system-type (quote (emx win32 w32 mswindows ms-dos windows-nt))))
@@@ -15997,7 -16330,7 +16314,7 @@@ for further customization of the printe
  ;;;***
  \f
  ;;;### (autoloads (ls-lisp-support-shell-wildcards) "ls-lisp" "ls-lisp.el"
- ;;;;;;  (17178 22150))
 -;;;;;;  (17148 25015))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from ls-lisp.el
  
  (defvar ls-lisp-support-shell-wildcards t "\
@@@ -16008,8 -16341,8 +16325,8 @@@ Otherwise they are treated as Emacs reg
  
  ;;;***
  \f
- ;;;### (autoloads (phases-of-moon) "lunar" "calendar/lunar.el" (17178
- ;;;;;;  22143))
 -;;;### (autoloads (phases-of-moon) "lunar" "calendar/lunar.el" (17167
 -;;;;;;  2792))
++;;;### (autoloads (phases-of-moon) "lunar" "calendar/lunar.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from calendar/lunar.el
  
  (autoload (quote phases-of-moon) "lunar" "\
@@@ -16022,8 -16355,8 +16339,8 @@@ This function is suitable for executio
  
  ;;;***
  \f
- ;;;### (autoloads (m4-mode) "m4-mode" "progmodes/m4-mode.el" (17178
- ;;;;;;  22153))
 -;;;### (autoloads (m4-mode) "m4-mode" "progmodes/m4-mode.el" (17140
 -;;;;;;  20977))
++;;;### (autoloads (m4-mode) "m4-mode" "progmodes/m4-mode.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from progmodes/m4-mode.el
  
  (autoload (quote m4-mode) "m4-mode" "\
@@@ -16035,7 -16368,7 +16352,7 @@@ A major mode to edit m4 macro files
  ;;;***
  \f
  ;;;### (autoloads (macroexpand-all) "macroexp" "emacs-lisp/macroexp.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17148 25097))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from emacs-lisp/macroexp.el
  
  (autoload (quote macroexpand-all) "macroexp" "\
@@@ -16049,7 -16382,7 +16366,7 @@@ definitions to shadow the loaded ones f
  ;;;***
  \f
  ;;;### (autoloads (apply-macro-to-region-lines kbd-macro-query insert-kbd-macro
- ;;;;;;  name-last-kbd-macro) "macros" "macros.el" (17178 22150))
 -;;;;;;  name-last-kbd-macro) "macros" "macros.el" (17148 25015))
++;;;;;;  name-last-kbd-macro) "macros" "macros.el" (17187 59901))
  ;;; Generated autoloads from macros.el
  
  (autoload (quote name-last-kbd-macro) "macros" "\
@@@ -16138,7 -16471,7 +16455,7 @@@ and then select the region of un-tablif
  ;;;***
  \f
  ;;;### (autoloads (what-domain mail-extract-address-components) "mail-extr"
- ;;;;;;  "mail/mail-extr.el" (17178 22150))
 -;;;;;;  "mail/mail-extr.el" (17148 25155))
++;;;;;;  "mail/mail-extr.el" (17187 59901))
  ;;; Generated autoloads from mail/mail-extr.el
  
  (autoload (quote mail-extract-address-components) "mail-extr" "\
@@@ -16169,7 -16502,7 +16486,7 @@@ Convert mail domain DOMAIN to the count
  \f
  ;;;### (autoloads (mail-hist-put-headers-into-history mail-hist-keep-history
  ;;;;;;  mail-hist-enable mail-hist-define-keys) "mail-hist" "mail/mail-hist.el"
- ;;;;;;  (17178 22150))
 -;;;;;;  (17148 25156))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from mail/mail-hist.el
  
  (autoload (quote mail-hist-define-keys) "mail-hist" "\
@@@ -16200,8 -16533,8 +16517,8 @@@ This function normally would be called 
  \f
  ;;;### (autoloads (mail-fetch-field mail-unquote-printable-region
  ;;;;;;  mail-unquote-printable mail-quote-printable mail-file-babyl-p
- ;;;;;;  mail-use-rfc822) "mail-utils" "mail/mail-utils.el" (17178
- ;;;;;;  22150))
 -;;;;;;  mail-use-rfc822) "mail-utils" "mail/mail-utils.el" (17148
 -;;;;;;  25156))
++;;;;;;  mail-use-rfc822) "mail-utils" "mail/mail-utils.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from mail/mail-utils.el
  
  (defvar mail-use-rfc822 nil "\
@@@ -16253,7 -16586,7 +16570,7 @@@ If 4th arg LIST is non-nil, return a li
  ;;;***
  \f
  ;;;### (autoloads (define-mail-abbrev build-mail-abbrevs mail-abbrevs-setup)
- ;;;;;;  "mailabbrev" "mail/mailabbrev.el" (17178 22150))
 -;;;;;;  "mailabbrev" "mail/mailabbrev.el" (17239 32330))
++;;;;;;  "mailabbrev" "mail/mailabbrev.el" (17238 21257))
  ;;; Generated autoloads from mail/mailabbrev.el
  
  (autoload (quote mail-abbrevs-setup) "mailabbrev" "\
@@@ -16276,8 -16609,8 +16593,8 @@@ If DEFINITION contains multiple address
  ;;;***
  \f
  ;;;### (autoloads (mail-complete define-mail-alias expand-mail-aliases
- ;;;;;;  mail-complete-style) "mailalias" "mail/mailalias.el" (17178
- ;;;;;;  22150))
 -;;;;;;  mail-complete-style) "mailalias" "mail/mailalias.el" (17167
 -;;;;;;  2797))
++;;;;;;  mail-complete-style) "mailalias" "mail/mailalias.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from mail/mailalias.el
  
  (defvar mail-complete-style (quote angles) "\
@@@ -16322,9 -16655,22 +16639,22 @@@ current header, calls `mail-complete-fu
  
  ;;;***
  \f
 -;;;;;;  (17239 32330))
+ ;;;### (autoloads (mailclient-send-it) "mailclient" "mail/mailclient.el"
++;;;;;;  (17226 24564))
+ ;;; Generated autoloads from mail/mailclient.el
+ (autoload (quote mailclient-send-it) "mailclient" "\
+ Pass current buffer on to the system's mail client.
+ Suitable value for `send-mail-function'.
+ The mail client is taken to be the handler of mailto URLs.
+ \(fn)" nil nil)
+ ;;;***
\f
  ;;;### (autoloads (makefile-bsdmake-mode makefile-makepp-mode makefile-gmake-mode
  ;;;;;;  makefile-automake-mode makefile-mode) "make-mode" "progmodes/make-mode.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17239 32386))
++;;;;;;  (17238 21257))
  ;;; Generated autoloads from progmodes/make-mode.el
  
  (autoload (quote makefile-mode) "make-mode" "\
@@@ -16436,8 -16782,8 +16766,8 @@@ An adapted `makefile-mode' that knows a
  
  ;;;***
  \f
- ;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (17178
- ;;;;;;  22151))
 -;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (17148
 -;;;;;;  25015))
++;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from makesum.el
  
  (autoload (quote make-command-summary) "makesum" "\
@@@ -16448,7 -16794,7 +16778,7 @@@ Previous contents of that buffer are ki
  
  ;;;***
  \f
- ;;;### (autoloads (man-follow man) "man" "man.el" (17178 22151))
 -;;;### (autoloads (man-follow man) "man" "man.el" (17239 32219))
++;;;### (autoloads (man-follow man) "man" "man.el" (17238 21257))
  ;;; Generated autoloads from man.el
  
  (defalias (quote manual-entry) (quote man))
@@@ -16475,7 -16821,7 +16805,7 @@@ Get a Un*x manual page of the item unde
  
  ;;;***
  \f
- ;;;### (autoloads (master-mode) "master" "master.el" (17178 22151))
 -;;;### (autoloads (master-mode) "master" "master.el" (17148 25016))
++;;;### (autoloads (master-mode) "master" "master.el" (17187 59902))
  ;;; Generated autoloads from master.el
  
  (autoload (quote master-mode) "master" "\
@@@ -16497,8 -16843,8 +16827,8 @@@ yourself the value of `master-of' by ca
  
  ;;;***
  \f
- ;;;### (autoloads (menu-bar-mode) "menu-bar" "menu-bar.el" (17178
- ;;;;;;  22151))
 -;;;### (autoloads (menu-bar-mode) "menu-bar" "menu-bar.el" (17244
 -;;;;;;  43735))
++;;;### (autoloads (menu-bar-mode) "menu-bar" "menu-bar.el" (17254
++;;;;;;  63790))
  ;;; Generated autoloads from menu-bar.el
  
  (put (quote menu-bar-mode) (quote standard-value) (quote (t)))
@@@ -16529,15 -16875,12 +16859,12 @@@ turn on menu bars; otherwise, turn off 
  ;;;;;;  message-bounce message-resend message-insinuate-rmail message-forward-rmail-make-body
  ;;;;;;  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-reduce-to-to-cc
- ;;;;;;  message-cross-post-followup-to message-cross-post-insert-note
- ;;;;;;  message-cross-post-followup-to-header message-add-archive-header
- ;;;;;;  message-mark-insert-file message-mark-inserted-region message-change-subject
- ;;;;;;  message-signature-insert-empty-line message-signature-file
- ;;;;;;  message-signature message-indent-citation-function message-cite-function
- ;;;;;;  message-yank-prefix message-citation-line-function message-send-mail-function
- ;;;;;;  message-user-organization-file message-signature-separator
- ;;;;;;  message-from-style) "message" "gnus/message.el" (17178 22145))
+ ;;;;;;  message-reply message-news message-mail message-mode message-signature-insert-empty-line
+ ;;;;;;  message-signature-file message-signature message-indent-citation-function
+ ;;;;;;  message-cite-function message-yank-prefix message-citation-line-function
+ ;;;;;;  message-send-mail-function message-user-organization-file
+ ;;;;;;  message-signature-separator message-from-style) "message"
 -;;;;;;  "gnus/message.el" (17242 7317))
++;;;;;;  "gnus/message.el" (17254 63788))
  ;;; Generated autoloads from gnus/message.el
  
  (defvar message-from-style (quote default) "\
@@@ -16633,58 -16976,6 +16960,6 @@@ If nil, don't insert a signature."
  
  (define-mail-user-agent (quote message-user-agent) (quote message-mail) (quote message-send-and-exit) (quote message-kill-buffer) (quote message-send-hook))
  
- (autoload (quote message-change-subject) "message" "\
- Ask for NEW-SUBJECT header, append (was: <Old Subject>).
- \(fn NEW-SUBJECT)" t nil)
- (autoload (quote message-mark-inserted-region) "message" "\
- Mark some region in the current article with enclosing tags.
- See `message-mark-insert-begin' and `message-mark-insert-end'.
- \(fn BEG END)" t nil)
- (autoload (quote message-mark-insert-file) "message" "\
- Insert FILE at point, marking it with enclosing tags.
- See `message-mark-insert-begin' and `message-mark-insert-end'.
- \(fn FILE)" t nil)
- (autoload (quote message-add-archive-header) "message" "\
- Insert \"X-No-Archive: Yes\" in the header and a note in the body.
- The note can be customized using `message-archive-note'.  When called with a
- prefix argument, ask for a text to insert.  If you don't want the note in the
- body, set  `message-archive-note' to nil.
- \(fn)" t nil)
- (autoload (quote message-cross-post-followup-to-header) "message" "\
- Mangles FollowUp-To and Newsgroups header to point to TARGET-GROUP.
- With prefix-argument just set Follow-Up, don't cross-post.
- \(fn TARGET-GROUP)" t nil)
- (autoload (quote message-cross-post-insert-note) "message" "\
- Insert a in message body note about a set Followup or Crosspost.
- If there have been previous notes, delete them.  TARGET-GROUP specifies the
- group to Followup-To.  When CROSS-POST is t, insert note about
- crossposting.  IN-OLD specifies whether TARGET-GROUP is a member of
- OLD-GROUPS.  OLD-GROUPS lists the old-groups the posting would have
- been made to before the user asked for a Crosspost.
- \(fn TARGET-GROUP CROSS-POST IN-OLD OLD-GROUPS)" nil nil)
- (autoload (quote message-cross-post-followup-to) "message" "\
- Crossposts message and set Followup-To to TARGET-GROUP.
- With prefix-argument just set Follow-Up, don't cross-post.
- \(fn TARGET-GROUP)" t nil)
- (autoload (quote message-reduce-to-to-cc) "message" "\
- Replace contents of To: header with contents of Cc: or Bcc: header.
- \(fn)" t nil)
  (autoload (quote message-mode) "message" "\
  Major mode for editing mail and news to be sent.
  Like Text Mode but with these additional commands:\\<message-mode-map>
@@@ -16843,7 -17134,7 +17118,7 @@@ which specify the range to operate on
  ;;;***
  \f
  ;;;### (autoloads (metapost-mode metafont-mode) "meta-mode" "progmodes/meta-mode.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17239 32386))
++;;;;;;  (17238 21257))
  ;;; Generated autoloads from progmodes/meta-mode.el
  
  (autoload (quote metafont-mode) "meta-mode" "\
@@@ -16870,7 -17161,7 +17145,7 @@@ Turning on MetaPost mode calls the valu
  \f
  ;;;### (autoloads (metamail-region metamail-buffer metamail-interpret-body
  ;;;;;;  metamail-interpret-header) "metamail" "mail/metamail.el"
- ;;;;;;  (17178 22150))
 -;;;;;;  (17185 27569))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from mail/metamail.el
  
  (autoload (quote metamail-interpret-header) "metamail" "\
@@@ -16914,8 -17205,8 +17189,8 @@@ redisplayed as output is inserted
  ;;;***
  \f
  ;;;### (autoloads (mh-letter-mode mh-smail-other-window mh-user-agent-compose
- ;;;;;;  mh-smail-batch mh-smail) "mh-comp" "mh-e/mh-comp.el" (17178
- ;;;;;;  20480))
 -;;;;;;  mh-smail-batch mh-smail) "mh-comp" "mh-e/mh-comp.el" (17244
 -;;;;;;  43750))
++;;;;;;  mh-smail-batch mh-smail) "mh-comp" "mh-e/mh-comp.el" (17254
++;;;;;;  63790))
  ;;; Generated autoloads from mh-e/mh-comp.el
  
  (autoload (quote mh-smail) "mh-comp" "\
@@@ -16969,16 -17260,13 +17244,13 @@@ Mode for composing letters in MH-E.\\<m
  When you have finished composing, type \\[mh-send-letter] to send the message
  using the MH mail handling system.
  
- There are two types of MIME directives used by MH-E: Gnus and MH. The option
- `mh-compose-insertion' controls what type of directives are inserted by MH-E
- commands. These directives can be converted to MIME body parts by running
- \\[mh-edit-mhn] for mhn directives or \\[mh-mml-to-mime] for Gnus directives.
- This step is mandatory if these directives are added manually. If the
- directives are inserted with MH-E commands such as \\[mh-compose-insertion],
- the directives are expanded automatically when the letter is sent.
+ There are two types of tags used by MH-E when composing MIME messages: MML and
+ MH. The option `mh-compose-insertion' controls what type of tags are inserted
+ by MH-E commands. These tags can be converted to MIME body parts by running
+ \\[mh-mh-to-mime] for MH-style directives or \\[mh-mml-to-mime] for MML tags.
  
- Options that control this mode can be changed with
\\[customize-group]; specify the \"mh-compose\" group.
+ Options that control this mode can be changed with \\[customize-group];
+ specify the \"mh-compose\" group.
  
  When a message is composed, the hooks `text-mode-hook' and
  `mh-letter-mode-hook' are run.
  ;;;***
  \f
  ;;;### (autoloads (mh-folder-mode mh-version mh-nmail mh-rmail) "mh-e"
- ;;;;;;  "mh-e/mh-e.el" (17178 22151))
 -;;;;;;  "mh-e/mh-e.el" (17244 43752))
++;;;;;;  "mh-e/mh-e.el" (17254 63790))
  ;;; Generated autoloads from mh-e/mh-e.el
  
  (autoload (quote mh-rmail) "mh-e" "\
@@@ -17068,7 -17356,7 +17340,7 @@@ messages in that region
  
  ;;;***
  \f
- ;;;### (autoloads nil "mh-init" "mh-e/mh-init.el" (17178 20480))
 -;;;### (autoloads nil "mh-init" "mh-e/mh-init.el" (17239 32348))
++;;;### (autoloads nil "mh-init" "mh-e/mh-init.el" (17238 21257))
  ;;; Generated autoloads from mh-e/mh-init.el
  
  (put (quote mh-progs) (quote risky-local-variable) t)
  ;;;***
  \f
  ;;;### (autoloads (midnight-delay-set clean-buffer-list) "midnight"
- ;;;;;;  "midnight.el" (17178 22151))
 -;;;;;;  "midnight.el" (17148 25017))
++;;;;;;  "midnight.el" (17187 59902))
  ;;; Generated autoloads from midnight.el
  
  (autoload (quote clean-buffer-list) "midnight" "\
@@@ -17107,7 -17395,7 +17379,7 @@@ to its second argument TM
  ;;;***
  \f
  ;;;### (autoloads (minibuffer-electric-default-mode) "minibuf-eldef"
- ;;;;;;  "minibuf-eldef.el" (17178 22151))
 -;;;;;;  "minibuf-eldef.el" (17148 25017))
++;;;;;;  "minibuf-eldef.el" (17187 59902))
  ;;; Generated autoloads from minibuf-eldef.el
  
  (defvar minibuffer-electric-default-mode nil "\
@@@ -17136,7 -17424,7 +17408,7 @@@ Returns non-nil if the new state is ena
  ;;;***
  \f
  ;;;### (autoloads (mixal-mode) "mixal-mode" "progmodes/mixal-mode.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17239 32387))
++;;;;;;  (17238 21095))
  ;;; Generated autoloads from progmodes/mixal-mode.el
  
  (autoload (quote mixal-mode) "mixal-mode" "\
@@@ -17151,7 -17439,7 +17423,7 @@@ Major mode for the mixal asm language
  \f
  ;;;### (autoloads (malayalam-composition-function malayalam-post-read-conversion
  ;;;;;;  malayalam-compose-region) "mlm-util" "language/mlm-util.el"
- ;;;;;;  (17178 20481))
 -;;;;;;  (17102 18776))
++;;;;;;  (17187 59881))
  ;;; Generated autoloads from language/mlm-util.el
  
  (autoload (quote malayalam-compose-region) "mlm-util" "\
@@@ -17174,7 -17462,7 +17446,7 @@@ PATTERN regexp
  ;;;***
  \f
  ;;;### (autoloads (mm-inline-external-body) "mm-extern" "gnus/mm-extern.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17185 27553))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/mm-extern.el
  
  (autoload (quote mm-inline-external-body) "mm-extern" "\
@@@ -17188,7 -17476,7 +17460,7 @@@ If NO-DISPLAY is nil, display it. Other
  ;;;***
  \f
  ;;;### (autoloads (mm-inline-partial) "mm-partial" "gnus/mm-partial.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17148 25140))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/mm-partial.el
  
  (autoload (quote mm-inline-partial) "mm-partial" "\
@@@ -17202,7 -17490,7 +17474,7 @@@ If NO-DISPLAY is nil, display it. Other
  ;;;***
  \f
  ;;;### (autoloads (mm-url-insert-file-contents-external mm-url-insert-file-contents)
- ;;;;;;  "mm-url" "gnus/mm-url.el" (17178 22146))
 -;;;;;;  "mm-url" "gnus/mm-url.el" (17239 32315))
++;;;;;;  "mm-url" "gnus/mm-url.el" (17226 24575))
  ;;; Generated autoloads from gnus/mm-url.el
  
  (autoload (quote mm-url-insert-file-contents) "mm-url" "\
@@@ -17218,8 -17506,8 +17490,8 @@@ Insert file contents of URL using `mm-u
  
  ;;;***
  \f
- ;;;### (autoloads (mm-uu-dissect) "mm-uu" "gnus/mm-uu.el" (17178
- ;;;;;;  22146))
 -;;;### (autoloads (mm-uu-dissect) "mm-uu" "gnus/mm-uu.el" (17239
 -;;;;;;  32316))
++;;;### (autoloads (mm-uu-dissect) "mm-uu" "gnus/mm-uu.el" (17226
++;;;;;;  24575))
  ;;; Generated autoloads from gnus/mm-uu.el
  
  (autoload (quote mm-uu-dissect) "mm-uu" "\
@@@ -17230,7 -17518,7 +17502,7 @@@ Dissect the current buffer and return 
  ;;;***
  \f
  ;;;### (autoloads (mml1991-sign mml1991-encrypt) "mml1991" "gnus/mml1991.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17185 27556))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/mml1991.el
  
  (autoload (quote mml1991-encrypt) "mml1991" "\
@@@ -17247,7 -17535,7 +17519,7 @@@ Not documente
  \f
  ;;;### (autoloads (mml2015-self-encrypt mml2015-sign mml2015-encrypt
  ;;;;;;  mml2015-verify-test mml2015-verify mml2015-decrypt-test mml2015-decrypt)
- ;;;;;;  "mml2015" "gnus/mml2015.el" (17178 22146))
 -;;;;;;  "mml2015" "gnus/mml2015.el" (17185 27558))
++;;;;;;  "mml2015" "gnus/mml2015.el" (17187 59901))
  ;;; Generated autoloads from gnus/mml2015.el
  
  (autoload (quote mml2015-decrypt) "mml2015" "\
@@@ -17288,7 -17576,7 +17560,7 @@@ Not documente
  ;;;***
  \f
  ;;;### (autoloads (modula-2-mode) "modula2" "progmodes/modula2.el"
- ;;;;;;  (17178 20481))
 -;;;;;;  (17075 55530))
++;;;;;;  (17187 59880))
  ;;; Generated autoloads from progmodes/modula2.el
  
  (autoload (quote modula-2-mode) "modula2" "\
@@@ -17320,7 -17608,7 +17592,7 @@@ followed by the first character of the 
  ;;;***
  \f
  ;;;### (autoloads (unmorse-region morse-region) "morse" "play/morse.el"
- ;;;;;;  (17178 22152))
 -;;;;;;  (17140 20949))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from play/morse.el
  
  (autoload (quote morse-region) "morse" "\
@@@ -17335,8 -17623,8 +17607,8 @@@ Convert morse coded text in region to o
  
  ;;;***
  \f
- ;;;### (autoloads (mouse-sel-mode) "mouse-sel" "mouse-sel.el" (17178
- ;;;;;;  22151))
 -;;;### (autoloads (mouse-sel-mode) "mouse-sel" "mouse-sel.el" (17148
 -;;;;;;  25018))
++;;;### (autoloads (mouse-sel-mode) "mouse-sel" "mouse-sel.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from mouse-sel.el
  
  (defvar mouse-sel-mode nil "\
@@@ -17389,7 -17677,7 +17661,7 @@@ primary selection and region
  
  ;;;***
  \f
- ;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (17178 22152))
 -;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (17239 32365))
++;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (17226 24576))
  ;;; Generated autoloads from play/mpuz.el
  
  (autoload (quote mpuz) "mpuz" "\
@@@ -17399,7 -17687,7 +17671,7 @@@ Multiplication puzzle with GNU Emacs
  
  ;;;***
  \f
- ;;;### (autoloads (msb-mode) "msb" "msb.el" (17178 22151))
 -;;;### (autoloads (msb-mode) "msb" "msb.el" (17185 27455))
++;;;### (autoloads (msb-mode) "msb" "msb.el" (17187 59914))
  ;;; Generated autoloads from msb.el
  
  (defvar msb-mode nil "\
@@@ -17427,7 -17715,7 +17699,7 @@@ different buffer menu using the functio
  ;;;;;;  describe-current-coding-system describe-current-coding-system-briefly
  ;;;;;;  describe-coding-system describe-character-set list-charset-chars
  ;;;;;;  read-charset list-character-sets) "mule-diag" "international/mule-diag.el"
- ;;;;;;  (17178 20480))
 -;;;;;;  (17239 32324))
++;;;;;;  (17226 24576))
  ;;; Generated autoloads from international/mule-diag.el
  
  (defvar non-iso-charset-alist (\` ((mac-roman (ascii latin-iso8859-1 mule-unicode-2500-33ff mule-unicode-0100-24ff mule-unicode-e000-ffff) mac-roman-decoder ((0 255))) (viscii (ascii vietnamese-viscii-lower vietnamese-viscii-upper) viet-viscii-nonascii-translation-table ((0 255))) (vietnamese-tcvn (ascii vietnamese-viscii-lower vietnamese-viscii-upper) viet-tcvn-nonascii-translation-table ((0 255))) (koi8-r (ascii cyrillic-iso8859-5) cyrillic-koi8-r-nonascii-translation-table ((32 255))) (alternativnyj (ascii cyrillic-iso8859-5) cyrillic-alternativnyj-nonascii-translation-table ((32 255))) (koi8-u (ascii cyrillic-iso8859-5 mule-unicode-0100-24ff) cyrillic-koi8-u-nonascii-translation-table ((32 255))) (big5 (ascii chinese-big5-1 chinese-big5-2) decode-big5-char ((32 127) ((161 254) 64 126 161 254))) (sjis (ascii katakana-jisx0201 japanese-jisx0208) decode-sjis-char ((32 127 161 223) ((129 159 224 239) 64 126 128 252))))) "\
@@@ -17600,7 -17888,7 +17872,7 @@@ system which uses fontsets)
  ;;;;;;  coding-system-translation-table-for-decode coding-system-pre-write-conversion
  ;;;;;;  coding-system-post-read-conversion lookup-nested-alist set-nested-alist
  ;;;;;;  truncate-string-to-width store-substring string-to-sequence)
- ;;;;;;  "mule-util" "international/mule-util.el" (17178 20480))
 -;;;;;;  "mule-util" "international/mule-util.el" (17102 18726))
++;;;;;;  "mule-util" "international/mule-util.el" (17187 59880))
  ;;; Generated autoloads from international/mule-util.el
  
  (autoload (quote string-to-sequence) "mule-util" "\
@@@ -17729,7 -18017,7 +18001,7 @@@ basis, this may not be accurate
  ;;;***
  \f
  ;;;### (autoloads (mwheel-install mouse-wheel-mode) "mwheel" "mwheel.el"
- ;;;;;;  (17178 22151))
 -;;;;;;  (17148 25020))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from mwheel.el
  
  (defvar mouse-wheel-mode nil "\
@@@ -17759,7 -18047,7 +18031,7 @@@ Enable mouse wheel support
  ;;;### (autoloads (network-connection network-connection-to-service
  ;;;;;;  whois-reverse-lookup whois finger ftp run-dig dns-lookup-host
  ;;;;;;  nslookup nslookup-host route arp netstat ipconfig ping traceroute)
- ;;;;;;  "net-utils" "net/net-utils.el" (17178 22151))
 -;;;;;;  "net-utils" "net/net-utils.el" (17148 25173))
++;;;;;;  "net-utils" "net/net-utils.el" (17187 59902))
  ;;; Generated autoloads from net/net-utils.el
  
  (autoload (quote traceroute) "net-utils" "\
@@@ -17855,7 -18143,7 +18127,7 @@@ Open a network connection to HOST on PO
  ;;;;;;  comment-kill comment-set-column comment-indent comment-indent-default
  ;;;;;;  comment-normalize-vars comment-multi-line comment-padding
  ;;;;;;  comment-style comment-column) "newcomment" "newcomment.el"
- ;;;;;;  (17178 22151))
 -;;;;;;  (17148 25021))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from newcomment.el
  
  (defalias (quote indent-for-comment) (quote comment-indent))
@@@ -18036,8 -18324,28 +18308,28 @@@ unless optional argument SOFT is non-ni
  
  ;;;***
  \f
 -;;;;;;  "net/newsticker.el" (17239 32359))
+ ;;;### (autoloads (newsticker-show-news newsticker-start) "newsticker"
++;;;;;;  "net/newsticker.el" (17229 28054))
+ ;;; Generated autoloads from net/newsticker.el
+ (autoload (quote newsticker-start) "newsticker" "\
+ Start the newsticker.
+ Start the timers for display and retrieval.  If the newsticker, i.e. the
+ timers, are running already a warning message is printed unless
+ DO-NOT-COMPLAIN-IF-RUNNING is not nil.
+ Run `newsticker-start-hook' if newsticker was not running already.
+ \(fn &optional DO-NOT-COMPLAIN-IF-RUNNING)" t nil)
+ (autoload (quote newsticker-show-news) "newsticker" "\
+ Switch to newsticker buffer.  You may want to bind this to a key.
+ \(fn)" t nil)
+ ;;;***
\f
  ;;;### (autoloads (nndiary-generate-nov-databases) "nndiary" "gnus/nndiary.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17148 25143))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/nndiary.el
  
  (autoload (quote nndiary-generate-nov-databases) "nndiary" "\
@@@ -18047,8 -18355,8 +18339,8 @@@ Generate NOV databases in all nndiary d
  
  ;;;***
  \f
- ;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (17178
- ;;;;;;  22146))
 -;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (17148
 -;;;;;;  25143))
++;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from gnus/nndoc.el
  
  (autoload (quote nndoc-add-type) "nndoc" "\
@@@ -18063,7 -18371,7 +18355,7 @@@ symbol in the alist
  ;;;***
  \f
  ;;;### (autoloads (nnfolder-generate-active-file) "nnfolder" "gnus/nnfolder.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17148 25144))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/nnfolder.el
  
  (autoload (quote nnfolder-generate-active-file) "nnfolder" "\
@@@ -18075,7 -18383,7 +18367,7 @@@ This command does not work if you use s
  ;;;***
  \f
  ;;;### (autoloads (nnkiboze-generate-groups) "nnkiboze" "gnus/nnkiboze.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17148 25145))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/nnkiboze.el
  
  (autoload (quote nnkiboze-generate-groups) "nnkiboze" "\
@@@ -18087,7 -18395,7 +18379,7 @@@ Finds out what articles are to be part 
  ;;;***
  \f
  ;;;### (autoloads (nnml-generate-nov-databases) "nnml" "gnus/nnml.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17148 25147))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/nnml.el
  
  (autoload (quote nnml-generate-nov-databases) "nnml" "\
@@@ -18098,7 -18406,7 +18390,7 @@@ Generate NOV databases in all nnml dire
  ;;;***
  \f
  ;;;### (autoloads (nnsoup-revert-variables nnsoup-set-variables nnsoup-pack-replies)
- ;;;;;;  "nnsoup" "gnus/nnsoup.el" (17178 22146))
 -;;;;;;  "nnsoup" "gnus/nnsoup.el" (17148 25148))
++;;;;;;  "nnsoup" "gnus/nnsoup.el" (17187 59901))
  ;;; Generated autoloads from gnus/nnsoup.el
  
  (autoload (quote nnsoup-pack-replies) "nnsoup" "\
@@@ -18119,7 -18427,7 +18411,7 @@@ Revert posting and mailing methods to t
  ;;;***
  \f
  ;;;### (autoloads (disable-command enable-command disabled-command-function)
- ;;;;;;  "novice" "novice.el" (17178 22151))
 -;;;;;;  "novice" "novice.el" (17148 25021))
++;;;;;;  "novice" "novice.el" (17187 59902))
  ;;; Generated autoloads from novice.el
  
  (defvar disabled-command-function (quote disabled-command-function) "\
@@@ -18152,7 -18460,7 +18444,7 @@@ to future sessions
  ;;;***
  \f
  ;;;### (autoloads (nroff-mode) "nroff-mode" "textmodes/nroff-mode.el"
- ;;;;;;  (17178 22154))
 -;;;;;;  (17148 25209))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from textmodes/nroff-mode.el
  
  (autoload (quote nroff-mode) "nroff-mode" "\
@@@ -18167,7 -18475,7 +18459,7 @@@ closing requests for requests that are 
  ;;;***
  \f
  ;;;### (autoloads (octave-help) "octave-hlp" "progmodes/octave-hlp.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17167 3247))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from progmodes/octave-hlp.el
  
  (autoload (quote octave-help) "octave-hlp" "\
@@@ -18181,7 -18489,7 +18473,7 @@@ If KEY is not a string, prompt for it w
  ;;;***
  \f
  ;;;### (autoloads (inferior-octave) "octave-inf" "progmodes/octave-inf.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17186 59271))
++;;;;;;  (17187 59926))
  ;;; Generated autoloads from progmodes/octave-inf.el
  
  (autoload (quote inferior-octave) "octave-inf" "\
@@@ -18204,7 -18512,7 +18496,7 @@@ startup file, `~/.emacs-octave'
  ;;;***
  \f
  ;;;### (autoloads (octave-mode) "octave-mod" "progmodes/octave-mod.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17239 32387))
++;;;;;;  (17238 21257))
  ;;; Generated autoloads from progmodes/octave-mod.el
  
  (autoload (quote octave-mode) "octave-mod" "\
@@@ -18303,7 -18611,7 +18595,7 @@@ including a reproducible test case and 
  ;;;***
  \f
  ;;;### (autoloads (edit-options list-options) "options" "obsolete/options.el"
- ;;;;;;  (17178 22152))
 -;;;;;;  (17148 25181))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from obsolete/options.el
  
  (autoload (quote list-options) "options" "\
@@@ -18324,10 -18632,10 +18616,10 @@@ The Custom feature is intended to make 
  
  ;;;***
  \f
- ;;;### (autoloads (orgtbl-mode turn-on-orgtbl org-remember-handler
- ;;;;;;  org-remember-annotation org-store-link org-diary org-agenda
- ;;;;;;  org-agenda-mode org-mode) "org" "textmodes/org.el" (17178
- ;;;;;;  22154))
+ ;;;### (autoloads (org-export-icalendar-combine-agenda-files org-export-icalendar-all-agenda-files
+ ;;;;;;  orgtbl-mode turn-on-orgtbl org-remember-handler org-remember-annotation
+ ;;;;;;  org-store-link org-diary org-agenda org-agenda-mode org-mode)
 -;;;;;;  "org" "textmodes/org.el" (17242 7325))
++;;;;;;  "org" "textmodes/org.el" (17244 4914))
  ;;; Generated autoloads from textmodes/org.el
  
  (autoload (quote org-mode) "org" "\
@@@ -18482,10 -18790,23 +18774,23 @@@ The `org-mode' table editor as a minor 
  
  \(fn &optional ARG)" t nil)
  
+ (autoload (quote org-export-icalendar-all-agenda-files) "org" "\
+ Export all files in `org-agenda-files' to iCalendar .ics files.
+ Each iCalendar file will be located in the same directory as the Org-mode
+ file, but with extension `.ics'.
+ \(fn)" t nil)
+ (autoload (quote org-export-icalendar-combine-agenda-files) "org" "\
+ Export all files in `org-agenda-files' to a single combined iCalendar file.
+ The file is stored under the name `org-combined-agenda-icalendar-file'.
+ \(fn)" t nil)
  ;;;***
  \f
  ;;;### (autoloads (outline-minor-mode outline-mode) "outline" "outline.el"
- ;;;;;;  (17178 22152))
 -;;;;;;  (17239 32223))
++;;;;;;  (17226 24576))
  ;;; Generated autoloads from outline.el
  
  (autoload (quote outline-mode) "outline" "\
@@@ -18540,7 -18861,7 +18845,7 @@@ See the command `outline-mode' for mor
  
  ;;;***
  \f
- ;;;### (autoloads (show-paren-mode) "paren" "paren.el" (17178 22152))
 -;;;### (autoloads (show-paren-mode) "paren" "paren.el" (17148 25021))
++;;;### (autoloads (show-paren-mode) "paren" "paren.el" (17187 59902))
  ;;; Generated autoloads from paren.el
  
  (defvar show-paren-mode nil "\
@@@ -18566,7 -18887,7 +18871,7 @@@ in `show-paren-style' after `show-paren
  ;;;***
  \f
  ;;;### (autoloads (parse-time-string) "parse-time" "calendar/parse-time.el"
- ;;;;;;  (17178 20480))
 -;;;;;;  (17102 18474))
++;;;;;;  (17187 59880))
  ;;; Generated autoloads from calendar/parse-time.el
  
  (autoload (quote parse-time-string) "parse-time" "\
@@@ -18578,8 -18899,8 +18883,8 @@@ unknown are returned as nil
  
  ;;;***
  \f
- ;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (17178
- ;;;;;;  22153))
 -;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (17239
 -;;;;;;  32388))
++;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (17238
++;;;;;;  21257))
  ;;; Generated autoloads from progmodes/pascal.el
  
  (autoload (quote pascal-mode) "pascal" "\
@@@ -18599,7 -18920,7 +18904,7 @@@ Other useful functions are
  \\[pascal-beg-of-defun]       - Move to beginning of current function.
  \\[pascal-end-of-defun]       - Move to end of current function.
  \\[pascal-goto-defun] - Goto function prompted for in the minibuffer.
- \\[pascal-outline]    - Enter pascal-outline-mode (see also pascal-outline).
+ \\[pascal-outline-mode]       - Enter `pascal-outline-mode'.
  
  Variables controlling indentation/edit style:
  
@@@ -18632,7 -18953,7 +18937,7 @@@ no args, if that value is non-nil
  ;;;***
  \f
  ;;;### (autoloads (pc-bindings-mode) "pc-mode" "emulation/pc-mode.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17140 20922))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from emulation/pc-mode.el
  
  (autoload (quote pc-bindings-mode) "pc-mode" "\
@@@ -18650,7 -18971,7 +18955,7 @@@ C-Escape does list-buffers
  ;;;***
  \f
  ;;;### (autoloads (pc-selection-mode pc-selection-mode) "pc-select"
- ;;;;;;  "emulation/pc-select.el" (17178 22144))
 -;;;;;;  "emulation/pc-select.el" (17140 20922))
++;;;;;;  "emulation/pc-select.el" (17187 59901))
  ;;; Generated autoloads from emulation/pc-select.el
  
  (defvar pc-selection-mode nil "\
@@@ -18727,8 -19048,8 +19032,8 @@@ you must modify it using \\[customize] 
  
  ;;;***
  \f
- ;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (17178
- ;;;;;;  22152))
 -;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (17148
 -;;;;;;  25022))
++;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from pcmpl-cvs.el
  
  (autoload (quote pcomplete/cvs) "pcmpl-cvs" "\
@@@ -18739,7 -19060,7 +19044,7 @@@ Completion rules for the `cvs' command
  ;;;***
  \f
  ;;;### (autoloads (pcomplete/tar pcomplete/make pcomplete/bzip2 pcomplete/gzip)
- ;;;;;;  "pcmpl-gnu" "pcmpl-gnu.el" (17178 22152))
 -;;;;;;  "pcmpl-gnu" "pcmpl-gnu.el" (17148 25022))
++;;;;;;  "pcmpl-gnu" "pcmpl-gnu.el" (17187 59902))
  ;;; Generated autoloads from pcmpl-gnu.el
  
  (autoload (quote pcomplete/gzip) "pcmpl-gnu" "\
@@@ -18767,7 -19088,7 +19072,7 @@@ Completion for the GNU tar utility
  ;;;***
  \f
  ;;;### (autoloads (pcomplete/mount pcomplete/umount pcomplete/kill)
- ;;;;;;  "pcmpl-linux" "pcmpl-linux.el" (17178 22152))
 -;;;;;;  "pcmpl-linux" "pcmpl-linux.el" (17148 25022))
++;;;;;;  "pcmpl-linux" "pcmpl-linux.el" (17187 59902))
  ;;; Generated autoloads from pcmpl-linux.el
  
  (autoload (quote pcomplete/kill) "pcmpl-linux" "\
@@@ -18787,8 -19108,8 +19092,8 @@@ Completion for GNU/Linux `mount'
  
  ;;;***
  \f
- ;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (17178
- ;;;;;;  22152))
 -;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (17148
 -;;;;;;  25022))
++;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from pcmpl-rpm.el
  
  (autoload (quote pcomplete/rpm) "pcmpl-rpm" "\
@@@ -18804,7 -19125,7 +19109,7 @@@ You can use \\[eshell-report-bug] to d
  \f
  ;;;### (autoloads (pcomplete/chgrp pcomplete/chown pcomplete/which
  ;;;;;;  pcomplete/xargs pcomplete/rm pcomplete/rmdir pcomplete/cd)
- ;;;;;;  "pcmpl-unix" "pcmpl-unix.el" (17178 22152))
 -;;;;;;  "pcmpl-unix" "pcmpl-unix.el" (17148 25022))
++;;;;;;  "pcmpl-unix" "pcmpl-unix.el" (17187 59902))
  ;;; Generated autoloads from pcmpl-unix.el
  
  (autoload (quote pcomplete/cd) "pcmpl-unix" "\
@@@ -18850,8 -19171,8 +19155,8 @@@ Completion for the `chgrp' command
  \f
  ;;;### (autoloads (pcomplete-shell-setup pcomplete-comint-setup pcomplete-list
  ;;;;;;  pcomplete-help pcomplete-expand pcomplete-continue pcomplete-expand-and-complete
- ;;;;;;  pcomplete-reverse pcomplete) "pcomplete" "pcomplete.el" (17178
- ;;;;;;  22152))
 -;;;;;;  pcomplete-reverse pcomplete) "pcomplete" "pcomplete.el" (17205
 -;;;;;;  6017))
++;;;;;;  pcomplete-reverse pcomplete) "pcomplete" "pcomplete.el" (17226
++;;;;;;  24576))
  ;;; Generated autoloads from pcomplete.el
  
  (autoload (quote pcomplete) "pcomplete" "\
@@@ -18910,7 -19231,7 +19215,7 @@@ Setup shell-mode to use pcomplete
  \f
  ;;;### (autoloads (cvs-dired-use-hook cvs-dired-action cvs-status
  ;;;;;;  cvs-update cvs-examine cvs-quickdir cvs-checkout) "pcvs"
- ;;;;;;  "pcvs.el" (17178 22152))
 -;;;;;;  "pcvs.el" (17239 32224))
++;;;;;;  "pcvs.el" (17238 21257))
  ;;; Generated autoloads from pcvs.el
  
  (autoload (quote cvs-checkout) "pcvs" "\
@@@ -18987,7 -19308,7 +19292,7 @@@ The exact behavior is determined also b
  
  ;;;***
  \f
- ;;;### (autoloads nil "pcvs-defs" "pcvs-defs.el" (17178 22152))
 -;;;### (autoloads nil "pcvs-defs" "pcvs-defs.el" (17194 38169))
++;;;### (autoloads nil "pcvs-defs" "pcvs-defs.el" (17196 27217))
  ;;; Generated autoloads from pcvs-defs.el
  
  (defvar cvs-global-menu (let ((m (make-sparse-keymap "PCL-CVS"))) (define-key m [status] (quote (menu-item "Directory Status" cvs-status :help "A more verbose status of a workarea"))) (define-key m [checkout] (quote (menu-item "Checkout Module" cvs-checkout :help "Check out a module from the repository"))) (define-key m [update] (quote (menu-item "Update Directory" cvs-update :help "Fetch updates from the repository"))) (define-key m [examine] (quote (menu-item "Examine Directory" cvs-examine :help "Examine the current state of a workarea"))) (fset (quote cvs-global-menu) m)))
  ;;;***
  \f
  ;;;### (autoloads (perl-mode) "perl-mode" "progmodes/perl-mode.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17185 27660))
++;;;;;;  (17187 59914))
  ;;; Generated autoloads from progmodes/perl-mode.el
  
  (autoload (quote perl-mode) "perl-mode" "\
@@@ -19053,8 -19374,8 +19358,8 @@@ Turning on Perl mode runs the normal ho
  ;;;### (autoloads (pgg-snarf-keys pgg-snarf-keys-region pgg-insert-key
  ;;;;;;  pgg-verify pgg-verify-region pgg-sign pgg-sign-region pgg-decrypt
  ;;;;;;  pgg-decrypt-region pgg-encrypt pgg-encrypt-region) "pgg"
- ;;;;;;  "gnus/pgg.el" (17178 22146))
- ;;; Generated autoloads from gnus/pgg.el
 -;;;;;;  "pgg.el" (17244 47844))
++;;;;;;  "pgg.el" (17187 59901))
+ ;;; Generated autoloads from pgg.el
  
  (autoload (quote pgg-encrypt-region) "pgg" "\
  Encrypt the current region between START and END for RCPTS.
@@@ -19141,7 -19462,7 +19446,7 @@@ Import public keys in the current buffe
  ;;;***
  \f
  ;;;### (autoloads (picture-mode) "picture" "textmodes/picture.el"
- ;;;;;;  (17178 22154))
 -;;;;;;  (17148 25215))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from textmodes/picture.el
  
  (autoload (quote picture-mode) "picture" "\
@@@ -19213,7 -19534,7 +19518,7 @@@ they are not defaultly assigned to keys
  ;;;***
  \f
  ;;;### (autoloads (po-find-file-coding-system) "po" "textmodes/po.el"
- ;;;;;;  (17178 22154))
 -;;;;;;  (17148 25215))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from textmodes/po.el
  
  (autoload (quote po-find-file-coding-system) "po" "\
@@@ -19224,7 -19545,7 +19529,7 @@@ Called through `file-coding-system-alis
  
  ;;;***
  \f
- ;;;### (autoloads (pong) "pong" "play/pong.el" (17178 22152))
 -;;;### (autoloads (pong) "pong" "play/pong.el" (17140 20949))
++;;;### (autoloads (pong) "pong" "play/pong.el" (17187 59902))
  ;;; Generated autoloads from play/pong.el
  
  (autoload (quote pong) "pong" "\
@@@ -19241,7 -19562,7 +19546,7 @@@ pong-mode keybindings:\\<pong-mode-map
  ;;;***
  \f
  ;;;### (autoloads (pp-eval-last-sexp pp-eval-expression pp pp-buffer
- ;;;;;;  pp-to-string) "pp" "emacs-lisp/pp.el" (17178 22144))
 -;;;;;;  pp-to-string) "pp" "emacs-lisp/pp.el" (17185 27496))
++;;;;;;  pp-to-string) "pp" "emacs-lisp/pp.el" (17187 59901))
  ;;; Generated autoloads from emacs-lisp/pp.el
  
  (autoload (quote pp-to-string) "pp" "\
@@@ -19299,7 -19620,7 +19604,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"
- ;;;;;;  (17178 22152))
 -;;;;;;  (17239 32228))
++;;;;;;  (17226 24577))
  ;;; Generated autoloads from printing.el
  
  (autoload (quote pr-interface) "printing" "\
@@@ -19887,7 -20208,7 +20192,7 @@@ are both set to t
  ;;;***
  \f
  ;;;### (autoloads (run-prolog prolog-mode) "prolog" "progmodes/prolog.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17185 27661))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from progmodes/prolog.el
  
  (autoload (quote prolog-mode) "prolog" "\
@@@ -19907,7 -20228,7 +20212,7 @@@ Run an inferior Prolog process, input a
  
  ;;;***
  \f
- ;;;### (autoloads nil "ps-bdf" "ps-bdf.el" (17178 22153))
 -;;;### (autoloads nil "ps-bdf" "ps-bdf.el" (17131 20680))
++;;;### (autoloads nil "ps-bdf" "ps-bdf.el" (17187 59902))
  ;;; Generated autoloads from ps-bdf.el
  
  (defvar bdf-directory-list (if (memq system-type (quote (ms-dos windows-nt))) (list (expand-file-name "fonts/bdf" installation-directory)) (quote ("/usr/local/share/emacs/fonts/bdf"))) "\
@@@ -19916,8 -20237,8 +20221,8 @@@ The default value is '(\"/usr/local/sha
  
  ;;;***
  \f
- ;;;### (autoloads (ps-mode) "ps-mode" "progmodes/ps-mode.el" (17178
- ;;;;;;  22153))
 -;;;### (autoloads (ps-mode) "ps-mode" "progmodes/ps-mode.el" (17205
 -;;;;;;  6191))
++;;;### (autoloads (ps-mode) "ps-mode" "progmodes/ps-mode.el" (17226
++;;;;;;  24577))
  ;;; Generated autoloads from progmodes/ps-mode.el
  
  (autoload (quote ps-mode) "ps-mode" "\
@@@ -19966,7 -20287,7 +20271,7 @@@ Typing \\<ps-run-mode-map>\\[ps-run-got
  ;;;### (autoloads (ps-mule-begin-page ps-mule-begin-job ps-mule-encode-header-string
  ;;;;;;  ps-mule-initialize ps-mule-plot-composition ps-mule-plot-string
  ;;;;;;  ps-mule-set-ascii-font ps-mule-prepare-ascii-font ps-multibyte-buffer)
- ;;;;;;  "ps-mule" "ps-mule.el" (17178 22153))
 -;;;;;;  "ps-mule" "ps-mule.el" (17239 32229))
++;;;;;;  "ps-mule" "ps-mule.el" (17226 24577))
  ;;; Generated autoloads from ps-mule.el
  
  (defvar ps-multibyte-buffer nil "\
@@@ -20087,8 -20408,8 +20392,8 @@@ Not documente
  ;;;;;;  ps-spool-region ps-spool-buffer-with-faces ps-spool-buffer
  ;;;;;;  ps-print-region-with-faces ps-print-region ps-print-buffer-with-faces
  ;;;;;;  ps-print-buffer ps-print-customize ps-print-color-p ps-paper-type
- ;;;;;;  ps-page-dimensions-database) "ps-print" "ps-print.el" (17178
- ;;;;;;  22153))
 -;;;;;;  ps-page-dimensions-database) "ps-print" "ps-print.el" (17239
 -;;;;;;  32233))
++;;;;;;  ps-page-dimensions-database) "ps-print" "ps-print.el" (17226
++;;;;;;  24577))
  ;;; Generated autoloads from ps-print.el
  
  (defvar ps-page-dimensions-database (list (list (quote a4) (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4") (list (quote a3) (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3") (list (quote letter) (* 72 8.5) (* 72 11.0) "Letter") (list (quote legal) (* 72 8.5) (* 72 14.0) "Legal") (list (quote letter-small) (* 72 7.68) (* 72 10.16) "LetterSmall") (list (quote tabloid) (* 72 11.0) (* 72 17.0) "Tabloid") (list (quote ledger) (* 72 17.0) (* 72 11.0) "Ledger") (list (quote statement) (* 72 5.5) (* 72 8.5) "Statement") (list (quote executive) (* 72 7.5) (* 72 10.0) "Executive") (list (quote a4small) (* 72 7.47) (* 72 10.85) "A4Small") (list (quote b4) (* 72 10.125) (* 72 14.33) "B4") (list (quote b5) (* 72 7.16) (* 72 10.125) "B5")) "\
@@@ -20285,7 -20606,7 +20590,7 @@@ If EXTENSION is any other symbol, it i
  ;;;***
  \f
  ;;;### (autoloads (jython-mode python-mode run-python) "python" "progmodes/python.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17239 32390))
++;;;;;;  (17238 21257))
  ;;; Generated autoloads from progmodes/python.el
  
  (add-to-list (quote interpreter-mode-alist) (quote ("jython" . jython-mode)))
@@@ -20349,7 -20670,7 +20654,7 @@@ Runs `jython-mode-hook' after `python-m
  ;;;***
  \f
  ;;;### (autoloads (quoted-printable-decode-region) "qp" "gnus/qp.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17148 25151))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/qp.el
  
  (autoload (quote quoted-printable-decode-region) "qp" "\
@@@ -20372,7 -20693,7 +20677,7 @@@ them into characters should be done sep
  ;;;;;;  quail-defrule quail-install-decode-map quail-install-map
  ;;;;;;  quail-define-rules quail-show-keyboard-layout quail-set-keyboard-layout
  ;;;;;;  quail-define-package quail-use-package quail-title) "quail"
- ;;;;;;  "international/quail.el" (17178 20480))
 -;;;;;;  "international/quail.el" (17239 32327))
++;;;;;;  "international/quail.el" (17226 24576))
  ;;; Generated autoloads from international/quail.el
  
  (autoload (quote quail-title) "quail" "\
@@@ -20603,8 -20924,8 +20908,8 @@@ of each directory
  \f
  ;;;### (autoloads (quickurl-list quickurl-list-mode quickurl-edit-urls
  ;;;;;;  quickurl-browse-url-ask quickurl-browse-url quickurl-add-url
- ;;;;;;  quickurl-ask quickurl) "quickurl" "net/quickurl.el" (17178
- ;;;;;;  22151))
 -;;;;;;  quickurl-ask quickurl) "quickurl" "net/quickurl.el" (17140
 -;;;;;;  20942))
++;;;;;;  quickurl-ask quickurl) "quickurl" "net/quickurl.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from net/quickurl.el
  
  (defconst quickurl-reread-hook-postfix "\n;; Local Variables:\n;; eval: (progn (require 'quickurl) (add-hook 'local-write-file-hooks (lambda () (quickurl-read) nil)))\n;; End:\n" "\
@@@ -20675,8 -20996,25 +20980,25 @@@ Display `quickurl-list' as a formatted 
  
  ;;;***
  \f
- ;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (17178
- ;;;;;;  22151))
 -;;;### (autoloads (rcirc) "rcirc" "net/rcirc.el" (17240 44365))
++;;;### (autoloads (rcirc) "rcirc" "net/rcirc.el" (17244 4913))
+ ;;; Generated autoloads from net/rcirc.el
+ (autoload (quote rcirc) "rcirc" "\
+ Connect to IRC.
+ If any of the the optional SERVER, PORT, NICK or CHANNELS are not
+ supplied, they are taken from the variables `rcirc-server',
+ `rcirc-port', `rcirc-nick', and `rcirc-startup-channels',
+ respectively.
+ \(fn &optional SERVER PORT NICK CHANNELS)" t nil)
+ (defalias (quote irc) (quote rcirc))
+ ;;;***
\f
 -;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (17239
 -;;;;;;  32359))
++;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (17226
++;;;;;;  24576))
  ;;; Generated autoloads from net/rcompile.el
  
  (autoload (quote remote-compile) "rcompile" "\
@@@ -20688,7 -21026,7 +21010,7 @@@ See \\[compile]
  ;;;***
  \f
  ;;;### (autoloads (re-builder) "re-builder" "emacs-lisp/re-builder.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17148 25097))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from emacs-lisp/re-builder.el
  
  (defalias (quote regexp-builder) (quote re-builder))
@@@ -20700,7 -21038,7 +21022,7 @@@ Construct a regexp interactively
  
  ;;;***
  \f
- ;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (17178 22153))
 -;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (17239 32234))
++;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (17238 21257))
  ;;; Generated autoloads from recentf.el
  
  (defvar recentf-mode nil "\
@@@ -20721,6 -21059,8 +21043,8 @@@ Returns non-nil if the new state is ena
  When recentf mode is enabled, it maintains a menu for visiting files
  that were operated on recently.
  
+ \\{recentf-mode-map}
  \(fn &optional ARG)" t nil)
  
  ;;;***
  ;;;### (autoloads (clear-rectangle string-insert-rectangle string-rectangle
  ;;;;;;  delete-whitespace-rectangle open-rectangle insert-rectangle
  ;;;;;;  yank-rectangle kill-rectangle extract-rectangle delete-extract-rectangle
- ;;;;;;  delete-rectangle move-to-column-force) "rect" "rect.el" (17178
- ;;;;;;  22153))
 -;;;;;;  delete-rectangle move-to-column-force) "rect" "rect.el" (17239
 -;;;;;;  32234))
++;;;;;;  delete-rectangle move-to-column-force) "rect" "rect.el" (17226
++;;;;;;  24577))
  ;;; Generated autoloads from rect.el
  
  (autoload (quote move-to-column-force) "rect" "\
@@@ -20851,8 -21191,8 +21175,8 @@@ rectangle which were empty
  
  ;;;***
  \f
- ;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (17178
- ;;;;;;  22154))
 -;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (17148
 -;;;;;;  25216))
++;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from textmodes/refill.el
  
  (autoload (quote refill-mode) "refill" "\
@@@ -20868,7 -21208,7 +21192,7 @@@ refilling if they would cause auto-fill
  ;;;***
  \f
  ;;;### (autoloads (reftex-reset-scanning-information reftex-mode
- ;;;;;;  turn-on-reftex) "reftex" "textmodes/reftex.el" (17178 22154))
 -;;;;;;  turn-on-reftex) "reftex" "textmodes/reftex.el" (17205 6264))
++;;;;;;  turn-on-reftex) "reftex" "textmodes/reftex.el" (17226 24578))
  ;;; Generated autoloads from textmodes/reftex.el
  
  (autoload (quote turn-on-reftex) "reftex" "\
@@@ -20918,7 -21258,7 +21242,7 @@@ This enforces rescanning the buffer on 
  ;;;***
  \f
  ;;;### (autoloads (reftex-citation) "reftex-cite" "textmodes/reftex-cite.el"
- ;;;;;;  (17178 22154))
 -;;;;;;  (17205 6249))
++;;;;;;  (17226 24577))
  ;;; Generated autoloads from textmodes/reftex-cite.el
  
  (autoload (quote reftex-citation) "reftex-cite" "\
@@@ -20948,7 -21288,7 +21272,7 @@@ While entering the regexp, completion o
  ;;;***
  \f
  ;;;### (autoloads (reftex-isearch-minor-mode) "reftex-global" "textmodes/reftex-global.el"
- ;;;;;;  (17178 22154))
 -;;;;;;  (17205 6250))
++;;;;;;  (17226 24577))
  ;;; Generated autoloads from textmodes/reftex-global.el
  
  (autoload (quote reftex-isearch-minor-mode) "reftex-global" "\
@@@ -20965,7 -21305,7 +21289,7 @@@ With no argument, this command toggle
  ;;;***
  \f
  ;;;### (autoloads (reftex-index-phrases-mode) "reftex-index" "textmodes/reftex-index.el"
- ;;;;;;  (17178 22154))
 -;;;;;;  (17239 32421))
++;;;;;;  (17226 24577))
  ;;; Generated autoloads from textmodes/reftex-index.el
  
  (autoload (quote reftex-index-phrases-mode) "reftex-index" "\
@@@ -20998,7 -21338,7 +21322,7 @@@ Here are all local bindings
  ;;;***
  \f
  ;;;### (autoloads (reftex-all-document-files) "reftex-parse" "textmodes/reftex-parse.el"
- ;;;;;;  (17178 22154))
 -;;;;;;  (17205 6254))
++;;;;;;  (17226 24578))
  ;;; Generated autoloads from textmodes/reftex-parse.el
  
  (autoload (quote reftex-all-document-files) "reftex-parse" "\
@@@ -21011,7 -21351,7 +21335,7 @@@ of master file
  ;;;***
  \f
  ;;;### (autoloads (regexp-opt-depth regexp-opt) "regexp-opt" "emacs-lisp/regexp-opt.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17148 25097))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from emacs-lisp/regexp-opt.el
  
  (autoload (quote regexp-opt) "regexp-opt" "\
@@@ -21038,7 -21378,7 +21362,7 @@@ This means the number of non-shy regex
  
  ;;;***
  \f
- ;;;### (autoloads (repeat) "repeat" "repeat.el" (17178 22153))
 -;;;### (autoloads (repeat) "repeat" "repeat.el" (17148 25034))
++;;;### (autoloads (repeat) "repeat" "repeat.el" (17187 59902))
  ;;; Generated autoloads from repeat.el
  
  (autoload (quote repeat) "repeat" "\
@@@ -21056,7 -21396,7 +21380,7 @@@ can be modified by the global variable 
  ;;;***
  \f
  ;;;### (autoloads (reporter-submit-bug-report) "reporter" "mail/reporter.el"
- ;;;;;;  (17178 22150))
 -;;;;;;  (17148 25157))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from mail/reporter.el
  
  (autoload (quote reporter-submit-bug-report) "reporter" "\
@@@ -21088,7 -21428,7 +21412,7 @@@ mail-sending package is used for editin
  ;;;***
  \f
  ;;;### (autoloads (reposition-window) "reposition" "reposition.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17148 25035))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from reposition.el
  
  (autoload (quote reposition-window) "reposition" "\
@@@ -21115,8 -21455,8 +21439,8 @@@ first comment line visible (if point i
  
  ;;;***
  \f
- ;;;### (autoloads (resume-suspend-hook) "resume" "resume.el" (17178
- ;;;;;;  22153))
 -;;;### (autoloads (resume-suspend-hook) "resume" "resume.el" (17148
 -;;;;;;  25035))
++;;;### (autoloads (resume-suspend-hook) "resume" "resume.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from resume.el
  
  (autoload (quote resume-suspend-hook) "resume" "\
@@@ -21127,7 -21467,7 +21451,7 @@@ Clear out the file used for transmittin
  ;;;***
  \f
  ;;;### (autoloads (global-reveal-mode reveal-mode) "reveal" "reveal.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17148 25035))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from reveal.el
  
  (autoload (quote reveal-mode) "reveal" "\
@@@ -21164,7 -21504,7 +21488,7 @@@ With zero or negative ARG turn mode off
  \f
  ;;;### (autoloads (file-name-shadow-mode file-name-shadow-tty-properties
  ;;;;;;  file-name-shadow-properties) "rfn-eshadow" "rfn-eshadow.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17148 25035))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from rfn-eshadow.el
  
  (defvar file-name-shadow-properties (quote (face file-name-shadow field shadow)) "\
@@@ -21209,7 -21549,7 +21533,7 @@@ Returns non-nil if the new state is ena
  ;;;***
  \f
  ;;;### (autoloads (make-ring ring-p) "ring" "emacs-lisp/ring.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17148 25098))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from emacs-lisp/ring.el
  
  (autoload (quote ring-p) "ring" "\
@@@ -21224,7 -21564,7 +21548,7 @@@ Make a ring that can contain SIZE eleme
  
  ;;;***
  \f
- ;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (17178 22151))
 -;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (17140 20942))
++;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (17187 59902))
  ;;; Generated autoloads from net/rlogin.el
   (add-hook 'same-window-regexps "^\\*rlogin-.*\\*\\(\\|<[0-9]+>\\)")
  
@@@ -21275,8 -21615,8 +21599,8 @@@ variable
  ;;;;;;  rmail-mail-new-frame rmail-primary-inbox-list rmail-delete-after-output
  ;;;;;;  rmail-highlight-face rmail-highlighted-headers rmail-retry-ignored-headers
  ;;;;;;  rmail-displayed-headers rmail-ignored-headers rmail-dont-reply-to-names
- ;;;;;;  rmail-movemail-variant-p) "rmail" "mail/rmail.el" (17178
- ;;;;;;  22151))
 -;;;;;;  rmail-movemail-variant-p) "rmail" "mail/rmail.el" (17239
 -;;;;;;  32332))
++;;;;;;  rmail-movemail-variant-p) "rmail" "mail/rmail.el" (17226
++;;;;;;  24576))
  ;;; Generated autoloads from mail/rmail.el
  
  (autoload (quote rmail-movemail-variant-p) "rmail" "\
@@@ -21534,7 -21874,7 +21858,7 @@@ Set PASSWORD to be used for retrieving 
  ;;;***
  \f
  ;;;### (autoloads (rmail-edit-current-message) "rmailedit" "mail/rmailedit.el"
- ;;;;;;  (17178 22151))
 -;;;;;;  (17148 25160))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from mail/rmailedit.el
  
  (autoload (quote rmail-edit-current-message) "rmailedit" "\
@@@ -21546,7 -21886,7 +21870,7 @@@ Edit the contents of this message
  \f
  ;;;### (autoloads (rmail-next-labeled-message rmail-previous-labeled-message
  ;;;;;;  rmail-read-label rmail-kill-label rmail-add-label) "rmailkwd"
- ;;;;;;  "mail/rmailkwd.el" (17178 22151))
 -;;;;;;  "mail/rmailkwd.el" (17185 27577))
++;;;;;;  "mail/rmailkwd.el" (17187 59902))
  ;;; Generated autoloads from mail/rmailkwd.el
  
  (autoload (quote rmail-add-label) "rmailkwd" "\
@@@ -21585,7 -21925,7 +21909,7 @@@ With prefix argument N moves forward N 
  ;;;***
  \f
  ;;;### (autoloads (set-rmail-inbox-list) "rmailmsc" "mail/rmailmsc.el"
- ;;;;;;  (17178 22151))
 -;;;;;;  (17185 27577))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from mail/rmailmsc.el
  
  (autoload (quote set-rmail-inbox-list) "rmailmsc" "\
@@@ -21599,7 -21939,7 +21923,7 @@@ If FILE-NAME is empty, remove any exist
  \f
  ;;;### (autoloads (rmail-output-body-to-file rmail-output rmail-fields-not-to-output
  ;;;;;;  rmail-output-to-rmail-file rmail-output-file-alist) "rmailout"
- ;;;;;;  "mail/rmailout.el" (17178 22151))
 -;;;;;;  "mail/rmailout.el" (17239 32332))
++;;;;;;  "mail/rmailout.el" (17226 24576))
  ;;; Generated autoloads from mail/rmailout.el
  
  (defvar rmail-output-file-alist nil "\
@@@ -21666,8 -22006,8 +21990,8 @@@ FILE-NAME defaults, interactively, fro
  \f
  ;;;### (autoloads (rmail-sort-by-labels rmail-sort-by-lines rmail-sort-by-correspondent
  ;;;;;;  rmail-sort-by-recipient rmail-sort-by-author rmail-sort-by-subject
- ;;;;;;  rmail-sort-by-date) "rmailsort" "mail/rmailsort.el" (17178
- ;;;;;;  22151))
 -;;;;;;  rmail-sort-by-date) "rmailsort" "mail/rmailsort.el" (17148
 -;;;;;;  25160))
++;;;;;;  rmail-sort-by-date) "rmailsort" "mail/rmailsort.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from mail/rmailsort.el
  
  (autoload (quote rmail-sort-by-date) "rmailsort" "\
@@@ -21719,7 -22059,7 +22043,7 @@@ KEYWORDS is a comma-separated list of l
  ;;;;;;  rmail-summary-by-senders rmail-summary-by-topic rmail-summary-by-regexp
  ;;;;;;  rmail-summary-by-recipients rmail-summary-by-labels rmail-summary
  ;;;;;;  rmail-summary-line-count-flag rmail-summary-scroll-between-messages)
- ;;;;;;  "rmailsum" "mail/rmailsum.el" (17178 22151))
 -;;;;;;  "rmailsum" "mail/rmailsum.el" (17239 32333))
++;;;;;;  "rmailsum" "mail/rmailsum.el" (17226 24576))
  ;;; Generated autoloads from mail/rmailsum.el
  
  (defvar rmail-summary-scroll-between-messages t "\
@@@ -21801,7 -22141,7 +22125,7 @@@ Setting this variable has an effect onl
  ;;;***
  \f
  ;;;### (autoloads (news-post-news) "rnewspost" "obsolete/rnewspost.el"
- ;;;;;;  (17178 22152))
 -;;;;;;  (17185 27602))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from obsolete/rnewspost.el
  
  (autoload (quote news-post-news) "rnewspost" "\
@@@ -21814,7 -22154,7 +22138,7 @@@ If NOQUERY is non-nil, we do not query 
  ;;;***
  \f
  ;;;### (autoloads (toggle-rot13-mode rot13-other-window rot13-region
- ;;;;;;  rot13-string rot13) "rot13" "rot13.el" (17178 22153))
 -;;;;;;  rot13-string rot13) "rot13" "rot13.el" (17148 25035))
++;;;;;;  rot13-string rot13) "rot13" "rot13.el" (17187 59902))
  ;;; Generated autoloads from rot13.el
  
  (autoload (quote rot13) "rot13" "\
@@@ -21855,7 -22195,7 +22179,7 @@@ Toggle the use of rot 13 encoding for t
  ;;;;;;  resize-minibuffer-frame-max-height resize-minibuffer-frame
  ;;;;;;  resize-minibuffer-window-exactly resize-minibuffer-window-max-height
  ;;;;;;  resize-minibuffer-mode) "rsz-mini" "obsolete/rsz-mini.el"
- ;;;;;;  (17178 22152))
 -;;;;;;  (17148 25181))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from obsolete/rsz-mini.el
  
  (defvar resize-minibuffer-mode nil "\
@@@ -21895,8 -22235,8 +22219,8 @@@ This function is obsolete
  
  ;;;***
  \f
- ;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (17178
- ;;;;;;  22153))
 -;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (17159
 -;;;;;;  1467))
++;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from ruler-mode.el
  
  (autoload (quote ruler-mode) "ruler-mode" "\
@@@ -21906,8 -22246,8 +22230,8 @@@ Display a ruler in the header line if A
  
  ;;;***
  \f
- ;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (17178
- ;;;;;;  22144))
 -;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (17148
 -;;;;;;  25098))
++;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from emacs-lisp/rx.el
  
  (autoload (quote rx-to-string) "rx" "\
@@@ -22214,8 -22554,34 +22538,34 @@@ enclosed in `(and ...)'
  
  ;;;***
  \f
 -;;;;;;  (17243 16670))
+ ;;;### (autoloads (savehist-save savehist-load) "savehist" "savehist.el"
++;;;;;;  (17254 63791))
+ ;;; Generated autoloads from savehist.el
+ (autoload (quote savehist-load) "savehist" "\
+ Load the minibuffer histories from `savehist-file'.
+ Unless NO-HOOK is specified, the function will also add the save function
+ to `kill-emacs-hook' and on a timer, ensuring that the minibuffer contents
+ will be saved before leaving Emacs.
+ This function should be normally used from your Emacs init file.  Since it
+ removes your current minibuffer histories, it is unwise to call it at any
+ other time.
+ \(fn &optional NO-HOOK)" t nil)
+ (autoload (quote savehist-save) "savehist" "\
+ Save the histories from `savehist-history-variables' to `savehist-file'.
+ Unbound symbols referenced in `savehist-history-variables' are ignored.
+ If AUTO-SAVE is non-nil, compare the saved contents to the one last saved,
+  and don't save the buffer if they are the same.
+ \(fn &optional AUTO-SAVE)" t nil)
+ ;;;***
\f
  ;;;### (autoloads (dsssl-mode scheme-mode) "scheme" "progmodes/scheme.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17239 32390))
++;;;;;;  (17226 24577))
  ;;; Generated autoloads from progmodes/scheme.el
  
  (autoload (quote scheme-mode) "scheme" "\
@@@ -22257,7 -22623,7 +22607,7 @@@ that variable's value is a string
  ;;;***
  \f
  ;;;### (autoloads (gnus-score-mode) "score-mode" "gnus/score-mode.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17148 25151))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/score-mode.el
  
  (autoload (quote gnus-score-mode) "score-mode" "\
@@@ -22270,8 -22636,8 +22620,8 @@@ This mode is an extended emacs-lisp mod
  
  ;;;***
  \f
- ;;;### (autoloads (scribe-mode) "scribe" "obsolete/scribe.el" (17178
- ;;;;;;  22152))
 -;;;### (autoloads (scribe-mode) "scribe" "obsolete/scribe.el" (17185
 -;;;;;;  27603))
++;;;### (autoloads (scribe-mode) "scribe" "obsolete/scribe.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from obsolete/scribe.el
  
  (autoload (quote scribe-mode) "scribe" "\
@@@ -22296,7 -22662,7 +22646,7 @@@ Interesting variables
  ;;;***
  \f
  ;;;### (autoloads (scroll-all-mode) "scroll-all" "scroll-all.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17148 25035))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from scroll-all.el
  
  (defvar scroll-all-mode nil "\
@@@ -22320,7 -22686,7 +22670,7 @@@ apply to all visible windows in the sam
  ;;;***
  \f
  ;;;### (autoloads (scroll-lock-mode) "scroll-lock" "scroll-lock.el"
- ;;;;;;  (17178 22134))
 -;;;;;;  (17167 2786))
++;;;;;;  (17187 59900))
  ;;; Generated autoloads from scroll-lock.el
  
  (autoload (quote scroll-lock-mode) "scroll-lock" "\
@@@ -22335,12 -22701,14 +22685,14 @@@ during scrolling
  ;;;***
  \f
  ;;;### (autoloads (mail-other-frame mail-other-window mail mail-mailing-lists
- ;;;;;;  mail-mode mail-default-directory mail-signature mail-citation-hook
- ;;;;;;  mail-personal-alias-file mail-alias-file mail-default-reply-to
- ;;;;;;  mail-archive-file-name mail-header-separator send-mail-function
- ;;;;;;  mail-yank-ignored-headers mail-interactive mail-self-blind
- ;;;;;;  mail-specify-envelope-from mail-from-style) "sendmail" "mail/sendmail.el"
- ;;;;;;  (17178 22151))
+ ;;;;;;  mail-mode mail-send-nonascii mail-bury-selects-summary mail-default-headers
+ ;;;;;;  mail-default-directory mail-signature-file mail-signature
+ ;;;;;;  mail-citation-prefix-regexp mail-citation-hook mail-indentation-spaces
+ ;;;;;;  mail-yank-prefix mail-setup-hook mail-personal-alias-file
+ ;;;;;;  mail-alias-file mail-default-reply-to mail-archive-file-name
+ ;;;;;;  mail-header-separator send-mail-function mail-yank-ignored-headers
+ ;;;;;;  mail-interactive mail-self-blind mail-specify-envelope-from
 -;;;;;;  mail-from-style) "sendmail" "mail/sendmail.el" (17239 43641))
++;;;;;;  mail-from-style) "sendmail" "mail/sendmail.el" (17244 4913))
  ;;; Generated autoloads from mail/sendmail.el
  
  (defvar mail-from-style (quote angles) "\
@@@ -22392,7 -22760,7 +22744,7 @@@ nil means let mailer mail back a messag
  
  (custom-autoload (quote mail-yank-ignored-headers) "sendmail")
  
- (defvar send-mail-function (quote sendmail-send-it) "\
+ (defvar send-mail-function (if (and window-system (memq system-type (quote (darwin windows-nt)))) (quote mailclient-send-it) (quote sendmail-send-it)) "\
  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,
@@@ -22436,6 -22804,32 +22788,32 @@@ This file need not actually exist."
  
  (custom-autoload (quote mail-personal-alias-file) "sendmail")
  
+ (defvar mail-setup-hook nil "\
+ Normal hook, run each time a new outgoing mail message is initialized.
+ The function `mail-setup' runs this hook.")
+ (custom-autoload (quote mail-setup-hook) "sendmail")
+ (defvar mail-aliases t "\
+ Alist of mail address aliases,
+ or t meaning should be initialized from your mail aliases file.
+ \(The file's name is normally `~/.mailrc', but `mail-personal-alias-file'
+ can specify a different file name.)
+ The alias definitions in the file have this form:
+     alias ALIAS MEANING")
+ (defvar mail-yank-prefix nil "\
+ *Prefix insert on lines of yanked message being replied to.
+ nil means use indentation.")
+ (custom-autoload (quote mail-yank-prefix) "sendmail")
+ (defvar mail-indentation-spaces 3 "\
+ *Number of spaces to insert at the beginning of each cited line.
+ Used by `mail-yank-original' via `mail-indent-citation'.")
+ (custom-autoload (quote mail-indentation-spaces) "sendmail")
  (defvar mail-citation-hook nil "\
  *Hook for modifying a citation just inserted in the mail buffer.
  Each hook function can find the citation between (point) and (mark t),
@@@ -22449,6 -22843,14 +22827,14 @@@ instead of no action."
  
  (custom-autoload (quote mail-citation-hook) "sendmail")
  
+ (defvar mail-citation-prefix-regexp "[        ]*[-a-z0-9A-Z]*>+[      ]*\\|[  ]*" "\
+ *Regular expression to match a citation prefix plus whitespace.
+ It should match whatever sort of citation prefixes you want to handle,
+ with whitespace before and after; it should also match just whitespace.
+ The default value matches citations like `foo-bar>' plus whitespace.")
+ (custom-autoload (quote mail-citation-prefix-regexp) "sendmail")
  (defvar mail-signature nil "\
  *Text inserted at end of mail buffer when a message is initialized.
  If t, it means to insert the contents of the file `mail-signature-file'.
@@@ -22460,6 -22862,11 +22846,11 @@@ and should insert whatever you want to 
  
  (custom-autoload (quote mail-signature) "sendmail")
  
+ (defvar mail-signature-file "~/.signature" "\
+ *File containing the text inserted at end of mail buffer.")
+ (custom-autoload (quote mail-signature-file) "sendmail")
  (defvar mail-default-directory "~/" "\
  *Directory for mail buffers.
  Value of `default-directory' for mail buffers.
@@@ -22467,6 -22874,32 +22858,32 @@@ This directory is used for auto-save fi
  
  (custom-autoload (quote mail-default-directory) "sendmail")
  
+ (defvar mail-default-headers nil "\
+ *A string containing header lines, to be inserted in outgoing messages.
+ It is inserted before you edit the message,
+ so you can edit or delete these lines.")
+ (custom-autoload (quote mail-default-headers) "sendmail")
+ (defvar mail-bury-selects-summary t "\
+ *If non-nil, try to show RMAIL summary buffer after returning from mail.
+ The functions \\[mail-send-on-exit] or \\[mail-dont-send] select
+ the RMAIL summary buffer before returning, if it exists and this variable
+ is non-nil.")
+ (custom-autoload (quote mail-bury-selects-summary) "sendmail")
+ (defvar mail-send-nonascii (quote mime) "\
+ *Specify whether to allow sending non-ASCII characters in mail.
+ If t, that means do allow it.  nil means don't allow it.
+ `query' means ask the user each time.
+ `mime' means add an appropriate MIME header if none already present.
+ The default is `mime'.
+ Including non-ASCII characters in a mail message can be problematical
+ for the recipient, who may not know how to decode them properly.")
+ (custom-autoload (quote mail-send-nonascii) "sendmail")
  (autoload (quote mail-mode) "sendmail" "\
  Major mode for editing mail to be sent.
  Like Text Mode but with these additional commands:
@@@ -22506,9 -22939,9 +22923,9 @@@ See also the function `select-message-c
  Default coding system for encoding the outgoing mail.
  This variable is used only when `sendmail-coding-system' is nil.
  
- This variable is set/changed by the command set-language-environment.
+ This variable is set/changed by the command `set-language-environment'.
  User should not set this variable manually,
- instead use sendmail-coding-system to get a constant encoding
+ instead use `sendmail-coding-system' to get a constant encoding
  of outgoing mails regardless of the current language environment.
  See also the function `select-message-coding-system'.")
   (add-hook 'same-window-buffer-names "*mail*")
@@@ -22540,8 -22973,13 +22957,13 @@@ is inserted
  The normal hook `mail-setup-hook' is run after the message is
  initialized.  It can add more default fields to the message.
  
- When calling from a program, the first argument if non-nil says
- not to erase the existing contents of the `*mail*' buffer.
+ The first argument, NOERASE, determines what to do when there is
+ an existing modified `*mail*' buffer.  If NOERASE is nil, the
+ existing mail buffer is used, and the user is prompted whether to
+ keep the old contents or to erase them.  If NOERASE has the value
+ `new', a new mail buffer will be created instead of using the old
+ one.  Any other non-nil value means to always select the old
+ buffer without erasing the contents.
  
  The second through fifth arguments,
   TO, SUBJECT, IN-REPLY-TO and CC, specify if non-nil
@@@ -22570,32 -23008,18 +22992,32 @@@ Like `mail' command, but display mail b
  
  ;;;***
  \f
 -;;;### (autoloads (server-mode server-start) "server" "server.el"
 -;;;;;;  (17205 6028))
 +;;;### (autoloads (server-mode server-start server-getenv) "server"
- ;;;;;;  "server.el" (17178 22153))
++;;;;;;  "server.el" (17254 64443))
  ;;; Generated autoloads from server.el
  
 +(autoload (quote server-getenv) "server" "\
 +Get the value of VARIABLE in the client environment of frame FRAME.
 +VARIABLE should be a string.  Value is nil if VARIABLE is undefined in
 +the environment.  Otherwise, value is a string.
 +
 +If FRAME is an emacsclient frame, then the variable is looked up
 +in the environment of the emacsclient process; otherwise the
 +function consults the environment of the Emacs process.
 +
 +If FRAME is nil or missing, then the selected frame is used.
 +
 +\(fn VARIABLE &optional FRAME)" nil nil)
 +
  (autoload (quote server-start) "server" "\
  Allow this Emacs process to be a server for client processes.
  This starts a server communications subprocess through which
 -client \"editors\" can send your editing commands to this Emacs job.
 -To use the server, set up the program `emacsclient' in the
 +client \"editors\" can send your editing commands to this Emacs
 +job.  To use the server, set up the program `emacsclient' in the
  Emacs distribution as your standard \"editor\".
  
 -Prefix arg means just kill any existing server communications subprocess.
 +Prefix arg LEAVE-DEAD means just kill any existing server
 +communications subprocess.
  
  \(fn &optional LEAVE-DEAD)" t nil)
  
@@@ -22619,7 -23043,7 +23041,7 @@@ Server mode runs a process that accept
  
  ;;;***
  \f
- ;;;### (autoloads (ses-mode) "ses" "ses.el" (17178 22153))
 -;;;### (autoloads (ses-mode) "ses" "ses.el" (17239 32237))
++;;;### (autoloads (ses-mode) "ses" "ses.el" (17226 24577))
  ;;; Generated autoloads from ses.el
  
  (autoload (quote ses-mode) "ses" "\
@@@ -22638,7 -23062,7 +23060,7 @@@ These are active only in the minibuffer
  ;;;***
  \f
  ;;;### (autoloads (html-mode sgml-mode) "sgml-mode" "textmodes/sgml-mode.el"
- ;;;;;;  (17178 22154))
 -;;;;;;  (17185 27753))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from textmodes/sgml-mode.el
  
  (autoload (quote sgml-mode) "sgml-mode" "\
@@@ -22706,7 -23130,7 +23128,7 @@@ To work around that, do
  ;;;***
  \f
  ;;;### (autoloads (sh-mode) "sh-script" "progmodes/sh-script.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17242 7322))
++;;;;;;  (17244 4914))
  ;;; Generated autoloads from progmodes/sh-script.el
  
  (autoload (quote sh-mode) "sh-script" "\
@@@ -22769,7 -23193,7 +23191,7 @@@ with your script for an edit-interpret-
  
  ;;;***
  \f
- ;;;### (autoloads (sha1) "sha1" "gnus/sha1.el" (17178 22146))
 -;;;### (autoloads (sha1) "sha1" "gnus/sha1.el" (17148 25151))
++;;;### (autoloads (sha1) "sha1" "gnus/sha1.el" (17187 59901))
  ;;; Generated autoloads from gnus/sha1.el
  
  (autoload (quote sha1) "sha1" "\
@@@ -22784,7 -23208,7 +23206,7 @@@ If BINARY is non-nil, return a string i
  ;;;***
  \f
  ;;;### (autoloads (list-load-path-shadows) "shadow" "emacs-lisp/shadow.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17148 25098))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from emacs-lisp/shadow.el
  
  (autoload (quote list-load-path-shadows) "shadow" "\
@@@ -22831,8 -23255,8 +23253,8 @@@ buffer called `*Shadows*'.  Shadowings 
  ;;;***
  \f
  ;;;### (autoloads (shadow-initialize shadow-define-regexp-group shadow-define-literal-group
- ;;;;;;  shadow-define-cluster) "shadowfile" "shadowfile.el" (17178
- ;;;;;;  22153))
 -;;;;;;  shadow-define-cluster) "shadowfile" "shadowfile.el" (17239
 -;;;;;;  32238))
++;;;;;;  shadow-define-cluster) "shadowfile" "shadowfile.el" (17226
++;;;;;;  24577))
  ;;; Generated autoloads from shadowfile.el
  
  (autoload (quote shadow-define-cluster) "shadowfile" "\
@@@ -22871,7 -23295,7 +23293,7 @@@ Set up file shadowing
  ;;;***
  \f
  ;;;### (autoloads (shell shell-dumb-shell-regexp) "shell" "shell.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17196 30352))
++;;;;;;  (17226 24577))
  ;;; Generated autoloads from shell.el
  
  (defvar shell-dumb-shell-regexp "cmd\\(proxy\\)?\\.exe" "\
@@@ -22918,7 -23342,7 +23340,7 @@@ Otherwise, one argument `-i' is passed 
  ;;;***
  \f
  ;;;### (autoloads (sieve-upload-and-bury sieve-upload sieve-manage)
- ;;;;;;  "sieve" "gnus/sieve.el" (17178 22146))
 -;;;;;;  "sieve" "gnus/sieve.el" (17205 6100))
++;;;;;;  "sieve" "gnus/sieve.el" (17226 24575))
  ;;; Generated autoloads from gnus/sieve.el
  
  (autoload (quote sieve-manage) "sieve" "\
@@@ -22939,7 -23363,7 +23361,7 @@@ Not documente
  ;;;***
  \f
  ;;;### (autoloads (sieve-mode) "sieve-mode" "gnus/sieve-mode.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17148 25152))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/sieve-mode.el
  
  (autoload (quote sieve-mode) "sieve-mode" "\
@@@ -22954,8 -23378,8 +23376,8 @@@ Turning on Sieve mode runs `sieve-mode-
  
  ;;;***
  \f
- ;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (17178
- ;;;;;;  22153))
 -;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (17140
 -;;;;;;  20980))
++;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from progmodes/simula.el
  
  (autoload (quote simula-mode) "simula" "\
@@@ -23004,7 -23428,7 +23426,7 @@@ with no arguments, if that value is non
  ;;;***
  \f
  ;;;### (autoloads (skeleton-pair-insert-maybe skeleton-insert skeleton-proxy-new
- ;;;;;;  define-skeleton) "skeleton" "skeleton.el" (17178 22153))
 -;;;;;;  define-skeleton) "skeleton" "skeleton.el" (17148 25043))
++;;;;;;  define-skeleton) "skeleton" "skeleton.el" (17187 59902))
  ;;; Generated autoloads from skeleton.el
  
  (defvar skeleton-filter (quote identity) "\
@@@ -23114,7 -23538,7 +23536,7 @@@ symmetrical ones, and the same characte
  ;;;***
  \f
  ;;;### (autoloads (smerge-mode smerge-ediff) "smerge-mode" "smerge-mode.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17205 6040))
++;;;;;;  (17226 24577))
  ;;; Generated autoloads from smerge-mode.el
  
  (autoload (quote smerge-ediff) "smerge-mode" "\
@@@ -23133,7 -23557,7 +23555,7 @@@ Minor mode to simplify editing output f
  ;;;***
  \f
  ;;;### (autoloads (smiley-buffer smiley-region) "smiley" "gnus/smiley.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17148 25152))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/smiley.el
  
  (autoload (quote smiley-region) "smiley" "\
@@@ -23151,7 -23575,7 +23573,7 @@@ interactively. If there's no argument, 
  ;;;***
  \f
  ;;;### (autoloads (smtpmail-send-queued-mail smtpmail-send-it) "smtpmail"
- ;;;;;;  "mail/smtpmail.el" (17178 22151))
 -;;;;;;  "mail/smtpmail.el" (17120 44799))
++;;;;;;  "mail/smtpmail.el" (17187 59902))
  ;;; Generated autoloads from mail/smtpmail.el
  
  (autoload (quote smtpmail-send-it) "smtpmail" "\
@@@ -23166,7 -23590,7 +23588,7 @@@ Send mail that was queued as a result o
  
  ;;;***
  \f
- ;;;### (autoloads (snake) "snake" "play/snake.el" (17178 22152))
 -;;;### (autoloads (snake) "snake" "play/snake.el" (17140 20949))
++;;;### (autoloads (snake) "snake" "play/snake.el" (17187 59902))
  ;;; Generated autoloads from play/snake.el
  
  (autoload (quote snake) "snake" "\
@@@ -23190,7 -23614,7 +23612,7 @@@ Snake mode keybindings
  ;;;***
  \f
  ;;;### (autoloads (snmpv2-mode snmp-mode) "snmp-mode" "net/snmp-mode.el"
- ;;;;;;  (17178 22151))
 -;;;;;;  (17140 20942))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from net/snmp-mode.el
  
  (autoload (quote snmp-mode) "snmp-mode" "\
@@@ -23221,7 -23645,7 +23643,7 @@@ then `snmpv2-mode-hook'
  \f
  ;;;### (autoloads (solar-equinoxes-solstices sunrise-sunset calendar-location-name
  ;;;;;;  calendar-longitude calendar-latitude calendar-time-display-form)
- ;;;;;;  "solar" "calendar/solar.el" (17178 22143))
 -;;;;;;  "solar" "calendar/solar.el" (17239 32270))
++;;;;;;  "solar" "calendar/solar.el" (17229 28052))
  ;;; Generated autoloads from calendar/solar.el
  
  (defvar calendar-time-display-form (quote (12-hours ":" minutes am-pm (if time-zone " (") time-zone (if time-zone ")"))) "\
@@@ -23292,8 -23716,8 +23714,8 @@@ Requires floating point
  
  ;;;***
  \f
- ;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (17178
- ;;;;;;  22152))
 -;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (17140
 -;;;;;;  20949))
++;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from play/solitaire.el
  
  (autoload (quote solitaire) "solitaire" "\
@@@ -23370,7 -23794,7 +23792,7 @@@ Pick your favourite shortcuts
  \f
  ;;;### (autoloads (reverse-region sort-columns sort-regexp-fields
  ;;;;;;  sort-fields sort-numeric-fields sort-pages sort-paragraphs
- ;;;;;;  sort-lines sort-subr) "sort" "sort.el" (17178 22153))
 -;;;;;;  sort-lines sort-subr) "sort" "sort.el" (17148 25043))
++;;;;;;  sort-lines sort-subr) "sort" "sort.el" (17187 59902))
  ;;; Generated autoloads from sort.el
  
  (autoload (quote sort-subr) "sort" "\
@@@ -23512,8 -23936,8 +23934,8 @@@ From a program takes two point or marke
  
  ;;;***
  \f
- ;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (17178
- ;;;;;;  22146))
 -;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (17148
 -;;;;;;  25153))
++;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from gnus/spam.el
  
  (autoload (quote spam-initialize) "spam" "\
@@@ -23525,7 -23949,7 +23947,7 @@@ Install the spam.el hooks and do other 
  \f
  ;;;### (autoloads (spam-report-deagentize spam-report-agentize spam-report-url-to-file
  ;;;;;;  spam-report-url-ping-mm-url spam-report-process-queue) "spam-report"
- ;;;;;;  "gnus/spam-report.el" (17178 22146))
 -;;;;;;  "gnus/spam-report.el" (17239 32320))
++;;;;;;  "gnus/spam-report.el" (17226 24576))
  ;;; Generated autoloads from gnus/spam-report.el
  
  (autoload (quote spam-report-process-queue) "spam-report" "\
@@@ -23568,7 -23992,7 +23990,7 @@@ Spam reports will be queued with the me
  ;;;***
  \f
  ;;;### (autoloads (speedbar-get-focus speedbar-frame-mode) "speedbar"
- ;;;;;;  "speedbar.el" (17178 22153))
 -;;;;;;  "speedbar.el" (17239 32244))
++;;;;;;  "speedbar.el" (17238 21257))
  ;;; Generated autoloads from speedbar.el
  
  (defalias (quote speedbar) (quote speedbar-frame-mode))
@@@ -23593,7 -24017,7 +24015,7 @@@ selected.  If the speedbar frame is act
  ;;;***
  \f
  ;;;### (autoloads (spell-string spell-region spell-word spell-buffer)
- ;;;;;;  "spell" "textmodes/spell.el" (17178 22154))
 -;;;;;;  "spell" "textmodes/spell.el" (17148 25223))
++;;;;;;  "spell" "textmodes/spell.el" (17187 59902))
  ;;; Generated autoloads from textmodes/spell.el
  
  (put (quote spell-filter) (quote risky-local-variable) t)
@@@ -23629,8 -24053,8 +24051,8 @@@ Check spelling of string supplied as ar
  
  ;;;***
  \f
- ;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (17178
- ;;;;;;  22152))
 -;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (17140
 -;;;;;;  20949))
++;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from play/spook.el
  
  (autoload (quote spook) "spook" "\
@@@ -23648,8 -24072,8 +24070,8 @@@ Return a vector containing the lines fr
  ;;;### (autoloads (sql-linter sql-db2 sql-interbase sql-postgres
  ;;;;;;  sql-ms sql-ingres sql-solid sql-mysql sql-sqlite sql-informix
  ;;;;;;  sql-sybase sql-oracle sql-product-interactive sql-mode sql-help
- ;;;;;;  sql-add-product-keywords) "sql" "progmodes/sql.el" (17178
- ;;;;;;  22153))
 -;;;;;;  sql-add-product-keywords) "sql" "progmodes/sql.el" (17185
 -;;;;;;  27674))
++;;;;;;  sql-add-product-keywords) "sql" "progmodes/sql.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from progmodes/sql.el
  
  (autoload (quote sql-add-product-keywords) "sql" "\
@@@ -24080,8 -24504,8 +24502,8 @@@ input.  See `sql-interactive-mode'
  ;;;;;;  strokes-mode strokes-list-strokes strokes-load-user-strokes
  ;;;;;;  strokes-help strokes-describe-stroke strokes-do-complex-stroke
  ;;;;;;  strokes-do-stroke strokes-read-complex-stroke strokes-read-stroke
- ;;;;;;  strokes-global-set-stroke) "strokes" "strokes.el" (17178
- ;;;;;;  22153))
 -;;;;;;  strokes-global-set-stroke) "strokes" "strokes.el" (17205
 -;;;;;;  6045))
++;;;;;;  strokes-global-set-stroke) "strokes" "strokes.el" (17226
++;;;;;;  24577))
  ;;; Generated autoloads from strokes.el
  
  (autoload (quote strokes-global-set-stroke) "strokes" "\
@@@ -24192,7 -24616,7 +24614,7 @@@ Read a complex stroke and insert its gl
  ;;;***
  \f
  ;;;### (autoloads (studlify-buffer studlify-word studlify-region)
- ;;;;;;  "studly" "play/studly.el" (17178 20480))
 -;;;;;;  "studly" "play/studly.el" (17075 55479))
++;;;;;;  "studly" "play/studly.el" (17187 59879))
  ;;; Generated autoloads from play/studly.el
  
  (autoload (quote studlify-region) "studly" "\
@@@ -24213,7 -24637,7 +24635,7 @@@ Studlify-case the current buffer
  ;;;***
  \f
  ;;;### (autoloads (sc-cite-original) "supercite" "mail/supercite.el"
- ;;;;;;  (17178 22151))
 -;;;;;;  (17239 32335))
++;;;;;;  (17229 28053))
  ;;; Generated autoloads from mail/supercite.el
  
  (autoload (quote sc-cite-original) "supercite" "\
@@@ -24245,8 -24669,8 +24667,8 @@@ before, and `sc-post-hook' is run afte
  
  ;;;***
  \f
- ;;;### (autoloads (syntax-ppss) "syntax" "emacs-lisp/syntax.el" (17178
- ;;;;;;  22144))
 -;;;### (autoloads (syntax-ppss) "syntax" "emacs-lisp/syntax.el" (17242
 -;;;;;;  7313))
++;;;### (autoloads (syntax-ppss) "syntax" "emacs-lisp/syntax.el" (17244
++;;;;;;  4913))
  ;;; Generated autoloads from emacs-lisp/syntax.el
  
  (autoload (quote syntax-ppss) "syntax" "\
@@@ -24259,7 -24683,7 +24681,7 @@@ Point is at POS when this function retu
  
  ;;;***
  \f
- ;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (17178 22153))
 -;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (17148 25050))
++;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (17187 59902))
  ;;; Generated autoloads from tabify.el
  
  (autoload (quote untabify) "tabify" "\
@@@ -24294,7 -24718,7 +24716,7 @@@ The variable `tab-width' controls the s
  ;;;;;;  table-recognize table-insert-row-column table-insert-column
  ;;;;;;  table-insert-row table-insert table-point-left-cell-hook
  ;;;;;;  table-point-entered-cell-hook table-load-hook table-cell-map-hook)
- ;;;;;;  "table" "textmodes/table.el" (17178 22154))
 -;;;;;;  "table" "textmodes/table.el" (17159 1496))
++;;;;;;  "table" "textmodes/table.el" (17187 59902))
  ;;; Generated autoloads from textmodes/table.el
  
  (defvar table-cell-map-hook nil "\
@@@ -24882,7 -25306,7 +25304,7 @@@ converts a table into plain text withou
  
  ;;;***
  \f
- ;;;### (autoloads (talk talk-connect) "talk" "talk.el" (17178 22153))
 -;;;### (autoloads (talk-connect) "talk" "talk.el" (17148 25050))
++;;;### (autoloads (talk talk-connect) "talk" "talk.el" (17187 59902))
  ;;; Generated autoloads from talk.el
  
  (autoload (quote talk-connect) "talk" "\
@@@ -24890,14 -25314,9 +25312,14 @@@ Connect to display DISPLAY for the Emac
  
  \(fn DISPLAY)" t nil)
  
 +(autoload (quote talk) "talk" "\
 +Connect to the Emacs talk group from the current X display or tty frame.
 +
 +\(fn)" t nil)
 +
  ;;;***
  \f
- ;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (17178 22153))
 -;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (17242 7312))
++;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (17244 4914))
  ;;; Generated autoloads from tar-mode.el
  
  (autoload (quote tar-mode) "tar-mode" "\
@@@ -24921,7 -25340,7 +25343,7 @@@ See also: variables `tar-update-datesta
  ;;;***
  \f
  ;;;### (autoloads (tcl-help-on-word inferior-tcl tcl-mode) "tcl"
- ;;;;;;  "progmodes/tcl.el" (17178 20481))
 -;;;;;;  "progmodes/tcl.el" (17102 19053))
++;;;;;;  "progmodes/tcl.el" (17187 59880))
  ;;; Generated autoloads from progmodes/tcl.el
  
  (autoload (quote tcl-mode) "tcl" "\
@@@ -24972,7 -25391,7 +25394,7 @@@ Prefix argument means invert sense of `
  
  ;;;***
  \f
- ;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (17178 22151))
 -;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (17140 20942))
++;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (17187 59902))
  ;;; Generated autoloads from net/telnet.el
   (add-hook 'same-window-regexps "\\*telnet-.*\\*\\(\\|<[0-9]+>\\)")
  
@@@ -24999,8 -25418,8 +25421,8 @@@ Normally input is edited in Emacs and s
  
  ;;;***
  \f
- ;;;### (autoloads (ansi-term term make-term) "term" "term.el" (17178
- ;;;;;;  22153))
 -;;;### (autoloads (ansi-term term make-term) "term" "term.el" (17239
 -;;;;;;  46821))
++;;;### (autoloads (ansi-term term make-term) "term" "term.el" (17244
++;;;;;;  4914))
  ;;; Generated autoloads from term.el
  
  (autoload (quote make-term) "term" "\
@@@ -25028,8 -25447,8 +25450,8 @@@ Start a terminal-emulator in a new buff
  
  ;;;***
  \f
- ;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (17178
- ;;;;;;  22154))
 -;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (17239
 -;;;;;;  32246))
++;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (17226
++;;;;;;  24577))
  ;;; Generated autoloads from terminal.el
  
  (autoload (quote terminal-emulator) "terminal" "\
@@@ -25066,7 -25485,7 +25488,7 @@@ subprocess started
  ;;;***
  \f
  ;;;### (autoloads (testcover-this-defun) "testcover" "emacs-lisp/testcover.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17159 1472))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from emacs-lisp/testcover.el
  
  (autoload (quote testcover-this-defun) "testcover" "\
@@@ -25076,7 -25495,7 +25498,7 @@@ Start coverage on function under point
  
  ;;;***
  \f
- ;;;### (autoloads (tetris) "tetris" "play/tetris.el" (17178 22152))
 -;;;### (autoloads (tetris) "tetris" "play/tetris.el" (17140 20949))
++;;;### (autoloads (tetris) "tetris" "play/tetris.el" (17187 59902))
  ;;; Generated autoloads from play/tetris.el
  
  (autoload (quote tetris) "tetris" "\
@@@ -25107,7 -25526,7 +25529,7 @@@ tetris-mode keybindings
  ;;;;;;  tex-start-commands tex-start-options slitex-run-command latex-run-command
  ;;;;;;  tex-run-command tex-offer-save tex-main-file tex-first-line-header-regexp
  ;;;;;;  tex-directory tex-shell-file-name) "tex-mode" "textmodes/tex-mode.el"
- ;;;;;;  (17178 22154))
 -;;;;;;  (17239 32423))
++;;;;;;  (17238 21257))
  ;;; Generated autoloads from textmodes/tex-mode.el
  
  (defvar tex-shell-file-name nil "\
@@@ -25409,7 -25828,7 +25831,7 @@@ Major mode to edit DocTeX files
  ;;;***
  \f
  ;;;### (autoloads (texi2info texinfo-format-region texinfo-format-buffer)
- ;;;;;;  "texinfmt" "textmodes/texinfmt.el" (17178 22154))
 -;;;;;;  "texinfmt" "textmodes/texinfmt.el" (17148 25229))
++;;;;;;  "texinfmt" "textmodes/texinfmt.el" (17187 59902))
  ;;; Generated autoloads from textmodes/texinfmt.el
  
  (autoload (quote texinfo-format-buffer) "texinfmt" "\
@@@ -25449,7 -25868,7 +25871,7 @@@ if large.  You can use Info-split to d
  ;;;***
  \f
  ;;;### (autoloads (texinfo-mode texinfo-close-quote texinfo-open-quote)
- ;;;;;;  "texinfo" "textmodes/texinfo.el" (17178 22154))
 -;;;;;;  "texinfo" "textmodes/texinfo.el" (17242 7326))
++;;;;;;  "texinfo" "textmodes/texinfo.el" (17244 4914))
  ;;; Generated autoloads from textmodes/texinfo.el
  
  (defvar texinfo-open-quote "``" "\
@@@ -25536,7 -25955,7 +25958,7 @@@ value of `texinfo-mode-hook'
  ;;;### (autoloads (thai-auto-composition-mode thai-composition-function
  ;;;;;;  thai-post-read-conversion thai-compose-buffer thai-compose-string
  ;;;;;;  thai-compose-region) "thai-util" "language/thai-util.el"
- ;;;;;;  (17178 22147))
 -;;;;;;  (17185 27569))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from language/thai-util.el
  
  (autoload (quote thai-compose-region) "thai-util" "\
@@@ -25580,7 -25999,7 +26002,7 @@@ Minor mode for automatically correct Th
  \f
  ;;;### (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" (17178 22154))
 -;;;;;;  "thingatpt" "thingatpt.el" (17148 25056))
++;;;;;;  "thingatpt" "thingatpt.el" (17187 59902))
  ;;; Generated autoloads from thingatpt.el
  
  (autoload (quote forward-thing) "thingatpt" "\
@@@ -25637,7 -26056,7 +26059,7 @@@ Not documente
  \f
  ;;;### (autoloads (thumbs-dired-setroot thumbs-dired-show-all thumbs-dired-show-marked
  ;;;;;;  thumbs-show-all-from-dir thumbs-find-thumb) "thumbs" "thumbs.el"
- ;;;;;;  (17178 22154))
 -;;;;;;  (17148 25056))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from thumbs.el
  
  (autoload (quote thumbs-find-thumb) "thumbs" "\
@@@ -25676,7 -26095,7 +26098,7 @@@ In dired, call the setroot program on t
  ;;;;;;  tibetan-composition-function tibetan-decompose-string tibetan-decompose-region
  ;;;;;;  tibetan-compose-region tibetan-compose-string tibetan-transcription-to-tibetan
  ;;;;;;  tibetan-tibetan-to-transcription tibetan-char-p) "tibet-util"
- ;;;;;;  "language/tibet-util.el" (17178 20481))
 -;;;;;;  "language/tibet-util.el" (17102 18781))
++;;;;;;  "language/tibet-util.el" (17187 59881))
  ;;; Generated autoloads from language/tibet-util.el
  
  (autoload (quote tibetan-char-p) "tibet-util" "\
@@@ -25755,7 -26174,7 +26177,7 @@@ Not documente
  ;;;***
  \f
  ;;;### (autoloads (tildify-buffer tildify-region) "tildify" "textmodes/tildify.el"
- ;;;;;;  (17178 22154))
 -;;;;;;  (17205 6265))
++;;;;;;  (17226 24578))
  ;;; Generated autoloads from textmodes/tildify.el
  
  (autoload (quote tildify-region) "tildify" "\
@@@ -25779,7 -26198,7 +26201,7 @@@ This function performs no refilling of 
  ;;;***
  \f
  ;;;### (autoloads (display-time-mode display-time display-time-day-and-date)
- ;;;;;;  "time" "time.el" (17178 22154))
 -;;;;;;  "time" "time.el" (17148 25057))
++;;;;;;  "time" "time.el" (17187 59902))
  ;;; Generated autoloads from time.el
  
  (defvar display-time-day-and-date nil "\
@@@ -25822,8 -26241,8 +26244,8 @@@ This runs the normal hook `display-time
  ;;;### (autoloads (safe-date-to-time time-to-days time-to-day-in-year
  ;;;;;;  date-leap-year-p days-between date-to-day time-add time-subtract
  ;;;;;;  time-since days-to-time time-less-p seconds-to-time time-to-seconds
- ;;;;;;  date-to-time) "time-date" "calendar/time-date.el" (17178
- ;;;;;;  20480))
 -;;;;;;  date-to-time) "time-date" "calendar/time-date.el" (17239
 -;;;;;;  32270))
++;;;;;;  date-to-time) "time-date" "calendar/time-date.el" (17226
++;;;;;;  24571))
  ;;; Generated autoloads from calendar/time-date.el
  
  (autoload (quote date-to-time) "time-date" "\
@@@ -25909,7 -26328,7 +26331,7 @@@ If DATE is malformed, return a time val
  ;;;***
  \f
  ;;;### (autoloads (time-stamp-toggle-active time-stamp) "time-stamp"
- ;;;;;;  "time-stamp.el" (17178 22154))
 -;;;;;;  "time-stamp.el" (17194 38185))
++;;;;;;  "time-stamp.el" (17196 26624))
  ;;; Generated autoloads from time-stamp.el
  
  (autoload (quote time-stamp) "time-stamp" "\
@@@ -25925,10 -26344,11 +26347,11 @@@ look like one of the following
  The time stamp is written between the brackets or quotes:
        Time-stamp: <2001-02-18 10:20:51 gildea>
  The time stamp is updated only if the variable `time-stamp-active' is non-nil.
- The format of the time stamp is set by the variable `time-stamp-format'.
- The variables `time-stamp-line-limit', `time-stamp-start', `time-stamp-end',
- `time-stamp-count', and `time-stamp-inserts-lines' control finding the
- template.
+ The format of the time stamp is set by the variable `time-stamp-pattern' or
+ `time-stamp-format'.  The variables `time-stamp-pattern',
+ `time-stamp-line-limit', `time-stamp-start', `time-stamp-end',
+ `time-stamp-count', and `time-stamp-inserts-lines' control finding 
+ the template.
  
  \(fn)" t nil)
  
@@@ -25944,7 -26364,7 +26367,7 @@@ With ARG, turn time stamping on if and 
  ;;;;;;  timeclock-workday-remaining-string timeclock-reread-log timeclock-query-out
  ;;;;;;  timeclock-change timeclock-status-string timeclock-out timeclock-in
  ;;;;;;  timeclock-modeline-display) "timeclock" "calendar/timeclock.el"
- ;;;;;;  (17178 20480))
 -;;;;;;  (17239 32271))
++;;;;;;  (17226 24571))
  ;;; Generated autoloads from calendar/timeclock.el
  
  (autoload (quote timeclock-modeline-display) "timeclock" "\
@@@ -26045,7 -26465,7 +26468,7 @@@ relative only to the time worked today
  \f
  ;;;### (autoloads (with-timeout run-with-idle-timer add-timeout run-with-timer
  ;;;;;;  run-at-time cancel-function-timers cancel-timer) "timer"
- ;;;;;;  "emacs-lisp/timer.el" (17178 22144))
 -;;;;;;  "emacs-lisp/timer.el" (17148 25099))
++;;;;;;  "emacs-lisp/timer.el" (17187 59901))
  ;;; Generated autoloads from emacs-lisp/timer.el
  
  (defalias (quote disable-timeout) (quote cancel-timer))
@@@ -26116,7 -26536,7 +26539,7 @@@ be detected
  ;;;***
  \f
  ;;;### (autoloads (batch-titdic-convert titdic-convert) "titdic-cnv"
- ;;;;;;  "international/titdic-cnv.el" (17178 20480))
 -;;;;;;  "international/titdic-cnv.el" (17102 18762))
++;;;;;;  "international/titdic-cnv.el" (17187 59880))
  ;;; Generated autoloads from international/titdic-cnv.el
  
  (autoload (quote titdic-convert) "titdic-cnv" "\
@@@ -26139,8 -26559,8 +26562,8 @@@ To get complete usage, invoke \"emacs -
  ;;;***
  \f
  ;;;### (autoloads (tamil-composition-function tamil-post-read-conversion
- ;;;;;;  tamil-compose-region) "tml-util" "language/tml-util.el" (17178
- ;;;;;;  20481))
 -;;;;;;  tamil-compose-region) "tml-util" "language/tml-util.el" (17102
 -;;;;;;  18782))
++;;;;;;  tamil-compose-region) "tml-util" "language/tml-util.el" (17187
++;;;;;;  59881))
  ;;; Generated autoloads from language/tml-util.el
  
  (autoload (quote tamil-compose-region) "tml-util" "\
@@@ -26163,7 -26583,7 +26586,7 @@@ PATTERN regexp
  ;;;***
  \f
  ;;;### (autoloads (tmm-prompt tmm-menubar-mouse tmm-menubar) "tmm"
- ;;;;;;  "tmm.el" (17178 22155))
 -;;;;;;  "tmm.el" (17148 25058))
++;;;;;;  "tmm.el" (17187 59902))
  ;;; Generated autoloads from tmm.el
   (define-key global-map "\M-`" 'tmm-menubar)
   (define-key global-map [f10] 'tmm-menubar)
@@@ -26204,7 -26624,7 +26627,7 @@@ Its value should be an event that has 
  \f
  ;;;### (autoloads (todo-show todo-cp todo-mode todo-print todo-top-priorities
  ;;;;;;  todo-insert-item todo-add-item-non-interactively todo-add-category)
- ;;;;;;  "todo-mode" "calendar/todo-mode.el" (17178 20480))
 -;;;;;;  "todo-mode" "calendar/todo-mode.el" (17102 18477))
++;;;;;;  "todo-mode" "calendar/todo-mode.el" (17187 59880))
  ;;; Generated autoloads from calendar/todo-mode.el
  
  (autoload (quote todo-add-category) "todo-mode" "\
@@@ -26265,8 -26685,8 +26688,8 @@@ Show TODO list
  \f
  ;;;### (autoloads (tool-bar-local-item-from-menu tool-bar-add-item-from-menu
  ;;;;;;  tool-bar-local-item tool-bar-add-item tool-bar-mode) "tool-bar"
- ;;;;;;  "toolbar/tool-bar.el" (17178 22155))
- ;;; Generated autoloads from toolbar/tool-bar.el
 -;;;;;;  "tool-bar.el" (17236 11669))
++;;;;;;  "tool-bar.el" (17238 21257))
+ ;;; Generated autoloads from tool-bar.el
  
  (defvar tool-bar-mode nil "\
  Non-nil if Tool-Bar mode is enabled.
@@@ -26297,7 -26717,7 +26720,7 @@@ PROPS are additional items to add to th
  Info node `(elisp)Tool Bar'.  Items are added from left to right.
  
  ICON is the base name of a file containing the image to use.  The
- function will first try to use lc-ICON.xpm if display-color-cells
+ function will first try to use low-color/ICON.xpm if display-color-cells
  is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally
  ICON.xbm, using `find-image'.
  
@@@ -26314,7 -26734,7 +26737,7 @@@ PROPS are additional items to add to th
  Info node `(elisp)Tool Bar'.  Items are added from left to right.
  
  ICON is the base name of a file containing the image to use.  The
- function will first try to use lc-ICON.xpm if display-color-cells
+ function will first try to use low-color/ICON.xpm if display-color-cells
  is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally
  ICON.xbm, using `find-image'.
  
@@@ -26350,7 -26770,7 +26773,7 @@@ MAP must contain appropriate binding fo
  ;;;***
  \f
  ;;;### (autoloads (tpu-edt-on tpu-edt-mode) "tpu-edt" "emulation/tpu-edt.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17140 20923))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from emulation/tpu-edt.el
  
  (defvar tpu-edt-mode nil "\
@@@ -26378,7 -26798,7 +26801,7 @@@ Turn on TPU/edt emulation
  ;;;***
  \f
  ;;;### (autoloads (tpu-set-cursor-bound tpu-set-cursor-free tpu-set-scroll-margins)
- ;;;;;;  "tpu-extras" "emulation/tpu-extras.el" (17178 22144))
 -;;;;;;  "tpu-extras" "emulation/tpu-extras.el" (17140 20923))
++;;;;;;  "tpu-extras" "emulation/tpu-extras.el" (17187 59901))
  ;;; Generated autoloads from emulation/tpu-extras.el
  
  (autoload (quote tpu-set-scroll-margins) "tpu-extras" "\
@@@ -26398,7 -26818,7 +26821,7 @@@ Constrain the cursor to the flow of th
  
  ;;;***
  \f
- ;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (17178 22144))
 -;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (17148 25099))
++;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (17187 59901))
  ;;; Generated autoloads from emacs-lisp/tq.el
  
  (autoload (quote tq-create) "tq" "\
@@@ -26412,7 -26832,7 +26835,7 @@@ to a tcp server on another machine
  ;;;***
  \f
  ;;;### (autoloads (trace-function-background trace-function trace-buffer)
- ;;;;;;  "trace" "emacs-lisp/trace.el" (17178 22144))
 -;;;;;;  "trace" "emacs-lisp/trace.el" (17148 25100))
++;;;;;;  "trace" "emacs-lisp/trace.el" (17187 59901))
  ;;; Generated autoloads from emacs-lisp/trace.el
  
  (defvar trace-buffer "*trace-output*" "\
@@@ -26445,7 -26865,7 +26868,7 @@@ the window or buffer configuration at a
  \f
  ;;;### (autoloads (tramp-completion-file-name-handler tramp-file-name-handler
  ;;;;;;  tramp-completion-file-name-regexp tramp-file-name-regexp)
- ;;;;;;  "tramp" "net/tramp.el" (17178 22151))
 -;;;;;;  "tramp" "net/tramp.el" (17239 32363))
++;;;;;;  "tramp" "net/tramp.el" (17238 21257))
  ;;; Generated autoloads from net/tramp.el
  
  (defvar tramp-unified-filenames (not (featurep (quote xemacs))) "\
@@@ -26522,7 -26942,7 +26945,7 @@@ Falls back to normal file name handler 
  ;;;***
  \f
  ;;;### (autoloads (2C-split 2C-associate-buffer 2C-two-columns) "two-column"
- ;;;;;;  "textmodes/two-column.el" (17178 22154))
 -;;;;;;  "textmodes/two-column.el" (17148 25231))
++;;;;;;  "textmodes/two-column.el" (17187 59902))
  ;;; Generated autoloads from textmodes/two-column.el
   (autoload '2C-command "two-column" () t 'keymap)
   (global-set-key "\C-x6" '2C-command)
@@@ -26573,7 -26993,7 +26996,7 @@@ First column's text    sSs  Second colu
  ;;;;;;  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"
- ;;;;;;  (17178 22155))
 -;;;;;;  (17148 25059))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from type-break.el
  
  (defvar type-break-mode nil "\
@@@ -26756,7 -27176,7 +27179,7 @@@ FRAC should be the inverse of the fract
  ;;;***
  \f
  ;;;### (autoloads (ununderline-region underline-region) "underline"
- ;;;;;;  "textmodes/underline.el" (17178 22154))
 -;;;;;;  "textmodes/underline.el" (17148 25231))
++;;;;;;  "textmodes/underline.el" (17187 59902))
  ;;; Generated autoloads from textmodes/underline.el
  
  (autoload (quote underline-region) "underline" "\
@@@ -26777,7 -27197,7 +27200,7 @@@ which specify the range to operate on
  ;;;***
  \f
  ;;;### (autoloads (unforward-rmail-message undigestify-rmail-message)
- ;;;;;;  "undigest" "mail/undigest.el" (17178 22151))
 -;;;;;;  "undigest" "mail/undigest.el" (17148 25163))
++;;;;;;  "undigest" "mail/undigest.el" (17187 59902))
  ;;; Generated autoloads from mail/undigest.el
  
  (autoload (quote undigestify-rmail-message) "undigest" "\
@@@ -26796,7 -27216,7 +27219,7 @@@ following the containing message
  ;;;***
  \f
  ;;;### (autoloads (unrmail batch-unrmail) "unrmail" "mail/unrmail.el"
- ;;;;;;  (17178 22151))
 -;;;;;;  (17148 25163))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from mail/unrmail.el
  
  (autoload (quote batch-unrmail) "unrmail" "\
@@@ -26815,8 -27235,8 +27238,8 @@@ Convert Rmail file FILE to system inbo
  
  ;;;***
  \f
- ;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (17178
- ;;;;;;  22144))
 -;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (17148
 -;;;;;;  25100))
++;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (17187
++;;;;;;  59901))
  ;;; Generated autoloads from emacs-lisp/unsafep.el
  
  (autoload (quote unsafep) "unsafep" "\
@@@ -26828,7 -27248,7 +27251,7 @@@ of symbols with local bindings
  
  ;;;***
  \f
- ;;;### (autoloads nil "url" "url/url.el" (17178 22157))
 -;;;### (autoloads nil "url" "url/url.el" (17239 32426))
++;;;### (autoloads nil "url" "url/url.el" (17238 21257))
  ;;; Generated autoloads from url/url.el
  
  (defvar url-configuration-directory "~/.url")
  ;;;***
  \f
  ;;;### (autoloads (url-register-auth-scheme url-get-authentication)
- ;;;;;;  "url-auth" "url/url-auth.el" (17178 22155))
 -;;;;;;  "url-auth" "url/url-auth.el" (17141 252))
++;;;;;;  "url-auth" "url/url-auth.el" (17187 59902))
  ;;; Generated autoloads from url/url-auth.el
  
  (autoload (quote url-get-authentication) "url-auth" "\
@@@ -26878,8 -27298,8 +27301,8 @@@ RATING   a rating between 1 and 10 of t
  ;;;***
  \f
  ;;;### (autoloads (url-cache-expired url-cache-extract url-is-cached
- ;;;;;;  url-store-in-cache) "url-cache" "url/url-cache.el" (17178
- ;;;;;;  22156))
 -;;;;;;  url-store-in-cache) "url-cache" "url/url-cache.el" (17141
 -;;;;;;  252))
++;;;;;;  url-store-in-cache) "url-cache" "url/url-cache.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from url/url-cache.el
  
  (autoload (quote url-store-in-cache) "url-cache" "\
@@@ -26904,7 -27324,7 +27327,7 @@@ Return t iff a cached file has expired
  
  ;;;***
  \f
- ;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (17178 22156))
 -;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (17141 252))
++;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (17187 59902))
  ;;; Generated autoloads from url/url-cid.el
  
  (autoload (quote url-cid) "url-cid" "\
@@@ -26916,8 -27336,8 +27339,8 @@@ Not documente
  \f
  ;;;### (autoloads (url-cookie-setup-save-timer url-cookie-handle-set-cookie
  ;;;;;;  url-cookie-generate-header-lines url-cookie-retrieve url-cookie-write-file
- ;;;;;;  url-cookie-parse-file) "url-cookie" "url/url-cookie.el" (17178
- ;;;;;;  22156))
 -;;;;;;  url-cookie-parse-file) "url-cookie" "url/url-cookie.el" (17141
 -;;;;;;  252))
++;;;;;;  url-cookie-parse-file) "url-cookie" "url/url-cookie.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from url/url-cookie.el
  
  (autoload (quote url-cookie-parse-file) "url-cookie" "\
@@@ -26953,7 -27373,7 +27376,7 @@@ Reset the cookie saver timer
  ;;;***
  \f
  ;;;### (autoloads (url-dav-vc-registered url-dav-supported-p) "url-dav"
- ;;;;;;  "url/url-dav.el" (17178 22156))
 -;;;;;;  "url/url-dav.el" (17141 254))
++;;;;;;  "url/url-dav.el" (17187 59902))
  ;;; Generated autoloads from url/url-dav.el
  
  (autoload (quote url-dav-supported-p) "url-dav" "\
@@@ -26968,8 -27388,8 +27391,8 @@@ Not documente
  
  ;;;***
  \f
- ;;;### (autoloads (url-file) "url-file" "url/url-file.el" (17178
- ;;;;;;  22156))
 -;;;### (autoloads (url-file) "url-file" "url/url-file.el" (17239
 -;;;;;;  42312))
++;;;### (autoloads (url-file) "url-file" "url/url-file.el" (17244
++;;;;;;  4914))
  ;;; Generated autoloads from url/url-file.el
  
  (autoload (quote url-file) "url-file" "\
@@@ -26980,7 -27400,7 +27403,7 @@@ Handle file: and ftp: URLs
  ;;;***
  \f
  ;;;### (autoloads (url-open-stream url-gateway-nslookup-host) "url-gw"
- ;;;;;;  "url/url-gw.el" (17178 22156))
 -;;;;;;  "url/url-gw.el" (17141 258))
++;;;;;;  "url/url-gw.el" (17187 59902))
  ;;; Generated autoloads from url/url-gw.el
  
  (autoload (quote url-gateway-nslookup-host) "url-gw" "\
@@@ -26998,8 -27418,8 +27421,8 @@@ Will not make a connection if `url-gate
  ;;;***
  \f
  ;;;### (autoloads (url-insert-file-contents url-file-local-copy url-copy-file
- ;;;;;;  url-handler-mode) "url-handlers" "url/url-handlers.el" (17178
- ;;;;;;  22156))
 -;;;;;;  url-handler-mode) "url-handlers" "url/url-handlers.el" (17239
 -;;;;;;  42312))
++;;;;;;  url-handler-mode) "url-handlers" "url/url-handlers.el" (17244
++;;;;;;  4914))
  ;;; Generated autoloads from url/url-handlers.el
  
  (defvar url-handler-mode nil "\
@@@ -27045,7 -27465,7 +27468,7 @@@ Not documente
  \f
  ;;;### (autoloads (url-history-save-history url-history-parse-history
  ;;;;;;  url-history-setup-save-timer) "url-history" "url/url-history.el"
- ;;;;;;  (17178 22156))
 -;;;;;;  (17141 258))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from url/url-history.el
  
  (autoload (quote url-history-setup-save-timer) "url-history" "\
@@@ -27069,7 -27489,7 +27492,7 @@@ user for what type to save as
  ;;;***
  \f
  ;;;### (autoloads (url-http-options url-http-file-attributes url-http-file-exists-p
- ;;;;;;  url-http) "url-http" "url/url-http.el" (17178 22156))
 -;;;;;;  url-http) "url-http" "url/url-http.el" (17239 42312))
++;;;;;;  url-http) "url-http" "url/url-http.el" (17244 4914))
  ;;; Generated autoloads from url/url-http.el
  
  (autoload (quote url-http) "url-http" "\
  
  ;;;***
  \f
- ;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (17178 22156))
 -;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (17141 259))
++;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (17187 59902))
  ;;; Generated autoloads from url/url-irc.el
  
  (autoload (quote url-irc) "url-irc" "\
@@@ -27132,8 -27552,8 +27555,8 @@@ Not documente
  
  ;;;***
  \f
- ;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (17178
- ;;;;;;  22156))
 -;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (17141
 -;;;;;;  259))
++;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from url/url-ldap.el
  
  (autoload (quote url-ldap) "url-ldap" "\
@@@ -27147,7 -27567,7 +27570,7 @@@ URL can be a URL string, or a URL vecto
  ;;;***
  \f
  ;;;### (autoloads (url-mailto url-mail) "url-mailto" "url/url-mailto.el"
- ;;;;;;  (17178 22156))
 -;;;;;;  (17195 52157))
++;;;;;;  (17226 24578))
  ;;; Generated autoloads from url/url-mailto.el
  
  (autoload (quote url-mail) "url-mailto" "\
@@@ -27163,7 -27583,7 +27586,7 @@@ Handle the mailto: URL syntax
  ;;;***
  \f
  ;;;### (autoloads (url-data url-generic-emulator-loader url-info
- ;;;;;;  url-man) "url-misc" "url/url-misc.el" (17178 22156))
 -;;;;;;  url-man) "url-misc" "url/url-misc.el" (17141 260))
++;;;;;;  url-man) "url-misc" "url/url-misc.el" (17187 59902))
  ;;; Generated autoloads from url/url-misc.el
  
  (autoload (quote url-man) "url-misc" "\
@@@ -27195,7 -27615,7 +27618,7 @@@ Fetch a data URL (RFC 2397)
  ;;;***
  \f
  ;;;### (autoloads (url-snews url-news) "url-news" "url/url-news.el"
- ;;;;;;  (17178 22156))
 -;;;;;;  (17167 2802))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from url/url-news.el
  
  (autoload (quote url-news) "url-news" "\
@@@ -27212,7 -27632,7 +27635,7 @@@ Not documente
  \f
  ;;;### (autoloads (url-ns-user-pref url-ns-prefs isInNet isResolvable
  ;;;;;;  dnsResolve dnsDomainIs isPlainHostName) "url-ns" "url/url-ns.el"
- ;;;;;;  (17178 22156))
 -;;;;;;  (17141 260))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from url/url-ns.el
  
  (autoload (quote isPlainHostName) "url-ns" "\
@@@ -27253,7 -27673,7 +27676,7 @@@ Not documente
  ;;;***
  \f
  ;;;### (autoloads (url-generic-parse-url url-recreate-url) "url-parse"
- ;;;;;;  "url/url-parse.el" (17178 22156))
 -;;;;;;  "url/url-parse.el" (17141 260))
++;;;;;;  "url/url-parse.el" (17187 59902))
  ;;; Generated autoloads from url/url-parse.el
  
  (autoload (quote url-recreate-url) "url-parse" "\
@@@ -27271,7 -27691,7 +27694,7 @@@ Format is
  ;;;***
  \f
  ;;;### (autoloads (url-setup-privacy-info) "url-privacy" "url/url-privacy.el"
- ;;;;;;  (17178 22156))
 -;;;;;;  (17141 263))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from url/url-privacy.el
  
  (autoload (quote url-setup-privacy-info) "url-privacy" "\
@@@ -27287,7 -27707,7 +27710,7 @@@ Not documente
  ;;;;;;  url-strip-leading-spaces url-eat-trailing-space url-get-normalized-date
  ;;;;;;  url-lazy-message url-normalize-url url-insert-entities-in-string
  ;;;;;;  url-parse-args url-debug url-debug) "url-util" "url/url-util.el"
- ;;;;;;  (17178 22157))
 -;;;;;;  (17185 27762))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from url/url-util.el
  
  (defvar url-debug nil "\
@@@ -27412,7 -27832,7 +27835,7 @@@ This uses `url-current-object', set loc
  ;;;***
  \f
  ;;;### (autoloads (ask-user-about-supersession-threat ask-user-about-lock)
- ;;;;;;  "userlock" "userlock.el" (17178 22157))
 -;;;;;;  "userlock" "userlock.el" (17148 25059))
++;;;;;;  "userlock" "userlock.el" (17187 59902))
  ;;; Generated autoloads from userlock.el
  
  (autoload (quote ask-user-about-lock) "userlock" "\
@@@ -27440,9 -27860,9 +27863,15 @@@ The buffer in question is current when 
  
  ;;;***
  \f
++;;;### (autoloads nil "utf-7" "international/utf-7.el" (17254 64062))
++;;; Generated autoloads from international/utf-7.el
++(autoload-coding-system 'utf-7 '(require 'utf-7))
++
++;;;***
++\f
  ;;;### (autoloads (uudecode-decode-region uudecode-decode-region-internal
  ;;;;;;  uudecode-decode-region-external) "uudecode" "gnus/uudecode.el"
- ;;;;;;  (17178 22146))
 -;;;;;;  (17148 25154))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from gnus/uudecode.el
  
  (autoload (quote uudecode-decode-region-external) "uudecode" "\
@@@ -27472,7 -27892,7 +27901,7 @@@ If FILE-NAME is non-nil, save the resul
  ;;;;;;  vc-directory vc-merge vc-insert-headers vc-version-other-window
  ;;;;;;  vc-diff vc-register vc-next-action vc-do-command edit-vc-file
  ;;;;;;  with-vc-file vc-branch-part vc-trunk-p vc-before-checkin-hook
- ;;;;;;  vc-checkin-hook vc-checkout-hook) "vc" "vc.el" (17178 22157))
 -;;;;;;  vc-checkin-hook vc-checkout-hook) "vc" "vc.el" (17244 43740))
++;;;;;;  vc-checkin-hook vc-checkout-hook) "vc" "vc.el" (17254 63791))
  ;;; Generated autoloads from vc.el
  
  (defvar vc-checkout-hook nil "\
@@@ -27759,7 -28179,7 +28188,7 @@@ colors. `vc-annotate-background' specif
  
  ;;;***
  \f
- ;;;### (autoloads nil "vc-arch" "vc-arch.el" (17178 22157))
 -;;;### (autoloads nil "vc-arch" "vc-arch.el" (17148 25060))
++;;;### (autoloads nil "vc-arch" "vc-arch.el" (17187 59902))
  ;;; Generated autoloads from vc-arch.el
   (defun vc-arch-registered (file)
    (if (vc-find-root file "{arch}/=tagging-method")
  
  ;;;***
  \f
- ;;;### (autoloads nil "vc-cvs" "vc-cvs.el" (17178 22157))
 -;;;### (autoloads nil "vc-cvs" "vc-cvs.el" (17148 25060))
++;;;### (autoloads nil "vc-cvs" "vc-cvs.el" (17187 59902))
  ;;; Generated autoloads from vc-cvs.el
   (defun vc-cvs-registered (f)
    (when (file-readable-p (expand-file-name
  
  ;;;***
  \f
- ;;;### (autoloads nil "vc-mcvs" "vc-mcvs.el" (17178 22157))
 -;;;### (autoloads nil "vc-mcvs" "vc-mcvs.el" (17239 32248))
++;;;### (autoloads nil "vc-mcvs" "vc-mcvs.el" (17226 24578))
  ;;; Generated autoloads from vc-mcvs.el
   (defun vc-mcvs-registered (file)
    (if (vc-find-root file "MCVS/CVS")
  ;;;***
  \f
  ;;;### (autoloads (vc-rcs-master-templates) "vc-rcs" "vc-rcs.el"
- ;;;;;;  (17178 22157))
 -;;;;;;  (17148 25062))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from vc-rcs.el
  
  (defvar vc-rcs-master-templates (quote ("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) "\
@@@ -27803,7 -28223,7 +28232,7 @@@ For a description of possible values, s
  ;;;***
  \f
  ;;;### (autoloads (vc-sccs-master-templates) "vc-sccs" "vc-sccs.el"
- ;;;;;;  (17178 22157))
 -;;;;;;  (17148 25063))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from vc-sccs.el
  
  (defvar vc-sccs-master-templates (quote ("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)) "\
@@@ -27820,7 -28240,7 +28249,7 @@@ find any project directory." (let ((pro
  
  ;;;***
  \f
- ;;;### (autoloads nil "vc-svn" "vc-svn.el" (17178 22157))
 -;;;### (autoloads nil "vc-svn" "vc-svn.el" (17148 25063))
++;;;### (autoloads nil "vc-svn" "vc-svn.el" (17187 59902))
  ;;; Generated autoloads from vc-svn.el
   (defun vc-svn-registered (f)
    (when (file-readable-p (expand-file-name
  ;;;***
  \f
  ;;;### (autoloads (vhdl-mode) "vhdl-mode" "progmodes/vhdl-mode.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17239 32401))
++;;;;;;  (17229 28055))
  ;;; Generated autoloads from progmodes/vhdl-mode.el
  
  (autoload (quote vhdl-mode) "vhdl-mode" "\
          outputs from this component -> output port created
        - signals that are inputs to AND outputs from subcomponents are
          considered as internal connections -> internal signal created
-  
        Purpose:  With appropriate naming conventions it is possible to
      create higher design levels with only a few mouse clicks or key
      strokes.  A new design level can be created by simply generating a new
      component, placing the required subcomponents from the hierarchy
      browser, and wiring everything automatically.
-  
        Note: Automatic wiring only works reliably on templates of new
      components and component instantiations that were created by VHDL mode.
-  
        Component declarations can be placed in a components package (option
      `vhdl-use-components-package') which can be automatically generated for
      an entire directory or project (`C-c C-c M-p').  The VHDL'93 direct
  |     Note: Configurations of subcomponents (i.e. hierarchical configuration
  |   declarations) are currently not considered when displaying
  |   configurations in speedbar.
-  
        See the options group `vhdl-compose' for all relevant user options.
  
  
@@@ -28374,7 -28794,7 +28803,7 @@@ Key bindings
  
  ;;;***
  \f
- ;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (17178 20480))
 -;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (17102 18541))
++;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (17187 59879))
  ;;; Generated autoloads from emulation/vi.el
  
  (autoload (quote vi-mode) "vi" "\
@@@ -28429,7 -28849,7 +28858,7 @@@ Syntax table and abbrevs while in vi mo
  ;;;### (autoloads (viqr-pre-write-conversion viqr-post-read-conversion
  ;;;;;;  viet-encode-viqr-buffer viet-encode-viqr-region viet-decode-viqr-buffer
  ;;;;;;  viet-decode-viqr-region viet-encode-viscii-char) "viet-util"
- ;;;;;;  "language/viet-util.el" (17178 20481))
 -;;;;;;  "language/viet-util.el" (17102 18783))
++;;;;;;  "language/viet-util.el" (17187 59881))
  ;;; Generated autoloads from language/viet-util.el
  
  (autoload (quote viet-encode-viscii-char) "viet-util" "\
@@@ -28475,8 -28895,8 +28904,8 @@@ Not documente
  \f
  ;;;### (autoloads (View-exit-and-edit view-mode-enter view-mode view-buffer-other-frame
  ;;;;;;  view-buffer-other-window view-buffer view-file-other-frame
- ;;;;;;  view-file-other-window view-file) "view" "view.el" (17178
- ;;;;;;  22157))
 -;;;;;;  view-file-other-window view-file) "view" "view.el" (17148
 -;;;;;;  25067))
++;;;;;;  view-file-other-window view-file) "view" "view.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from view.el
  
  (defvar view-mode nil "\
@@@ -28683,8 -29103,8 +29112,8 @@@ Exit View mode and make the current buf
  
  ;;;***
  \f
- ;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (17178
- ;;;;;;  22144))
 -;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (17239
 -;;;;;;  32279))
++;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (17226
++;;;;;;  24575))
  ;;; Generated autoloads from emulation/vip.el
  
  (autoload (quote vip-setup) "vip" "\
@@@ -28700,7 -29120,7 +29129,7 @@@ Turn on VIP emulation of VI
  ;;;***
  \f
  ;;;### (autoloads (viper-mode toggle-viper-mode) "viper" "emulation/viper.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17244 43743))
++;;;;;;  (17254 63790))
  ;;; Generated autoloads from emulation/viper.el
  
  (autoload (quote toggle-viper-mode) "viper" "\
@@@ -28717,7 -29137,7 +29146,7 @@@ Turn on Viper emulation of Vi in Emacs
  ;;;***
  \f
  ;;;### (autoloads (warn lwarn display-warning) "warnings" "emacs-lisp/warnings.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17148 25100))
++;;;;;;  (17187 59901))
  ;;; Generated autoloads from emacs-lisp/warnings.el
  
  (defvar warning-prefix-function nil "\
@@@ -28805,7 -29225,7 +29234,7 @@@ this is equivalent to `display-warning'
  ;;;***
  \f
  ;;;### (autoloads (wdired-change-to-wdired-mode) "wdired" "wdired.el"
- ;;;;;;  (17178 22157))
 -;;;;;;  (17205 6053))
++;;;;;;  (17226 24579))
  ;;; Generated autoloads from wdired.el
  
  (autoload (quote wdired-change-to-wdired-mode) "wdired" "\
@@@ -28821,7 -29241,7 +29250,7 @@@ See `wdired-mode'
  
  ;;;***
  \f
- ;;;### (autoloads (webjump) "webjump" "net/webjump.el" (17178 22151))
 -;;;### (autoloads (webjump) "webjump" "net/webjump.el" (17140 20945))
++;;;### (autoloads (webjump) "webjump" "net/webjump.el" (17187 59902))
  ;;; Generated autoloads from net/webjump.el
  
  (autoload (quote webjump) "webjump" "\
@@@ -28838,7 -29258,7 +29267,7 @@@ Please submit bug reports and other fee
  ;;;***
  \f
  ;;;### (autoloads (which-function-mode) "which-func" "progmodes/which-func.el"
- ;;;;;;  (17178 22153))
 -;;;;;;  (17159 1491))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from progmodes/which-func.el
   (put 'which-func-format 'risky-local-variable t)
   (put 'which-func-current 'risky-local-variable t)
@@@ -28872,7 -29292,7 +29301,7 @@@ and off otherwise
  ;;;;;;  whitespace-buffer whitespace-toggle-ateol-check whitespace-toggle-spacetab-check
  ;;;;;;  whitespace-toggle-indent-check whitespace-toggle-trailing-check
  ;;;;;;  whitespace-toggle-leading-check) "whitespace" "whitespace.el"
- ;;;;;;  (17178 22157))
 -;;;;;;  (17244 43740))
++;;;;;;  (17254 63791))
  ;;; Generated autoloads from whitespace.el
  
  (autoload (quote whitespace-toggle-leading-check) "whitespace" "\
@@@ -28923,9 -29343,7 +29352,7 @@@ Check the region for whitespace errors
  
  (autoload (quote whitespace-cleanup) "whitespace" "\
  Cleanup the five different kinds of whitespace problems.
- Use \\[describe-function] whitespace-describe to read a summary of the
- whitespace problems.
+ See `whitespace-buffer' docstring for a summary of the problems.
  
  \(fn)" t nil)
  
@@@ -28964,7 -29382,7 +29391,7 @@@ This is meant to be added buffer-locall
  ;;;***
  \f
  ;;;### (autoloads (widget-minor-mode widget-browse-other-window widget-browse
- ;;;;;;  widget-browse-at) "wid-browse" "wid-browse.el" (17178 22157))
 -;;;;;;  widget-browse-at) "wid-browse" "wid-browse.el" (17148 25069))
++;;;;;;  widget-browse-at) "wid-browse" "wid-browse.el" (17187 59902))
  ;;; Generated autoloads from wid-browse.el
  
  (autoload (quote widget-browse-at) "wid-browse" "\
@@@ -28991,8 -29409,8 +29418,8 @@@ With arg, turn widget mode on if and on
  ;;;***
  \f
  ;;;### (autoloads (widget-setup widget-insert widget-delete widget-create
- ;;;;;;  widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (17178
- ;;;;;;  22157))
 -;;;;;;  widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (17244
 -;;;;;;  43741))
++;;;;;;  widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (17254
++;;;;;;  63791))
  ;;; Generated autoloads from wid-edit.el
  
  (autoload (quote widgetp) "wid-edit" "\
@@@ -29034,8 -29452,8 +29461,8 @@@ Setup current buffer so editing string 
  ;;;***
  \f
  ;;;### (autoloads (windmove-default-keybindings windmove-down windmove-right
- ;;;;;;  windmove-up windmove-left) "windmove" "windmove.el" (17178
- ;;;;;;  22157))
 -;;;;;;  windmove-up windmove-left) "windmove" "windmove.el" (17159
 -;;;;;;  1472))
++;;;;;;  windmove-up windmove-left) "windmove" "windmove.el" (17187
++;;;;;;  59902))
  ;;; Generated autoloads from windmove.el
  
  (autoload (quote windmove-left) "windmove" "\
@@@ -29088,7 -29506,7 +29515,7 @@@ Default MODIFIER is 'shift
  ;;;***
  \f
  ;;;### (autoloads (winner-mode winner-mode) "winner" "winner.el"
- ;;;;;;  (17178 22157))
 -;;;;;;  (17148 25072))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from winner.el
  
  (defvar winner-mode nil "\
@@@ -29107,7 -29525,7 +29534,7 @@@ With arg, turn Winner mode on if and on
  ;;;***
  \f
  ;;;### (autoloads (woman-find-file woman-dired-find-file woman) "woman"
- ;;;;;;  "woman.el" (17178 22157))
 -;;;;;;  "woman.el" (17239 32255))
++;;;;;;  "woman.el" (17238 21257))
  ;;; Generated autoloads from woman.el
  
  (autoload (quote woman) "woman" "\
@@@ -29143,7 -29561,7 +29570,7 @@@ decompress the file if appropriate.  Se
  ;;;***
  \f
  ;;;### (autoloads (wordstar-mode) "ws-mode" "emulation/ws-mode.el"
- ;;;;;;  (17178 22144))
 -;;;;;;  (17205 6084))
++;;;;;;  (17226 24575))
  ;;; Generated autoloads from emulation/ws-mode.el
  
  (autoload (quote wordstar-mode) "ws-mode" "\
@@@ -29256,7 -29674,7 +29683,7 @@@ The key bindings are
  ;;;***
  \f
  ;;;### (autoloads (xml-parse-region xml-parse-file) "xml" "xml.el"
- ;;;;;;  (17178 22157))
 -;;;;;;  (17148 25076))
++;;;;;;  (17187 59902))
  ;;; Generated autoloads from xml.el
  
  (autoload (quote xml-parse-file) "xml" "\
@@@ -29281,8 -29699,8 +29708,8 @@@ If PARSE-NS is non-nil, then QNAMES ar
  
  ;;;***
  \f
- ;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (17178
- ;;;;;;  22157))
 -;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (17148
 -;;;;;;  25076))
++;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (17187
++;;;;;;  59919))
  ;;; Generated autoloads from xt-mouse.el
  
  (defvar xterm-mouse-mode nil "\
@@@ -29311,7 -29729,7 +29738,7 @@@ down the SHIFT key while pressing the m
  ;;;***
  \f
  ;;;### (autoloads (yenc-extract-filename yenc-decode-region) "yenc"
- ;;;;;;  "gnus/yenc.el" (17178 22146))
 -;;;;;;  "gnus/yenc.el" (17148 25154))
++;;;;;;  "gnus/yenc.el" (17187 59901))
  ;;; Generated autoloads from gnus/yenc.el
  
  (autoload (quote yenc-decode-region) "yenc" "\
@@@ -29327,7 -29745,7 +29754,7 @@@ Extract file name from an yenc header
  ;;;***
  \f
  ;;;### (autoloads (psychoanalyze-pinhead apropos-zippy insert-zippyism
- ;;;;;;  yow) "yow" "play/yow.el" (17178 22152))
 -;;;;;;  yow) "yow" "play/yow.el" (17140 20949))
++;;;;;;  yow) "yow" "play/yow.el" (17187 59902))
  ;;; Generated autoloads from play/yow.el
  
  (autoload (quote yow) "yow" "\
@@@ -29353,7 -29771,7 +29780,7 @@@ Zippy goes to the analyst
  
  ;;;***
  \f
- ;;;### (autoloads (zone) "zone" "play/zone.el" (17178 22152))
 -;;;### (autoloads (zone) "zone" "play/zone.el" (17239 32366))
++;;;### (autoloads (zone) "zone" "play/zone.el" (17229 28054))
  ;;; Generated autoloads from play/zone.el
  
  (autoload (quote zone) "zone" "\
@@@ -29364,7 -29782,7 +29791,7 @@@ Zone out, completely
  ;;;***
  \f
  ;;;### (autoloads (zone-mode zone-mode-update-serial-hook) "zone-mode"
- ;;;;;;  "net/zone-mode.el" (17178 22151))
 -;;;;;;  "net/zone-mode.el" (17140 20945))
++;;;;;;  "net/zone-mode.el" (17187 59902))
  ;;; Generated autoloads from net/zone-mode.el
  
  (autoload (quote zone-mode-update-serial-hook) "zone-mode" "\
@@@ -29406,9 -29824,9 +29833,9 @@@ Zone-mode does two things
  ;;;;;;  "calendar/cal-menu.el" "calendar/cal-move.el" "calendar/cal-persia.el"
  ;;;;;;  "calendar/cal-tex.el" "calendar/cal-x.el" "case-table.el"
  ;;;;;;  "cdl.el" "cus-dep.el" "cus-load.el" "cus-start.el" "custom.el"
- ;;;;;;  "dos-fns.el" "dos-vars.el" "dos-w32.el" "ediff-diff.el" "ediff-init.el"
- ;;;;;;  "ediff-merg.el" "ediff-ptch.el" "ediff-vers.el" "ediff-wind.el"
- ;;;;;;  "electric.el" "emacs-lisp/assoc.el" "emacs-lisp/authors.el"
+ ;;;;;;  "dframe.el" "dos-fns.el" "dos-vars.el" "dos-w32.el" "ediff-diff.el"
+ ;;;;;;  "ediff-init.el" "ediff-merg.el" "ediff-ptch.el" "ediff-vers.el"
+ ;;;;;;  "ediff-wind.el" "electric.el" "emacs-lisp/assoc.el" "emacs-lisp/authors.el"
  ;;;;;;  "emacs-lisp/bindat.el" "emacs-lisp/byte-opt.el" "emacs-lisp/byte-run.el"
  ;;;;;;  "emacs-lisp/cl-compat.el" "emacs-lisp/cl-extra.el" "emacs-lisp/cl-macs.el"
  ;;;;;;  "emacs-lisp/cl-seq.el" "emacs-lisp/cl-specs.el" "emacs-lisp/cust-print.el"
  ;;;;;;  "eshell/esh-cmd.el" "eshell/esh-ext.el" "eshell/esh-groups.el"
  ;;;;;;  "eshell/esh-io.el" "eshell/esh-maint.el" "eshell/esh-module.el"
  ;;;;;;  "eshell/esh-opt.el" "eshell/esh-proc.el" "eshell/esh-util.el"
- ;;;;;;  "eshell/esh-var.el" "faces.el" "files.el" "finder-inf.el"
+ ;;;;;;  "eshell/esh-var.el" "ezimage.el" "faces.el" "files.el" "finder-inf.el"
  ;;;;;;  "foldout.el" "font-core.el" "format.el" "forms-d2.el" "forms-pass.el"
  ;;;;;;  "frame.el" "generic-x.el" "gnus/compface.el" "gnus/dig.el"
  ;;;;;;  "gnus/dns.el" "gnus/format-spec.el" "gnus/gnus-async.el"
  ;;;;;;  "gnus/nnmail.el" "gnus/nnmaildir.el" "gnus/nnmbox.el" "gnus/nnmh.el"
  ;;;;;;  "gnus/nnnil.el" "gnus/nnoo.el" "gnus/nnrss.el" "gnus/nnslashdot.el"
  ;;;;;;  "gnus/nnspool.el" "gnus/nntp.el" "gnus/nnultimate.el" "gnus/nnvirtual.el"
- ;;;;;;  "gnus/nnwarchive.el" "gnus/nnweb.el" "gnus/nnwfm.el" "gnus/pgg-def.el"
- ;;;;;;  "gnus/pgg-gpg.el" "gnus/pgg-parse.el" "gnus/pgg-pgp.el" "gnus/pgg-pgp5.el"
- ;;;;;;  "gnus/pop3.el" "gnus/rfc1843.el" "gnus/rfc2045.el" "gnus/rfc2047.el"
- ;;;;;;  "gnus/rfc2104.el" "gnus/rfc2231.el" "gnus/sieve-manage.el"
- ;;;;;;  "gnus/smime.el" "gnus/spam-stat.el" "gnus/starttls.el" "gnus/utf7.el"
- ;;;;;;  "gnus/webmail.el" "help.el" "indent.el" "international/characters.el"
- ;;;;;;  "international/fontset.el" "international/iso-ascii.el" "international/iso-insert.el"
- ;;;;;;  "international/ja-dic-cnv.el" "international/ja-dic-utl.el"
- ;;;;;;  "international/latin-1.el" "international/latin-2.el" "international/latin-3.el"
- ;;;;;;  "international/latin-4.el" "international/latin-5.el" "international/latin-8.el"
- ;;;;;;  "international/latin-9.el" "international/mule-cmds.el" "international/mule-conf.el"
+ ;;;;;;  "gnus/nnwarchive.el" "gnus/nnweb.el" "gnus/nnwfm.el" "gnus/pop3.el"
+ ;;;;;;  "gnus/rfc1843.el" "gnus/rfc2045.el" "gnus/rfc2047.el" "gnus/rfc2104.el"
+ ;;;;;;  "gnus/rfc2231.el" "gnus/sieve-manage.el" "gnus/smime.el"
+ ;;;;;;  "gnus/spam-stat.el" "gnus/starttls.el" "gnus/utf7.el" "gnus/webmail.el"
+ ;;;;;;  "help.el" "indent.el" "international/characters.el" "international/fontset.el"
+ ;;;;;;  "international/iso-ascii.el" "international/ja-dic-cnv.el"
+ ;;;;;;  "international/ja-dic-utl.el" "international/latin-1.el"
+ ;;;;;;  "international/latin-2.el" "international/latin-3.el" "international/latin-4.el"
+ ;;;;;;  "international/latin-5.el" "international/latin-8.el" "international/latin-9.el"
+ ;;;;;;  "international/mule-cmds.el" "international/mule-conf.el"
  ;;;;;;  "international/mule.el" "international/ogonek.el" "international/subst-big5.el"
  ;;;;;;  "international/subst-gb2312.el" "international/subst-jis.el"
  ;;;;;;  "international/subst-ksc.el" "international/ucs-tables.el"
--;;;;;;  "international/utf-16.el" "international/utf-7.el" "international/utf-8.el"
--;;;;;;  "isearch.el" "jka-cmpr-hook.el" "kermit.el" "language/chinese.el"
--;;;;;;  "language/cyrillic.el" "language/czech.el" "language/devanagari.el"
--;;;;;;  "language/english.el" "language/ethiopic.el" "language/european.el"
--;;;;;;  "language/georgian.el" "language/greek.el" "language/hebrew.el"
--;;;;;;  "language/indian.el" "language/japanese.el" "language/kannada.el"
--;;;;;;  "language/korean.el" "language/lao.el" "language/malayalam.el"
--;;;;;;  "language/misc-lang.el" "language/romanian.el" "language/slovak.el"
--;;;;;;  "language/tamil.el" "language/thai-word.el" "language/thai.el"
--;;;;;;  "language/tibetan.el" "language/utf-8-lang.el" "language/vietnamese.el"
- ;;;;;;  "ldefs-boot.el" "loadup.el" "mail/blessmail.el" "mail/mailheader.el"
- ;;;;;;  "mail/mailpost.el" "mail/mspools.el" "mail/rfc2368.el" "mail/rfc822.el"
- ;;;;;;  "mail/rmail-spam-filter.el" "mail/uce.el" "mail/vms-pmail.el"
- ;;;;;;  "mh-e/mh-acros.el" "mh-e/mh-alias.el" "mh-e/mh-customize.el"
- ;;;;;;  "mh-e/mh-funcs.el" "mh-e/mh-gnus.el" "mh-e/mh-identity.el"
- ;;;;;;  "mh-e/mh-inc.el" "mh-e/mh-index.el" "mh-e/mh-junk.el" "mh-e/mh-loaddefs.el"
- ;;;;;;  "mh-e/mh-mime.el" "mh-e/mh-pick.el" "mh-e/mh-print.el" "mh-e/mh-seq.el"
- ;;;;;;  "mh-e/mh-speed.el" "mh-e/mh-utils.el" "misc.el" "mouse-copy.el"
- ;;;;;;  "mouse-drag.el" "mouse.el" "net/eudc-vars.el" "net/eudcb-bbdb.el"
- ;;;;;;  "net/eudcb-ldap.el" "net/eudcb-ph.el" "net/ldap.el" "net/netrc.el"
- ;;;;;;  "net/tls.el" "net/tramp-ftp.el" "net/tramp-smb.el" "net/tramp-util.el"
 -;;;;;;  "ldefs-boot.el" "ldefs.el" "ldefs1.el" "loadup.el" "mail/blessmail.el"
 -;;;;;;  "mail/mailheader.el" "mail/mailpost.el" "mail/mspools.el"
 -;;;;;;  "mail/rfc2368.el" "mail/rfc822.el" "mail/rmail-spam-filter.el"
++;;;;;;  "international/utf-16.el" "international/utf-8.el" "isearch.el"
++;;;;;;  "jka-cmpr-hook.el" "kermit.el" "language/chinese.el" "language/cyrillic.el"
++;;;;;;  "language/czech.el" "language/devanagari.el" "language/english.el"
++;;;;;;  "language/ethiopic.el" "language/european.el" "language/georgian.el"
++;;;;;;  "language/greek.el" "language/hebrew.el" "language/indian.el"
++;;;;;;  "language/japanese.el" "language/kannada.el" "language/korean.el"
++;;;;;;  "language/lao.el" "language/malayalam.el" "language/misc-lang.el"
++;;;;;;  "language/romanian.el" "language/slovak.el" "language/tamil.el"
++;;;;;;  "language/thai-word.el" "language/thai.el" "language/tibetan.el"
++;;;;;;  "language/utf-8-lang.el" "language/vietnamese.el" "ldefs-boot.el"
++;;;;;;  "loadup.el" "mail/blessmail.el" "mail/mailheader.el" "mail/mailpost.el"
++;;;;;;  "mail/mspools.el" "mail/rfc2368.el" "mail/rfc822.el" "mail/rmail-spam-filter.el"
+ ;;;;;;  "mail/uce.el" "mail/vms-pmail.el" "mh-e/mh-acros.el" "mh-e/mh-alias.el"
+ ;;;;;;  "mh-e/mh-customize.el" "mh-e/mh-funcs.el" "mh-e/mh-gnus.el"
+ ;;;;;;  "mh-e/mh-identity.el" "mh-e/mh-inc.el" "mh-e/mh-index.el"
+ ;;;;;;  "mh-e/mh-junk.el" "mh-e/mh-loaddefs.el" "mh-e/mh-mime.el"
+ ;;;;;;  "mh-e/mh-pick.el" "mh-e/mh-print.el" "mh-e/mh-seq.el" "mh-e/mh-speed.el"
+ ;;;;;;  "mh-e/mh-utils.el" "misc.el" "mouse-copy.el" "mouse-drag.el"
+ ;;;;;;  "mouse.el" "net/eudc-vars.el" "net/eudcb-bbdb.el" "net/eudcb-ldap.el"
+ ;;;;;;  "net/eudcb-ph.el" "net/ldap.el" "net/netrc.el" "net/tls.el"
+ ;;;;;;  "net/tramp-ftp.el" "net/tramp-smb.el" "net/tramp-util.el"
  ;;;;;;  "net/tramp-uu.el" "net/tramp-vc.el" "net/trampver.el" "obsolete/awk-mode.el"
  ;;;;;;  "obsolete/bg-mouse.el" "obsolete/float.el" "obsolete/hilit19.el"
- ;;;;;;  "obsolete/iso-swed.el" "obsolete/keyswap.el" "obsolete/mlsupport.el"
- ;;;;;;  "obsolete/ooutline.el" "obsolete/profile.el" "obsolete/rnews.el"
- ;;;;;;  "obsolete/sc.el" "obsolete/sun-curs.el" "obsolete/sun-fns.el"
- ;;;;;;  "obsolete/swedish.el" "obsolete/uncompress.el" "obsolete/x-apollo.el"
- ;;;;;;  "obsolete/x-menu.el" "patcomp.el" "paths.el" "pcvs-info.el"
- ;;;;;;  "pcvs-parse.el" "pcvs-util.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-compat.el" "progmodes/cc-defs.el" "progmodes/cc-fonts.el"
- ;;;;;;  "progmodes/cc-langs.el" "progmodes/cc-menus.el" "progmodes/cc-vars.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"
+ ;;;;;;  "obsolete/iso-insert.el" "obsolete/iso-swed.el" "obsolete/keyswap.el"
+ ;;;;;;  "obsolete/mlsupport.el" "obsolete/ooutline.el" "obsolete/profile.el"
+ ;;;;;;  "obsolete/rnews.el" "obsolete/sc.el" "obsolete/sun-curs.el"
+ ;;;;;;  "obsolete/sun-fns.el" "obsolete/swedish.el" "obsolete/uncompress.el"
+ ;;;;;;  "obsolete/x-apollo.el" "obsolete/x-menu.el" "patcomp.el"
+ ;;;;;;  "paths.el" "pcvs-info.el" "pcvs-parse.el" "pcvs-util.el"
+ ;;;;;;  "pgg-def.el" "pgg-gpg.el" "pgg-parse.el" "pgg-pgp.el" "pgg-pgp5.el"
+ ;;;;;;  "play/gamegrid.el" "play/gametree.el" "play/meese.el" "progmodes/ada-prj.el"
+ ;;;;;;  "progmodes/cc-align.el" "progmodes/cc-awk.el" "progmodes/cc-bytecomp.el"
+ ;;;;;;  "progmodes/cc-cmds.el" "progmodes/cc-compat.el" "progmodes/cc-defs.el"
+ ;;;;;;  "progmodes/cc-fonts.el" "progmodes/cc-langs.el" "progmodes/cc-menus.el"
+ ;;;;;;  "progmodes/cc-vars.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-rinfo.el" "progmodes/idlw-toolbar.el"
  ;;;;;;  "progmodes/mantemp.el" "progmodes/xscheme.el" "register.el"
- ;;;;;;  "replace.el" "s-region.el" "saveplace.el" "scroll-bar.el"
+ ;;;;;;  "replace.el" "s-region.el" "saveplace.el" "sb-image.el" "scroll-bar.el"
  ;;;;;;  "select.el" "simple.el" "soundex.el" "startup.el" "subdirs.el"
  ;;;;;;  "subr.el" "tempo.el" "term/AT386.el" "term/apollo.el" "term/bobcat.el"
  ;;;;;;  "term/cygwin.el" "term/internal.el" "term/iris-ansi.el" "term/linux.el"
  ;;;;;;  "textmodes/reftex-auc.el" "textmodes/reftex-dcr.el" "textmodes/reftex-ref.el"
  ;;;;;;  "textmodes/reftex-sel.el" "textmodes/reftex-toc.el" "textmodes/reftex-vars.el"
  ;;;;;;  "textmodes/texnfo-upd.el" "textmodes/text-mode.el" "timezone.el"
- ;;;;;;  "tree-widget.el" "uniquify.el" "url/url-about.el" "url/url-dired.el"
- ;;;;;;  "url/url-expand.el" "url/url-ftp.el" "url/url-https.el" "url/url-imap.el"
- ;;;;;;  "url/url-methods.el" "url/url-nfs.el" "url/url-proxy.el"
+ ;;;;;;  "tooltip.el" "tree-widget.el" "uniquify.el" "url/url-about.el"
+ ;;;;;;  "url/url-dired.el" "url/url-expand.el" "url/url-ftp.el" "url/url-https.el"
+ ;;;;;;  "url/url-imap.el" "url/url-methods.el" "url/url-nfs.el" "url/url-proxy.el"
  ;;;;;;  "url/url-vars.el" "url/vc-dav.el" "vc-hooks.el" "vcursor.el"
  ;;;;;;  "version.el" "vms-patch.el" "vmsproc.el" "vt-control.el"
  ;;;;;;  "vt100-led.el" "w32-fns.el" "w32-vars.el" "widget.el" "window.el"
- ;;;;;;  "x-dnd.el") (17178 25595 473948))
 -;;;;;;  "x-dnd.el") (17244 48301 523000))
++;;;;;;  "x-dnd.el") (17254 64782 199896))
  
  ;;;***
  \f
diff --combined lisp/server.el
@@@ -8,7 -8,6 +8,7 @@@
  ;; Keywords: processes
  
  ;; Changes by peck@sun.com and by rms.
 +;; Overhaul by Karoly Lorentey <lorentey@elte.hu> for multi-tty support.
  
  ;; This file is part of GNU Emacs.
  
@@@ -42,7 -41,7 +42,7 @@@
  ;; This program transmits the file names to Emacs through
  ;; the server subprocess, and Emacs visits them and lets you edit them.
  
 -;; Note that any number of clients may dispatch files to emacs to be edited.
 +;; Note that any number of clients may dispatch files to Emacs to be edited.
  
  ;; When you finish editing a Server buffer, again call server-edit
  ;; to mark that buffer as done for the client and switch to the next
  
  (defvar server-clients nil
    "List of current server clients.
 -Each element is (CLIENTID BUFFERS...) where CLIENTID is a string
 -that can be given to the server process to identify a client.
 -When a buffer is marked as \"done\", it is removed from this list.")
 +Each element is (PROC PROPERTIES...) where PROC is a process object,
 +and PROPERTIES is an association list of client properties.")
  
  (defvar server-buffer-clients nil
    "List of client ids for clients requesting editing of current buffer.")
@@@ -161,185 -161,62 +161,190 @@@ are done with it in the server."
  
  (defvar server-name "server")
  
 -(defvar server-socket-dir
 -  (format "/tmp/emacs%d" (user-uid)))
 +(defvar server-socket-dir nil
 +  "The directory in which to place the server socket.
 +Initialized by `server-start'.")
 +
 +(defun server-client (proc)
 +  "Return the Emacs client corresponding to PROC.
 +PROC must be a process object.
 +The car of the result is PROC; the cdr is an association list.
 +See `server-client-get' and `server-client-set'."
 +  (assq proc server-clients))
 +
 +(defun server-client-get (client property)
 +  "Get the value of PROPERTY in CLIENT.
 +CLIENT may be a process object, or a client returned by `server-client'.
 +Return nil if CLIENT has no such property."
 +  (or (listp client) (setq client (server-client client)))
 +  (cdr (assq property (cdr client))))
 +
 +(defun server-client-set (client property value)
 +  "Set the PROPERTY to VALUE in CLIENT, and return VALUE.
 +CLIENT may be a process object, or a client returned by `server-client'."
 +  (let (p proc)
 +    (if (listp client)
 +      (setq proc (car client))
 +      (setq proc client
 +          client (server-client client)))
 +    (setq p (assq property client))
 +    (cond
 +     (p (setcdr p value))
 +     (client (setcdr client (cons (cons property value) (cdr client))))
 +     (t (setq server-clients
 +            `((,proc (,property . ,value)) . ,server-clients))))
 +    value))
 +
 +(defun server-clients-with (property value)
 +  "Return a list of clients with PROPERTY set to VALUE."
 +  (let (result)
 +    (dolist (client server-clients result)
 +      (when (equal value (server-client-get client property))
 +      (setq result (cons (car client) result))))))
 +
 +(defun server-add-client (proc)
 +  "Create a client for process PROC, if it doesn't already have one.
 +New clients have no properties."
 +  (unless (server-client proc)
 +    (setq server-clients (cons (cons proc nil)
 +                             server-clients))))
 +
 +;;;###autoload
 +(defun server-getenv (variable &optional frame)
 +  "Get the value of VARIABLE in the client environment of frame FRAME.
 +VARIABLE should be a string.  Value is nil if VARIABLE is undefined in
 +the environment.  Otherwise, value is a string.
 +
 +If FRAME is an emacsclient frame, then the variable is looked up
 +in the environment of the emacsclient process; otherwise the
 +function consults the environment of the Emacs process.
 +
 +If FRAME is nil or missing, then the selected frame is used."
 +  (when (not frame) (setq frame (selected-frame)))
 +  (let ((client (frame-parameter frame 'client)) env)
 +    (if (null client)
 +      (getenv variable)
 +      (setq env (server-client-get client 'environment))
 +      (if (null env)
 +        (getenv variable)
 +      (cdr (assoc variable env))))))
 +
 +(defmacro server-with-client-environment (client vars &rest body)
 +  "Evaluate BODY with environment variables VARS set to those of CLIENT.
 +The environment variables are then restored to their previous values.
 +
 +VARS should be a list of strings."
 +  (declare (indent 2))
 +  (let ((oldvalues (make-symbol "oldvalues"))
 +      (var (make-symbol "var"))
 +      (value (make-symbol "value"))
 +      (pair (make-symbol "pair")))
 +    `(let (,oldvalues)
 +       (dolist (,var (quote ,vars))
 +       (let ((,value (cdr (assoc ,var (server-client-get ,client 'environment)))))
 +         (setq ,oldvalues (cons (cons ,var (getenv ,var)) ,oldvalues))
 +         (setenv ,var ,value)))
 +       (unwind-protect
 +         (progn ,@body)
 +       (dolist (,pair ,oldvalues)
 +         (setenv (car ,pair) (cdr ,pair)))))))
 +
 +(defun server-delete-client (client &optional noframe)
 +  "Delete CLIENT, including its buffers, devices and frames.
 +If NOFRAME is non-nil, let the frames live.  (To be used from
 +`delete-frame-functions'."
 +  ;; Force a new lookup of client (prevents infinite recursion).
 +  (setq client (server-client
 +              (if (listp client) (car client) client)))
 +  (let ((proc (car client))
 +      (buffers (server-client-get client 'buffers)))
 +    (when client
 +      (setq server-clients (delq client server-clients))
 +
 +      (dolist (buf buffers)
 +      (when (buffer-live-p buf)
 +        (with-current-buffer buf
 +          ;; Remove PROC from the clients of each buffer.
 +          (setq server-buffer-clients (delq proc server-buffer-clients))
 +          ;; Kill the buffer if necessary.
 +          (when (and (null server-buffer-clients)
 +                     (or (and server-kill-new-buffers
 +                              (not server-existing-buffer))
 +                         (server-temp-file-p)))
 +            (kill-buffer (current-buffer))))))
 +
 +      ;; Delete the client's tty.
 +      (let ((device (server-client-get client 'device)))
 +      (when (eq (display-live-p device) t)
 +        (delete-display device)))
 +
 +      ;; Delete the client's frames.
 +      (unless noframe
 +      (dolist (frame (frame-list))
 +        (if (and (frame-live-p frame)
 +                 (equal (car client) (frame-parameter frame 'client)))
 +            (delete-frame frame))))
 +
 +      ;; Delete the client's process.
 +      (if (eq (process-status (car client)) 'open)
 +        (delete-process (car client)))
 +
 +      (server-log "Deleted" proc))))
  
  (defun server-log (string &optional client)
 -  "If a *server* buffer exists, write STRING to it for logging purposes."
 +  "If a *server* buffer exists, write STRING to it for logging purposes.
 +If CLIENT is non-nil, add a description of it to the logged
 +message."
    (if (get-buffer "*server*")
        (with-current-buffer "*server*"
        (goto-char (point-max))
        (insert (current-time-string)
 -              (if client (format " %s:" client) " ")
 +              (cond
 +               ((null client) " ")
 +               ((listp client) (format " %s: " (car client)))
 +               (t (format " %s: " client)))
                string)
        (or (bolp) (newline)))))
  
  (defun server-sentinel (proc msg)
 -  (let ((client (assq proc server-clients)))
 -    ;; Remove PROC from the list of clients.
 -    (when client
 -      (setq server-clients (delq client server-clients))
 -      (dolist (buf (cdr client))
 -      (with-current-buffer buf
 -        ;; Remove PROC from the clients of each buffer.
 -        (setq server-buffer-clients (delq proc server-buffer-clients))
 -        ;; Kill the buffer if necessary.
 -        (when (and (null server-buffer-clients)
 -                   (or (and server-kill-new-buffers
 -                            (not server-existing-buffer))
 -                       (server-temp-file-p)))
 -          (kill-buffer (current-buffer)))))))
 +  "The process sentinel for Emacs server connections."
+   ;; If this is a new client process, set the query-on-exit flag to nil
+   ;; for this process (it isn't inherited from the server process).
+   (when (and (eq (process-status proc) 'open)
+            (process-query-on-exit-flag proc))
+     (set-process-query-on-exit-flag proc nil))
 -  (server-log (format "Status changed to %s" (process-status proc)) proc))
 -
 -(defun server-select-display (display)
 -  ;; If the current frame is on `display' we're all set.
 -  (unless (equal (frame-parameter (selected-frame) 'display) display)
 -    ;; Otherwise, look for an existing frame there and select it.
 -    (dolist (frame (frame-list))
 -      (when (equal (frame-parameter frame 'display) display)
 -      (select-frame frame)))
 -    ;; If there's no frame on that display yet, create a dummy one
 -    ;; and select it.
 -    (unless (equal (frame-parameter (selected-frame) 'display) display)
 -      (select-frame
 -       (make-frame-on-display
 -      display
 -      ;; This frame is only there in place of an actual "current display"
 -      ;; setting, so we want it to be as unobtrusive as possible.  That's
 -      ;; what the invisibility is for.  The minibuffer setting is so that
 -      ;; we don't end up displaying a buffer in it (which noone would
 -      ;; notice).
 -      '((visibility . nil) (minibuffer . only)))))))
 +  (server-log (format "Status changed to %s: %s" (process-status proc) msg) proc)
 +  (server-delete-client proc))
 +
 +(defun server-handle-delete-frame (frame)
 +  "Delete the client connection when the emacsclient frame is deleted."
 +  (let ((proc (frame-parameter frame 'client)))
 +    (when (and (frame-live-p frame)
 +             proc
 +             (or (window-system frame)
 +                 ;; A terminal device must not yet be deleted if
 +                 ;; there are other frames on it.
 +                 (< 0 (let ((frame-num 0))
 +                        (mapc (lambda (f)
 +                                (when (eq (frame-display f)
 +                                          (frame-display frame))
 +                                  (setq frame-num (1+ frame-num))))
 +                              (frame-list))
 +                        frame-num))))
 +      (server-log (format "server-handle-delete-frame, frame %s" frame) proc)
 +      (server-delete-client proc 'noframe)))) ; Let delete-frame delete the frame later.
 +
 +(defun server-handle-suspend-tty (device)
 +  "Notify the emacsclient process to suspend itself when its tty device is suspended."
 +  (dolist (proc (server-clients-with 'device device))
 +    (server-log (format "server-handle-suspend-tty, device %s" device) proc)
 +    (condition-case err
 +      (server-send-string proc "-suspend \n")
 +      (file-error (condition-case nil (server-delete-client proc) (error nil))))))
  
  (defun server-unquote-arg (arg)
 +  "Remove &-quotation from ARG.
 +See `server-quote-arg' and `server-process-filter'."
    (replace-regexp-in-string
     "&." (lambda (s)
          (case (aref s 1)
            (t " ")))
     arg t t))
  
 +(defun server-quote-arg (arg)
 +  "In ARG, insert a & before each &, each space, each newline, and -.
 +Change spaces to underscores, too, so that the return value never
 +contains a space.
 +
 +See `server-unquote-arg' and `server-process-filter'."
 +  (replace-regexp-in-string
 +   "[-&\n ]" (lambda (s)
 +             (case (aref s 0)
 +               (?& "&&")
 +               (?- "&-")
 +               (?\n "&n")
 +               (?\s "&_")))
 +   arg t t))
 +
 +(defun server-send-string (proc string)
 +  "A wrapper around `proc-send-string' for logging."
 +  (server-log (concat "Sent " string) proc)
 +  (process-send-string proc string))
 +
  (defun server-ensure-safe-dir (dir)
    "Make sure DIR is a directory with no race-condition issues.
  Creates the directory if necessary and makes sure:
  (defun server-start (&optional leave-dead)
    "Allow this Emacs process to be a server for client processes.
  This starts a server communications subprocess through which
 -client \"editors\" can send your editing commands to this Emacs job.
 -To use the server, set up the program `emacsclient' in the
 +client \"editors\" can send your editing commands to this Emacs
 +job.  To use the server, set up the program `emacsclient' in the
  Emacs distribution as your standard \"editor\".
  
 -Prefix arg means just kill any existing server communications subprocess."
 +Prefix arg LEAVE-DEAD means just kill any existing server
 +communications subprocess."
    (interactive "P")
 -  ;; Make sure there is a safe directory in which to place the socket.
 -  (server-ensure-safe-dir server-socket-dir)
 -  ;; kill it dead!
 -  (if server-process
 -      (condition-case () (delete-process server-process) (error nil)))
 -  ;; Delete the socket files made by previous server invocations.
 -  (condition-case ()
 -      (delete-file (expand-file-name server-name server-socket-dir))
 -    (error nil))
 -  ;; If this Emacs already had a server, clear out associated status.
 -  (while server-clients
 -    (let ((buffer (nth 1 (car server-clients))))
 -      (server-buffer-done buffer)))
 -  (unless leave-dead
 +  (when (or
 +       (not server-clients)
 +       (yes-or-no-p
 +        "The current server still has clients; delete them? "))
 +    ;; It is safe to get the user id now.
 +    (setq server-socket-dir (or server-socket-dir
 +                              (format "/tmp/emacs%d" (user-uid))))
 +    ;; Make sure there is a safe directory in which to place the socket.
 +    (server-ensure-safe-dir server-socket-dir)
 +    ;; kill it dead!
      (if server-process
 -      (server-log (message "Restarting server")))
 -    (letf (((default-file-modes) ?\700))
 -      (setq server-process
 -          (make-network-process
 -           :name "server" :family 'local :server t :noquery t
 -           :service (expand-file-name server-name server-socket-dir)
 -           :sentinel 'server-sentinel :filter 'server-process-filter
 -           ;; We must receive file names without being decoded.
 -           ;; Those are decoded by server-process-filter according
 -           ;; to file-name-coding-system.
 -           :coding 'raw-text)))))
 +      (condition-case () (delete-process server-process) (error nil)))
 +    ;; Delete the socket files made by previous server invocations.
 +    (condition-case ()
 +      (delete-file (expand-file-name server-name server-socket-dir))
 +      (error nil))
 +    ;; If this Emacs already had a server, clear out associated status.
 +    (while server-clients
 +      (server-delete-client (car server-clients)))
 +    (if leave-dead
 +      (progn
 +        (server-log (message "Server stopped"))
 +        (setq server-process nil))
 +      (if server-process
 +        (server-log (message "Restarting server"))
 +      (server-log (message "Starting server")))
 +      (letf (((default-file-modes) ?\700))
 +      (add-hook 'suspend-tty-functions 'server-handle-suspend-tty)
 +      (add-hook 'delete-frame-functions 'server-handle-delete-frame)
 +      (add-hook 'kill-buffer-query-functions 'server-kill-buffer-query-function)
 +      (add-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function)
 +      (setq server-process
 +            (make-network-process
 +             :name "server" :family 'local :server t :noquery t
 +             :service (expand-file-name server-name server-socket-dir)
 +             :sentinel 'server-sentinel :filter 'server-process-filter
 +             ;; We must receive file names without being decoded.
 +             ;; Those are decoded by server-process-filter according
 +             ;; to file-name-coding-system.
 +             :coding 'raw-text))))))
  
  ;;;###autoload
  (define-minor-mode server-mode
@@@ -452,355 -294,105 +457,355 @@@ Server mode runs a process that accept
  \f
  (defun server-process-filter (proc string)
    "Process a request from the server to edit some files.
 -PROC is the server process.  Format of STRING is \"PATH PATH PATH... \\n\"."
 -  (server-log string proc)
 +PROC is the server process.  STRING consists of a sequence of
 +commands prefixed by a dash.  Some commands have arguments; these
 +are &-quoted and need to be decoded by `server-unquote-arg'.  The
 +filter parses and executes these commands.
 +
 +To illustrate the protocol, here is an example command that
 +emacsclient sends to create a new X frame (note that the whole
 +sequence is sent on a single line):
 +
 +      -version 21.3.50 xterm
 +      -env HOME /home/lorentey
 +      -env DISPLAY :0.0
 +      ... lots of other -env commands
 +      -display :0.0
 +      -window-system
 +
 +The server normally sends back the single command `-good-version'
 +as a response.
 +
 +The following commands are accepted by the server:
 +
 +`-version CLIENT-VERSION'
 +  Check version numbers between server and client, and signal an
 +  error if there is a mismatch.  The server replies with
 +  `-good-version' to confirm the match.
 +
 +`-env NAME VALUE'
 +  An environment variable on the client side.
 +
 +`-current-frame'
 +  Forbid the creation of new frames.
 +
 +`-nowait'
 +  Request that the next frame created should not be
 +  associated with this client.
 +
 +`-display DISPLAY'
 +  Set the display name to open X frames on.
 +
 +`-position LINE[:COLUMN]'
 +  Go to the given line and column number
 +  in the next file opened.
 +
 +`-file FILENAME'
 +  Load the given file in the current frame.
 +
 +`-eval EXPR'
 +  Evaluate EXPR as a Lisp expression and return the
 +  result in -print commands.
 +
 +`-window-system'
 +  Open a new X frame.
 +
 +`-tty DEVICENAME TYPE'
 +  Open a new tty frame at the client.
 +
 +`-resume'
 +  Resume this tty frame. The client sends this string when it
 +  gets the SIGCONT signal and it is the foreground process on its
 +  controlling tty.
 +
 +`-suspend'
 +  Suspend this tty frame.  The client sends this string in
 +  response to SIGTSTP and SIGTTOU.  The server must cease all I/O
 +  on this tty until it gets a -resume command.
 +
 +`-ignore COMMENT'
 +  Do nothing, but put the comment in the server
 +  log.  Useful for debugging.
 +
 +
 +The following commands are accepted by the client:
 +
 +`-good-version'
 +  Signals a version match between the client and the server.
 +
 +`-emacs-pid PID'
 +  Describes the process id of the Emacs process;
 +  used to forward window change signals to it.
 +
 +`-window-system-unsupported'
 +  Signals that the server does not
 +  support creating X frames; the client must try again with a tty
 +  frame.
 +
 +`-print STRING'
 +  Print STRING on stdout.  Used to send values
 +  returned by -eval.
 +
 +`-error DESCRIPTION'
 +  Signal an error (but continue processing).
 +
 +`-suspend'
 +  Suspend this terminal, i.e., stop the client process.  Sent
 +  when the user presses C-z."
 +  (server-log (concat "Received " string) proc)
    (let ((prev (process-get proc 'previous-string)))
      (when prev
        (setq string (concat prev string))
        (process-put proc 'previous-string nil)))
 -  ;; If the input is multiple lines,
 -  ;; process each line individually.
 -  (while (string-match "\n" string)
 -    (let ((request (substring string 0 (match-beginning 0)))
 -        (coding-system (and default-enable-multibyte-characters
 -                            (or file-name-coding-system
 -                                default-file-name-coding-system)))
 -        client nowait eval
 -        (files nil)
 -        (lineno 1)
 -        (tmp-frame nil) ; Sometimes used to embody the selected display.
 -        (columnno 0))
 -      ;; Remove this line from STRING.
 -      (setq string (substring string (match-end 0)))
 -      (setq client (cons proc nil))
 -      (while (string-match "[^ ]* " request)
 -      (let ((arg (substring request (match-beginning 0) (1- (match-end 0)))))
 -        (setq request (substring request (match-end 0)))
 -        (cond
 -         ((equal "-nowait" arg) (setq nowait t))
 -         ((equal "-eval" arg) (setq eval t))
 -         ((and (equal "-display" arg) (string-match "\\([^ ]*\\) " request))
 -          (let ((display (server-unquote-arg (match-string 1 request))))
 -            (setq request (substring request (match-end 0)))
 -            (condition-case err
 -                (setq tmp-frame (server-select-display display))
 -              (error (process-send-string proc (nth 1 err))
 -                     (setq request "")))))
 -         ;; ARG is a line number option.
 -         ((string-match "\\`\\+[0-9]+\\'" arg)
 -          (setq lineno (string-to-number (substring arg 1))))
 -         ;; ARG is line number:column option.
 -         ((string-match "\\`+\\([0-9]+\\):\\([0-9]+\\)\\'" arg)
 -          (setq lineno (string-to-number (match-string 1 arg))
 -                columnno (string-to-number (match-string 2 arg))))
 -         (t
 -          ;; Undo the quoting that emacsclient does
 -          ;; for certain special characters.
 -          (setq arg (server-unquote-arg arg))
 -          ;; Now decode the file name if necessary.
 -          (if coding-system
 -              (setq arg (decode-coding-string arg coding-system)))
 -          (if eval
 -              (let ((v (eval (car (read-from-string arg)))))
 -                (when v
 -                  (with-temp-buffer
 -                    (let ((standard-output (current-buffer)))
 -                      (pp v)
 -                      ;; Suppress the error rose when the pipe to PROC is closed.
 -                      (condition-case err
 -                          (process-send-region proc (point-min) (point-max))
 -                        (file-error nil)
 -                        (error nil))
 -                      ))))
 -            ;; ARG is a file name.
 -            ;; Collapse multiple slashes to single slashes.
 -            (setq arg (command-line-normalize-file-name arg))
 -            (push (list arg lineno columnno) files))
 -          (setq lineno 1)
 -          (setq columnno 0)))))
 -      (when files
 -      (run-hooks 'pre-command-hook)
 -      (server-visit-files files client nowait)
 -      (run-hooks 'post-command-hook))
 -      ;; CLIENT is now a list (CLIENTNUM BUFFERS...)
 -      (if (null (cdr client))
 -        ;; This client is empty; get rid of it immediately.
 -        (progn
 -          (delete-process proc)
 -          (server-log "Close empty client" proc))
 -      ;; We visited some buffer for this client.
 -      (or nowait (push client server-clients))
 -      (unless (or isearch-mode (minibufferp))
 -        (server-switch-buffer (nth 1 client))
 -        (run-hooks 'server-switch-hook)
 -        (unless nowait
 -          (message "%s" (substitute-command-keys
 -                    "When done with a buffer, type \\[server-edit]")))))
 -      ;; Avoid preserving the connection after the last real frame is deleted.
 -      (if tmp-frame (delete-frame tmp-frame))))
 -  ;; Save for later any partial line that remains.
 -  (when (> (length string) 0)
 -    (process-put proc 'previous-string string)))
 +  (condition-case err
 +      (progn
 +      (server-add-client proc)
 +      ;; If the input is multiple lines,
 +      ;; process each line individually.
 +      (while (string-match "\n" string)
 +        (let ((request (substring string 0 (match-beginning 0)))
 +              (coding-system (and default-enable-multibyte-characters
 +                                  (or file-name-coding-system
 +                                      default-file-name-coding-system)))
 +              (client (server-client proc))
 +              current-frame
 +              nowait ; t if emacsclient does not want to wait for us.
 +              frame ; The frame that was opened for the client (if any).
 +              display ; Open the frame on this display.
 +              dontkill       ; t if the client should not be killed.
 +              (files nil)
 +              (lineno 1)
 +              (columnno 0))
 +          ;; Remove this line from STRING.
 +          (setq string (substring string (match-end 0)))
 +          (while (string-match " *[^ ]* " request)
 +            (let ((arg (substring request (match-beginning 0) (1- (match-end 0)))))
 +              (setq request (substring request (match-end 0)))
 +              (cond
 +               ;; -version CLIENT-VERSION:
 +               ;; Check version numbers, signal an error if there is a mismatch.
 +               ((and (equal "-version" arg)
 +                     (string-match "\\([0-9.]+\\) " request))
 +                (let* ((client-version (match-string 1 request))
 +                       (truncated-emacs-version
 +                        (substring emacs-version 0 (length client-version))))
 +                  (setq request (substring request (match-end 0)))
 +                  (if (equal client-version truncated-emacs-version)
 +                      (progn
 +                        (server-send-string proc "-good-version \n")
 +                        (server-client-set client 'version client-version))
 +                    (error (concat "Version mismatch: Emacs is "
 +                                   truncated-emacs-version
 +                                   ", emacsclient is " client-version)))))
 +
 +               ;; -nowait:  Emacsclient won't wait for a result.
 +               ((equal "-nowait" arg) (setq nowait t))
 +
 +               ;; -current-frame:  Don't create frames.
 +               ((equal "-current-frame" arg) (setq current-frame t))
 +
 +               ;; -display DISPLAY:
 +               ;; Open X frames on the given instead of the default.
 +               ((and (equal "-display" arg) (string-match "\\([^ ]*\\) " request))
 +                (setq display (match-string 1 request)
 +                      request (substring request (match-end 0))))
 +
 +               ;; -window-system:  Open a new X frame.
 +               ((equal "-window-system" arg)
 +                (unless (server-client-get client 'version)
 +                  (error "Protocol error; make sure to use the correct version of emacsclient"))
 +                (unless current-frame
 +                  (if (fboundp 'x-create-frame)
 +                      (let ((params (if nowait
 +                                        ;; Flag frame as client-created, but use a dummy client.
 +                                        ;; This will prevent the frame from being deleted when
 +                                        ;; emacsclient quits while also preventing
 +                                        ;; `server-save-buffers-kill-display' from unexpectedly
 +                                        ;; killing emacs on that frame.
 +                                        (list (cons 'client 'nowait))
 +                                      (list (cons 'client proc)))))
 +                        (setq frame (make-frame-on-display
 +                                     (or display
 +                                         (frame-parameter nil 'device)
 +                                         (getenv "DISPLAY")
 +                                         (error "Please specify display"))
 +                                     params))
 +                        (server-log (format "%s created" frame) proc)
 +                        ;; XXX We need to ensure the parameters are
 +                        ;; really set because Emacs forgets unhandled
 +                        ;; initialization parameters for X frames at
 +                        ;; the moment.
 +                        (modify-frame-parameters frame params)
 +                        (select-frame frame)
 +                        (server-client-set client 'frame frame)
 +                        (server-client-set client 'device (frame-display frame))
 +                        (setq dontkill t))
 +                    ;; This emacs does not support X.
 +                    (server-log "Window system unsupported" proc)
 +                    (server-send-string proc "-window-system-unsupported \n")
 +                    (setq dontkill t))))
 +
 +               ;; -resume:  Resume a suspended tty frame.
 +               ((equal "-resume" arg)
 +                (let ((device (server-client-get client 'device)))
 +                  (setq dontkill t)
 +                  (when (eq (display-live-p device) t)
 +                    (resume-tty device))))
 +
 +               ;; -suspend:  Suspend the client's frame.  (In case we
 +               ;; get out of sync, and a C-z sends a SIGTSTP to
 +               ;; emacsclient.)
 +               ((equal "-suspend" arg)
 +                (let ((device (server-client-get client 'device)))
 +                  (setq dontkill t)
 +                  (when (eq (display-live-p device) t)
 +                    (suspend-tty device))))
 +
 +               ;; -ignore COMMENT:  Noop; useful for debugging emacsclient.
 +               ;; (The given comment appears in the server log.)
 +               ((and (equal "-ignore" arg) (string-match "\\([^ ]*\\) " request))
 +                (setq dontkill t
 +                      request (substring request (match-end 0))))
 +
 +               ;; -tty DEVICE-NAME TYPE:  Open a new tty frame at the client.
 +               ((and (equal "-tty" arg) (string-match "\\([^ ]*\\) \\([^ ]*\\) " request))
 +                (let ((tty (server-unquote-arg (match-string 1 request)))
 +                      (type (server-unquote-arg (match-string 2 request))))
 +                  (setq request (substring request (match-end 0)))
 +                  (unless (server-client-get client 'version)
 +                    (error "Protocol error; make sure you use the correct version of emacsclient"))
 +                  (unless current-frame
 +                    (server-with-client-environment proc
 +                        ("LANG" "LC_CTYPE" "LC_ALL"
 +                         ;; For tgetent(3); list according to ncurses(3).
 +                         "BAUDRATE" "COLUMNS" "ESCDELAY" "HOME" "LINES"
 +                         "NCURSES_ASSUMED_COLORS" "NCURSES_NO_PADDING"
 +                         "NCURSES_NO_SETBUF" "TERM" "TERMCAP" "TERMINFO"
 +                         "TERMINFO_DIRS" "TERMPATH")
 +                      (setq frame (make-frame-on-tty tty type
 +                                                     ;; Ignore nowait here; we always need to clean
 +                                                     ;; up opened ttys when the client dies.
 +                                                     `((client . ,proc)))))
 +                    (select-frame frame)
 +                    (server-client-set client 'frame frame)
 +                    (server-client-set client 'tty (display-name frame))
 +                    (server-client-set client 'device (frame-display frame))
 +
 +                    ;; Reply with our pid.
 +                    (server-send-string proc (concat "-emacs-pid " (number-to-string (emacs-pid)) "\n"))
 +                    (setq dontkill t))))
 +
 +               ;; -position LINE:  Go to the given line in the next file.
 +               ((and (equal "-position" arg) (string-match "\\(\\+[0-9]+\\) " request))
 +                (setq lineno (string-to-number (substring (match-string 1 request) 1))
 +                      request (substring request (match-end 0))))
 +
 +               ;; -position LINE:COLUMN:  Set point to the given position in the next file.
 +               ((and (equal "-position" arg) (string-match "\\+\\([0-9]+\\):\\([0-9]+\\) " request))
 +                (setq lineno (string-to-number (match-string 1 request))
 +                      columnno (string-to-number (match-string 2 request))
 +                      request (substring request (match-end 0))))
 +
 +               ;; -file FILENAME:  Load the given file.
 +               ((and (equal "-file" arg) (string-match "\\([^ ]+\\) " request))
 +                (let ((file (server-unquote-arg (match-string 1 request))))
 +                  (setq request (substring request (match-end 0)))
 +                  (if coding-system
 +                      (setq file (decode-coding-string file coding-system)))
 +                  (setq file (command-line-normalize-file-name file))
 +                  (push (list file lineno columnno) files)
 +                  (server-log (format "New file: %s (%d:%d)" file lineno columnno) proc))
 +                (setq lineno 1
 +                      columnno 0))
 +
 +               ;; -eval EXPR:  Evaluate a Lisp expression.
 +               ((and (equal "-eval" arg) (string-match "\\([^ ]+\\) " request))
 +                (let ((expr (server-unquote-arg (match-string 1 request))))
 +                  (setq request (substring request (match-end 0)))
 +                  (if coding-system
 +                      (setq expr (decode-coding-string expr coding-system)))
 +                  (let ((v (eval (car (read-from-string expr)))))
 +                    (when (and (not frame) v)
 +                      (with-temp-buffer
 +                        (let ((standard-output (current-buffer)))
 +                          (pp v)
 +                          (server-send-string
 +                           proc (format "-print %s\n"
 +                                        (server-quote-arg
 +                                         (buffer-substring-no-properties (point-min)
 +                                                                         (point-max)))))))))
 +                  (setq lineno 1
 +                        columnno 0)))
 +
 +               ;; -env NAME VALUE:  An environment variable.
 +               ((and (equal "-env" arg) (string-match "\\([^ ]+\\) \\([^ ]+\\) " request))
 +                (let ((name (server-unquote-arg (match-string 1 request)))
 +                      (value (server-unquote-arg (match-string 2 request))))
 +                  (when coding-system
 +                      (setq name (decode-coding-string name coding-system))
 +                      (setq value (decode-coding-string value coding-system)))
 +                  (setq request (substring request (match-end 0)))
 +                  (server-client-set
 +                   client 'environment
 +                   (cons (cons name value)
 +                         (server-client-get client 'environment)))))
 +
 +               ;; Unknown command.
 +               (t (error "Unknown command: %s" arg)))))
 +
 +          (let (buffers)
 +            (when files
 +              (run-hooks 'pre-command-hook)
 +              (setq buffers (server-visit-files files client nowait))
 +              (run-hooks 'post-command-hook))
 +
 +            ;; Delete the client if necessary.
 +            (cond
 +             (nowait
 +              ;; Client requested nowait; return immediately.
 +              (server-log "Close nowait client" proc)
 +              (server-delete-client proc))
 +             ((and (not dontkill) (null buffers))
 +              ;; This client is empty; get rid of it immediately.
 +              (server-log "Close empty client" proc)
 +              (server-delete-client proc)))
 +            (cond
 +             ((or isearch-mode (minibufferp))
 +              nil)
 +             ((and frame (null buffers))
 +              (message "%s" (substitute-command-keys
 +                             "When done with this frame, type \\[delete-frame]")))
 +             ((not (null buffers))
 +              (server-switch-buffer (car buffers))
 +              (run-hooks 'server-switch-hook)
 +              (unless nowait
 +                (message "%s" (substitute-command-keys
 +                               "When done with a buffer, type \\[server-edit]"))))))))
 +
 +      ;; Save for later any partial line that remains.
 +      (when (> (length string) 0)
 +        (process-put proc 'previous-string string)))
 +    ;; condition-case
 +    (error (ignore-errors
 +           (server-send-string
 +            proc (concat "-error " (server-quote-arg (error-message-string err))))
 +           (setq string "")
 +           (server-log (error-message-string err) proc)
 +           (delete-process proc)))))
  
  (defun server-goto-line-column (file-line-col)
 +  "Move point to the position indicated in FILE-LINE-COL.
 +FILE-LINE-COL should be a three-element list as described in
 +`server-visit-files'."
    (goto-line (nth 1 file-line-col))
    (let ((column-number (nth 2 file-line-col)))
      (if (> column-number 0)
        (move-to-column (1- column-number)))))
  
  (defun server-visit-files (files client &optional nowait)
 -  "Find FILES and return the list CLIENT with the buffers nconc'd.
 +  "Find FILES and return a list of buffers created.
  FILES is an alist whose elements are (FILENAME LINENUMBER COLUMNNUMBER).
 +CLIENT is the client that requested this operation.
  NOWAIT non-nil means this client is not waiting for the results,
  so don't mark these buffers specially, just visit them normally."
    ;; Bind last-nonmenu-event to force use of keyboard, not mouse, for queries.
                           (revert-buffer t nil)))
                      (t
                       (if (y-or-n-p
 -                          (concat "File no longer exists: "
 -                                  filen
 +                          (concat "File no longer exists: " filen
                                    ", write buffer to file? "))
                           (write-file filen))))
                (setq server-existing-buffer t)
          (add-hook 'kill-buffer-hook 'server-kill-buffer nil t)
          (push (car client) server-buffer-clients))
        (push (current-buffer) client-record)))
 -    (nconc client client-record)))
 +    (unless nowait
 +      (server-client-set
 +       client 'buffers
 +       (nconc (server-client-get client 'buffers) client-record)))
 +    client-record))
  \f
  (defun server-buffer-done (buffer &optional for-killing)
    "Mark BUFFER as \"done\" for its client(s).
@@@ -850,24 -439,27 +855,24 @@@ or nil.  KILLED is t if we killed BUFFE
  a temp file).
  FOR-KILLING if non-nil indicates that we are called from `kill-buffer'."
    (let ((next-buffer nil)
 -      (killed nil)
 -      (old-clients server-clients))
 -    (while old-clients
 -      (let ((client (car old-clients)))
 +      (killed nil))
 +    (dolist (client server-clients)
 +      (let ((buffers (server-client-get client 'buffers)))
        (or next-buffer
 -          (setq next-buffer (nth 1 (memq buffer client))))
 -      (delq buffer client)
 -      ;; Delete all dead buffers from CLIENT.
 -      (let ((tail client))
 -        (while tail
 -          (and (bufferp (car tail))
 -               (null (buffer-name (car tail)))
 -               (delq (car tail) client))
 -          (setq tail (cdr tail))))
 -      ;; If client now has no pending buffers,
 -      ;; tell it that it is done, and forget it entirely.
 -      (unless (cdr client)
 -        (delete-process (car client))
 -        (server-log "Close" (car client))
 -        (setq server-clients (delq client server-clients))))
 -      (setq old-clients (cdr old-clients)))
 +          (setq next-buffer (nth 1 (memq buffer buffers))))
 +      (when buffers                   ; Ignore bufferless clients.
 +        (setq buffers (delq buffer buffers))
 +        ;; Delete all dead buffers from CLIENT.
 +        (dolist (b buffers)
 +          (and (bufferp b)
 +               (not (buffer-live-p b))
 +               (setq buffers (delq b buffers))))
 +        (server-client-set client 'buffers buffers)
 +        ;; If client now has no pending buffers,
 +        ;; tell it that it is done, and forget it entirely.
 +        (unless buffers
 +          (server-log "Close" client)
 +          (server-delete-client client)))))
      (if (and (bufferp buffer) (buffer-name buffer))
        ;; We may or may not kill this buffer;
        ;; if we do, do not call server-buffer-done recursively
@@@ -932,32 -524,30 +937,32 @@@ specifically for the clients and did no
  ;; but I think that is dangerous--the client would proceed
  ;; using whatever is on disk in that file. -- rms.
  (defun server-kill-buffer-query-function ()
 +  "Ask before killing a server buffer."
    (or (not server-buffer-clients)
 +      (let ((res t))
 +      (dolist (proc server-buffer-clients res)
 +        (let ((client (server-client proc)))
 +          (when (and client (eq (process-status proc) 'open))
 +            (setq res nil)))))
        (yes-or-no-p (format "Buffer `%s' still has clients; kill it? "
                           (buffer-name (current-buffer))))))
  
 -(add-hook 'kill-buffer-query-functions
 -        'server-kill-buffer-query-function)
 -
  (defun server-kill-emacs-query-function ()
 -  (let (live-client
 -      (tail server-clients))
 -    ;; See if any clients have any buffers that are still alive.
 -    (while tail
 -      (if (memq t (mapcar 'stringp (mapcar 'buffer-name (cdr (car tail)))))
 -        (setq live-client t))
 -      (setq tail (cdr tail)))
 -    (or (not live-client)
 -      (yes-or-no-p "Server buffers still have clients; exit anyway? "))))
 -
 -(add-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function)
 +  "Ask before exiting Emacs it has live clients."
 +  (or (not server-clients)
 +      (let (live-client)
 +      (dolist (client server-clients live-client)
 +        (if (memq t (mapcar 'buffer-live-p (server-client-get
 +                                            client 'buffers)))
 +            (setq live-client t))))
 +      (yes-or-no-p "This Emacs session has clients; exit anyway? ")))
  
  (defvar server-kill-buffer-running nil
    "Non-nil while `server-kill-buffer' or `server-buffer-done' is running.")
  
  (defun server-kill-buffer ()
 +  "Remove the current buffer from its clients' buffer list.
 +Designed to be added to `kill-buffer-hook'."
    ;; Prevent infinite recursion if user has made server-done-hook
    ;; call kill-buffer.
    (or server-kill-buffer-running
@@@ -989,26 -579,18 +994,26 @@@ starts server process and that is all
  
  (defun server-switch-buffer (&optional next-buffer killed-one)
    "Switch to another buffer, preferably one that has a client.
 -Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it."
 -  ;; KILLED-ONE is t in a recursive call
 -  ;; if we have already killed one temp-file server buffer.
 -  ;; This means we should avoid the final "switch to some other buffer"
 -  ;; since we've already effectively done that.
 +Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it.
 +
 +KILLED-ONE is t in a recursive call if we have already killed one
 +temp-file server buffer.  This means we should avoid the final
 +\"switch to some other buffer\" since we've already effectively
 +done that."
    (if (null next-buffer)
 -      (if server-clients
 -        (server-switch-buffer (nth 1 (car server-clients)) killed-one)
 -      (unless (or killed-one (window-dedicated-p (selected-window)))
 -        (switch-to-buffer (other-buffer))
 +      (progn
 +      (let ((rest server-clients))
 +        (while (and rest (not next-buffer))
 +          (let ((client (car rest)))
 +            ;; Only look at frameless clients.
 +            (when (not (server-client-get client 'frame))
 +              (setq next-buffer (car (server-client-get client 'buffers))))
 +            (setq rest (cdr rest)))))
 +      (and next-buffer (server-switch-buffer next-buffer killed-one))
 +      (unless (or next-buffer killed-one (window-dedicated-p (selected-window)))
 +        ;; (switch-to-buffer (other-buffer))
          (message "No server buffers remain to edit")))
 -    (if (not (buffer-name next-buffer))
 +    (if (not (buffer-live-p next-buffer))
        ;; If NEXT-BUFFER is a dead buffer, remove the server records for it
        ;; and try the next surviving server buffer.
        (apply 'server-switch-buffer (server-buffer-done next-buffer))
               (get-window-with-predicate
                (lambda (w)
                  (and (not (window-dedicated-p w))
 -                     (equal (frame-parameter (window-frame w) 'display)
 -                            (frame-parameter (selected-frame) 'display))))
 +                     (equal (frame-parameter (window-frame w) 'device)
 +                            (frame-parameter (selected-frame) 'device))))
                'nomini 'visible (selected-window))))
            (condition-case nil
                (switch-to-buffer next-buffer)
              ;; a minibuffer/dedicated-window (if there's no other).
              (error (pop-to-buffer next-buffer)))))))))
  
 +(defun server-save-buffers-kill-display (&optional arg)
 +  "Offer to save each buffer, then kill the current connection.
 +If the current frame has no client, kill Emacs itself.
 +
 +With prefix arg, silently save all file-visiting buffers, then kill.
 +
 +If emacsclient was started with a list of filenames to edit, then
 +only these files will be asked to be saved."
 +  (interactive "P")
 +  (let ((proc (frame-parameter (selected-frame) 'client))
 +      (frame (selected-frame)))
 +    (if proc
 +      (let ((buffers (server-client-get proc 'buffers)))
 +        ;; If client is bufferless, emulate a normal Emacs session
 +        ;; exit and offer to save all buffers.  Otherwise, offer to
 +        ;; save only the buffers belonging to the client.
 +        (save-some-buffers arg
 +                           (if buffers
 +                               (lambda () (memq (current-buffer) buffers))
 +                             t))
 +        (server-delete-client proc)
 +        (when (frame-live-p frame)
 +          (delete-frame frame)))
 +      (save-buffers-kill-emacs))))
 +
  (define-key ctl-x-map "#" 'server-edit)
  
  (defun server-unload-hook ()
 +  "Unload the server library."
    (server-start t)
 +  (remove-hook 'suspend-tty-functions 'server-handle-suspend-tty)
 +  (remove-hook 'delete-frame-functions 'server-handle-delete-frame)
    (remove-hook 'kill-buffer-query-functions 'server-kill-buffer-query-function)
    (remove-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function)
    (remove-hook 'kill-buffer-hook 'server-kill-buffer))
diff --combined lisp/simple.el
@@@ -2319,8 -2319,6 +2319,8 @@@ the text which should be made available
  The second, optional, argument PUSH, has the same meaning as the
  similar argument to `x-set-cut-buffer', which see.")
  
 +(make-variable-frame-local 'interprogram-cut-function)
 +
  (defvar interprogram-paste-function nil
    "Function to call to get text cut from other programs.
  
@@@ -2341,8 -2339,6 +2341,8 @@@ most recent string, the function shoul
  difficult to tell whether Emacs or some other program provided the
  current string, it is probably good enough to return nil if the string
  is equal (according to `string=') to the last text Emacs provided.")
 +
 +(make-variable-frame-local 'interprogram-paste-function)
  \f
  
  
@@@ -3545,10 -3541,11 +3545,11 @@@ Outline mode sets this.
             ;; Compute the end of the line
             ;; ignoring effectively invisible newlines.
             (save-excursion
-              (end-of-line)
+              ;; Like end-of-line but ignores fields.
+              (skip-chars-forward "^\n")
               (while (and (not (eobp)) (line-move-invisible-p (point)))
                 (goto-char (next-char-property-change (point)))
-                (end-of-line))
+                (skip-chars-forward "^\n"))
               (point))))
  
        ;; Move to the desired column.
@@@ -4924,11 -4921,11 +4925,11 @@@ is the substring.)"
                      (funcall (get minibuffer-completion-table 'completion-base-size-function)))
              (setq completion-base-size 0))))
        ;; Put faces on first uncommon characters and common parts.
-       (when (or completion-base-size completion-common-substring)
+       (when (or completion-common-substring completion-base-size)
        (let* ((common-string-length
-               (if completion-base-size
-                   (- (length mbuf-contents) completion-base-size)
-                 (length completion-common-substring)))
+               (if completion-common-substring
+                   (length completion-common-substring)
+                 (- (length mbuf-contents) completion-base-size)))
               (element-start (next-single-property-change
                               (point-min)
                               'mouse-face))
@@@ -5238,33 -5235,36 +5239,33 @@@ the front of the list of recently selec
  \f
  ;;; Handling of Backspace and Delete keys.
  
 -(defcustom normal-erase-is-backspace
 -  (and (not noninteractive)
 -       (or (memq system-type '(ms-dos windows-nt))
 -         (eq window-system 'mac)
 -         (and (memq window-system '(x))
 -              (fboundp 'x-backspace-delete-keys-p)
 -              (x-backspace-delete-keys-p))
 -         ;; If the terminal Emacs is running on has erase char
 -         ;; set to ^H, use the Backspace key for deleting
 -         ;; backward and, and the Delete key for deleting forward.
 -         (and (null window-system)
 -              (eq tty-erase-char ?\^H))))
 -  "If non-nil, Delete key deletes forward and Backspace key deletes backward.
 -
 -On window systems, the default value of this option is chosen
 -according to the keyboard used.  If the keyboard has both a Backspace
 -key and a Delete key, and both are mapped to their usual meanings, the
 -option's default value is set to t, so that Backspace can be used to
 -delete backward, and Delete can be used to delete forward.
 -
 -If not running under a window system, customizing this option accomplishes
 -a similar effect by mapping C-h, which is usually generated by the
 -Backspace key, to DEL, and by mapping DEL to C-d via
 -`keyboard-translate'.  The former functionality of C-h is available on
 -the F1 key.  You should probably not use this setting if you don't
 -have both Backspace, Delete and F1 keys.
 +(defcustom normal-erase-is-backspace 'maybe
 +  "Set the default behaviour of the Delete and Backspace keys.
 +
 +If set to t, Delete key deletes forward and Backspace key deletes
 +backward.
 +
 +If set to nil, both Delete and Backspace keys delete backward.
 +
 +If set to 'maybe (which is the default), Emacs automatically
 +selects a behaviour.  On window systems, the behaviour depends on
 +the keyboard used.  If the keyboard has both a Backspace key and
 +a Delete key, and both are mapped to their usual meanings, the
 +option's default value is set to t, so that Backspace can be used
 +to delete backward, and Delete can be used to delete forward.
 +
 +If not running under a window system, customizing this option
 +accomplishes a similar effect by mapping C-h, which is usually
 +generated by the Backspace key, to DEL, and by mapping DEL to C-d
 +via `keyboard-translate'.  The former functionality of C-h is
 +available on the F1 key.  You should probably not use this
 +setting if you don't have both Backspace, Delete and F1 keys.
  
  Setting this variable with setq doesn't take effect.  Programmatically,
  call `normal-erase-is-backspace-mode' (which see) instead."
 -  :type 'boolean
 +  :type '(choice (const :tag "Off" nil)
 +               (const :tag "Maybe" maybe)
 +               (other :tag "On" t))
    :group 'editing-basics
    :version "21.1"
    :set (lambda (symbol value)
             (normal-erase-is-backspace-mode (or value 0))
           (set-default symbol value))))
  
 +(defun normal-erase-is-backspace-setup-frame (&optional frame)
 +  "Set up `normal-erase-is-backspace-mode' on FRAME, if necessary."
 +  (unless frame (setq frame (selected-frame)))
 +  (with-selected-frame frame
 +    (unless (terminal-parameter-p nil 'normal-erase-is-backspace)
 +      (if (cond ((terminal-parameter-p nil 'normal-erase-is-backspace)
 +               (terminal-parameter nil 'normal-erase-is-backspace))
 +              ((eq normal-erase-is-backspace 'maybe)
 +               (and (not noninteractive)
 +                    (or (memq system-type '(ms-dos windows-nt))
 +                        (eq window-system 'mac)
 +                        (and (memq window-system '(x))
 +                             (fboundp 'x-backspace-delete-keys-p)
 +                             (x-backspace-delete-keys-p))
 +                        ;; If the terminal Emacs is running on has erase char
 +                        ;; set to ^H, use the Backspace key for deleting
 +                        ;; backward and, and the Delete key for deleting forward.
 +                        (and (null window-system)
 +                             (eq tty-erase-char ?\^H)))))
 +              (t
 +               normal-erase-is-backspace))
 +        (normal-erase-is-backspace-mode 1)
 +      (normal-erase-is-backspace-mode 0)))))
  
  (defun normal-erase-is-backspace-mode (&optional arg)
    "Toggle the Erase and Delete mode of the Backspace and Delete keys.
  
  With numeric arg, turn the mode on if and only if ARG is positive.
  
 -On window systems, when this mode is on, Delete is mapped to C-d and
 -Backspace is mapped to DEL; when this mode is off, both Delete and
 -Backspace are mapped to DEL.  (The remapping goes via
 -`function-key-map', so binding Delete or Backspace in the global or
 -local keymap will override that.)
 +On window systems, when this mode is on, Delete is mapped to C-d
 +and Backspace is mapped to DEL; when this mode is off, both
 +Delete and Backspace are mapped to DEL.  (The remapping goes via
 +`local-function-key-map', so binding Delete or Backspace in the
 +global or local keymap will override that.)
  
  In addition, on window systems, the bindings of C-Delete, M-Delete,
  C-M-Delete, C-Backspace, M-Backspace, and C-M-Backspace are changed in
@@@ -5329,33 -5306,32 +5330,33 @@@ have both Backspace, Delete and F1 keys
  
  See also `normal-erase-is-backspace'."
    (interactive "P")
 -  (setq normal-erase-is-backspace
 -      (if arg
 -          (> (prefix-numeric-value arg) 0)
 -        (not normal-erase-is-backspace)))
 +  (set-terminal-parameter
 +   nil 'normal-erase-is-backspace
 +   (if arg
 +       (> (prefix-numeric-value arg) 0)
 +     (not (terminal-parameter nil 'normal-erase-is-backspace))))
  
    (cond ((or (memq window-system '(x w32 mac pc))
             (memq system-type '(ms-dos windows-nt)))
 -       (let ((bindings
 -              `(([C-delete] [C-backspace])
 -                ([M-delete] [M-backspace])
 -                ([C-M-delete] [C-M-backspace])
 -                (,esc-map
 -                 [C-delete] [C-backspace])))
 -             (old-state (lookup-key function-key-map [delete])))
 -
 -         (if normal-erase-is-backspace
 +       (let* ((bindings
 +               `(([C-delete] [C-backspace])
 +                 ([M-delete] [M-backspace])
 +                 ([C-M-delete] [C-M-backspace])
 +                 (,esc-map
 +                  [C-delete] [C-backspace])))
 +              (old-state (lookup-key local-function-key-map [delete])))
 +
 +         (if (terminal-parameter nil 'normal-erase-is-backspace)
               (progn
 -               (define-key function-key-map [delete] [?\C-d])
 -               (define-key function-key-map [kp-delete] [?\C-d])
 -               (define-key function-key-map [backspace] [?\C-?]))
 -           (define-key function-key-map [delete] [?\C-?])
 -           (define-key function-key-map [kp-delete] [?\C-?])
 -           (define-key function-key-map [backspace] [?\C-?]))
 +               (define-key local-function-key-map [delete] [?\C-d])
 +               (define-key local-function-key-map [kp-delete] [?\C-d])
 +               (define-key local-function-key-map [backspace] [?\C-?]))
 +           (define-key local-function-key-map [delete] [?\C-?])
 +           (define-key local-function-key-map [kp-delete] [?\C-?])
 +           (define-key local-function-key-map [backspace] [?\C-?]))
  
           ;; Maybe swap bindings of C-delete and C-backspace, etc.
 -         (unless (equal old-state (lookup-key function-key-map [delete]))
 +         (unless (equal old-state (lookup-key local-function-key-map [delete]))
             (dolist (binding bindings)
               (let ((map global-map))
                 (when (keymapp (car binding))
                   (define-key map key1 binding2)
                   (define-key map key2 binding1)))))))
         (t
 -        (if normal-erase-is-backspace
 +        (if (terminal-parameter nil 'normal-erase-is-backspace)
              (progn
                (keyboard-translate ?\C-h ?\C-?)
                (keyboard-translate ?\C-? ?\C-d))
diff --combined lisp/subr.el
@@@ -37,7 -37,7 +37,7 @@@ Each element of this list holds the arg
        (cons arguments custom-declare-variable-list)))
  
  \f
- ;;;; Lisp language features.
+ ;;;; Basic Lisp macros.
  
  (defalias 'not 'null)
  
@@@ -144,6 -144,47 +144,47 @@@ the return value (nil if RESULT is omit
  Treated as a declaration when used at the right place in a
  `defmacro' form.  \(See Info anchor `(elisp)Definition of declare'.)"
    nil)
\f
+ ;;;; Basic Lisp functions.
+ (defun ignore (&rest ignore)
+   "Do nothing and return nil.
+ This function accepts any number of arguments, but ignores them."
+   (interactive)
+   nil)
+ (defun error (&rest args)
+   "Signal an error, making error message by passing all args to `format'.
+ In Emacs, the convention is that error messages start with a capital
+ letter but *do not* end with a period.  Please follow this convention
+ for the sake of consistency."
+   (while t
+     (signal 'error (list (apply 'format args)))))
+ ;; We put this here instead of in frame.el so that it's defined even on
+ ;; systems where frame.el isn't loaded.
+ (defun frame-configuration-p (object)
+   "Return non-nil if OBJECT seems to be a frame configuration.
+ Any list whose car is `frame-configuration' is assumed to be a frame
+ configuration."
+   (and (consp object)
+        (eq (car object) 'frame-configuration)))
+ (defun functionp (object)
+   "Non-nil if OBJECT is any kind of function or a special form.
+ Also non-nil if OBJECT is a symbol and its function definition is
+ \(recursively) a function or special form.  This does not include
+ macros."
+   (or (and (symbolp object) (fboundp object)
+          (condition-case nil
+              (setq object (indirect-function object))
+            (error nil))
+          (eq (car-safe object) 'autoload)
+          (not (car-safe (cdr-safe (cdr-safe (cdr-safe (cdr-safe object)))))))
+       (subrp object) (byte-code-function-p object)
+       (eq (car-safe object) 'lambda)))
\f
+ ;;;; List functions.
  
  (defsubst caar (x)
    "Return the car of the car of X."
@@@ -240,23 -281,6 +281,6 @@@ of course, also replace TO with a sligh
                  next (+ from (* n inc)))))
        (nreverse seq))))
  
- (defun remove (elt seq)
-   "Return a copy of SEQ with all occurrences of ELT removed.
- SEQ must be a list, vector, or string.  The comparison is done with `equal'."
-   (if (nlistp seq)
-       ;; If SEQ isn't a list, there's no need to copy SEQ because
-       ;; `delete' will return a new object.
-       (delete elt seq)
-     (delete elt (copy-sequence seq))))
- (defun remq (elt list)
-   "Return LIST with all occurrences of ELT removed.
- The comparison is done with `eq'.  Contrary to `delq', this does not use
- side-effects, and the argument LIST is not modified."
-   (if (memq elt list)
-       (delq elt (copy-sequence list))
-     list))
  (defun copy-tree (tree &optional vecp)
    "Make a copy of TREE.
  If TREE is a cons cell, this recursively copies both its car and its cdr.
@@@ -277,6 -301,8 +301,8 @@@ argument VECP, this copies vectors as w
            (aset tree i (copy-tree (aref tree i) vecp)))
          tree)
        tree)))
\f
+ ;;;; Various list-search functions.
  
  (defun assoc-default (key alist &optional test default)
    "Find object KEY in a pseudo-alist ALIST.
@@@ -321,15 -347,67 +347,67 @@@ Non-strings in LIST are ignored.
      (setq list (cdr list)))
    list)
  
+ (defun assq-delete-all (key alist)
+   "Delete from ALIST all elements whose car is `eq' to KEY.
+ Return the modified alist.
+ Elements of ALIST that are not conses are ignored."
+   (while (and (consp (car alist))
+             (eq (car (car alist)) key))
+     (setq alist (cdr alist)))
+   (let ((tail alist) tail-cdr)
+     (while (setq tail-cdr (cdr tail))
+       (if (and (consp (car tail-cdr))
+              (eq (car (car tail-cdr)) key))
+         (setcdr tail (cdr tail-cdr))
+       (setq tail tail-cdr))))
+   alist)
+ (defun rassq-delete-all (value alist)
+   "Delete from ALIST all elements whose cdr is `eq' to VALUE.
+ Return the modified alist.
+ Elements of ALIST that are not conses are ignored."
+   (while (and (consp (car alist))
+             (eq (cdr (car alist)) value))
+     (setq alist (cdr alist)))
+   (let ((tail alist) tail-cdr)
+     (while (setq tail-cdr (cdr tail))
+       (if (and (consp (car tail-cdr))
+              (eq (cdr (car tail-cdr)) value))
+         (setcdr tail (cdr tail-cdr))
+       (setq tail tail-cdr))))
+   alist)
+ (defun remove (elt seq)
+   "Return a copy of SEQ with all occurrences of ELT removed.
+ SEQ must be a list, vector, or string.  The comparison is done with `equal'."
+   (if (nlistp seq)
+       ;; If SEQ isn't a list, there's no need to copy SEQ because
+       ;; `delete' will return a new object.
+       (delete elt seq)
+     (delete elt (copy-sequence seq))))
+ (defun remq (elt list)
+   "Return LIST with all occurrences of ELT removed.
+ The comparison is done with `eq'.  Contrary to `delq', this does not use
+ side-effects, and the argument LIST is not modified."
+   (if (memq elt list)
+       (delq elt (copy-sequence list))
+     list))
  \f
  ;;;; Keymap support.
  
+ (defmacro kbd (keys)
+   "Convert KEYS to the internal Emacs key representation.
+ KEYS should be a string constant in the format used for
+ saving keyboard macros (see `edmacro-mode')."
+   (read-kbd-macro keys))
  (defun undefined ()
    (interactive)
    (ding))
  
- ;Prevent the \{...} documentation construct
- ;from mentioning keys that run this command.
+ ;Prevent the \{...} documentation construct
+ ;from mentioning keys that run this command.
  (put 'undefined 'suppress-keymap t)
  
  (defun suppress-keymap (map &optional nodigits)
@@@ -346,76 -424,6 +424,6 @@@ but optional second arg NODIGITS non-ni
          (define-key map (char-to-string loop) 'digit-argument)
          (setq loop (1+ loop))))))
  
- (defvar key-substitution-in-progress nil
-  "Used internally by `substitute-key-definition'.")
- (defun substitute-key-definition (olddef newdef keymap &optional oldmap prefix)
-   "Replace OLDDEF with NEWDEF for any keys in KEYMAP now defined as OLDDEF.
- In other words, OLDDEF is replaced with NEWDEF where ever it appears.
- Alternatively, if optional fourth argument OLDMAP is specified, we redefine
- in KEYMAP as NEWDEF those keys which are defined as OLDDEF in OLDMAP.
- For most uses, it is simpler and safer to use command remappping like this:
-   \(define-key KEYMAP [remap OLDDEF] NEWDEF)"
-   ;; Don't document PREFIX in the doc string because we don't want to
-   ;; advertise it.  It's meant for recursive calls only.  Here's its
-   ;; meaning
-   ;; If optional argument PREFIX is specified, it should be a key
-   ;; prefix, a string.  Redefined bindings will then be bound to the
-   ;; original key, with PREFIX added at the front.
-   (or prefix (setq prefix ""))
-   (let* ((scan (or oldmap keymap))
-        (prefix1 (vconcat prefix [nil]))
-        (key-substitution-in-progress
-         (cons scan key-substitution-in-progress)))
-     ;; Scan OLDMAP, finding each char or event-symbol that
-     ;; has any definition, and act on it with hack-key.
-     (map-keymap
-      (lambda (char defn)
-        (aset prefix1 (length prefix) char)
-        (substitute-key-definition-key defn olddef newdef prefix1 keymap))
-      scan)))
- (defun substitute-key-definition-key (defn olddef newdef prefix keymap)
-   (let (inner-def skipped menu-item)
-     ;; Find the actual command name within the binding.
-     (if (eq (car-safe defn) 'menu-item)
-       (setq menu-item defn defn (nth 2 defn))
-       ;; Skip past menu-prompt.
-       (while (stringp (car-safe defn))
-       (push (pop defn) skipped))
-       ;; Skip past cached key-equivalence data for menu items.
-       (if (consp (car-safe defn))
-         (setq defn (cdr defn))))
-     (if (or (eq defn olddef)
-           ;; Compare with equal if definition is a key sequence.
-           ;; That is useful for operating on function-key-map.
-           (and (or (stringp defn) (vectorp defn))
-                (equal defn olddef)))
-       (define-key keymap prefix
-         (if menu-item
-             (let ((copy (copy-sequence menu-item)))
-               (setcar (nthcdr 2 copy) newdef)
-               copy)
-           (nconc (nreverse skipped) newdef)))
-       ;; Look past a symbol that names a keymap.
-       (setq inner-def
-           (and defn
-                (condition-case nil (indirect-function defn) (error defn))))
-       ;; For nested keymaps, we use `inner-def' rather than `defn' so as to
-       ;; avoid autoloading a keymap.  This is mostly done to preserve the
-       ;; original non-autoloading behavior of pre-map-keymap times.
-       (if (and (keymapp inner-def)
-              ;; Avoid recursively scanning
-              ;; where KEYMAP does not have a submap.
-              (let ((elt (lookup-key keymap prefix)))
-                (or (null elt) (natnump elt) (keymapp elt)))
-              ;; Avoid recursively rescanning keymap being scanned.
-              (not (memq inner-def key-substitution-in-progress)))
-         ;; If this one isn't being scanned already, scan it now.
-         (substitute-key-definition olddef newdef keymap inner-def prefix)))))
  (defun define-key-after (keymap key definition &optional after)
    "Add binding in KEYMAP for KEY => DEFINITION, right after AFTER's binding.
  This is like `define-key' except that the binding for KEY is placed
@@@ -483,12 -491,6 +491,6 @@@ Don't call this function; it is for int
          (funcall function (car p) (cdr p))))
      (map-keymap function keymap)))
  
- (defmacro kbd (keys)
-   "Convert KEYS to the internal Emacs key representation.
- KEYS should be a string constant in the format used for
- saving keyboard macros (see `edmacro-mode')."
-   (read-kbd-macro keys))
  (put 'keyboard-translate-table 'char-table-extra-slots 0)
  
  (defun keyboard-translate (from to)
  This function creates a `keyboard-translate-table' if necessary
  and then modifies one entry in it."
    (or (char-table-p keyboard-translate-table)
-       (setq keyboard-translate-table (make-char-table 'keyboard-translate-table nil)))
-     (aset keyboard-translate-table from to))
+       (setq keyboard-translate-table
+           (make-char-table 'keyboard-translate-table nil)))
+   (aset keyboard-translate-table from to))
  \f
- ;;;; The global keymap tree.
- ;;; global-map, esc-map, and ctl-x-map have their values set up in
- ;;; keymap.c; we just give them docstrings here.
+ ;;;; Key binding commands.
  
- (defvar global-map nil
-   "Default global keymap mapping Emacs keyboard input into commands.
- The value is a keymap which is usually (but not necessarily) Emacs's
- global map.")
+ (defun global-set-key (key command)
+   "Give KEY a global binding as COMMAND.
+ COMMAND is the command definition to use; usually it is
+ a symbol naming an interactively-callable function.
+ KEY is a key sequence; noninteractively, it is a string or vector
+ of characters or event types, and non-ASCII characters with codes
+ above 127 (such as ISO Latin-1) can be included if you use a vector.
  
- (defvar esc-map nil
-   "Default keymap for ESC (meta) commands.
- The normal global definition of the character ESC indirects to this keymap.")
+ Note that if KEY has a local binding in the current buffer,
+ that local binding will continue to shadow any global binding
+ that you make with this function."
+   (interactive "KSet key globally: \nCSet key %s to command: ")
+   (or (vectorp key) (stringp key)
+       (signal 'wrong-type-argument (list 'arrayp key)))
+   (define-key (current-global-map) key command))
  
- (defvar ctl-x-map nil
-   "Default keymap for C-x commands.
- The normal global definition of the character C-x indirects to this keymap.")
+ (defun local-set-key (key command)
+   "Give KEY a local binding as COMMAND.
+ COMMAND is the command definition to use; usually it is
+ a symbol naming an interactively-callable function.
+ KEY is a key sequence; noninteractively, it is a string or vector
+ of characters or event types, and non-ASCII characters with codes
+ above 127 (such as ISO Latin-1) can be included if you use a vector.
  
- (defvar ctl-x-4-map (make-sparse-keymap)
-   "Keymap for subcommands of C-x 4.")
- (defalias 'ctl-x-4-prefix ctl-x-4-map)
- (define-key ctl-x-map "4" 'ctl-x-4-prefix)
+ The binding goes in the current buffer's local map,
+ which in most cases is shared with all other buffers in the same major mode."
+   (interactive "KSet key locally: \nCSet key %s locally to command: ")
+   (let ((map (current-local-map)))
+     (or map
+       (use-local-map (setq map (make-sparse-keymap))))
+     (or (vectorp key) (stringp key)
+       (signal 'wrong-type-argument (list 'arrayp key)))
+     (define-key map key command)))
  
- (defvar ctl-x-5-map (make-sparse-keymap)
-   "Keymap for frame commands.")
- (defalias 'ctl-x-5-prefix ctl-x-5-map)
- (define-key ctl-x-map "5" 'ctl-x-5-prefix)
+ (defun global-unset-key (key)
+   "Remove global binding of KEY.
+ KEY is a string or vector representing a sequence of keystrokes."
+   (interactive "kUnset key globally: ")
+   (global-set-key key nil))
  
+ (defun local-unset-key (key)
+   "Remove local binding of KEY.
+ KEY is a string or vector representing a sequence of keystrokes."
+   (interactive "kUnset key locally: ")
+   (if (current-local-map)
+       (local-set-key key nil))
+   nil)
  \f
- ;;;; Event manipulation functions.
- ;; The call to `read' is to ensure that the value is computed at load time
- ;; and not compiled into the .elc file.  The value is negative on most
- ;; machines, but not on all!
- (defconst listify-key-sequence-1 (logior 128 (read "?\\M-\\^@")))
+ ;;;; substitute-key-definition and its subroutines.
+ (defvar key-substitution-in-progress nil
+  "Used internally by `substitute-key-definition'.")
+ (defun substitute-key-definition (olddef newdef keymap &optional oldmap prefix)
+   "Replace OLDDEF with NEWDEF for any keys in KEYMAP now defined as OLDDEF.
+ In other words, OLDDEF is replaced with NEWDEF where ever it appears.
+ Alternatively, if optional fourth argument OLDMAP is specified, we redefine
+ in KEYMAP as NEWDEF those keys which are defined as OLDDEF in OLDMAP.
+ For most uses, it is simpler and safer to use command remappping like this:
+   \(define-key KEYMAP [remap OLDDEF] NEWDEF)"
+   ;; Don't document PREFIX in the doc string because we don't want to
+   ;; advertise it.  It's meant for recursive calls only.  Here's its
+   ;; meaning
+   ;; If optional argument PREFIX is specified, it should be a key
+   ;; prefix, a string.  Redefined bindings will then be bound to the
+   ;; original key, with PREFIX added at the front.
+   (or prefix (setq prefix ""))
+   (let* ((scan (or oldmap keymap))
+        (prefix1 (vconcat prefix [nil]))
+        (key-substitution-in-progress
+         (cons scan key-substitution-in-progress)))
+     ;; Scan OLDMAP, finding each char or event-symbol that
+     ;; has any definition, and act on it with hack-key.
+     (map-keymap
+      (lambda (char defn)
+        (aset prefix1 (length prefix) char)
+        (substitute-key-definition-key defn olddef newdef prefix1 keymap))
+      scan)))
+ (defun substitute-key-definition-key (defn olddef newdef prefix keymap)
+   (let (inner-def skipped menu-item)
+     ;; Find the actual command name within the binding.
+     (if (eq (car-safe defn) 'menu-item)
+       (setq menu-item defn defn (nth 2 defn))
+       ;; Skip past menu-prompt.
+       (while (stringp (car-safe defn))
+       (push (pop defn) skipped))
+       ;; Skip past cached key-equivalence data for menu items.
+       (if (consp (car-safe defn))
+         (setq defn (cdr defn))))
+     (if (or (eq defn olddef)
+           ;; Compare with equal if definition is a key sequence.
+           ;; That is useful for operating on function-key-map.
+           (and (or (stringp defn) (vectorp defn))
+                (equal defn olddef)))
+       (define-key keymap prefix
+         (if menu-item
+             (let ((copy (copy-sequence menu-item)))
+               (setcar (nthcdr 2 copy) newdef)
+               copy)
+           (nconc (nreverse skipped) newdef)))
+       ;; Look past a symbol that names a keymap.
+       (setq inner-def
+           (and defn
+                (condition-case nil (indirect-function defn) (error defn))))
+       ;; For nested keymaps, we use `inner-def' rather than `defn' so as to
+       ;; avoid autoloading a keymap.  This is mostly done to preserve the
+       ;; original non-autoloading behavior of pre-map-keymap times.
+       (if (and (keymapp inner-def)
+              ;; Avoid recursively scanning
+              ;; where KEYMAP does not have a submap.
+              (let ((elt (lookup-key keymap prefix)))
+                (or (null elt) (natnump elt) (keymapp elt)))
+              ;; Avoid recursively rescanning keymap being scanned.
+              (not (memq inner-def key-substitution-in-progress)))
+         ;; If this one isn't being scanned already, scan it now.
+         (substitute-key-definition olddef newdef keymap inner-def prefix)))))
\f
+ ;;;; The global keymap tree.
+ ;;; global-map, esc-map, and ctl-x-map have their values set up in
+ ;;; keymap.c; we just give them docstrings here.
+ (defvar global-map nil
+   "Default global keymap mapping Emacs keyboard input into commands.
+ The value is a keymap which is usually (but not necessarily) Emacs's
+ global map.")
+ (defvar esc-map nil
+   "Default keymap for ESC (meta) commands.
+ The normal global definition of the character ESC indirects to this keymap.")
+ (defvar ctl-x-map nil
+   "Default keymap for C-x commands.
+ The normal global definition of the character C-x indirects to this keymap.")
+ (defvar ctl-x-4-map (make-sparse-keymap)
+   "Keymap for subcommands of C-x 4.")
+ (defalias 'ctl-x-4-prefix ctl-x-4-map)
+ (define-key ctl-x-map "4" 'ctl-x-4-prefix)
+ (defvar ctl-x-5-map (make-sparse-keymap)
+   "Keymap for frame commands.")
+ (defalias 'ctl-x-5-prefix ctl-x-5-map)
+ (define-key ctl-x-map "5" 'ctl-x-5-prefix)
\f
+ ;;;; Event manipulation functions.
+ ;; The call to `read' is to ensure that the value is computed at load time
+ ;; and not compiled into the .elc file.  The value is negative on most
+ ;; machines, but not on all!
+ (defconst listify-key-sequence-1 (logior 128 (read "?\\M-\\^@")))
  
  (defun listify-key-sequence (key)
    "Convert a key sequence to a list of events."
@@@ -641,6 -766,8 +766,8 @@@ The `posn-' functions access elements o
    "Return the multi-click count of EVENT, a click or drag event.
  The return value is a positive integer."
    (if (and (consp event) (integerp (nth 2 event))) (nth 2 event) 1))
\f
+ ;;;; Extracting fields of the positions in an event.
  
  (defsubst posn-window (position)
    "Return the window in POSITION.
@@@ -830,6 -957,8 +957,8 @@@ is converted into a string by expressin
  (defalias 'point-at-eol 'line-end-position)
  (defalias 'point-at-bol 'line-beginning-position)
  
+ (defalias 'user-original-login-name 'user-login-name)
  \f
  ;;;; Hook manipulation functions.
  
@@@ -990,7 -1119,143 +1119,143 @@@ The return value is the new value of LI
                            (if (and oa ob)
                                (< oa ob)
                              oa)))))))
\f
+ ;;;; Mode hooks.
+ (defvar delay-mode-hooks nil
+   "If non-nil, `run-mode-hooks' should delay running the hooks.")
+ (defvar delayed-mode-hooks nil
+   "List of delayed mode hooks waiting to be run.")
+ (make-variable-buffer-local 'delayed-mode-hooks)
+ (put 'delay-mode-hooks 'permanent-local t)
+ (defvar after-change-major-mode-hook nil
+   "Normal hook run at the very end of major mode functions.")
+ (defun run-mode-hooks (&rest hooks)
+   "Run mode hooks `delayed-mode-hooks' and HOOKS, or delay HOOKS.
+ Execution is delayed if `delay-mode-hooks' is non-nil.
+ If `delay-mode-hooks' is nil, run `after-change-major-mode-hook'
+ after running the mode hooks.
+ Major mode functions should use this."
+   (if delay-mode-hooks
+       ;; Delaying case.
+       (dolist (hook hooks)
+       (push hook delayed-mode-hooks))
+     ;; Normal case, just run the hook as before plus any delayed hooks.
+     (setq hooks (nconc (nreverse delayed-mode-hooks) hooks))
+     (setq delayed-mode-hooks nil)
+     (apply 'run-hooks hooks)
+     (run-hooks 'after-change-major-mode-hook)))
+ (defmacro delay-mode-hooks (&rest body)
+   "Execute BODY, but delay any `run-mode-hooks'.
+ These hooks will be executed by the first following call to
+ `run-mode-hooks' that occurs outside any `delayed-mode-hooks' form.
+ Only affects hooks run in the current buffer."
+   (declare (debug t) (indent 0))
+   `(progn
+      (make-local-variable 'delay-mode-hooks)
+      (let ((delay-mode-hooks t))
+        ,@body)))
+ ;; PUBLIC: find if the current mode derives from another.
+ (defun derived-mode-p (&rest modes)
+   "Non-nil if the current major mode is derived from one of MODES.
+ Uses the `derived-mode-parent' property of the symbol to trace backwards."
+   (let ((parent major-mode))
+     (while (and (not (memq parent modes))
+               (setq parent (get parent 'derived-mode-parent))))
+     parent))
\f
+ ;;;; Minor modes.
+ ;; If a minor mode is not defined with define-minor-mode,
+ ;; add it here explicitly.
+ ;; isearch-mode is deliberately excluded, since you should
+ ;; not call it yourself.
+ (defvar minor-mode-list '(auto-save-mode auto-fill-mode abbrev-mode
+                                        overwrite-mode view-mode
+                                          hs-minor-mode)
+   "List of all minor mode functions.")
+ (defun add-minor-mode (toggle name &optional keymap after toggle-fun)
+   "Register a new minor mode.
+ This is an XEmacs-compatibility function.  Use `define-minor-mode' instead.
+ TOGGLE is a symbol which is the name of a buffer-local variable that
+ is toggled on or off to say whether the minor mode is active or not.
+ NAME specifies what will appear in the mode line when the minor mode
+ is active.  NAME should be either a string starting with a space, or a
+ symbol whose value is such a string.
+ Optional KEYMAP is the keymap for the minor mode that will be added
+ to `minor-mode-map-alist'.
+ Optional AFTER specifies that TOGGLE should be added after AFTER
+ in `minor-mode-alist'.
+ Optional TOGGLE-FUN is an interactive function to toggle the mode.
+ It defaults to (and should by convention be) TOGGLE.
+ If TOGGLE has a non-nil `:included' property, an entry for the mode is
+ included in the mode-line minor mode menu.
+ If TOGGLE has a `:menu-tag', that is used for the menu item's label."
+   (unless (memq toggle minor-mode-list)
+     (push toggle minor-mode-list))
+   (unless toggle-fun (setq toggle-fun toggle))
+   (unless (eq toggle-fun toggle)
+     (put toggle :minor-mode-function toggle-fun))
+   ;; Add the name to the minor-mode-alist.
+   (when name
+     (let ((existing (assq toggle minor-mode-alist)))
+       (if existing
+         (setcdr existing (list name))
+       (let ((tail minor-mode-alist) found)
+         (while (and tail (not found))
+           (if (eq after (caar tail))
+               (setq found tail)
+             (setq tail (cdr tail))))
+         (if found
+             (let ((rest (cdr found)))
+               (setcdr found nil)
+               (nconc found (list (list toggle name)) rest))
+           (setq minor-mode-alist (cons (list toggle name)
+                                        minor-mode-alist)))))))
+   ;; Add the toggle to the minor-modes menu if requested.
+   (when (get toggle :included)
+     (define-key mode-line-mode-menu
+       (vector toggle)
+       (list 'menu-item
+           (concat
+            (or (get toggle :menu-tag)
+                (if (stringp name) name (symbol-name toggle)))
+            (let ((mode-name (if (symbolp name) (symbol-value name))))
+              (if (and (stringp mode-name) (string-match "[^ ]+" mode-name))
+                  (concat " (" (match-string 0 mode-name) ")"))))
+           toggle-fun
+           :button (cons :toggle toggle))))
  
+   ;; Add the map to the minor-mode-map-alist.
+   (when keymap
+     (let ((existing (assq toggle minor-mode-map-alist)))
+       (if existing
+         (setcdr existing keymap)
+       (let ((tail minor-mode-map-alist) found)
+         (while (and tail (not found))
+           (if (eq after (caar tail))
+               (setq found tail)
+             (setq tail (cdr tail))))
+         (if found
+             (let ((rest (cdr found)))
+               (setcdr found nil)
+               (nconc found (list (cons toggle keymap)) rest))
+           (setq minor-mode-map-alist (cons (cons toggle keymap)
+                                            minor-mode-map-alist))))))))
  \f
  ;;; Load history
  
@@@ -1045,7 -1310,23 +1310,23 @@@ definition only or variable definition 
        file)))
  
  \f
- ;;;; Specifying things to do after certain files are loaded.
+ ;;;; Specifying things to do later.
+ (defmacro eval-at-startup (&rest body)
+   "Make arrangements to evaluate BODY when Emacs starts up.
+ If this is run after Emacs startup, evaluate BODY immediately.
+ Always returns nil.
+ This works by adding a function to `before-init-hook'.
+ That function's doc string says which file created it."
+   `(progn
+      (if command-line-processed
+        (progn . ,body)
+        (add-hook 'before-init-hook
+                '(lambda () ,(concat "From " (or load-file-name "no file"))
+                   . ,body)
+                t))
+      nil))
  
  (defun eval-after-load (file form)
    "Arrange that, if FILE is ever loaded, FORM will be run at that time.
@@@ -1069,7 -1350,8 +1350,8 @@@ evaluated whenever that feature is `pro
            ;; Make sure `load-history' contains the files dumped with
            ;; Emacs for the case that FILE is one of them.
            ;; (load-symbol-file-load-history)
-           (assoc file load-history))
+           (when (locate-library file)
+             (assoc (locate-library file) load-history)))
          (eval form))))
    form)
  
@@@ -1079,7 -1361,9 +1361,9 @@@ This makes or adds to an entry on `afte
  FILE should be the name of a library, with no directory name."
    (eval-after-load file (read)))
  \f
- ;;; open-network-stream is a wrapper around make-network-process.
+ ;;;; Process stuff.
+ ;; open-network-stream is a wrapper around make-network-process.
  
  (when (featurep 'make-network-process)
    (defun open-network-stream (name buffer host service)
@@@ -1169,7 -1453,7 +1453,7 @@@ any other non-digit terminates the char
        ;; or C-q C-x might not return immediately since ESC or C-x might be
        ;; bound to some prefix in function-key-map or key-translation-map.
        (setq translated char)
 -      (let ((translation (lookup-key function-key-map (vector char))))
 +      (let ((translation (lookup-key local-function-key-map (vector char))))
        (if (arrayp translation)
            (setq translated (aref translation 0))))
        (cond ((null translated))
@@@ -1379,6 -1663,8 +1663,8 @@@ This finishes the change group by rever
        ;; Revert the undo info to what it was when we grabbed the state.
        (setq buffer-undo-list elt)))))
  \f
+ ;;;; Display-related functions.
  ;; For compatibility.
  (defalias 'redraw-modeline 'force-mode-line-update)
  
@@@ -1516,34 -1802,85 +1802,85 @@@ mode."
  This variable is meaningful on MS-DOG and Windows NT.
  On those systems, it is automatically local in every buffer.
  On other systems, this variable is normally always nil.")
\f
+ ;;;; Misc. useful functions.
  
- ;; This should probably be written in C (i.e., without using `walk-windows').
- (defun get-buffer-window-list (buffer &optional minibuf frame)
-   "Return list of all windows displaying BUFFER, or nil if none.
- BUFFER can be a buffer or a buffer name.
- See `walk-windows' for the meaning of MINIBUF and FRAME."
-   (let ((buffer (if (bufferp buffer) buffer (get-buffer buffer))) windows)
-     (walk-windows (function (lambda (window)
-                             (if (eq (window-buffer window) buffer)
-                                 (setq windows (cons window windows)))))
-                 minibuf frame)
-     windows))
- (defun ignore (&rest ignore)
-   "Do nothing and return nil.
- This function accepts any number of arguments, but ignores them."
-   (interactive)
-   nil)
+ (defun find-tag-default ()
+   "Determine default tag to search for, based on text at point.
+ If there is no plausible default, return nil."
+   (save-excursion
+     (while (looking-at "\\sw\\|\\s_")
+       (forward-char 1))
+     (if (or (re-search-backward "\\sw\\|\\s_"
+                               (save-excursion (beginning-of-line) (point))
+                               t)
+           (re-search-forward "\\(\\sw\\|\\s_\\)+"
+                              (save-excursion (end-of-line) (point))
+                              t))
+       (progn
+         (goto-char (match-end 0))
+         (condition-case nil
+             (buffer-substring-no-properties
+              (point)
+              (progn (forward-sexp -1)
+                     (while (looking-at "\\s'")
+                       (forward-char 1))
+                     (point)))
+           (error nil)))
+       nil)))
  
- (defun error (&rest args)
-   "Signal an error, making error message by passing all args to `format'.
- In Emacs, the convention is that error messages start with a capital
- letter but *do not* end with a period.  Please follow this convention
- for the sake of consistency."
-   (while t
-     (signal 'error (list (apply 'format args)))))
+ (defun play-sound (sound)
+   "SOUND is a list of the form `(sound KEYWORD VALUE...)'.
+ The following keywords are recognized:
  
- (defalias 'user-original-login-name 'user-login-name)
+   :file FILE - read sound data from FILE.  If FILE isn't an
+ absolute file name, it is searched in `data-directory'.
+   :data DATA - read sound data from string DATA.
+ Exactly one of :file or :data must be present.
+   :volume VOL - set volume to VOL.  VOL must an integer in the
+ range 0..100 or a float in the range 0..1.0.  If not specified,
+ don't change the volume setting of the sound device.
+   :device DEVICE - play sound on DEVICE.  If not specified,
+ a system-dependent default device name is used."
+   (if (fboundp 'play-sound-internal)
+       (play-sound-internal sound)
+     (error "This Emacs binary lacks sound support")))
+ (defun shell-quote-argument (argument)
+   "Quote an argument for passing as argument to an inferior shell."
+   (if (eq system-type 'ms-dos)
+       ;; Quote using double quotes, but escape any existing quotes in
+       ;; the argument with backslashes.
+       (let ((result "")
+           (start 0)
+           end)
+       (if (or (null (string-match "[^\"]" argument))
+               (< (match-end 0) (length argument)))
+           (while (string-match "[\"]" argument start)
+             (setq end (match-beginning 0)
+                   result (concat result (substring argument start end)
+                                  "\\" (substring argument end (1+ end)))
+                   start (1+ end))))
+       (concat "\"" result (substring argument start) "\""))
+     (if (eq system-type 'windows-nt)
+       (concat "\"" argument "\"")
+       (if (equal argument "")
+         "''"
+       ;; Quote everything except POSIX filename characters.
+       ;; This should be safe enough even for really weird shells.
+       (let ((result "") (start 0) end)
+         (while (string-match "[^-0-9a-zA-Z_./]" argument start)
+           (setq end (match-beginning 0)
+                 result (concat result (substring argument start end)
+                                "\\" (substring argument end (1+ end)))
+                 start (1+ end)))
+         (concat result (substring argument start)))))))
\f
+ ;;;; Support for yanking and text properties.
  
  (defvar yank-excluded-properties)
  
@@@ -1649,7 -1986,7 +1986,7 @@@ Strip text properties from the inserte
      (remove-yank-excluded-properties opoint (point))))
  
  \f
- ;; Synchronous shell commands.
+ ;;;; Synchronous shell commands.
  
  (defun start-process-shell-command (name buffer &rest args)
    "Start a program in a subprocess.  Return the process object for it.
@@@ -1705,6 -2042,8 +2042,8 @@@ If you quit, the process is killed wit
                  shell-command-switch
                  (mapconcat 'identity (cons command args) " ")))))
  \f
+ ;;;; Lisp macros to do various things temporarily.
  (defmacro with-current-buffer (buffer &rest body)
    "Execute the forms in BODY with BUFFER as the current buffer.
  The value returned is the value of the last form in BODY.
@@@ -1749,18 -2088,6 +2088,18 @@@ See also `with-temp-buffer'.
         (if (window-live-p save-selected-window-window)
             (select-window save-selected-window-window 'norecord))))))
  
 +(defmacro with-selected-frame (frame &rest body)
 +  "Execute the forms in BODY with FRAME as the selected frame.
 +The value returned is the value of the last form in BODY.
 +See also `with-temp-buffer'."
 +  (declare (indent 1) (debug t))
 +  `(let ((save-selected-frame (selected-frame)))
 +     (unwind-protect
 +       (progn (select-frame ,frame)
 +              ,@body)
 +       (if (frame-live-p save-selected-frame)
 +         (select-frame save-selected-frame)))))
 +
  (defmacro with-temp-file (file &rest body)
    "Create a new buffer, evaluate BODY there, and write the buffer to FILE.
  The value returned is the value of the last form in BODY.
@@@ -1869,96 -2196,8 +2208,8 @@@ in BODY.
         (let ((combine-after-change-calls t))
         . ,body)
       (combine-after-change-execute)))
- (defvar delay-mode-hooks nil
-   "If non-nil, `run-mode-hooks' should delay running the hooks.")
- (defvar delayed-mode-hooks nil
-   "List of delayed mode hooks waiting to be run.")
- (make-variable-buffer-local 'delayed-mode-hooks)
- (put 'delay-mode-hooks 'permanent-local t)
- (defvar after-change-major-mode-hook nil
-   "Normal hook run at the very end of major mode functions.")
- (defun run-mode-hooks (&rest hooks)
-   "Run mode hooks `delayed-mode-hooks' and HOOKS, or delay HOOKS.
- Execution is delayed if `delay-mode-hooks' is non-nil.
- If `delay-mode-hooks' is nil, run `after-change-major-mode-hook'
- after running the mode hooks.
- Major mode functions should use this."
-   (if delay-mode-hooks
-       ;; Delaying case.
-       (dolist (hook hooks)
-       (push hook delayed-mode-hooks))
-     ;; Normal case, just run the hook as before plus any delayed hooks.
-     (setq hooks (nconc (nreverse delayed-mode-hooks) hooks))
-     (setq delayed-mode-hooks nil)
-     (apply 'run-hooks hooks)
-     (run-hooks 'after-change-major-mode-hook)))
- (defmacro delay-mode-hooks (&rest body)
-   "Execute BODY, but delay any `run-mode-hooks'.
- These hooks will be executed by the first following call to
- `run-mode-hooks' that occurs outside any `delayed-mode-hooks' form.
- Only affects hooks run in the current buffer."
-   (declare (debug t) (indent 0))
-   `(progn
-      (make-local-variable 'delay-mode-hooks)
-      (let ((delay-mode-hooks t))
-        ,@body)))
- ;; PUBLIC: find if the current mode derives from another.
- (defun derived-mode-p (&rest modes)
-   "Non-nil if the current major mode is derived from one of MODES.
- Uses the `derived-mode-parent' property of the symbol to trace backwards."
-   (let ((parent major-mode))
-     (while (and (not (memq parent modes))
-               (setq parent (get parent 'derived-mode-parent))))
-     parent))
- (defun find-tag-default ()
-   "Determine default tag to search for, based on text at point.
- If there is no plausible default, return nil."
-   (save-excursion
-     (while (looking-at "\\sw\\|\\s_")
-       (forward-char 1))
-     (if (or (re-search-backward "\\sw\\|\\s_"
-                               (save-excursion (beginning-of-line) (point))
-                               t)
-           (re-search-forward "\\(\\sw\\|\\s_\\)+"
-                              (save-excursion (end-of-line) (point))
-                              t))
-       (progn
-         (goto-char (match-end 0))
-         (condition-case nil
-             (buffer-substring-no-properties
-              (point)
-              (progn (forward-sexp -1)
-                     (while (looking-at "\\s'")
-                       (forward-char 1))
-                     (point)))
-           (error nil)))
-       nil)))
- (defmacro with-syntax-table (table &rest body)
-   "Evaluate BODY with syntax table of current buffer set to TABLE.
- The syntax table of the current buffer is saved, BODY is evaluated, and the
- saved table is restored, even in case of an abnormal exit.
- Value is what BODY returns."
-   (declare (debug t))
-   (let ((old-table (make-symbol "table"))
-       (old-buffer (make-symbol "buffer")))
-     `(let ((,old-table (syntax-table))
-          (,old-buffer (current-buffer)))
-        (unwind-protect
-          (progn
-            (set-syntax-table ,table)
-            ,@body)
-        (save-current-buffer
-          (set-buffer ,old-buffer)
-          (set-syntax-table ,old-table))))))
\f
+ ;;;; Constructing completion tables.
  
  (defmacro dynamic-completion-table (fun)
    "Use function FUN as a dynamic completion table.
@@@ -2018,7 -2257,7 +2269,7 @@@ A and B should not be costly (or side-e
         (or (test-completion string ,a predicate)
           (test-completion string ,b predicate))))))
  \f
- ;;; Matching and substitution
+ ;;; Matching and match data.
  
  (defvar save-match-data-internal)
  
@@@ -2093,6 -2332,47 +2344,47 @@@ of a match for REGEXP.
            (looking-at (concat "\\(?:"  regexp "\\)\\'")))))
      (not (null pos))))
  
+ (defun subregexp-context-p (regexp pos &optional start)
+   "Return non-nil if POS is in a normal subregexp context in REGEXP.
+ A subregexp context is one where a sub-regexp can appear.
+ A non-subregexp context is for example within brackets, or within a
+ repetition bounds operator `\\=\\{...\\}', or right after a `\\'.
+ If START is non-nil, it should be a position in REGEXP, smaller
+ than POS, and known to be in a subregexp context."
+   ;; Here's one possible implementation, with the great benefit that it
+   ;; reuses the regexp-matcher's own parser, so it understands all the
+   ;; details of the syntax.  A disadvantage is that it needs to match the
+   ;; error string.
+   (condition-case err
+       (progn
+         (string-match (substring regexp (or start 0) pos) "")
+         t)
+     (invalid-regexp
+      (not (member (cadr err) '("Unmatched [ or [^"
+                                "Unmatched \\{"
+                                "Trailing backslash")))))
+   ;; An alternative implementation:
+   ;; (defconst re-context-re
+   ;;   (let* ((harmless-ch "[^\\[]")
+   ;;          (harmless-esc "\\\\[^{]")
+   ;;          (class-harmless-ch "[^][]")
+   ;;          (class-lb-harmless "[^]:]")
+   ;;          (class-lb-colon-maybe-charclass ":\\([a-z]+:]\\)?")
+   ;;          (class-lb (concat "\\[\\(" class-lb-harmless
+   ;;                            "\\|" class-lb-colon-maybe-charclass "\\)"))
+   ;;          (class
+   ;;           (concat "\\[^?]?"
+   ;;                   "\\(" class-harmless-ch
+   ;;                   "\\|" class-lb "\\)*"
+   ;;                   "\\[?]"))     ; special handling for bare [ at end of re
+   ;;          (braces "\\\\{[0-9,]+\\\\}"))
+   ;;     (concat "\\`\\(" harmless-ch "\\|" harmless-esc
+   ;;             "\\|" class "\\|" braces "\\)*\\'"))
+   ;;   "Matches any prefix that corresponds to a normal subregexp context.")
+   ;; (string-match re-context-re (substring regexp (or start 0) pos))
+   )
\f
+ ;;;; split-string
  
  (defconst split-string-default-separators "[ \f\t\n\r\v]+"
    "The default value of separators for `split-string'.
@@@ -2153,6 -2433,8 +2445,8 @@@ Modifies the match data; use `save-matc
              (cons (substring string start)
                    list)))
      (nreverse list)))
\f
+ ;;;; Replacement in strings.
  
  (defun subst-char-in-string (fromchar tochar string &optional inplace)
    "Replace FROMCHAR with TOCHAR in STRING each time it occurs.
@@@ -2222,76 -2504,42 +2516,42 @@@ and replace a sub-expression, e.g
        ;; Reconstruct a string from the pieces.
        (setq matches (cons (substring string start l) matches)) ; leftover
        (apply #'concat (nreverse matches)))))
- (defun subregexp-context-p (regexp pos &optional start)
-   "Return non-nil if POS is in a normal subregexp context in REGEXP.
- A subregexp context is one where a sub-regexp can appear.
- A non-subregexp context is for example within brackets, or within a
- repetition bounds operator `\\=\\{...\\}', or right after a `\\'.
- If START is non-nil, it should be a position in REGEXP, smaller
- than POS, and known to be in a subregexp context."
-   ;; Here's one possible implementation, with the great benefit that it
-   ;; reuses the regexp-matcher's own parser, so it understands all the
-   ;; details of the syntax.  A disadvantage is that it needs to match the
-   ;; error string.
-   (condition-case err
-       (progn
-         (string-match (substring regexp (or start 0) pos) "")
-         t)
-     (invalid-regexp
-      (not (member (cadr err) '("Unmatched [ or [^"
-                                "Unmatched \\{"
-                                "Trailing backslash")))))
-   ;; An alternative implementation:
-   ;; (defconst re-context-re
-   ;;   (let* ((harmless-ch "[^\\[]")
-   ;;          (harmless-esc "\\\\[^{]")
-   ;;          (class-harmless-ch "[^][]")
-   ;;          (class-lb-harmless "[^]:]")
-   ;;          (class-lb-colon-maybe-charclass ":\\([a-z]+:]\\)?")
-   ;;          (class-lb (concat "\\[\\(" class-lb-harmless
-   ;;                            "\\|" class-lb-colon-maybe-charclass "\\)"))
-   ;;          (class
-   ;;           (concat "\\[^?]?"
-   ;;                   "\\(" class-harmless-ch
-   ;;                   "\\|" class-lb "\\)*"
-   ;;                   "\\[?]"))     ; special handling for bare [ at end of re
-   ;;          (braces "\\\\{[0-9,]+\\\\}"))
-   ;;     (concat "\\`\\(" harmless-ch "\\|" harmless-esc
-   ;;             "\\|" class "\\|" braces "\\)*\\'"))
-   ;;   "Matches any prefix that corresponds to a normal subregexp context.")
-   ;; (string-match re-context-re (substring regexp (or start 0) pos))
-   )
  \f
- (defun shell-quote-argument (argument)
-   "Quote an argument for passing as argument to an inferior shell."
-   (if (eq system-type 'ms-dos)
-       ;; Quote using double quotes, but escape any existing quotes in
-       ;; the argument with backslashes.
-       (let ((result "")
-           (start 0)
-           end)
-       (if (or (null (string-match "[^\"]" argument))
-               (< (match-end 0) (length argument)))
-           (while (string-match "[\"]" argument start)
-             (setq end (match-beginning 0)
-                   result (concat result (substring argument start end)
-                                  "\\" (substring argument end (1+ end)))
-                   start (1+ end))))
-       (concat "\"" result (substring argument start) "\""))
-     (if (eq system-type 'windows-nt)
-       (concat "\"" argument "\"")
-       (if (equal argument "")
-         "''"
-       ;; Quote everything except POSIX filename characters.
-       ;; This should be safe enough even for really weird shells.
-       (let ((result "") (start 0) end)
-         (while (string-match "[^-0-9a-zA-Z_./]" argument start)
-           (setq end (match-beginning 0)
-                 result (concat result (substring argument start end)
-                                "\\" (substring argument end (1+ end)))
-                 start (1+ end)))
-         (concat result (substring argument start)))))))
+ ;;;; invisibility specs
+ (defun add-to-invisibility-spec (element)
+   "Add ELEMENT to `buffer-invisibility-spec'.
+ See documentation for `buffer-invisibility-spec' for the kind of elements
+ that can be added."
+   (if (eq buffer-invisibility-spec t)
+       (setq buffer-invisibility-spec (list t)))
+   (setq buffer-invisibility-spec
+       (cons element buffer-invisibility-spec)))
+ (defun remove-from-invisibility-spec (element)
+   "Remove ELEMENT from `buffer-invisibility-spec'."
+   (if (consp buffer-invisibility-spec)
+     (setq buffer-invisibility-spec (delete element buffer-invisibility-spec))))
\f
+ ;;;; Syntax tables.
+ (defmacro with-syntax-table (table &rest body)
+   "Evaluate BODY with syntax table of current buffer set to TABLE.
+ The syntax table of the current buffer is saved, BODY is evaluated, and the
+ saved table is restored, even in case of an abnormal exit.
+ Value is what BODY returns."
+   (declare (debug t))
+   (let ((old-table (make-symbol "table"))
+       (old-buffer (make-symbol "buffer")))
+     `(let ((,old-table (syntax-table))
+          (,old-buffer (current-buffer)))
+        (unwind-protect
+          (progn
+            (set-syntax-table ,table)
+            ,@body)
+        (save-current-buffer
+          (set-buffer ,old-buffer)
+          (set-syntax-table ,old-table))))))
  
  (defun make-syntax-table (&optional oldtable)
    "Return a new syntax table.
@@@ -2314,247 -2562,8 +2574,8 @@@ If POS is outside the buffer's accessib
    "Return the syntax class part of the syntax descriptor SYNTAX.
  If SYNTAX is nil, return nil."
    (and syntax (logand (car syntax) 65535)))
- (defun add-to-invisibility-spec (element)
-   "Add ELEMENT to `buffer-invisibility-spec'.
- See documentation for `buffer-invisibility-spec' for the kind of elements
- that can be added."
-   (if (eq buffer-invisibility-spec t)
-       (setq buffer-invisibility-spec (list t)))
-   (setq buffer-invisibility-spec
-       (cons element buffer-invisibility-spec)))
- (defun remove-from-invisibility-spec (element)
-   "Remove ELEMENT from `buffer-invisibility-spec'."
-   (if (consp buffer-invisibility-spec)
-     (setq buffer-invisibility-spec (delete element buffer-invisibility-spec))))
  \f
- (defun global-set-key (key command)
-   "Give KEY a global binding as COMMAND.
- COMMAND is the command definition to use; usually it is
- a symbol naming an interactively-callable function.
- KEY is a key sequence; noninteractively, it is a string or vector
- of characters or event types, and non-ASCII characters with codes
- above 127 (such as ISO Latin-1) can be included if you use a vector.
- Note that if KEY has a local binding in the current buffer,
- that local binding will continue to shadow any global binding
- that you make with this function."
-   (interactive "KSet key globally: \nCSet key %s to command: ")
-   (or (vectorp key) (stringp key)
-       (signal 'wrong-type-argument (list 'arrayp key)))
-   (define-key (current-global-map) key command))
- (defun local-set-key (key command)
-   "Give KEY a local binding as COMMAND.
- COMMAND is the command definition to use; usually it is
- a symbol naming an interactively-callable function.
- KEY is a key sequence; noninteractively, it is a string or vector
- of characters or event types, and non-ASCII characters with codes
- above 127 (such as ISO Latin-1) can be included if you use a vector.
- The binding goes in the current buffer's local map,
- which in most cases is shared with all other buffers in the same major mode."
-   (interactive "KSet key locally: \nCSet key %s locally to command: ")
-   (let ((map (current-local-map)))
-     (or map
-       (use-local-map (setq map (make-sparse-keymap))))
-     (or (vectorp key) (stringp key)
-       (signal 'wrong-type-argument (list 'arrayp key)))
-     (define-key map key command)))
- (defun global-unset-key (key)
-   "Remove global binding of KEY.
- KEY is a string or vector representing a sequence of keystrokes."
-   (interactive "kUnset key globally: ")
-   (global-set-key key nil))
- (defun local-unset-key (key)
-   "Remove local binding of KEY.
- KEY is a string or vector representing a sequence of keystrokes."
-   (interactive "kUnset key locally: ")
-   (if (current-local-map)
-       (local-set-key key nil))
-   nil)
\f
- ;; We put this here instead of in frame.el so that it's defined even on
- ;; systems where frame.el isn't loaded.
- (defun frame-configuration-p (object)
-   "Return non-nil if OBJECT seems to be a frame configuration.
- Any list whose car is `frame-configuration' is assumed to be a frame
- configuration."
-   (and (consp object)
-        (eq (car object) 'frame-configuration)))
- (defun functionp (object)
-   "Non-nil if OBJECT is any kind of function or a special form.
- Also non-nil if OBJECT is a symbol and its function definition is
- \(recursively) a function or special form.  This does not include
- macros."
-   (or (and (symbolp object) (fboundp object)
-          (condition-case nil
-              (setq object (indirect-function object))
-            (error nil))
-          (eq (car-safe object) 'autoload)
-          (not (car-safe (cdr-safe (cdr-safe (cdr-safe (cdr-safe object)))))))
-       (subrp object) (byte-code-function-p object)
-       (eq (car-safe object) 'lambda)))
- (defun assq-delete-all (key alist)
-   "Delete from ALIST all elements whose car is `eq' to KEY.
- Return the modified alist.
- Elements of ALIST that are not conses are ignored."
-   (while (and (consp (car alist))
-             (eq (car (car alist)) key))
-     (setq alist (cdr alist)))
-   (let ((tail alist) tail-cdr)
-     (while (setq tail-cdr (cdr tail))
-       (if (and (consp (car tail-cdr))
-              (eq (car (car tail-cdr)) key))
-         (setcdr tail (cdr tail-cdr))
-       (setq tail tail-cdr))))
-   alist)
- (defun rassq-delete-all (value alist)
-   "Delete from ALIST all elements whose cdr is `eq' to VALUE.
- Return the modified alist.
- Elements of ALIST that are not conses are ignored."
-   (while (and (consp (car alist))
-             (eq (cdr (car alist)) value))
-     (setq alist (cdr alist)))
-   (let ((tail alist) tail-cdr)
-     (while (setq tail-cdr (cdr tail))
-       (if (and (consp (car tail-cdr))
-              (eq (cdr (car tail-cdr)) value))
-         (setcdr tail (cdr tail-cdr))
-       (setq tail tail-cdr))))
-   alist)
- (defun make-temp-file (prefix &optional dir-flag suffix)
-   "Create a temporary file.
- The returned file name (created by appending some random characters at the end
- of PREFIX, and expanding against `temporary-file-directory' if necessary),
- is guaranteed to point to a newly created empty file.
- You can then use `write-region' to write new data into the file.
- If DIR-FLAG is non-nil, create a new empty directory instead of a file.
- If SUFFIX is non-nil, add that at the end of the file name."
-   (let ((umask (default-file-modes))
-       file)
-     (unwind-protect
-       (progn
-         ;; Create temp files with strict access rights.  It's easy to
-         ;; loosen them later, whereas it's impossible to close the
-         ;; time-window of loose permissions otherwise.
-         (set-default-file-modes ?\700)
-         (while (condition-case ()
-                    (progn
-                      (setq file
-                            (make-temp-name
-                             (expand-file-name prefix temporary-file-directory)))
-                      (if suffix
-                          (setq file (concat file suffix)))
-                      (if dir-flag
-                          (make-directory file)
-                        (write-region "" nil file nil 'silent nil 'excl))
-                      nil)
-                  (file-already-exists t))
-           ;; the file was somehow created by someone else between
-           ;; `make-temp-name' and `write-region', let's try again.
-           nil)
-         file)
-       ;; Reset the umask.
-       (set-default-file-modes umask))))
\f
- ;; If a minor mode is not defined with define-minor-mode,
- ;; add it here explicitly.
- ;; isearch-mode is deliberately excluded, since you should
- ;; not call it yourself.
- (defvar minor-mode-list '(auto-save-mode auto-fill-mode abbrev-mode
-                                        overwrite-mode view-mode
-                                          hs-minor-mode)
-   "List of all minor mode functions.")
- (defun add-minor-mode (toggle name &optional keymap after toggle-fun)
-   "Register a new minor mode.
- This is an XEmacs-compatibility function.  Use `define-minor-mode' instead.
- TOGGLE is a symbol which is the name of a buffer-local variable that
- is toggled on or off to say whether the minor mode is active or not.
- NAME specifies what will appear in the mode line when the minor mode
- is active.  NAME should be either a string starting with a space, or a
- symbol whose value is such a string.
- Optional KEYMAP is the keymap for the minor mode that will be added
- to `minor-mode-map-alist'.
- Optional AFTER specifies that TOGGLE should be added after AFTER
- in `minor-mode-alist'.
- Optional TOGGLE-FUN is an interactive function to toggle the mode.
- It defaults to (and should by convention be) TOGGLE.
- If TOGGLE has a non-nil `:included' property, an entry for the mode is
- included in the mode-line minor mode menu.
- If TOGGLE has a `:menu-tag', that is used for the menu item's label."
-   (unless (memq toggle minor-mode-list)
-     (push toggle minor-mode-list))
-   (unless toggle-fun (setq toggle-fun toggle))
-   (unless (eq toggle-fun toggle)
-     (put toggle :minor-mode-function toggle-fun))
-   ;; Add the name to the minor-mode-alist.
-   (when name
-     (let ((existing (assq toggle minor-mode-alist)))
-       (if existing
-         (setcdr existing (list name))
-       (let ((tail minor-mode-alist) found)
-         (while (and tail (not found))
-           (if (eq after (caar tail))
-               (setq found tail)
-             (setq tail (cdr tail))))
-         (if found
-             (let ((rest (cdr found)))
-               (setcdr found nil)
-               (nconc found (list (list toggle name)) rest))
-           (setq minor-mode-alist (cons (list toggle name)
-                                        minor-mode-alist)))))))
-   ;; Add the toggle to the minor-modes menu if requested.
-   (when (get toggle :included)
-     (define-key mode-line-mode-menu
-       (vector toggle)
-       (list 'menu-item
-           (concat
-            (or (get toggle :menu-tag)
-                (if (stringp name) name (symbol-name toggle)))
-            (let ((mode-name (if (symbolp name) (symbol-value name))))
-              (if (and (stringp mode-name) (string-match "[^ ]+" mode-name))
-                  (concat " (" (match-string 0 mode-name) ")"))))
-           toggle-fun
-           :button (cons :toggle toggle))))
-   ;; Add the map to the minor-mode-map-alist.
-   (when keymap
-     (let ((existing (assq toggle minor-mode-map-alist)))
-       (if existing
-         (setcdr existing keymap)
-       (let ((tail minor-mode-map-alist) found)
-         (while (and tail (not found))
-           (if (eq after (caar tail))
-               (setq found tail)
-             (setq tail (cdr tail))))
-         (if found
-             (let ((rest (cdr found)))
-               (setcdr found nil)
-               (nconc found (list (cons toggle keymap)) rest))
-           (setq minor-mode-map-alist (cons (cons toggle keymap)
-                                            minor-mode-map-alist))))))))
\f
- ;; Clones ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ ;;;; Text clones
  
  (defun text-clone-maintain (ol1 after beg end &optional len)
    "Propagate the changes made under the overlay OL1 to the other clones.
@@@ -2648,27 -2657,11 +2669,11 @@@ clone should be incorporated in the clo
      ;;(overlay-put ol2 'face 'underline)
      (overlay-put ol2 'evaporate t)
      (overlay-put ol2 'text-clones dups)))
\f
+ ;;;; Mail user agents.
  
- (defun play-sound (sound)
-   "SOUND is a list of the form `(sound KEYWORD VALUE...)'.
- The following keywords are recognized:
-   :file FILE - read sound data from FILE.  If FILE isn't an
- absolute file name, it is searched in `data-directory'.
-   :data DATA - read sound data from string DATA.
- Exactly one of :file or :data must be present.
-   :volume VOL - set volume to VOL.  VOL must an integer in the
- range 0..100 or a float in the range 0..1.0.  If not specified,
- don't change the volume setting of the sound device.
-   :device DEVICE - play sound on DEVICE.  If not specified,
- a system-dependent default device name is used."
-   (if (fboundp 'play-sound-internal)
-       (play-sound-internal sound)
-     (error "This Emacs binary lacks sound support")))
+ ;; Here we include just enough for other packages to be able
+ ;; to define them.
  
  (defun define-mail-user-agent (symbol composefunc sendfunc
                                      &optional abortfunc hookvar)
@@@ -2704,8 -2697,8 +2709,8 @@@ The properties used on SYMBOL are `comp
    (put symbol 'sendfunc sendfunc)
    (put symbol 'abortfunc (or abortfunc 'kill-buffer))
    (put symbol 'hookvar (or hookvar 'mail-send-hook)))
- ;; Standardized progress reporting
\f
+ ;;;; Progress reporters.
  
  ;; Progress reporter has the following structure:
  ;;
@@@ -2862,7 -2855,7 +2867,7 @@@ convenience wrapper around `make-progre
         nil ,@(cdr (cdr spec)))))
  
  \f
- ;;;; Compare Version Strings
+ ;;;; Comparing version strings.
  
  (defvar version-separator "."
    "*Specify the string used to separate the version elements.
diff --combined lisp/term/x-win.el
  
  ;;; Commentary:
  
 -;; X-win.el:  this file is loaded from ../lisp/startup.el when it recognizes
 -;; that X windows are to be used.  Command line switches are parsed and those
 -;; pertaining to X are processed and removed from the command line.  The
 -;; X display is opened and hooks are set for popping up the initial window.
 +;; X-win.el: this file defines functions to initialize the X window
 +;; system and process X-specific command line parameters before
 +;; creating the first X frame.
 +
 +;; Note that contrary to previous Emacs versions, the act of loading
 +;; this file should not have the side effect of initializing the
 +;; window system or processing command line arguments (this file is
 +;; now loaded in loadup.el).  See the variables
 +;; `handle-args-function-alist' and
 +;; `window-system-initialization-alist' for more details.
  
  ;; startup.el will then examine startup files, and eventually call the hooks
  ;; which create the first window(s).
@@@ -71,7 -65,7 +71,7 @@@
  ;; An alist of X options and the function which handles them.  See
  ;; ../startup.el.
  
 -(if (not (eq window-system 'x))
 +(if (not (fboundp 'x-create-frame))
      (error "%s: Loading x-win.el but not compiled for X" (invocation-name)))
  
  (require 'frame)
@@@ -82,7 -76,6 +82,7 @@@
  (require 'menu-bar)
  (require 'fontset)
  (require 'x-dnd)
 +(require 'server)
  
  (defvar x-invocation-args)
  (defvar x-keysym-table)
@@@ -1170,26 -1163,27 +1170,26 @@@ XConsortium: rgb.txt,v 10.41 94/02/20 1
  \f
  ;;;; Function keys
  
 -(substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame
 -                         global-map)
 -
 -;; Map certain keypad keys into ASCII characters
 -;; that people usually expect.
 -(define-key function-key-map [backspace] [127])
 -(define-key function-key-map [delete] [127])
 -(define-key function-key-map [tab] [?\t])
 -(define-key function-key-map [linefeed] [?\n])
 -(define-key function-key-map [clear] [?\C-l])
 -(define-key function-key-map [return] [?\C-m])
 -(define-key function-key-map [escape] [?\e])
 -(define-key function-key-map [M-backspace] [?\M-\d])
 -(define-key function-key-map [M-delete] [?\M-\d])
 -(define-key function-key-map [M-tab] [?\M-\t])
 -(define-key function-key-map [M-linefeed] [?\M-\n])
 -(define-key function-key-map [M-clear] [?\M-\C-l])
 -(define-key function-key-map [M-return] [?\M-\C-m])
 -(define-key function-key-map [M-escape] [?\M-\e])
 -(define-key function-key-map [iso-lefttab] [backtab])
 -(define-key function-key-map [S-iso-lefttab] [backtab])
 +(defun x-setup-function-keys (frame)
 +  "Set up `function-key-map' on FRAME for the X window system."
 +  ;; Map certain keypad keys into ASCII characters that people usually expect.
 +  (with-selected-frame frame
 +    (define-key local-function-key-map [backspace] [127])
 +    (define-key local-function-key-map [delete] [127])
 +    (define-key local-function-key-map [tab] [?\t])
 +    (define-key local-function-key-map [linefeed] [?\n])
 +    (define-key local-function-key-map [clear] [?\C-l])
 +    (define-key local-function-key-map [return] [?\C-m])
 +    (define-key local-function-key-map [escape] [?\e])
 +    (define-key local-function-key-map [M-backspace] [?\M-\d])
 +    (define-key local-function-key-map [M-delete] [?\M-\d])
 +    (define-key local-function-key-map [M-tab] [?\M-\t])
 +    (define-key local-function-key-map [M-linefeed] [?\M-\n])
 +    (define-key local-function-key-map [M-clear] [?\M-\C-l])
 +    (define-key local-function-key-map [M-return] [?\M-\C-m])
 +    (define-key local-function-key-map [M-escape] [?\M-\e])
 +    (define-key local-function-key-map [iso-lefttab] [backtab])
 +    (define-key local-function-key-map [S-iso-lefttab] [backtab])))
  
  ;; These tell read-char how to convert
  ;; these special chars to ASCII.
@@@ -1513,6 -1507,36 +1513,36 @@@ as returned by `x-server-vendor'.
        (#x5f1 . ?\e,Gq\e(B)
        (#x5f2 . ?\e,Gr\e(B)
        ;; Cyrillic
+       (#x680 . ?\e$,1)R\e(B)
+       (#x681 . ?\e$,1)V\e(B)
+       (#x682 . ?\e$,1)Z\e(B)
+       (#x683 . ?\e$,1)\\e(B)
+       (#x684 . ?\e$,1)b\e(B)
+       (#x685 . ?\e$,1)n\e(B)
+       (#x686 . ?\e$,1)p\e(B)
+       (#x687 . ?\e$,1)r\e(B)
+       (#x688 . ?\e$,1)v\e(B)
+       (#x689 . ?\e$,1)x\e(B)
+       (#x68a . ?\e$,1)z\e(B)
+       (#x68c . ?\e$,1*8\e(B)
+       (#x68d . ?\e$,1*B\e(B)
+       (#x68e . ?\e$,1*H\e(B)
+       (#x68f . ?\e$,1*N\e(B)
+       (#x690 . ?\e$,1)S\e(B)
+       (#x691 . ?\e$,1)W\e(B)
+       (#x692 . ?\e$,1)[\e(B)
+       (#x693 . ?\e$,1)]\e(B)
+       (#x694 . ?\e$,1)c\e(B)
+       (#x695 . ?\e$,1)o\e(B)
+       (#x696 . ?\e$,1)q\e(B)
+       (#x697 . ?\e$,1)s\e(B)
+       (#x698 . ?\e$,1)w\e(B)
+       (#x699 . ?\e$,1)y\e(B)
+       (#x69a . ?\e$,1){\e(B)
+       (#x69c . ?\e$,1*9\e(B)
+       (#x69d . ?\e$,1*C\e(B)
+       (#x69e . ?\e$,1*I\e(B)
+       (#x69f . ?\e$,1*O\e(B)
        (#x6a1 . ?\e,Lr\e(B)
        (#x6a2 . ?\e,Ls\e(B)
        (#x6a3 . ?\e,Lq\e(B)
@@@ -2348,149 -2372,146 +2378,149 @@@ order until succeed."
      (or clip-text primary-text cut-text)
      ))
  
 -\f
 -;;; Do the actual X Windows setup here; the above code just defines
 -;;; functions and variables that we use now.
 -
 -(setq command-line-args (x-handle-args command-line-args))
 -
 -;;; Make sure we have a valid resource name.
 -(or (stringp x-resource-name)
 -    (let (i)
 -      (setq x-resource-name (invocation-name))
 -
 -      ;; Change any . or * characters in x-resource-name to hyphens,
 -      ;; so as not to choke when we use it in X resource queries.
 -      (while (setq i (string-match "[.*]" x-resource-name))
 -      (aset x-resource-name i ?-))))
 -
 -(x-open-connection (or x-display-name
 -                     (setq x-display-name (getenv "DISPLAY")))
 -                 x-command-line-resources
 -                 ;; Exit Emacs with fatal error if this fails.
 -                 t)
 -
 -(setq frame-creation-function 'x-create-frame-with-faces)
 -
 -(setq x-cut-buffer-max (min (- (/ (x-server-max-request-size) 2) 100)
 -                          x-cut-buffer-max))
 -
 -;; Setup the default fontset.
 -(setup-default-fontset)
 -
 -;; Create the standard fontset.
 -(create-fontset-from-fontset-spec standard-fontset-spec t)
 -
 -;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...).
 -(create-fontset-from-x-resource)
 -
 -;; Try to create a fontset from a font specification which comes
 -;; from initial-frame-alist, default-frame-alist, or X resource.
 -;; A font specification in command line argument (i.e. -fn XXXX)
 -;; should be already in default-frame-alist as a `font'
 -;; parameter.  However, any font specifications in site-start
 -;; library, user's init file (.emacs), and default.el are not
 -;; yet handled here.
 -
 -(let ((font (or (cdr (assq 'font initial-frame-alist))
 -              (cdr (assq 'font default-frame-alist))
 -              (x-get-resource "font" "Font")))
 -      xlfd-fields resolved-name)
 -  (if (and font
 -         (not (query-fontset font))
 -         (setq resolved-name (x-resolve-font-name font))
 -         (setq xlfd-fields (x-decompose-font-name font)))
 -      (if (string= "fontset" (aref xlfd-fields xlfd-regexp-registry-subnum))
 -        (new-fontset font (x-complement-fontset-spec xlfd-fields nil))
 -      ;; Create a fontset from FONT.  The fontset name is
 -      ;; generated from FONT.
 -      (create-fontset-from-ascii-font font resolved-name "startup"))))
 -
 -;; Apply a geometry resource to the initial frame.  Put it at the end
 -;; of the alist, so that anything specified on the command line takes
 -;; precedence.
 -(let* ((res-geometry (x-get-resource "geometry" "Geometry"))
 -       parsed)
 -  (if res-geometry
 -      (progn
 -      (setq parsed (x-parse-geometry res-geometry))
 -      ;; If the resource specifies a position,
 -      ;; call the position and size "user-specified".
 -      (if (or (assq 'top parsed) (assq 'left parsed))
 -          (setq parsed (cons '(user-position . t)
 -                             (cons '(user-size . t) parsed))))
 -      ;; All geometry parms apply to the initial frame.
 -      (setq initial-frame-alist (append initial-frame-alist parsed))
 -      ;; The size parms apply to all frames.
 -      (if (assq 'height parsed)
 -          (setq default-frame-alist
 -                (cons (cons 'height (cdr (assq 'height parsed)))
 -                      default-frame-alist)))
 -      (if (assq 'width parsed)
 -          (setq default-frame-alist
 -                (cons (cons 'width (cdr (assq 'width parsed)))
 -                      default-frame-alist))))))
 -
 -;; Check the reverseVideo resource.
 -(let ((case-fold-search t))
 -  (let ((rv (x-get-resource "reverseVideo" "ReverseVideo")))
 -    (if (and rv
 -           (string-match "^\\(true\\|yes\\|on\\)$" rv))
 -      (setq default-frame-alist
 -            (cons '(reverse . t) default-frame-alist)))))
 +(defun x-clipboard-yank ()
 +  "Insert the clipboard contents, or the last stretch of killed text."
 +  (interactive)
 +  (let ((clipboard-text (x-selection-value 'CLIPBOARD))
 +      (x-select-enable-clipboard t))
 +    (if (and clipboard-text (> (length clipboard-text) 0))
 +      (kill-new clipboard-text))
 +    (yank)))
  
 -;; Set x-selection-timeout, measured in milliseconds.
 -(let ((res-selection-timeout
 -       (x-get-resource "selectionTimeout" "SelectionTimeout")))
 -  (setq x-selection-timeout 20000)
 -  (if res-selection-timeout
 -      (setq x-selection-timeout (string-to-number res-selection-timeout))))
 +\f
 +;;; Window system initialization.
  
  (defun x-win-suspend-error ()
    (error "Suspending an Emacs running under X makes no sense"))
 -(add-hook 'suspend-hook 'x-win-suspend-error)
  
 -;;; Arrange for the kill and yank functions to set and check the clipboard.
 -(setq interprogram-cut-function 'x-select-text)
 -(setq interprogram-paste-function 'x-cut-buffer-or-selection-value)
 +(defvar x-initialized nil
 +  "Non-nil if the X window system has been initialized.")
 +
 +(defun x-initialize-window-system ()
 +  "Initialize Emacs for X frames and open the first connection to an X server."
 +  ;; Make sure we have a valid resource name.
 +  (or (stringp x-resource-name)
 +      (let (i)
 +      (setq x-resource-name (invocation-name))
 +
 +      ;; Change any . or * characters in x-resource-name to hyphens,
 +      ;; so as not to choke when we use it in X resource queries.
 +      (while (setq i (string-match "[.*]" x-resource-name))
 +        (aset x-resource-name i ?-))))
 +
 +  (x-open-connection (or x-display-name
 +                       (setq x-display-name (server-getenv "DISPLAY")))
 +                   x-command-line-resources
 +                   ;; Exit Emacs with fatal error if this fails and we
 +                   ;; are the initial display.
 +                   (eq initial-window-system 'x))
 +
 +  (setq x-cut-buffer-max (min (- (/ (x-server-max-request-size) 2) 100)
 +                            x-cut-buffer-max))
 +
 +  ;; Setup the default fontset.
 +  (setup-default-fontset)
 +
 +  ;; Create the standard fontset.
 +  (create-fontset-from-fontset-spec standard-fontset-spec t)
 +
 +  ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...).
 +  (create-fontset-from-x-resource)
 +
 +  ;; Try to create a fontset from a font specification which comes
 +  ;; from initial-frame-alist, default-frame-alist, or X resource.
 +  ;; A font specification in command line argument (i.e. -fn XXXX)
 +  ;; should be already in default-frame-alist as a `font'
 +  ;; parameter.  However, any font specifications in site-start
 +  ;; library, user's init file (.emacs), and default.el are not
 +  ;; yet handled here.
 +
 +  (let ((font (or (cdr (assq 'font initial-frame-alist))
 +                (cdr (assq 'font default-frame-alist))
 +                (x-get-resource "font" "Font")))
 +      xlfd-fields resolved-name)
 +    (if (and font
 +           (not (query-fontset font))
 +           (setq resolved-name (x-resolve-font-name font))
 +           (setq xlfd-fields (x-decompose-font-name font)))
 +      (if (string= "fontset" (aref xlfd-fields xlfd-regexp-registry-subnum))
 +          (new-fontset font (x-complement-fontset-spec xlfd-fields nil))
 +        ;; Create a fontset from FONT.  The fontset name is
 +        ;; generated from FONT.
 +        (create-fontset-from-ascii-font font resolved-name "startup"))))
 +
 +  ;; Apply a geometry resource to the initial frame.  Put it at the end
 +  ;; of the alist, so that anything specified on the command line takes
 +  ;; precedence.
 +  (let* ((res-geometry (x-get-resource "geometry" "Geometry"))
 +       parsed)
 +    (if res-geometry
 +      (progn
 +        (setq parsed (x-parse-geometry res-geometry))
 +        ;; If the resource specifies a position,
 +        ;; call the position and size "user-specified".
 +        (if (or (assq 'top parsed) (assq 'left parsed))
 +            (setq parsed (cons '(user-position . t)
 +                               (cons '(user-size . t) parsed))))
 +        ;; All geometry parms apply to the initial frame.
 +        (setq initial-frame-alist (append initial-frame-alist parsed))
 +        ;; The size parms apply to all frames.
 +        (if (assq 'height parsed)
 +            (setq default-frame-alist
 +                  (cons (cons 'height (cdr (assq 'height parsed)))
 +                        default-frame-alist)))
 +        (if (assq 'width parsed)
 +            (setq default-frame-alist
 +                  (cons (cons 'width (cdr (assq 'width parsed)))
 +                        default-frame-alist))))))
 +
 +  ;; Check the reverseVideo resource.
 +  (let ((case-fold-search t))
 +    (let ((rv (x-get-resource "reverseVideo" "ReverseVideo")))
 +      (if (and rv
 +             (string-match "^\\(true\\|yes\\|on\\)$" rv))
 +        (setq default-frame-alist
 +              (cons '(reverse . t) default-frame-alist)))))
  
 -;;; Turn off window-splitting optimization; X is usually fast enough
 -;;; that this is only annoying.
 -(setq split-window-keep-point t)
 +  ;; Set x-selection-timeout, measured in milliseconds.
 +  (let ((res-selection-timeout
 +       (x-get-resource "selectionTimeout" "SelectionTimeout")))
 +    (setq x-selection-timeout 20000)
 +    (if res-selection-timeout
 +      (setq x-selection-timeout (string-to-number res-selection-timeout))))
  
 -;; Don't show the frame name; that's redundant with X.
 -(setq-default mode-line-frame-identification "  ")
 +  ;; Don't let Emacs suspend under X.
 +  (add-hook 'suspend-hook 'x-win-suspend-error)
  
 -;; Motif direct handling of f10 wasn't working right,
 -;; So temporarily we've turned it off in lwlib-Xm.c
 -;; and turned the Emacs f10 back on.
 -;; ;; Motif normally handles f10 itself, so don't try to handle it a second time.
 -;; (if (featurep 'motif)
 -;;     (global-set-key [f10] 'ignore))
 +  ;; Turn off window-splitting optimization; X is usually fast enough
 +  ;; that this is only annoying.
 +  (setq split-window-keep-point t)
  
 -;; Turn on support for mouse wheels.
 -(mouse-wheel-mode 1)
 +  ;; Motif direct handling of f10 wasn't working right,
 +  ;; So temporarily we've turned it off in lwlib-Xm.c
 +  ;; and turned the Emacs f10 back on.
 +  ;; ;; Motif normally handles f10 itself, so don't try to handle it a second time.
 +  ;; (if (featurep 'motif)
 +  ;;     (global-set-key [f10] 'ignore))
  
 +  ;; Turn on support for mouse wheels.
 +  (mouse-wheel-mode 1)
  
 -;; Enable CLIPBOARD copy/paste through menu bar commands.
 -(menu-bar-enable-clipboard)
 +  ;; Enable CLIPBOARD copy/paste through menu bar commands.
 +  (menu-bar-enable-clipboard)
  
 -;; Override Paste so it looks at CLIPBOARD first.
 -(defun x-clipboard-yank ()
 -  "Insert the clipboard contents, or the last stretch of killed text."
 -  (interactive)
 -  (let ((clipboard-text (x-selection-value 'CLIPBOARD))
 -      (x-select-enable-clipboard t))
 -    (if (and clipboard-text (> (length clipboard-text) 0))
 -      (kill-new clipboard-text))
 -    (yank)))
 +  ;; Override Paste so it looks at CLIPBOARD first.
 +  (define-key menu-bar-edit-menu [paste]
 +    (cons "Paste" (cons "Paste text from clipboard or kill ring"
 +                      'x-clipboard-yank)))
 +
 +  (setq x-initialized t))
 +
 +(add-to-list 'handle-args-function-alist '(x . x-handle-args))
 +(add-to-list 'frame-creation-function-alist '(x . x-create-frame-with-faces))
 +(add-to-list 'window-system-initialization-alist '(x . x-initialize-window-system))
  
 -(define-key menu-bar-edit-menu [paste]
 -  (cons "Paste" (cons "Paste text from clipboard or kill ring"
 -                    'x-clipboard-yank)))
 +(provide 'x-win)
  
  ;; Initiate drag and drop
  (add-hook 'after-make-frame-functions 'x-dnd-init-frame)
diff --combined src/coding.h
@@@ -601,7 -601,7 +601,7 @@@ struct coding_syste
  
  /* Decode the string STR using the specified coding system
     for system functions, if any.  */
- #define DECODE_SYSTEM(name)                                              \
+ #define DECODE_SYSTEM(str)                                               \
    (! NILP (Vlocale_coding_system)                                        \
     && !EQ (Vlocale_coding_system, make_number (0))                       \
     ? code_convert_string_norecord (str, Vlocale_coding_system, 0)        \
@@@ -685,10 -685,20 +685,10 @@@ extern Lisp_Object Vlocale_coding_syste
     the subprocess output.  */
  extern int inherit_process_coding_system;
  
 -/* Coding-system to be used for encoding terminal output.  This
 -   structure contains information of a coding-system specified by the
 -   function `set-terminal-coding-system'.  */
 -extern struct coding_system terminal_coding;
 -
  /* Coding system to be used to encode text for terminal display when
     terminal coding system is nil.  */
  extern struct coding_system safe_terminal_coding;
  
 -/* Coding-system of what is sent from terminal keyboard.  This
 -   structure contains information of a coding-system specified by the
 -   function `set-keyboard-coding-system'.  */
 -extern struct coding_system keyboard_coding;
 -
  /* Default coding system to be used to write a file.  */
  extern struct coding_system default_buffer_file_coding;
  
diff --combined src/data.c
@@@ -30,7 -30,6 +30,7 @@@ Boston, MA 02110-1301, USA.  *
  #include "keyboard.h"
  #include "frame.h"
  #include "syssignal.h"
 +#include "termhooks.h"  /* For FRAME_KBOARD reference in y-or-n-p. */
  
  #ifdef STDC_HEADERS
  #include <float.h>
@@@ -891,18 -890,7 +891,18 @@@ do_symval_forwarding (valcontents
  
        case Lisp_Misc_Kboard_Objfwd:
        offset = XKBOARD_OBJFWD (valcontents)->offset;
 -      return *(Lisp_Object *)(offset + (char *)current_kboard);
 +        /* We used to simply use current_kboard here, but from Lisp
 +           code, it's value is often unexpected.  It seems nicer to
 +           allow constructions like this to work as intuitively expected:
 +
 +              (with-selected-frame frame
 +                   (define-key local-function-map "\eOP" [f1]))
 +
 +           On the other hand, this affects the semantics of
 +           last-command and real-last-command, and people may rely on
 +           that.  I took a quick look at the Lisp codebase, and I
 +           don't think anything will break.  --lorentey  */
 +      return *(Lisp_Object *)(offset + (char *)FRAME_KBOARD (SELECTED_FRAME ()));
        }
    return valcontents;
  }
@@@ -990,7 -978,7 +990,7 @@@ store_symval_forwarding (symbol, valcon
  
        case Lisp_Misc_Kboard_Objfwd:
          {
 -          char *base = (char *) current_kboard;
 +          char *base = (char *) FRAME_KBOARD (SELECTED_FRAME ());
            char *p = base + XKBOARD_OBJFWD (valcontents)->offset;
            *(Lisp_Object *) p = newval;
          }
@@@ -1136,7 -1124,7 +1136,7 @@@ find_symbol_value (symbol
  
        case Lisp_Misc_Kboard_Objfwd:
          return *(Lisp_Object *)(XKBOARD_OBJFWD (valcontents)->offset
 -                                + (char *)current_kboard);
 +                                + (char *)FRAME_KBOARD (SELECTED_FRAME ()));
        }
      }
  
@@@ -1726,7 -1714,9 +1726,9 @@@ it is in effect whenever the current bu
  A frame-local binding is actually a frame parameter value;
  thus, any given frame has a local binding for VARIABLE if it has
  a value for the frame parameter named VARIABLE.  Return VARIABLE.
- See `modify-frame-parameters' for how to set frame parameters.  */)
+ This function does not in itself create any frame-local bindings for
+ VARIABLE.  See `modify-frame-parameters' for how to set frame parameters.  */)
       (variable)
       register Lisp_Object variable;
  {
@@@ -1888,51 -1878,6 +1890,51 @@@ If the current binding is global (the d
  
    return Qnil;
  }
 +
 +/* This code is disabled now that we use the selected frame to return
 +   keyboard-local-values. */
 +#if 0
 +extern struct device *get_device P_ ((Lisp_Object display, int));
 +
 +DEFUN ("terminal-local-value", Fterminal_local_value, Sterminal_local_value, 2, 2, 0,
 +       doc: /* Return the terminal-local value of SYMBOL on DEVICE.
 +If SYMBOL is not a terminal-local variable, then return its normal
 +value, like `symbol-value'.
 +
 +DEVICE may be a display device id, a frame, or nil (meaning the
 +selected frame's display device).  */)
 +  (symbol, device)
 +     Lisp_Object symbol;
 +     Lisp_Object device;
 +{
 +  Lisp_Object result;
 +  struct device *d = get_device (device, 1);
 +  push_kboard (d->kboard);
 +  result = Fsymbol_value (symbol);
 +  pop_kboard ();
 +  return result;
 +}
 +
 +DEFUN ("set-terminal-local-value", Fset_terminal_local_value, Sset_terminal_local_value, 3, 3, 0,
 +       doc: /* Set the terminal-local binding of SYMBOL on DEVICE to VALUE.
 +If VARIABLE is not a terminal-local variable, then set its normal
 +binding, like `set'.
 +
 +DEVICE may be a display device id, a frame, or nil (meaning the
 +selected frame's display device).  */)
 +  (symbol, device, value)
 +     Lisp_Object symbol;
 +     Lisp_Object device;
 +     Lisp_Object value;
 +{
 +  Lisp_Object result;
 +  struct device *d = get_device (device, 1);
 +  push_kboard (d->kboard);
 +  result = Fset (symbol, value);
 +  pop_kboard ();
 +  return result;
 +}
 +#endif
  \f
  /* Find the function at the end of a chain of symbol function indirections.  */
  
@@@ -3384,10 -3329,6 +3386,10 @@@ syms_of_data (
    defsubr (&Slocal_variable_p);
    defsubr (&Slocal_variable_if_set_p);
    defsubr (&Svariable_binding_locus);
 +#if 0                           /* XXX Remove this. --lorentey */
 +  defsubr (&Sterminal_local_value);
 +  defsubr (&Sset_terminal_local_value);
 +#endif
    defsubr (&Saref);
    defsubr (&Saset);
    defsubr (&Snumber_to_string);
diff --combined src/fringe.c
@@@ -29,7 -29,6 +29,7 @@@ Boston, MA 02110-1301, USA.  *
  #include "dispextern.h"
  #include "buffer.h"
  #include "blockinput.h"
 +#include "termhooks.h"
  
  #ifdef HAVE_WINDOW_SYSTEM
  
@@@ -654,7 -653,7 +654,7 @@@ draw_fringe_bitmap_1 (w, row, left_p, o
        break;
      }
  
 -  rif->draw_fringe_bitmap (w, row, &p);
 +  FRAME_RIF (f)->draw_fringe_bitmap (w, row, &p);
  }
  
  void
@@@ -861,7 -860,7 +861,7 @@@ update_window_fringes (w, keep_current_
  
              if (!done_bot)
                {
-                 if (MATRIX_ROW_END_CHARPOS (row) >= BUF_ZV (XBUFFER (w->buffer))
+                 if (row->ends_at_zv_p
                      && !MATRIX_ROW_PARTIALLY_VISIBLE_AT_BOTTOM_P (w, row))
                    row->indicate_eob_p = !NILP (boundary_bot), done_bot = 1;
                  else if (y + row->height >= yb)
@@@ -1094,8 -1093,6 +1094,8 @@@ destroy_fringe_bitmap (n
    fbp = &fringe_bitmaps[n];
    if (*fbp && (*fbp)->dynamic)
      {
 +      /* XXX Is SELECTED_FRAME OK here? */
 +      struct redisplay_interface *rif = FRAME_RIF (SELECTED_FRAME ());
        if (rif && rif->destroy_fringe_bitmap)
        rif->destroy_fringe_bitmap (n);
        xfree (*fbp);
@@@ -1201,9 -1198,6 +1201,9 @@@ init_fringe_bitmap (which, fb, once_p
  
    if (!once_p)
      {
 +      /* XXX Is SELECTED_FRAME OK here? */
 +      struct redisplay_interface *rif = FRAME_RIF (SELECTED_FRAME ());
 +
        destroy_fringe_bitmap (which);
  
        if (rif && rif->define_fringe_bitmap)
diff --combined src/lread.c
@@@ -34,7 -34,6 +34,7 @@@ Boston, MA 02110-1301, USA.  *
  #include <epaths.h>
  #include "commands.h"
  #include "keyboard.h"
 +#include "frame.h"
  #include "termhooks.h"
  #include "coding.h"
  
@@@ -1199,33 -1198,34 +1199,34 @@@ openp (path, str, suffixes, storeptr, p
  \f
  /* Merge the list we've accumulated of globals from the current input source
     into the load_history variable.  The details depend on whether
-    the source has an associated file name or not. */
+    the source has an associated file name or not.
+    FILENAME is the file name that we are loading from.
+    ENTIRE is 1 if loading that entire file, 0 if evaluating part of it.  */
  
  static void
- build_load_history (stream, source)
-      FILE *stream;
-      Lisp_Object source;
+ build_load_history (filename, entire)
+      Lisp_Object filename;
+      int entire;
  {
    register Lisp_Object tail, prev, newelt;
    register Lisp_Object tem, tem2;
-   register int foundit, loading;
-   loading = stream || !NARROWED;
+   register int foundit = 0;
  
    tail = Vload_history;
    prev = Qnil;
-   foundit = 0;
    while (CONSP (tail))
      {
        tem = XCAR (tail);
  
        /* Find the feature's previous assoc list... */
-       if (!NILP (Fequal (source, Fcar (tem))))
+       if (!NILP (Fequal (filename, Fcar (tem))))
        {
          foundit = 1;
  
-         /*  If we're loading, remove it. */
-         if (loading)
+         /*  If we're loading the entire file, remove old data. */
+         if (entire)
            {
              if (NILP (prev))
                Vload_history = XCDR (tail);
        QUIT;
      }
  
-   /* If we're loading, cons the new assoc onto the front of load-history,
-      the most-recently-loaded position.  Also do this if we didn't find
-      an existing member for the current source.  */
-   if (loading || !foundit)
+   /* If we're loading an entire file, cons the new assoc onto the
+      front of load-history, the most-recently-loaded position.  Also
+      do this if we didn't find an existing member for the file.  */
+   if (entire || !foundit)
      Vload_history = Fcons (Fnreverse (Vcurrent_load_list),
                           Vload_history);
  }
@@@ -1415,7 -1415,9 +1416,9 @@@ readevalloop (readcharfun, stream, sour
        }
      }
  
-   build_load_history (stream, sourcename);
+   build_load_history (sourcename, 
+                     stream || (start == BEG && end == Z));
    UNGCPRO;
  
    unbind_to (count, Qnil);
@@@ -3897,8 -3899,8 +3900,8 @@@ An element `(t . SYMBOL)' precedes an e
  and means that SYMBOL was an autoload before this file redefined it
  as a function.
  
For a preloaded file, the file name recorded is relative to the main Lisp
- directory.  These names are converted to absolute by `file-loadhist-lookup'.  */);
During preloading, the file name recorded is relative to the main Lisp
+ directory.  These file names are converted to absolute at startup.  */);
    Vload_history = Qnil;
  
    DEFVAR_LISP ("load-file-name", &Vload_file_name,
diff --combined src/macterm.c
@@@ -165,6 -165,7 +165,7 @@@ struct frame *pending_autoraise_frame
  /* Where the mouse was last time we reported a mouse event.  */
  
  static Rect last_mouse_glyph;
+ static FRAME_PTR last_mouse_glyph_frame;
  
  /* The scroll bar in which the last X motion event occurred.
  
@@@ -716,10 -717,10 +717,10 @@@ mac_draw_string_common (f, gc, x, y, bu
  #ifndef WORDS_BIG_ENDIAN
        {
        int i;
-       Unichar *text = (Unichar *)buf;
+       UniChar *text = (UniChar *)buf;
  
        for (i = 0; i < nchars; i++)
-         text[i] = buf[2*i] << 8 | buf[2*i+1];
+         text[i] = EndianU16_BtoN (text[i]);
        }
  #endif
        err = atsu_get_text_layout_with_text_ptr ((ConstUniCharArrayPtr)buf,
                ATSUDrawText (text_layout,
                              kATSUFromTextBeginning, kATSUToTextEnd,
                              Long2Fix (x), Long2Fix (port_height - y));
-             ATSUClearLayoutControls (text_layout,
-                                      sizeof (tags) / sizeof (tags[0]),
-                                      tags);
              CGContextSynchronize (context);
              QDEndCGContext (port, &context);
+ #if 0
+             /* This doesn't work on Mac OS X 10.1.  */
+             ATSUClearLayoutControls (text_layout, 
+                                      sizeof (tags) / sizeof (tags[0]),
+                                      tags);
+ #else
+             ATSUSetLayoutControls (text_layout,
+                                    sizeof (tags) / sizeof (tags[0]),
+                                    tags, sizes, values);
+ #endif
            }
  #endif
        }
@@@ -1666,8 -1674,12 +1674,12 @@@ x_per_char_metric (font, char2b
          if (err == noErr)
            err = ATSUGetGlyphBounds (text_layout, 0, 0,
                                      kATSUFromTextBeginning, kATSUToTextEnd,
-                                     kATSUseFractionalOrigins, 1,
-                                     &glyph_bounds, NULL);
+ #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
+                                     kATSUseFractionalOrigins,
+ #else
+                                     kATSUseDeviceOrigins,
+ #endif
+                                     1, &glyph_bounds, NULL);
          UNBLOCK_INPUT;
          if (err != noErr)
            pcm = NULL;
@@@ -3910,13 -3922,15 +3922,15 @@@ note_mouse_movement (frame, pos
        return 1;
      }
    /* Has the mouse moved off the glyph it was on at the last sighting?  */
-   if (!PtInRect (*pos, &last_mouse_glyph))
+   if (frame != last_mouse_glyph_frame
+       || !PtInRect (*pos, &last_mouse_glyph))
      {
        frame->mouse_moved = 1;
        last_mouse_scroll_bar = Qnil;
        note_mouse_highlight (frame, pos->h, pos->v);
        /* Remember which glyph we're now on.  */
        remember_mouse_glyph (frame, pos->h, pos->v, &last_mouse_glyph);
+       last_mouse_glyph_frame = frame;
        return 1;
      }
  
@@@ -4021,6 -4035,7 +4035,7 @@@ XTmouse_position (fp, insist, bar_windo
          GetMouse (&mouse_pos);
          remember_mouse_glyph (f1, mouse_pos.h, mouse_pos.v,
                                &last_mouse_glyph);
+         last_mouse_glyph_frame = f1;
  
          *bar_window = Qnil;
          *part = 0;
@@@ -6572,7 -6587,7 +6587,7 @@@ mac_to_x_fontname (name, size, style, c
  
    sprintf (xf, "%s-%c-normal--%d-%d-%d-%d-m-%d-%s",
           style & bold ? "bold" : "medium", style & italic ? 'i' : 'r',
-          size, size * 10, size ? 75 : 0, size ? 75 : 0, size * 10, charset);
+          size, size * 10, size ? 72 : 0, size ? 72 : 0, size * 10, charset);
  
    result = xmalloc (strlen (foundry) + strlen (family) + strlen (xf) + 3 + 1);
    sprintf (result, "-%s-%s-%s", foundry, family, xf);
@@@ -7061,7 -7076,7 +7076,7 @@@ mac_do_list_fonts (pattern, maxnames
            continue;
          memcpy (scaled, font_name_table[i], former_len);
          sprintf (scaled + former_len,
-                  "-%d-%d-75-75-m-%d-%s",
+                  "-%d-%d-72-72-m-%d-%s",
                   scl_val[XLFD_SCL_PIXEL_SIZE],
                   scl_val[XLFD_SCL_POINT_SIZE],
                   scl_val[XLFD_SCL_AVGWIDTH],
@@@ -7409,8 -7424,12 +7424,12 @@@ XLoadQueryFont (Display *dpy, char *fon
          if (err == noErr)
            err = ATSUGetGlyphBounds (text_layout, 0, 0,
                                      kATSUFromTextBeginning, kATSUToTextEnd,
-                                     kATSUseFractionalOrigins, 1,
-                                     &glyph_bounds, NULL);
+ #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020
+                                     kATSUseFractionalOrigins,
+ #else
+                                     kATSUseDeviceOrigins,
+ #endif
+                                     1, &glyph_bounds, NULL);
          if (err == noErr)
            {
              xassert (glyph_bounds.lowerRight.x - glyph_bounds.lowerLeft.x
@@@ -9501,6 -9520,7 +9520,7 @@@ XTread_socket (sd, expected, hold_quit
                != eventNotHandledErr)
              break;
  #endif
+           last_mouse_glyph_frame = 0;
  
            if (dpyinfo->grabbed && last_mouse_frame
                && FRAME_LIVE_P (last_mouse_frame))
@@@ -10230,8 -10250,8 +10250,8 @@@ mac_initialize_display_info (
    main_device_handle = LMGetMainDevice();
  
    dpyinfo->reference_count = 0;
-   dpyinfo->resx = 75.0;
-   dpyinfo->resy = 75.0;
+   dpyinfo->resx = 72.0;
+   dpyinfo->resy = 72.0;
    dpyinfo->color_p = TestDeviceAttribute (main_device_handle, gdDevType);
  #ifdef MAC_OSX
    /* HasDepth returns true if it is possible to have a 32 bit display,
@@@ -10554,13 -10574,12 +10574,13 @@@ mac_initialize (
    redeem_scroll_bar_hook = XTredeem_scroll_bar;
    judge_scroll_bars_hook = XTjudge_scroll_bars;
  
 -  scroll_region_ok = 1;         /* we'll scroll partial frames */
 -  char_ins_del_ok = 1;
 -  line_ins_del_ok = 1;          /* we'll just blt 'em */
 -  fast_clear_end_of_line = 1;   /* X does this well */
 -  memory_below_frame = 0;       /* we don't remember what scrolls
 -                                 off the bottom */
 +  TTY_SCROLL_REGION_OK (CURTTY ()) = 1; /* we'll scroll partial frames */
 +  TTY_CHAR_INS_DEL_OK (CURTTY ()) = 1;
 +  TTY_LINE_INS_DEL_OK (CURTTY ()) = 1; /* we'll just blt 'em */
 +  TTY_FAST_CLEAR_END_OF_LINE (CURTTY ()) = 1; /* X does this well */
 +  TTY_MEMORY_BELOW_FRAME (CURTTY ()) = 0; /* we don't remember what
 +                                                         scrolls off the
 +                                                         bottom */
    baud_rate = 19200;
  
    last_tool_bar_item = -1;
diff --combined src/minibuf.c
@@@ -34,7 -34,6 +34,7 @@@ Boston, MA 02110-1301, USA.  *
  #include "syntax.h"
  #include "intervals.h"
  #include "keymap.h"
 +#include "termhooks.h"
  
  extern int quit_char;
  
@@@ -467,6 -466,7 +467,6 @@@ read_minibuf (map, initial, prompt, bac
  
    specbind (Qminibuffer_default, defalt);
  
 -  single_kboard_state ();
  #ifdef HAVE_X_WINDOWS
    if (display_hourglass_p)
      cancel_hourglass ();
    if (minibuffer_auto_raise)
      Fraise_frame (mini_frame);
  
 +  temporarily_switch_to_single_kboard (XFRAME (mini_frame)->device->kboard);
 +
    /* We have to do this after saving the window configuration
       since that is what restores the current buffer.  */
  
        XWINDOW (minibuf_window)->cursor.x = 0;
        XWINDOW (minibuf_window)->must_be_updated_p = 1;
        update_frame (XFRAME (selected_frame), 1, 1);
 -      if (rif && rif->flush_display)
 -      rif->flush_display (XFRAME (XWINDOW (minibuf_window)->frame));
 +      {
 +        struct frame *f = XFRAME (XWINDOW (minibuf_window)->frame);
 +        struct redisplay_interface *rif = FRAME_RIF (f);
 +        if (rif && rif->flush_display)
 +          rif->flush_display (f);
 +      }
      }
  
    /* Make minibuffer contents into a string.  */
@@@ -2369,7 -2363,7 +2369,7 @@@ properties of `highlight'
  At the end, this runs the normal hook `completion-setup-hook'.
  It can find the completion buffer in `standard-output'.
  The optional second arg COMMON-SUBSTRING is a string.
- It is used to put faces, `completions-first-difference` and
+ It is used to put faces, `completions-first-difference' and
  `completions-common-part' on the completion buffer. The
  `completions-common-part' face is put on the common substring
  specified by COMMON-SUBSTRING. If COMMON-SUBSTRING is nil,
diff --combined src/xterm.c
@@@ -54,6 -54,7 +54,6 @@@ Boston, MA 02110-1301, USA.  *
  #include <sys/ioctl.h>
  #endif /* ! defined (BSD_SYSTEM) */
  
 -#include "systty.h"
  #include "systime.h"
  
  #ifndef INCLUDED_FCNTL
@@@ -248,6 -249,7 +248,7 @@@ static unsigned long ignore_next_mouse_
  /* Where the mouse was last time we reported a mouse event.  */
  
  static XRectangle last_mouse_glyph;
+ static FRAME_PTR last_mouse_glyph_frame;
  static Lisp_Object last_mouse_press_frame;
  
  /* The scroll bar in which the last X motion event occurred.
@@@ -312,10 -314,6 +313,10 @@@ static Lisp_Object Qalt, Qhyper, Qmeta
  static Lisp_Object Qvendor_specific_keysyms;
  static Lisp_Object Qlatin_1;
  
 +/* Used in x_flush.  */
 +
 +extern Lisp_Object Vinhibit_redisplay;
 +
  extern XrmDatabase x_load_resources P_ ((Display *, char *, char *, char *));
  extern int x_bitmap_mask P_ ((FRAME_PTR, int));
  
@@@ -337,16 -335,14 +338,16 @@@ void x_raise_frame P_ ((struct frame *)
  void x_set_window_size P_ ((struct frame *, int, int, int));
  void x_wm_set_window_state P_ ((struct frame *, int));
  void x_wm_set_icon_pixmap P_ ((struct frame *, int));
 +struct device *x_create_device P_ ((struct x_display_info *));
 +void x_delete_device P_ ((struct device *));
  void x_initialize P_ ((void));
  static void x_font_min_bounds P_ ((XFontStruct *, int *, int *));
  static int x_compute_min_glyph_bounds P_ ((struct frame *));
  static void x_update_end P_ ((struct frame *));
  static void XTframe_up_to_date P_ ((struct frame *));
 -static void XTset_terminal_modes P_ ((void));
 -static void XTreset_terminal_modes P_ ((void));
 -static void x_clear_frame P_ ((void));
 +static void XTset_terminal_modes P_ ((struct device *));
 +static void XTreset_terminal_modes P_ ((struct device *));
 +static void x_clear_frame P_ ((struct frame *));
  static void frame_highlight P_ ((struct frame *));
  static void frame_unhighlight P_ ((struct frame *));
  static void x_new_focus_frame P_ ((struct x_display_info *, struct frame *));
@@@ -382,18 -378,12 +383,18 @@@ static voi
  x_flush (f)
       struct frame *f;
  {
 +  /* Don't call XFlush when it is not safe to redisplay; the X
 +     connection may be broken.  */
 +  if (!NILP (Vinhibit_redisplay))
 +    return;
 +
    BLOCK_INPUT;
    if (f == NULL)
      {
        Lisp_Object rest, frame;
        FOR_EACH_FRAME (rest, frame)
 -      x_flush (XFRAME (frame));
 +        if (FRAME_X_P (XFRAME (frame)))
 +          x_flush (XFRAME (frame));
      }
    else if (FRAME_X_P (f))
      XFlush (FRAME_X_DISPLAY (f));
@@@ -805,7 -795,7 +806,7 @@@ x_draw_fringe_bitmap (w, row, p
     rarely happens).  */
  
  static void
 -XTset_terminal_modes ()
 +XTset_terminal_modes (struct device *device)
  {
  }
  
     the X-windows go away, and suspending requires no action.  */
  
  static void
 -XTreset_terminal_modes ()
 +XTreset_terminal_modes (struct device *device)
  {
  }
  
@@@ -1426,8 -1416,7 +1427,8 @@@ x_frame_of_widget (widget
    for (tail = Vframe_list; GC_CONSP (tail); tail = XCDR (tail))
      if (GC_FRAMEP (XCAR (tail))
        && (f = XFRAME (XCAR (tail)),
 -          (f->output_data.nothing != 1
 +          (FRAME_X_P (f)
 +             && f->output_data.nothing != 1
             && FRAME_X_DISPLAY_INFO (f) == dpyinfo))
        && f->output_data.x->widget == widget)
        return f;
@@@ -2781,8 -2770,7 +2782,8 @@@ x_shift_glyphs_for_insert (f, x, y, wid
     for X frames.  */
  
  static void
 -x_delete_glyphs (n)
 +x_delete_glyphs (f, n)
 +     struct frame *f;
       register int n;
  {
    abort ();
@@@ -2805,11 -2793,19 +2806,11 @@@ x_clear_area (dpy, window, x, y, width
  }
  
  
 -/* Clear entire frame.  If updating_frame is non-null, clear that
 -   frame.  Otherwise clear the selected frame.  */
 +/* Clear an entire frame.  */
  
  static void
 -x_clear_frame ()
 +x_clear_frame (struct frame *f)
  {
 -  struct frame *f;
 -
 -  if (updating_frame)
 -    f = updating_frame;
 -  else
 -    f = SELECTED_FRAME ();
 -
    /* Clearing the frame will erase any cursor, so mark them all as no
       longer visible.  */
    mark_window_cursors_off (XWINDOW (FRAME_ROOT_WINDOW (f)));
@@@ -3055,8 -3051,7 +3056,8 @@@ XTset_terminal_window (n
     lines or deleting -N lines at vertical position VPOS.  */
  
  static void
 -x_ins_del_lines (vpos, n)
 +x_ins_del_lines (f, vpos, n)
 +     struct frame *f;
       int vpos, n;
  {
    abort ();
@@@ -3602,20 -3597,24 +3603,24 @@@ note_mouse_movement (frame, event
        frame->mouse_moved = 1;
        last_mouse_scroll_bar = Qnil;
        note_mouse_highlight (frame, -1, -1);
+       last_mouse_glyph_frame = 0;
        return 1;
      }
  
    /* Has the mouse moved off the glyph it was on at the last sighting?  */
-   if (event->x < last_mouse_glyph.x
-          || event->x >= last_mouse_glyph.x + last_mouse_glyph.width
-          || event->y < last_mouse_glyph.y
-          || event->y >= last_mouse_glyph.y + last_mouse_glyph.height)
+   if (frame != last_mouse_glyph_frame
+       || event->x < last_mouse_glyph.x
+       || event->x >= last_mouse_glyph.x + last_mouse_glyph.width
+       || event->y < last_mouse_glyph.y
+       || event->y >= last_mouse_glyph.y + last_mouse_glyph.height)
      {
        frame->mouse_moved = 1;
        last_mouse_scroll_bar = Qnil;
        note_mouse_highlight (frame, event->x, event->y);
        /* Remember which glyph we're now on.  */
        remember_mouse_glyph (frame, event->x, event->y, &last_mouse_glyph);
+       last_mouse_glyph_frame = frame;
        return 1;
      }
  
@@@ -3686,8 -3685,7 +3691,8 @@@ XTmouse_position (fp, insist, bar_windo
  
        /* Clear the mouse-moved flag for every frame on this display.  */
        FOR_EACH_FRAME (tail, frame)
 -      if (FRAME_X_DISPLAY (XFRAME (frame)) == FRAME_X_DISPLAY (*fp))
 +      if (FRAME_X_P (XFRAME (frame))
 +            && FRAME_X_DISPLAY (XFRAME (frame)) == FRAME_X_DISPLAY (*fp))
          XFRAME (frame)->mouse_moved = 0;
  
        last_mouse_scroll_bar = Qnil;
               the frame are divided into.  */
  
            remember_mouse_glyph (f1, win_x, win_y, &last_mouse_glyph);
+           last_mouse_glyph_frame = f1;
  
            *bar_window = Qnil;
            *part = 0;
@@@ -3876,9 -3875,6 +3882,9 @@@ x_window_to_scroll_bar (display, window
        if (! GC_FRAMEP (frame))
        abort ();
  
 +      if (! FRAME_X_P (XFRAME (frame)))
 +        continue;
 +      
        /* Scan this frame's scroll bar list for a scroll bar with the
           right window ID.  */
        condemned = FRAME_CONDEMNED_SCROLL_BARS (XFRAME (frame));
@@@ -3913,14 -3909,11 +3919,14 @@@ x_window_to_menu_bar (window
         XGCTYPE (tail) == Lisp_Cons;
         tail = XCDR (tail))
      {
 -      Lisp_Object frame = XCAR (tail);
 -      Widget menu_bar = XFRAME (frame)->output_data.x->menubar_widget;
 +      if (FRAME_X_P (XFRAME (XCAR (tail))))
 +        {
 +          Lisp_Object frame = XCAR (tail);
 +          Widget menu_bar = XFRAME (frame)->output_data.x->menubar_widget;
  
 -      if (menu_bar && xlwmenu_window_p (menu_bar, window))
 -      return menu_bar;
 +          if (menu_bar && xlwmenu_window_p (menu_bar, window))
 +            return menu_bar;
 +        }
      }
  
    return NULL;
@@@ -6232,37 -6225,58 +6238,58 @@@ handle_one_xevent (dpyinfo, eventp, fin
            bzero (&compose_status, sizeof (compose_status));
            orig_keysym = keysym;
  
 -        /* Common for all keysym input events.  */
 -        XSETFRAME (inev.ie.frame_or_window, f);
 -        inev.ie.modifiers
 -          = x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f), modifiers);
 -        inev.ie.timestamp = event.xkey.time;
 -
 -        /* First deal with keysyms which have defined
 -           translations to characters.  */
 -        if (keysym >= 32 && keysym < 128)
 -          /* Avoid explicitly decoding each ASCII character.  */
 -          {
 -            inev.ie.kind = ASCII_KEYSTROKE_EVENT;
 -            inev.ie.code = keysym;
 +        /* Common for all keysym input events.  */
 +        XSETFRAME (inev.ie.frame_or_window, f);
 +        inev.ie.modifiers
 +          = x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f), modifiers);
 +        inev.ie.timestamp = event.xkey.time;
 +
 +        /* First deal with keysyms which have defined
 +           translations to characters.  */
 +        if (keysym >= 32 && keysym < 128)
 +          /* Avoid explicitly decoding each ASCII character.  */
 +          {
 +            inev.ie.kind = ASCII_KEYSTROKE_EVENT;
 +            inev.ie.code = keysym;
-             goto done_keysym;
-           }
-  
-         /* Now non-ASCII.  */
-         if (HASH_TABLE_P (Vx_keysym_table)
-             && (NATNUMP (c = Fgethash (make_number (keysym),
+             goto done_keysym;
+           }
+         /* Keysyms directly mapped to supported Unicode characters.  */
+         if ((keysym >= 0x01000100 && keysym <= 0x010033ff)
+             || (keysym >= 0x0100e000 && keysym <= 0x0100ffff))
+           {
+             int code, charset_id, c1, c2;
+             if (keysym < 0x01002500)
+               charset_id = charset_mule_unicode_0100_24ff,
+                 code = (keysym & 0xFFFF) - 0x100;
+             else if (keysym < 0x0100e000)
+               charset_id = charset_mule_unicode_2500_33ff,
+                 code = (keysym & 0xFFFF) - 0x2500;
+             else
+               charset_id = charset_mule_unicode_e000_ffff,
+                 code = (keysym & 0xFFFF) - 0xe000;
+             c1 = (code / 96) + 32, c2 = (code % 96) + 32;
+             inev.ie.kind = MULTIBYTE_CHAR_KEYSTROKE_EVENT;
+             inev.ie.code = MAKE_CHAR (charset_id, c1, c2);
+             goto done_keysym;
+           }
+         /* Now non-ASCII.  */
+         if (HASH_TABLE_P (Vx_keysym_table)
+             && (NATNUMP (c = Fgethash (make_number (keysym),
 -                                       Vx_keysym_table,
 -                                       Qnil))))
 -          {
 -            inev.ie.kind = (SINGLE_BYTE_CHAR_P (XFASTINT (c))
 -                            ? ASCII_KEYSTROKE_EVENT
 -                            : MULTIBYTE_CHAR_KEYSTROKE_EVENT);
 -            inev.ie.code = XFASTINT (c);
 -            goto done_keysym;
 -          }
 -
 -        /* Random non-modifier sorts of keysyms.  */
 -        if (((keysym >= XK_BackSpace && keysym <= XK_Escape)
 +                                       Vx_keysym_table,
 +                                       Qnil))))
 +          {
 +            inev.ie.kind = (SINGLE_BYTE_CHAR_P (XFASTINT (c))
 +                              ? ASCII_KEYSTROKE_EVENT
 +                              : MULTIBYTE_CHAR_KEYSTROKE_EVENT);
 +            inev.ie.code = XFASTINT (c);
 +            goto done_keysym;
 +          }
 + 
 +        /* Random non-modifier sorts of keysyms.  */
 +        if (((keysym >= XK_BackSpace && keysym <= XK_Escape)
                          || keysym == XK_Delete
  #ifdef XK_ISO_Left_Tab
                          || (keysym >= XK_ISO_Left_Tab
          int tool_bar_p = 0;
  
          bzero (&compose_status, sizeof (compose_status));
-       bzero (&last_mouse_glyph, sizeof (last_mouse_glyph));
+       last_mouse_glyph_frame = 0;
  
          if (dpyinfo->grabbed
              && last_mouse_frame
@@@ -6896,8 -6910,8 +6923,8 @@@ x_dispatch_event (event, display
     EXPECTED is nonzero if the caller knows input is available.  */
  
  static int
 -XTread_socket (sd, expected, hold_quit)
 -     register int sd;
 +XTread_socket (device, expected, hold_quit)
 +     struct device *device;
       int expected;
       struct input_event *hold_quit;
  {
        }
  
  #ifdef HAVE_X_SM
 -      {
 -      struct input_event inev;
 -      BLOCK_INPUT;
 -      /* We don't need to EVENT_INIT (inev) here, as
 -         x_session_check_input copies an entire input_event.  */
 -      if (x_session_check_input (&inev))
 -        {
 -          kbd_buffer_store_event_hold (&inev, hold_quit);
 -          count++;
 -        }
 -      UNBLOCK_INPUT;
 -      }
 +      /* Only check session manager input for the primary display. */
 +      if (device->id == 1 && x_session_have_connection ())
 +        {
 +          struct input_event inev;
 +          BLOCK_INPUT;
 +          /* We don't need to EVENT_INIT (inev) here, as
 +             x_session_check_input copies an entire input_event.  */
 +          if (x_session_check_input (&inev))
 +            {
 +              kbd_buffer_store_event_hold (&inev, hold_quit);
 +              count++;
 +            }
 +          UNBLOCK_INPUT;
 +        }
  #endif
  
  #ifndef USE_GTK
@@@ -7309,7 -7321,8 +7336,7 @@@ x_draw_window_cursor (w, glyph_row, x, 
      }
  
  #ifndef XFlush
 -  if (updating_frame != f)
 -    XFlush (FRAME_X_DISPLAY (f));
 +  XFlush (FRAME_X_DISPLAY (f));
  #endif
  }
  
@@@ -7589,7 -7602,6 +7616,7 @@@ x_connection_closed (dpy, error_message
    struct x_display_info *dpyinfo = x_display_info_for_display (dpy);
    Lisp_Object frame, tail;
    int count;
 +  int index = SPECPDL_INDEX ();
  
    error_msg = (char *) alloca (strlen (error_message) + 1);
    strcpy (error_msg, error_message);
       the original message here.  */
    count = x_catch_errors (dpy);
  
 +  /* Inhibit redisplay while frames are being deleted. */
 +  specbind (Qinhibit_redisplay, Qt);
 +
 +  if (dpyinfo)
 +    {
 +      /* Protect display from being closed when we delete the last
 +         frame on it. */
 +      dpyinfo->reference_count++;
 +      dpyinfo->device->reference_count++;
 +    }
 +  
 +  /* First delete frames whose mini-buffers are on frames
 +     that are on the dead display.  */
 +  FOR_EACH_FRAME (tail, frame)
 +    {
 +      Lisp_Object minibuf_frame;
 +      minibuf_frame
 +      = WINDOW_FRAME (XWINDOW (FRAME_MINIBUF_WINDOW (XFRAME (frame))));
 +      if (FRAME_X_P (XFRAME (frame))
 +        && FRAME_X_P (XFRAME (minibuf_frame))
 +        && ! EQ (frame, minibuf_frame)
 +        && FRAME_X_DISPLAY_INFO (XFRAME (minibuf_frame)) == dpyinfo)
 +      Fdelete_frame (frame, Qt);
 +    }
 +
 +  /* Now delete all remaining frames on the dead display.
 +     We are now sure none of these is used as the mini-buffer
 +     for another frame that we need to delete.  */
 +  FOR_EACH_FRAME (tail, frame)
 +    if (FRAME_X_P (XFRAME (frame))
 +      && FRAME_X_DISPLAY_INFO (XFRAME (frame)) == dpyinfo)
 +      {
 +      /* Set this to t so that Fdelete_frame won't get confused
 +         trying to find a replacement.  */
 +      FRAME_KBOARD (XFRAME (frame))->Vdefault_minibuffer_frame = Qt;
 +      Fdelete_frame (frame, Qt);
 +      }
 +
    /* We have to close the display to inform Xt that it doesn't
       exist anymore.  If we don't, Xt will continue to wait for
       events from the display.  As a consequence, a sequence of
      xg_display_close (dpyinfo->display);
  #endif
  
 -  /* Indicate that this display is dead.  */
    if (dpyinfo)
 -    dpyinfo->display = 0;
 -
 -  /* First delete frames whose mini-buffers are on frames
 -     that are on the dead display.  */
 -  FOR_EACH_FRAME (tail, frame)
      {
 -      Lisp_Object minibuf_frame;
 -      minibuf_frame
 -      = WINDOW_FRAME (XWINDOW (FRAME_MINIBUF_WINDOW (XFRAME (frame))));
 -      if (FRAME_X_P (XFRAME (frame))
 -        && FRAME_X_P (XFRAME (minibuf_frame))
 -        && ! EQ (frame, minibuf_frame)
 -        && FRAME_X_DISPLAY_INFO (XFRAME (minibuf_frame)) == dpyinfo)
 -      Fdelete_frame (frame, Qt);
 -    }
 +      /* Indicate that this display is dead.  */
 +      dpyinfo->display = 0;
  
 -  /* Now delete all remaining frames on the dead display.
 -     We are now sure none of these is used as the mini-buffer
 -     for another frame that we need to delete.  */
 -  FOR_EACH_FRAME (tail, frame)
 -    if (FRAME_X_P (XFRAME (frame))
 -      && FRAME_X_DISPLAY_INFO (XFRAME (frame)) == dpyinfo)
 -      {
 -      /* Set this to t so that Fdelete_frame won't get confused
 -         trying to find a replacement.  */
 -      FRAME_KBOARD (XFRAME (frame))->Vdefault_minibuffer_frame = Qt;
 -      Fdelete_frame (frame, Qt);
 -      }
 +      dpyinfo->reference_count--;
 +      dpyinfo->device->reference_count--;
 +      if (dpyinfo->reference_count != 0)
 +        /* We have just closed all frames on this display. */
 +        abort ();
  
 -  if (dpyinfo)
 -    x_delete_display (dpyinfo);
 +      x_delete_display (dpyinfo);
 +    }
  
    x_uncatch_errors (dpy, count);
  
 -  if (x_display_list == 0)
 +  if (device_list == 0)
      {
        fprintf (stderr, "%s\n", error_msg);
        shut_down_emacs (0, 0, Qnil);
    sigunblock (sigmask (SIGALRM));
    TOTALLY_UNBLOCK_INPUT;
  
 +  unbind_to (index, Qnil);
    clear_waiting_for_input ();
    error ("%s", error_msg);
  }
@@@ -7906,7 -7899,7 +7933,7 @@@ xim_destroy_callback (xim, client_data
    FOR_EACH_FRAME (tail, frame)
      {
        struct frame *f = XFRAME (frame);
 -      if (FRAME_X_DISPLAY_INFO (f) == dpyinfo)
 +      if (FRAME_X_P (f) && FRAME_X_DISPLAY_INFO (f) == dpyinfo)
        {
          FRAME_XIC (f) = NULL;
            xic_free_xfontset (f);
@@@ -8005,8 -7998,7 +8032,8 @@@ xim_instantiate_callback (display, clie
        {
          struct frame *f = XFRAME (frame);
  
 -        if (FRAME_X_DISPLAY_INFO (f) == xim_inst->dpyinfo)
 +        if (FRAME_X_P (f)
 +              && FRAME_X_DISPLAY_INFO (f) == xim_inst->dpyinfo)
            if (FRAME_XIC (f) == NULL)
              {
                create_frame_xic (f);
@@@ -10074,7 -10066,6 +10101,7 @@@ x_term_init (display_name, xrm_option, 
  {
    int connection;
    Display *dpy;
 +  struct device *device;
    struct x_display_info *dpyinfo;
    XrmDatabase xrdb;
  
    dpyinfo = (struct x_display_info *) xmalloc (sizeof (struct x_display_info));
    bzero (dpyinfo, sizeof *dpyinfo);
  
 +  device = x_create_device (dpyinfo);
 +
  #ifdef MULTI_KBOARD
    {
      struct x_display_info *share;
                         SDATA (display_name)))
        break;
      if (share)
 -      dpyinfo->kboard = share->kboard;
 +      device->kboard = share->device->kboard;
      else
        {
 -      dpyinfo->kboard = (KBOARD *) xmalloc (sizeof (KBOARD));
 -      init_kboard (dpyinfo->kboard);
 +      device->kboard = (KBOARD *) xmalloc (sizeof (KBOARD));
 +      init_kboard (device->kboard);
        if (!EQ (XSYMBOL (Qvendor_specific_keysyms)->function, Qunbound))
          {
            char *vendor = ServerVendor (dpy);
            UNBLOCK_INPUT;
 -          dpyinfo->kboard->Vsystem_key_alist
 +          device->kboard->Vsystem_key_alist
              = call1 (Qvendor_specific_keysyms,
                       build_string (vendor ? vendor : ""));
            BLOCK_INPUT;
          }
  
 -      dpyinfo->kboard->next_kboard = all_kboards;
 -      all_kboards = dpyinfo->kboard;
 +      device->kboard->next_kboard = all_kboards;
 +      all_kboards = device->kboard;
        /* Don't let the initial kboard remain current longer than necessary.
           That would cause problems if a file loaded on startup tries to
           prompt in the mini-buffer.  */
        if (current_kboard == initial_kboard)
 -        current_kboard = dpyinfo->kboard;
 +        current_kboard = device->kboard;
        }
 -    dpyinfo->kboard->reference_count++;
 +    device->kboard->reference_count++;
    }
  #endif
  
  
    dpyinfo->display = dpy;
  
 +  /* Set the name of the device. */
 +  device->name = (char *) xmalloc (SBYTES (display_name) + 1);
 +  strncpy (device->name, SDATA (display_name), SBYTES (display_name));
 +  device->name[SBYTES (display_name)] = 0;
 +  
  #if 0
    XSetAfterFunction (x_current_display, x_trace_wire);
  #endif /* ! 0 */
    }
  
  #ifdef HAVE_X_SM
 -  /* Only do this for the first display.  */
 -  if (x_initialized == 1)
 +  /* Only do this for the very first display in the Emacs session.
 +     Ignore X session management when Emacs was first started on a
 +     tty.  */
 +  if (device->id == 1)
      x_session_initialize (dpyinfo);
  #endif
  
@@@ -10572,19 -10554,6 +10599,19 @@@ x_delete_display (dpyinfo
       struct x_display_info *dpyinfo;
  {
    int i;
 +  struct device *d;
 +
 +  /* Delete the generic struct device for this X display. */
 +  for (d = device_list; d; d = d->next_device)
 +    if (d->type == output_x_window && d->display_info.x == dpyinfo)
 +      {
 +        /* Close X session management when we close its display. */
 +        if (d->id == 1 && x_session_have_connection ())
 +          x_session_close();
 +
 +        delete_device (d);
 +        break;
 +      }
  
    delete_keyboard_wait_descriptor (dpyinfo->connection);
  
    XrmDestroyDatabase (dpyinfo->xrdb);
  #endif
  #endif
 -#ifdef MULTI_KBOARD
 -  if (--dpyinfo->kboard->reference_count == 0)
 -    delete_kboard (dpyinfo->kboard);
 -#endif
  #ifdef HAVE_X_I18N
    if (dpyinfo->xim)
      xim_close_dpy (dpyinfo);
        xfree (dpyinfo->font_table[i].name);
        }
  
 -  if (dpyinfo->font_table->font_encoder)
 +  if (dpyinfo->font_table && dpyinfo->font_table->font_encoder)
      xfree (dpyinfo->font_table->font_encoder);
  
 -  xfree (dpyinfo->font_table);
 +  if (dpyinfo->font_table)
 +    xfree (dpyinfo->font_table);
    xfree (dpyinfo->x_id_name);
    xfree (dpyinfo->color_cells);
    xfree (dpyinfo);
@@@ -10680,123 -10652,70 +10707,123 @@@ x_process_timeouts (timer
  extern frame_parm_handler x_frame_parm_handlers[];
  
  static struct redisplay_interface x_redisplay_interface =
 -{
 -  x_frame_parm_handlers,
 -  x_produce_glyphs,
 -  x_write_glyphs,
 -  x_insert_glyphs,
 -  x_clear_end_of_line,
 -  x_scroll_run,
 -  x_after_update_window_line,
 -  x_update_window_begin,
 -  x_update_window_end,
 -  x_cursor_to,
 -  x_flush,
 +  {
 +    x_frame_parm_handlers,
 +    x_produce_glyphs,
 +    x_write_glyphs,
 +    x_insert_glyphs,
 +    x_clear_end_of_line,
 +    x_scroll_run,
 +    x_after_update_window_line,
 +    x_update_window_begin,
 +    x_update_window_end,
 +    x_cursor_to,
 +    x_flush,
  #ifdef XFlush
 -  x_flush,
 +    x_flush,
  #else
 -  0,  /* flush_display_optional */
 +    0,  /* flush_display_optional */
  #endif
 -  x_clear_window_mouse_face,
 -  x_get_glyph_overhangs,
 -  x_fix_overlapping_area,
 -  x_draw_fringe_bitmap,
 -  0, /* define_fringe_bitmap */
 -  0, /* destroy_fringe_bitmap */
 -  x_per_char_metric,
 -  x_encode_char,
 -  x_compute_glyph_string_overhangs,
 -  x_draw_glyph_string,
 -  x_define_frame_cursor,
 -  x_clear_frame_area,
 -  x_draw_window_cursor,
 -  x_draw_vertical_window_border,
 -  x_shift_glyphs_for_insert
 -};
 +    x_clear_window_mouse_face,
 +    x_get_glyph_overhangs,
 +    x_fix_overlapping_area,
 +    x_draw_fringe_bitmap,
 +    0, /* define_fringe_bitmap */
 +    0, /* destroy_fringe_bitmap */
 +    x_per_char_metric,
 +    x_encode_char,
 +    x_compute_glyph_string_overhangs,
 +    x_draw_glyph_string,
 +    x_define_frame_cursor,
 +    x_clear_frame_area,
 +    x_draw_window_cursor,
 +    x_draw_vertical_window_border,
 +    x_shift_glyphs_for_insert
 +  };
 +
 +
 +/* This function is called when the last frame on a display is deleted. */
 +void
 +x_delete_device (struct device *device)
 +{
 +  struct x_display_info *dpyinfo = device->display_info.x;
 +  int i;
 +
 +  BLOCK_INPUT;
 +  /* Free the fonts in the font table.  */
 +  for (i = 0; i < dpyinfo->n_fonts; i++)
 +    if (dpyinfo->font_table[i].name)
 +      {
 +      XFreeFont (dpyinfo->display, dpyinfo->font_table[i].font);
 +      }
 +
 +  x_destroy_all_bitmaps (dpyinfo);
 +  XSetCloseDownMode (dpyinfo->display, DestroyAll);
 +
 +#ifdef USE_X_TOOLKIT
 +  XtCloseDisplay (dpyinfo->display);
 +#else
 +#ifdef USE_GTK
 +  xg_display_close (dpyinfo->display);
 +#else
 +  XCloseDisplay (dpyinfo->display);
 +#endif
 +#endif
 +
 +  x_delete_display (dpyinfo);
 +  UNBLOCK_INPUT;
 +}
 +
 +
 +struct device *
 +x_create_device (struct x_display_info *dpyinfo)
 +{
 +  struct device *device;
 +  
 +  device = create_device ();
 +
 +  device->type = output_x_window;
 +  device->display_info.x = dpyinfo;
 +  dpyinfo->device = device;
 +
 +  /* kboard is initialized in x_term_init. */
 +  
 +  device->clear_frame_hook = x_clear_frame;
 +  device->ins_del_lines_hook = x_ins_del_lines;
 +  device->delete_glyphs_hook = x_delete_glyphs;
 +  device->ring_bell_hook = XTring_bell;
 +  device->reset_terminal_modes_hook = XTreset_terminal_modes;
 +  device->set_terminal_modes_hook = XTset_terminal_modes;
 +  device->update_begin_hook = x_update_begin;
 +  device->update_end_hook = x_update_end;
 +  device->set_terminal_window_hook = XTset_terminal_window;
 +  device->read_socket_hook = XTread_socket;
 +  device->frame_up_to_date_hook = XTframe_up_to_date;
 +  device->mouse_position_hook = XTmouse_position;
 +  device->frame_rehighlight_hook = XTframe_rehighlight;
 +  device->frame_raise_lower_hook = XTframe_raise_lower;
 +  device->set_vertical_scroll_bar_hook = XTset_vertical_scroll_bar;
 +  device->condemn_scroll_bars_hook = XTcondemn_scroll_bars;
 +  device->redeem_scroll_bar_hook = XTredeem_scroll_bar;
 +  device->judge_scroll_bars_hook = XTjudge_scroll_bars;
 +
 +  device->delete_frame_hook = x_destroy_window;
 +  device->delete_device_hook = x_delete_device;
 +  
 +  device->rif = &x_redisplay_interface;
 +  device->scroll_region_ok = 1;    /* We'll scroll partial frames. */
 +  device->char_ins_del_ok = 1;
 +  device->line_ins_del_ok = 1;         /* We'll just blt 'em. */
 +  device->fast_clear_end_of_line = 1;  /* X does this well. */
 +  device->memory_below_frame = 0;   /* We don't remember what scrolls
 +                                        off the bottom. */
 +
 +  return device;
 +}
  
  void
  x_initialize ()
  {
 -  rif = &x_redisplay_interface;
 -
 -  clear_frame_hook = x_clear_frame;
 -  ins_del_lines_hook = x_ins_del_lines;
 -  delete_glyphs_hook = x_delete_glyphs;
 -  ring_bell_hook = XTring_bell;
 -  reset_terminal_modes_hook = XTreset_terminal_modes;
 -  set_terminal_modes_hook = XTset_terminal_modes;
 -  update_begin_hook = x_update_begin;
 -  update_end_hook = x_update_end;
 -  set_terminal_window_hook = XTset_terminal_window;
 -  read_socket_hook = XTread_socket;
 -  frame_up_to_date_hook = XTframe_up_to_date;
 -  mouse_position_hook = XTmouse_position;
 -  frame_rehighlight_hook = XTframe_rehighlight;
 -  frame_raise_lower_hook = XTframe_raise_lower;
 -  set_vertical_scroll_bar_hook = XTset_vertical_scroll_bar;
 -  condemn_scroll_bars_hook = XTcondemn_scroll_bars;
 -  redeem_scroll_bar_hook = XTredeem_scroll_bar;
 -  judge_scroll_bars_hook = XTjudge_scroll_bars;
 -
 -  scroll_region_ok = 1;               /* we'll scroll partial frames */
 -  char_ins_del_ok = 1;
 -  line_ins_del_ok = 1;                /* we'll just blt 'em */
 -  fast_clear_end_of_line = 1; /* X does this well */
 -  memory_below_frame = 0;     /* we don't remember what scrolls
 -                                 off the bottom */
    baud_rate = 19200;
  
    x_noop_count = 0;
    XSetIOErrorHandler (x_io_error_quitter);
  
    /* Disable Window Change signals;  they are handled by X events.  */
 +#if 0              /* Don't.  We may want to open tty frames later. */
  #ifdef SIGWINCH
    signal (SIGWINCH, SIG_DFL);
  #endif /* SIGWINCH */
 +#endif
  
    signal (SIGPIPE, x_connection_signal);
  }