\f
;;;### (autoloads (5x5-crack 5x5-crack-xor-mutate 5x5-crack-mutating-best
;;;;;; 5x5-crack-mutating-current 5x5-crack-randomly 5x5) "5x5"
-;;;;;; "play/5x5.el" (20545 57511 257469 0))
+;;;;;; "play/5x5.el" (20545 60086 510404 0))
;;; Generated autoloads from play/5x5.el
(autoload '5x5 "5x5" "\
;;;***
\f
;;;### (autoloads (ada-mode ada-add-extensions) "ada-mode" "progmodes/ada-mode.el"
-;;;;;; (20576 42138 697312 0))
+;;;;;; (20576 17415 279992 225000))
;;; Generated autoloads from progmodes/ada-mode.el
(autoload 'ada-add-extensions "ada-mode" "\
;;;***
\f
;;;### (autoloads (ada-header) "ada-stmt" "progmodes/ada-stmt.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from progmodes/ada-stmt.el
(autoload 'ada-header "ada-stmt" "\
;;;***
\f
;;;### (autoloads (ada-find-file) "ada-xref" "progmodes/ada-xref.el"
-;;;;;; (20458 56750 651721 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from progmodes/ada-xref.el
(autoload 'ada-find-file "ada-xref" "\
;;;;;; 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" "vc/add-log.el"
-;;;;;; (20665 59189 799105 0))
+;;;;;; (20665 35316 344720 209000))
;;; Generated autoloads from vc/add-log.el
(put 'change-log-default-name 'safe-local-variable 'string-or-null-p)
\f
;;;### (autoloads (defadvice ad-activate ad-add-advice ad-disable-advice
;;;;;; ad-enable-advice ad-default-compilation-action ad-redefinition-action)
-;;;;;; "advice" "emacs-lisp/advice.el" (20660 41272 835092 0))
+;;;;;; "advice" "emacs-lisp/advice.el" (20660 26176 137583 0))
;;; Generated autoloads from emacs-lisp/advice.el
(defvar ad-redefinition-action 'warn "\
\f
;;;### (autoloads (align-newline-and-indent align-unhighlight-rule
;;;;;; align-highlight-rule align-current align-entire align-regexp
-;;;;;; align) "align" "align.el" (20566 63671 243798 0))
+;;;;;; align) "align" "align.el" (20566 45971 994610 911000))
;;; Generated autoloads from align.el
(autoload 'align "align" "\
\f
;;;### (autoloads (outlineify-sticky allout-mode allout-mode-p allout-auto-activation
;;;;;; allout-setup allout-auto-activation-helper) "allout" "allout.el"
-;;;;;; (20651 26294 774003 0))
+;;;;;; (20652 52617 313760 0))
;;; Generated autoloads from allout.el
(autoload 'allout-auto-activation-helper "allout" "\
\f
;;;### (autoloads (allout-widgets-mode allout-widgets-auto-activation
;;;;;; allout-widgets-setup allout-widgets) "allout-widgets" "allout-widgets.el"
-;;;;;; (20545 57511 257469 0))
+;;;;;; (20545 60086 510404 0))
;;; Generated autoloads from allout-widgets.el
(let ((loads (get 'allout-widgets 'custom-loads))) (if (member '"allout-widgets" loads) nil (put 'allout-widgets 'custom-loads (cons '"allout-widgets" loads))))
;;;***
\f
;;;### (autoloads (ange-ftp-hook-function ange-ftp-reread-dir) "ange-ftp"
-;;;;;; "net/ange-ftp.el" (20566 63671 243798 0))
+;;;;;; "net/ange-ftp.el" (20566 46265 242622 534000))
;;; Generated autoloads from net/ange-ftp.el
(defalias 'ange-ftp-re-read-dir 'ange-ftp-reread-dir)
;;;***
\f
;;;### (autoloads (animate-birthday-present animate-sequence animate-string)
-;;;;;; "animate" "play/animate.el" (20545 57511 257469 0))
+;;;;;; "animate" "play/animate.el" (20545 60086 510404 0))
;;; Generated autoloads from play/animate.el
(autoload 'animate-string "animate" "\
;;;***
\f
;;;### (autoloads (ansi-color-process-output ansi-color-for-comint-mode-on)
-;;;;;; "ansi-color" "ansi-color.el" (20642 11326 759953 0))
+;;;;;; "ansi-color" "ansi-color.el" (20647 7982 429263 0))
;;; Generated autoloads from ansi-color.el
(autoload 'ansi-color-for-comint-mode-on "ansi-color" "\
;;;***
\f
;;;### (autoloads (antlr-set-tabs antlr-mode antlr-show-makefile-rules)
-;;;;;; "antlr-mode" "progmodes/antlr-mode.el" (20566 63671 243798
-;;;;;; 0))
+;;;;;; "antlr-mode" "progmodes/antlr-mode.el" (20566 46627 290641
+;;;;;; 925000))
;;; Generated autoloads from progmodes/antlr-mode.el
(autoload 'antlr-show-makefile-rules "antlr-mode" "\
;;;***
\f
;;;### (autoloads (appt-activate appt-add) "appt" "calendar/appt.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from calendar/appt.el
(autoload 'appt-add "appt" "\
\f
;;;### (autoloads (apropos-documentation apropos-value apropos-library
;;;;;; apropos apropos-documentation-property apropos-command apropos-variable
-;;;;;; apropos-read-pattern) "apropos" "apropos.el" (20523 62082
-;;;;;; 997685 0))
+;;;;;; apropos-read-pattern) "apropos" "apropos.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from apropos.el
(autoload 'apropos-read-pattern "apropos" "\
;;;***
\f
;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (20647
-;;;;;; 29243 972198 0))
+;;;;;; 7982 429263 0))
;;; Generated autoloads from arc-mode.el
(autoload 'archive-mode "arc-mode" "\
;;;***
\f
-;;;### (autoloads (array-mode) "array" "array.el" (20355 10021 546955
+;;;### (autoloads (array-mode) "array" "array.el" (20533 50312 678915
;;;;;; 0))
;;; Generated autoloads from array.el
;;;***
\f
-;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (20513
-;;;;;; 18948 537867 0))
+;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from textmodes/artist.el
(autoload 'artist-mode "artist" "\
;;;***
\f
-;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from progmodes/asm-mode.el
(autoload 'asm-mode "asm-mode" "\
;;;***
\f
;;;### (autoloads (auth-source-cache-expiry) "auth-source" "gnus/auth-source.el"
-;;;;;; (20544 36659 880486 0))
+;;;;;; (20545 60086 510404 0))
;;; Generated autoloads from gnus/auth-source.el
(defvar auth-source-cache-expiry 7200 "\
;;;***
\f
;;;### (autoloads (autoarg-kp-mode autoarg-mode) "autoarg" "autoarg.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from autoarg.el
(defvar autoarg-mode nil "\
;;;***
\f
;;;### (autoloads (autoconf-mode) "autoconf" "progmodes/autoconf.el"
-;;;;;; (20665 59189 799105 0))
+;;;;;; (20665 31909 588757 472000))
;;; Generated autoloads from progmodes/autoconf.el
(autoload 'autoconf-mode "autoconf" "\
;;;***
\f
;;;### (autoloads (auto-insert-mode define-auto-insert auto-insert)
-;;;;;; "autoinsert" "autoinsert.el" (20566 63671 243798 0))
+;;;;;; "autoinsert" "autoinsert.el" (20566 45969 322610 468000))
;;; Generated autoloads from autoinsert.el
(autoload 'auto-insert "autoinsert" "\
\f
;;;### (autoloads (batch-update-autoloads update-directory-autoloads
;;;;;; update-file-autoloads) "autoload" "emacs-lisp/autoload.el"
-;;;;;; (20594 43050 277913 0))
+;;;;;; (20594 14884 858174 0))
;;; Generated autoloads from emacs-lisp/autoload.el
(put 'generated-autoload-file 'safe-local-variable 'stringp)
\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" (20476 31768 298871 0))
+;;;;;; "autorevert" "autorevert.el" (20629 14541 236054 412000))
;;; Generated autoloads from autorevert.el
(autoload 'auto-revert-mode "autorevert" "\
;;;***
\f
;;;### (autoloads (mouse-avoidance-mode mouse-avoidance-mode) "avoid"
-;;;;;; "avoid.el" (20593 22184 581574 0))
+;;;;;; "avoid.el" (20594 14884 858174 0))
;;; Generated autoloads from avoid.el
(defvar mouse-avoidance-mode nil "\
;;;***
\f
;;;### (autoloads (display-battery-mode battery) "battery" "battery.el"
-;;;;;; (20594 43050 277913 0))
+;;;;;; (20595 33984 147078 0))
;;; Generated autoloads from battery.el
(put 'battery-mode-line-string 'risky-local-variable t)
;;;***
\f
;;;### (autoloads (benchmark benchmark-run-compiled benchmark-run)
-;;;;;; "benchmark" "emacs-lisp/benchmark.el" (20557 48712 315579
+;;;;;; "benchmark" "emacs-lisp/benchmark.el" (20557 23173 326608
;;;;;; 0))
;;; Generated autoloads from emacs-lisp/benchmark.el
;;;***
\f
;;;### (autoloads (bibtex-search-entry bibtex-mode bibtex-initialize)
-;;;;;; "bibtex" "textmodes/bibtex.el" (20576 13095 881042 0))
+;;;;;; "bibtex" "textmodes/bibtex.el" (20575 51581 109735 0))
;;; Generated autoloads from textmodes/bibtex.el
(autoload 'bibtex-initialize "bibtex" "\
;;;***
\f
;;;### (autoloads (bibtex-style-mode) "bibtex-style" "textmodes/bibtex-style.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from textmodes/bibtex-style.el
(autoload 'bibtex-style-mode "bibtex-style" "\
\f
;;;### (autoloads (binhex-decode-region binhex-decode-region-external
;;;;;; binhex-decode-region-internal) "binhex" "mail/binhex.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from mail/binhex.el
(defconst binhex-begin-line "^:...............................................................$" "\
;;;***
\f
-;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (20551
-;;;;;; 9899 283417 0))
+;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (20552
+;;;;;; 25066 479417 0))
;;; Generated autoloads from play/blackbox.el
(autoload 'blackbox "blackbox" "\
;;;;;; bookmark-save bookmark-write bookmark-delete bookmark-insert
;;;;;; bookmark-rename bookmark-insert-location bookmark-relocate
;;;;;; bookmark-jump-other-window bookmark-jump bookmark-set) "bookmark"
-;;;;;; "bookmark.el" (20630 20152 156327 0))
+;;;;;; "bookmark.el" (20629 57223 201983 433000))
;;; Generated autoloads from bookmark.el
(define-key ctl-x-r-map "b" 'bookmark-jump)
(define-key ctl-x-r-map "m" 'bookmark-set)
;;;;;; browse-url-xdg-open browse-url-at-mouse browse-url-at-point
;;;;;; browse-url browse-url-of-region browse-url-of-dired-file
;;;;;; browse-url-of-buffer browse-url-of-file browse-url-browser-function)
-;;;;;; "browse-url" "net/browse-url.el" (20566 63671 243798 0))
+;;;;;; "browse-url" "net/browse-url.el" (20566 46699 734641 18000))
;;; Generated autoloads from net/browse-url.el
(defvar browse-url-browser-function 'browse-url-default-browser "\
;;;***
\f
;;;### (autoloads (bs-show bs-customize bs-cycle-previous bs-cycle-next)
-;;;;;; "bs" "bs.el" (20576 13095 881042 0))
+;;;;;; "bs" "bs.el" (20574 57829 481502 235000))
;;; Generated autoloads from bs.el
(autoload 'bs-cycle-next "bs" "\
;;;***
\f
-;;;### (autoloads (bubbles) "bubbles" "play/bubbles.el" (20566 63671
-;;;;;; 243798 0))
+;;;### (autoloads (bubbles) "bubbles" "play/bubbles.el" (20566 46646
+;;;;;; 562639 12000))
;;; Generated autoloads from play/bubbles.el
(autoload 'bubbles "bubbles" "\
;;;***
\f
;;;### (autoloads (bug-reference-prog-mode bug-reference-mode) "bug-reference"
-;;;;;; "progmodes/bug-reference.el" (20593 22184 581574 0))
+;;;;;; "progmodes/bug-reference.el" (20594 14884 858174 0))
;;; Generated autoloads from progmodes/bug-reference.el
(put 'bug-reference-url-format 'safe-local-variable (lambda (s) (or (stringp s) (and (symbolp s) (get s 'bug-reference-url-format)))))
;;;;;; batch-byte-compile-if-not-done display-call-tree byte-compile
;;;;;; compile-defun byte-compile-file byte-recompile-directory
;;;;;; byte-force-recompile byte-compile-enable-warning byte-compile-disable-warning)
-;;;;;; "bytecomp" "emacs-lisp/bytecomp.el" (20656 44218 805102 0))
+;;;;;; "bytecomp" "emacs-lisp/bytecomp.el" (20656 14460 296991 0))
;;; Generated autoloads from emacs-lisp/bytecomp.el
(put 'byte-compile-dynamic 'safe-local-variable 'booleanp)
(put 'byte-compile-disable-print-circle 'safe-local-variable 'booleanp)
;;;***
\f
-;;;### (autoloads nil "cal-china" "calendar/cal-china.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads nil "cal-china" "calendar/cal-china.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from calendar/cal-china.el
(put 'calendar-chinese-time-zone 'risky-local-variable t)
;;;***
\f
-;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (20461 32935
-;;;;;; 300400 0))
+;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from calendar/cal-dst.el
(put 'calendar-daylight-savings-starts 'risky-local-variable t)
;;;***
\f
;;;### (autoloads (calendar-hebrew-list-yahrzeits) "cal-hebrew" "calendar/cal-hebrew.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from calendar/cal-hebrew.el
(autoload 'calendar-hebrew-list-yahrzeits "cal-hebrew" "\
\f
;;;### (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" "calc/calc.el" (20654
-;;;;;; 2487 96777 0))
+;;;;;; full-calc calc calc-dispatch) "calc" "calc/calc.el" (20655
+;;;;;; 4702 996292 0))
;;; Generated autoloads from calc/calc.el
(define-key ctl-x-map "*" 'calc-dispatch)
;;;***
\f
-;;;### (autoloads (calc-undo) "calc-undo" "calc/calc-undo.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (calc-undo) "calc-undo" "calc/calc-undo.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from calc/calc-undo.el
(autoload 'calc-undo "calc-undo" "\
;;;***
\f
-;;;### (autoloads (calculator) "calculator" "calculator.el" (20476
-;;;;;; 31768 298871 0))
+;;;### (autoloads (calculator) "calculator" "calculator.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from calculator.el
(autoload 'calculator "calculator" "\
;;;***
\f
-;;;### (autoloads (calendar) "calendar" "calendar/calendar.el" (20594
-;;;;;; 43050 277913 0))
+;;;### (autoloads (calendar) "calendar" "calendar/calendar.el" (20595
+;;;;;; 33984 147078 0))
;;; Generated autoloads from calendar/calendar.el
(autoload 'calendar "calendar" "\
;;;***
\f
;;;### (autoloads (canlock-verify canlock-insert-header) "canlock"
-;;;;;; "gnus/canlock.el" (20355 10021 546955 0))
+;;;;;; "gnus/canlock.el" (20533 50312 678915 0))
;;; Generated autoloads from gnus/canlock.el
(autoload 'canlock-insert-header "canlock" "\
;;;***
\f
;;;### (autoloads (capitalized-words-mode) "cap-words" "progmodes/cap-words.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from progmodes/cap-words.el
(autoload 'capitalized-words-mode "cap-words" "\
;;;***
\f
-;;;### (autoloads nil "cc-compat" "progmodes/cc-compat.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads nil "cc-compat" "progmodes/cc-compat.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from progmodes/cc-compat.el
(put 'c-indent-level 'safe-local-variable 'integerp)
;;;***
\f
;;;### (autoloads (c-guess-basic-syntax) "cc-engine" "progmodes/cc-engine.el"
-;;;;;; (20656 44218 805102 0))
+;;;;;; (20656 14460 296991 0))
;;; Generated autoloads from progmodes/cc-engine.el
(autoload 'c-guess-basic-syntax "cc-engine" "\
\f
;;;### (autoloads (c-guess-install c-guess-region-no-install c-guess-region
;;;;;; c-guess-buffer-no-install c-guess-buffer c-guess-no-install
-;;;;;; c-guess) "cc-guess" "progmodes/cc-guess.el" (20355 10021
-;;;;;; 546955 0))
+;;;;;; c-guess) "cc-guess" "progmodes/cc-guess.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from progmodes/cc-guess.el
(defvar c-guess-guessed-offsets-alist nil "\
\f
;;;### (autoloads (awk-mode pike-mode idl-mode java-mode objc-mode
;;;;;; c++-mode c-mode c-initialize-cc-mode) "cc-mode" "progmodes/cc-mode.el"
-;;;;;; (20665 59189 799105 0))
+;;;;;; (20665 35573 592719 966000))
;;; Generated autoloads from progmodes/cc-mode.el
(autoload 'c-initialize-cc-mode "cc-mode" "\
;;;***
\f
;;;### (autoloads (c-set-offset c-add-style c-set-style) "cc-styles"
-;;;;;; "progmodes/cc-styles.el" (20566 63671 243798 0))
+;;;;;; "progmodes/cc-styles.el" (20566 46620 114637 614000))
;;; Generated autoloads from progmodes/cc-styles.el
(autoload 'c-set-style "cc-styles" "\
;;;***
\f
-;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (20595 63909
-;;;;;; 923329 0))
+;;;### (autoloads nil "cc-vars" "progmodes/cc-vars.el" (20596 57817
+;;;;;; 368875 0))
;;; Generated autoloads from progmodes/cc-vars.el
(put 'c-basic-offset 'safe-local-variable 'integerp)
(put 'c-backslash-column 'safe-local-variable 'integerp)
\f
;;;### (autoloads (ccl-execute-with-args check-ccl-program define-ccl-program
;;;;;; declare-ccl-program ccl-dump ccl-compile) "ccl" "international/ccl.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from international/ccl.el
(autoload 'ccl-compile "ccl" "\
;;;***
\f
;;;### (autoloads (cconv-closure-convert) "cconv" "emacs-lisp/cconv.el"
-;;;;;; (20453 5437 764254 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from emacs-lisp/cconv.el
(autoload 'cconv-closure-convert "cconv" "\
;;;***
\f
;;;### (autoloads (cfengine-auto-mode cfengine2-mode cfengine3-mode)
-;;;;;; "cfengine" "progmodes/cfengine.el" (20355 10021 546955 0))
+;;;;;; "cfengine" "progmodes/cfengine.el" (20533 50312 678915 0))
;;; Generated autoloads from progmodes/cfengine.el
(autoload 'cfengine3-mode "cfengine" "\
;;;***
\f
;;;### (autoloads (check-declare-directory check-declare-file) "check-declare"
-;;;;;; "emacs-lisp/check-declare.el" (20378 29222 722320 0))
+;;;;;; "emacs-lisp/check-declare.el" (20533 50312 678915 0))
;;; Generated autoloads from emacs-lisp/check-declare.el
(autoload 'check-declare-file "check-declare" "\
;;;;;; checkdoc-comments checkdoc-continue checkdoc-start checkdoc-current-buffer
;;;;;; checkdoc-eval-current-buffer checkdoc-message-interactive
;;;;;; checkdoc-interactive checkdoc checkdoc-list-of-strings-p)
-;;;;;; "checkdoc" "emacs-lisp/checkdoc.el" (20647 29243 972198 0))
+;;;;;; "checkdoc" "emacs-lisp/checkdoc.el" (20647 7982 429263 0))
;;; Generated autoloads from emacs-lisp/checkdoc.el
(put 'checkdoc-force-docstrings-flag 'safe-local-variable 'booleanp)
(put 'checkdoc-force-history-flag 'safe-local-variable 'booleanp)
\f
;;;### (autoloads (pre-write-encode-hz post-read-decode-hz encode-hz-buffer
;;;;;; encode-hz-region decode-hz-buffer decode-hz-region) "china-util"
-;;;;;; "language/china-util.el" (20355 10021 546955 0))
+;;;;;; "language/china-util.el" (20533 50312 678915 0))
;;; Generated autoloads from language/china-util.el
(autoload 'decode-hz-region "china-util" "\
;;;***
\f
;;;### (autoloads (command-history list-command-history repeat-matching-complex-command)
-;;;;;; "chistory" "chistory.el" (20355 10021 546955 0))
+;;;;;; "chistory" "chistory.el" (20533 50312 678915 0))
;;; Generated autoloads from chistory.el
(autoload 'repeat-matching-complex-command "chistory" "\
;;;***
\f
;;;### (autoloads (common-lisp-indent-function) "cl-indent" "emacs-lisp/cl-indent.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from emacs-lisp/cl-indent.el
(autoload 'common-lisp-indent-function "cl-indent" "\
;;;***
\f
-;;;### (autoloads nil "cl-lib" "emacs-lisp/cl-lib.el" (20648 50109
-;;;;;; 802321 0))
+;;;### (autoloads nil "cl-lib" "emacs-lisp/cl-lib.el" (20648 29678
+;;;;;; 511980 0))
;;; Generated autoloads from emacs-lisp/cl-lib.el
(define-obsolete-variable-alias 'custom-print-functions 'cl-custom-print-functions "24.3")
;;;***
\f
;;;### (autoloads (c-macro-expand) "cmacexp" "progmodes/cmacexp.el"
-;;;;;; (20566 63671 243798 0))
+;;;;;; (20566 46193 922619 203000))
;;; Generated autoloads from progmodes/cmacexp.el
(autoload 'c-macro-expand "cmacexp" "\
;;;***
\f
-;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from cmuscheme.el
(autoload 'run-scheme "cmuscheme" "\
;;;***
\f
-;;;### (autoloads (color-name-to-rgb) "color" "color.el" (20650 54512
-;;;;;; 564403 0))
+;;;### (autoloads (color-name-to-rgb) "color" "color.el" (20650 61396
+;;;;;; 673885 0))
;;; Generated autoloads from color.el
(autoload 'color-name-to-rgb "color" "\
;;;### (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"
-;;;;;; (20594 43050 277913 0))
+;;;;;; (20594 14884 858174 0))
;;; Generated autoloads from comint.el
(defvar comint-output-filter-functions '(ansi-color-process-output comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt) "\
;;;***
\f
;;;### (autoloads (compare-windows) "compare-w" "vc/compare-w.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from vc/compare-w.el
(autoload 'compare-windows "compare-w" "\
;;;;;; compilation-shell-minor-mode compilation-mode compilation-start
;;;;;; compile compilation-disable-input compile-command compilation-search-path
;;;;;; compilation-ask-about-save compilation-window-height compilation-start-hook
-;;;;;; compilation-mode-hook) "compile" "progmodes/compile.el" (20615
-;;;;;; 49194 141673 0))
+;;;;;; compilation-mode-hook) "compile" "progmodes/compile.el" (20666
+;;;;;; 61709 220674 0))
;;; Generated autoloads from progmodes/compile.el
(defvar compilation-mode-hook nil "\
;;;***
\f
;;;### (autoloads (dynamic-completion-mode) "completion" "completion.el"
-;;;;;; (20495 51111 757560 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from completion.el
(defvar dynamic-completion-mode nil "\
;;;### (autoloads (conf-xdefaults-mode conf-ppd-mode conf-colon-mode
;;;;;; conf-space-keywords conf-space-mode conf-javaprop-mode conf-windows-mode
;;;;;; conf-unix-mode conf-mode) "conf-mode" "textmodes/conf-mode.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from textmodes/conf-mode.el
(autoload 'conf-mode "conf-mode" "\
;;;***
\f
;;;### (autoloads (shuffle-vector cookie-snarf cookie-insert cookie)
-;;;;;; "cookie1" "play/cookie1.el" (20545 57511 257469 0))
+;;;;;; "cookie1" "play/cookie1.el" (20545 60086 510404 0))
;;; Generated autoloads from play/cookie1.el
(autoload 'cookie "cookie1" "\
;;;***
\f
;;;### (autoloads (copyright-update-directory copyright copyright-fix-years
-;;;;;; copyright-update) "copyright" "emacs-lisp/copyright.el" (20518
-;;;;;; 12580 46478 0))
+;;;;;; copyright-update) "copyright" "emacs-lisp/copyright.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from emacs-lisp/copyright.el
(put 'copyright-at-end-flag 'safe-local-variable 'booleanp)
(put 'copyright-names-regexp 'safe-local-variable 'stringp)
;;;***
\f
;;;### (autoloads (cperl-perldoc-at-point cperl-perldoc cperl-mode)
-;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (20665 59189 799105
-;;;;;; 0))
+;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (20665 37088 368703
+;;;;;; 981000))
;;; Generated autoloads from progmodes/cperl-mode.el
(put 'cperl-indent-level 'safe-local-variable 'integerp)
(put 'cperl-brace-offset 'safe-local-variable 'integerp)
;;;***
\f
;;;### (autoloads (cpp-parse-edit cpp-highlight-buffer) "cpp" "progmodes/cpp.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from progmodes/cpp.el
(autoload 'cpp-highlight-buffer "cpp" "\
;;;***
\f
;;;### (autoloads (crisp-mode crisp-mode) "crisp" "emulation/crisp.el"
-;;;;;; (20593 22184 581574 0))
+;;;;;; (20594 14884 858174 0))
;;; Generated autoloads from emulation/crisp.el
(defvar crisp-mode nil "\
;;;***
\f
;;;### (autoloads (completing-read-multiple) "crm" "emacs-lisp/crm.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from emacs-lisp/crm.el
(autoload 'completing-read-multiple "crm" "\
;;;***
\f
;;;### (autoloads (css-mode) "css-mode" "textmodes/css-mode.el" (20665
-;;;;;; 59189 799105 0))
+;;;;;; 38640 856688 172000))
;;; Generated autoloads from textmodes/css-mode.el
(autoload 'css-mode "css-mode" "\
;;;***
\f
;;;### (autoloads (cua-selection-mode cua-mode) "cua-base" "emulation/cua-base.el"
-;;;;;; (20434 17809 692608 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from emulation/cua-base.el
(defvar cua-mode nil "\
;;;;;; customize-mode customize customize-push-and-save customize-save-variable
;;;;;; customize-set-variable customize-set-value custom-menu-sort-alphabetically
;;;;;; custom-buffer-sort-alphabetically custom-browse-sort-alphabetically)
-;;;;;; "cus-edit" "cus-edit.el" (20657 65077 880084 0))
+;;;;;; "cus-edit" "cus-edit.el" (20657 37717 602128 837000))
;;; Generated autoloads from cus-edit.el
(defvar custom-browse-sort-alphabetically nil "\
;;;***
\f
;;;### (autoloads (customize-themes describe-theme custom-theme-visit-theme
-;;;;;; customize-create-theme) "cus-theme" "cus-theme.el" (20355
-;;;;;; 10021 546955 0))
+;;;;;; customize-create-theme) "cus-theme" "cus-theme.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from cus-theme.el
(autoload 'customize-create-theme "cus-theme" "\
;;;***
\f
;;;### (autoloads (cvs-status-mode) "cvs-status" "vc/cvs-status.el"
-;;;;;; (20476 31768 298871 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from vc/cvs-status.el
(autoload 'cvs-status-mode "cvs-status" "\
;;;***
\f
;;;### (autoloads (global-cwarn-mode cwarn-mode) "cwarn" "progmodes/cwarn.el"
-;;;;;; (20577 33959 40183 0))
+;;;;;; (20576 15647 691916 958000))
;;; Generated autoloads from progmodes/cwarn.el
(autoload 'cwarn-mode "cwarn" "\
\f
;;;### (autoloads (standard-display-cyrillic-translit cyrillic-encode-alternativnyj-char
;;;;;; cyrillic-encode-koi8-r-char) "cyril-util" "language/cyril-util.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from language/cyril-util.el
(autoload 'cyrillic-encode-koi8-r-char "cyril-util" "\
;;;***
\f
;;;### (autoloads (dabbrev-expand dabbrev-completion) "dabbrev" "dabbrev.el"
-;;;;;; (20397 45851 446679 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from dabbrev.el
(put 'dabbrev-case-fold-search 'risky-local-variable t)
(put 'dabbrev-case-replace 'risky-local-variable t)
;;;***
\f
;;;### (autoloads (data-debug-new-buffer) "data-debug" "cedet/data-debug.el"
-;;;;;; (20586 48936 135199 0))
+;;;;;; (20585 42247 727488 570000))
;;; Generated autoloads from cedet/data-debug.el
(autoload 'data-debug-new-buffer "data-debug" "\
;;;***
\f
-;;;### (autoloads (dbus-handle-event) "dbus" "net/dbus.el" (20614
-;;;;;; 54428 654267 0))
+;;;### (autoloads (dbus-handle-event) "dbus" "net/dbus.el" (20615
+;;;;;; 22847 537904 0))
;;; Generated autoloads from net/dbus.el
(autoload 'dbus-handle-event "dbus" "\
;;;***
\f
-;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from progmodes/dcl-mode.el
(autoload 'dcl-mode "dcl-mode" "\
;;;***
\f
;;;### (autoloads (cancel-debug-on-entry debug-on-entry debug) "debug"
-;;;;;; "emacs-lisp/debug.el" (20642 11326 759953 0))
+;;;;;; "emacs-lisp/debug.el" (20647 7982 429263 0))
;;; Generated autoloads from emacs-lisp/debug.el
(setq debugger 'debug)
;;;***
\f
;;;### (autoloads (decipher-mode decipher) "decipher" "play/decipher.el"
-;;;;;; (20566 63671 243798 0))
+;;;;;; (20566 45330 762583 402000))
;;; Generated autoloads from play/decipher.el
(autoload 'decipher "decipher" "\
;;;***
\f
;;;### (autoloads (delimit-columns-rectangle delimit-columns-region
-;;;;;; delimit-columns-customize) "delim-col" "delim-col.el" (20355
-;;;;;; 10021 546955 0))
+;;;;;; delimit-columns-customize) "delim-col" "delim-col.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from delim-col.el
(autoload 'delimit-columns-customize "delim-col" "\
;;;***
\f
-;;;### (autoloads (delphi-mode) "delphi" "progmodes/delphi.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (delphi-mode) "delphi" "progmodes/delphi.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from progmodes/delphi.el
(autoload 'delphi-mode "delphi" "\
;;;***
\f
;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (20613
-;;;;;; 49078 764749 0))
+;;;;;; 39767 44650 0))
;;; Generated autoloads from delsel.el
(defalias 'pending-delete-mode 'delete-selection-mode)
;;;***
\f
;;;### (autoloads (derived-mode-init-mode-variables define-derived-mode)
-;;;;;; "derived" "emacs-lisp/derived.el" (20660 60553 594737 612000))
+;;;;;; "derived" "emacs-lisp/derived.el" (20661 34503 396141 0))
;;; Generated autoloads from emacs-lisp/derived.el
(autoload 'define-derived-mode "derived" "\
;;;***
\f
;;;### (autoloads (describe-char describe-text-properties) "descr-text"
-;;;;;; "descr-text.el" (20660 41272 835092 0))
+;;;;;; "descr-text.el" (20660 26176 137583 0))
;;; Generated autoloads from descr-text.el
(autoload 'describe-text-properties "descr-text" "\
;;;### (autoloads (desktop-revert desktop-save-in-desktop-dir desktop-change-dir
;;;;;; desktop-load-default desktop-read desktop-remove desktop-save
;;;;;; desktop-clear desktop-locals-to-save desktop-save-mode) "desktop"
-;;;;;; "desktop.el" (20662 46799 344737 276000))
+;;;;;; "desktop.el" (20664 5610 38100 0))
;;; Generated autoloads from desktop.el
(defvar desktop-save-mode nil "\
\f
;;;### (autoloads (gnus-article-outlook-deuglify-article gnus-outlook-deuglify-article
;;;;;; gnus-article-outlook-repair-attribution gnus-article-outlook-unwrap-lines)
-;;;;;; "deuglify" "gnus/deuglify.el" (20355 10021 546955 0))
+;;;;;; "deuglify" "gnus/deuglify.el" (20533 50312 678915 0))
;;; Generated autoloads from gnus/deuglify.el
(autoload 'gnus-article-outlook-unwrap-lines "deuglify" "\
;;;***
\f
;;;### (autoloads (diary-mode diary-mail-entries diary) "diary-lib"
-;;;;;; "calendar/diary-lib.el" (20576 42138 697312 0))
+;;;;;; "calendar/diary-lib.el" (20668 15033 902481 0))
;;; Generated autoloads from calendar/diary-lib.el
(autoload 'diary "diary-lib" "\
\f
;;;### (autoloads (diff-buffer-with-file diff-latest-backup-file
;;;;;; diff-backup diff diff-command diff-switches) "diff" "vc/diff.el"
-;;;;;; (20570 60708 993668 0))
+;;;;;; (20570 39802 408146 846000))
;;; Generated autoloads from vc/diff.el
(defvar diff-switches (purecopy "-c") "\
;;;***
\f
;;;### (autoloads (diff-minor-mode diff-mode) "diff-mode" "vc/diff-mode.el"
-;;;;;; (20650 54512 564403 0))
+;;;;;; (20650 61396 673885 0))
;;; Generated autoloads from vc/diff-mode.el
(autoload 'diff-mode "diff-mode" "\
;;;***
\f
-;;;### (autoloads (dig) "dig" "net/dig.el" (20355 10021 546955 0))
+;;;### (autoloads (dig) "dig" "net/dig.el" (20533 50312 678915 0))
;;; Generated autoloads from net/dig.el
(autoload 'dig "dig" "\
;;;***
\f
;;;### (autoloads (dired-mode dired-noselect dired-other-frame dired-other-window
-;;;;;; dired dired-listing-switches) "dired" "dired.el" (20656 44218
-;;;;;; 805102 0))
+;;;;;; dired dired-listing-switches) "dired" "dired.el" (20656 14460
+;;;;;; 296991 0))
;;; Generated autoloads from dired.el
(defvar dired-listing-switches (purecopy "-al") "\
;;;***
\f
;;;### (autoloads (dirtrack dirtrack-mode) "dirtrack" "dirtrack.el"
-;;;;;; (20648 50109 802321 0))
+;;;;;; (20648 29678 511980 0))
;;; Generated autoloads from dirtrack.el
(autoload 'dirtrack-mode "dirtrack" "\
;;;***
\f
-;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (20497
-;;;;;; 6436 957082 0))
+;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from emacs-lisp/disass.el
(autoload 'disassemble "disass" "\
;;;;;; 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" (20355 10021 546955 0))
+;;;;;; "disp-table" "disp-table.el" (20533 50312 678915 0))
;;; Generated autoloads from disp-table.el
(autoload 'make-display-table "disp-table" "\
;;;***
\f
;;;### (autoloads (dissociated-press) "dissociate" "play/dissociate.el"
-;;;;;; (20545 57511 257469 0))
+;;;;;; (20545 60086 510404 0))
;;; Generated autoloads from play/dissociate.el
(autoload 'dissociated-press "dissociate" "\
;;;***
\f
-;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (20355 10021
-;;;;;; 546955 0))
+;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from dnd.el
(defvar dnd-protocol-alist `((,(purecopy "^file:///") . dnd-open-local-file) (,(purecopy "^file://") . dnd-open-file) (,(purecopy "^file:") . dnd-open-local-file) (,(purecopy "^\\(https?\\|ftp\\|file\\|nfs\\)://") . dnd-open-file)) "\
;;;***
\f
;;;### (autoloads (dns-mode-soa-increment-serial dns-mode) "dns-mode"
-;;;;;; "textmodes/dns-mode.el" (20355 10021 546955 0))
+;;;;;; "textmodes/dns-mode.el" (20533 50312 678915 0))
;;; Generated autoloads from textmodes/dns-mode.el
(autoload 'dns-mode "dns-mode" "\
;;;***
\f
;;;### (autoloads (doc-view-bookmark-jump doc-view-minor-mode doc-view-mode-maybe
-;;;;;; doc-view-mode doc-view-mode-p) "doc-view" "doc-view.el" (20581
-;;;;;; 31014 234484 0))
+;;;;;; doc-view-mode doc-view-mode-p) "doc-view" "doc-view.el" (20584
+;;;;;; 355 183605 0))
;;; Generated autoloads from doc-view.el
(autoload 'doc-view-mode-p "doc-view" "\
;;;***
\f
-;;;### (autoloads (doctor) "doctor" "play/doctor.el" (20545 57511
-;;;;;; 257469 0))
+;;;### (autoloads (doctor) "doctor" "play/doctor.el" (20545 60086
+;;;;;; 510404 0))
;;; Generated autoloads from play/doctor.el
(autoload 'doctor "doctor" "\
;;;***
\f
-;;;### (autoloads (double-mode) "double" "double.el" (20355 10021
-;;;;;; 546955 0))
+;;;### (autoloads (double-mode) "double" "double.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from double.el
(autoload 'double-mode "double" "\
;;;***
\f
-;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (20545 57511
-;;;;;; 257469 0))
+;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (20545 60086
+;;;;;; 510404 0))
;;; Generated autoloads from play/dunnet.el
(autoload 'dunnet "dunnet" "\
\f
;;;### (autoloads (easy-mmode-defsyntax easy-mmode-defmap easy-mmode-define-keymap
;;;;;; define-globalized-minor-mode define-minor-mode) "easy-mmode"
-;;;;;; "emacs-lisp/easy-mmode.el" (20574 57775 217760 0))
+;;;;;; "emacs-lisp/easy-mmode.el" (20573 55237 806451 754000))
;;; Generated autoloads from emacs-lisp/easy-mmode.el
(defalias 'easy-mmode-define-minor-mode 'define-minor-mode)
\f
;;;### (autoloads (easy-menu-change easy-menu-create-menu easy-menu-do-define
;;;;;; easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (20615
-;;;;;; 49194 141673 0))
+;;;;;; 25856 794590 959000))
;;; Generated autoloads from emacs-lisp/easymenu.el
(autoload 'easy-menu-define "easymenu" "\
;;;;;; ebnf-eps-file 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" (20566 63671 243798 0))
+;;;;;; "progmodes/ebnf2ps.el" (20566 46586 454636 778000))
;;; Generated autoloads from progmodes/ebnf2ps.el
(autoload 'ebnf-customize "ebnf2ps" "\
;;;;;; 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" (20561
-;;;;;; 18280 338092 0))
+;;;;;; ebrowse-tree-mode) "ebrowse" "progmodes/ebrowse.el" (20562
+;;;;;; 52650 563777 0))
;;; Generated autoloads from progmodes/ebrowse.el
(autoload 'ebrowse-tree-mode "ebrowse" "\
;;;***
\f
;;;### (autoloads (electric-buffer-list) "ebuff-menu" "ebuff-menu.el"
-;;;;;; (20523 62082 997685 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from ebuff-menu.el
(autoload 'electric-buffer-list "ebuff-menu" "\
;;;***
\f
;;;### (autoloads (Electric-command-history-redo-expression) "echistory"
-;;;;;; "echistory.el" (20355 10021 546955 0))
+;;;;;; "echistory.el" (20533 50312 678915 0))
;;; Generated autoloads from echistory.el
(autoload 'Electric-command-history-redo-expression "echistory" "\
;;;***
\f
;;;### (autoloads (ecomplete-setup) "ecomplete" "gnus/ecomplete.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/ecomplete.el
(autoload 'ecomplete-setup "ecomplete" "\
;;;***
\f
-;;;### (autoloads (global-ede-mode) "ede" "cedet/ede.el" (20590 45996
-;;;;;; 129575 0))
+;;;### (autoloads (global-ede-mode) "ede" "cedet/ede.el" (20590 37036
+;;;;;; 437844 0))
;;; Generated autoloads from cedet/ede.el
(defvar global-ede-mode nil "\
\f
;;;### (autoloads (edebug-all-forms edebug-all-defs edebug-eval-top-level-form
;;;;;; edebug-basic-spec edebug-all-forms edebug-all-defs) "edebug"
-;;;;;; "emacs-lisp/edebug.el" (20651 26294 774003 0))
+;;;;;; "emacs-lisp/edebug.el" (20652 52617 313760 0))
;;; Generated autoloads from emacs-lisp/edebug.el
(defvar edebug-all-defs nil "\
;;;;;; ediff-merge-directories-with-ancestor ediff-merge-directories
;;;;;; ediff-directories3 ediff-directory-revisions ediff-directories
;;;;;; ediff-buffers3 ediff-buffers ediff-backup ediff-current-file
-;;;;;; ediff-files3 ediff-files) "ediff" "vc/ediff.el" (20495 51111
-;;;;;; 757560 0))
+;;;;;; ediff-files3 ediff-files) "ediff" "vc/ediff.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from vc/ediff.el
(autoload 'ediff-files "ediff" "\
;;;***
\f
;;;### (autoloads (ediff-customize) "ediff-help" "vc/ediff-help.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from vc/ediff-help.el
(autoload 'ediff-customize "ediff-help" "\
;;;***
\f
;;;### (autoloads (ediff-show-registry) "ediff-mult" "vc/ediff-mult.el"
-;;;;;; (20614 54428 654267 0))
+;;;;;; (20615 22847 537904 0))
;;; Generated autoloads from vc/ediff-mult.el
(autoload 'ediff-show-registry "ediff-mult" "\
;;;***
\f
;;;### (autoloads (ediff-toggle-use-toolbar ediff-toggle-multiframe)
-;;;;;; "ediff-util" "vc/ediff-util.el" (20584 7212 455152 0))
+;;;;;; "ediff-util" "vc/ediff-util.el" (20584 355 183605 0))
;;; Generated autoloads from vc/ediff-util.el
(autoload 'ediff-toggle-multiframe "ediff-util" "\
\f
;;;### (autoloads (format-kbd-macro read-kbd-macro edit-named-kbd-macro
;;;;;; edit-last-kbd-macro edit-kbd-macro) "edmacro" "edmacro.el"
-;;;;;; (20476 31768 298871 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from edmacro.el
(autoload 'edit-kbd-macro "edmacro" "\
;;;***
\f
;;;### (autoloads (edt-emulation-on edt-set-scroll-margins) "edt"
-;;;;;; "emulation/edt.el" (20566 63671 243798 0))
+;;;;;; "emulation/edt.el" (20566 46383 798627 826000))
;;; Generated autoloads from emulation/edt.el
(autoload 'edt-set-scroll-margins "edt" "\
;;;***
\f
;;;### (autoloads (electric-helpify with-electric-help) "ehelp" "ehelp.el"
-;;;;;; (20593 22184 581574 0))
+;;;;;; (20594 14884 858174 0))
;;; Generated autoloads from ehelp.el
(autoload 'with-electric-help "ehelp" "\
;;;***
\f
;;;### (autoloads (customize-object) "eieio-custom" "emacs-lisp/eieio-custom.el"
-;;;;;; (20586 48936 135199 0))
+;;;;;; (20585 42108 911494 670000))
;;; Generated autoloads from emacs-lisp/eieio-custom.el
(autoload 'customize-object "eieio-custom" "\
\f
;;;### (autoloads (eieio-describe-generic eieio-describe-constructor
;;;;;; eieio-describe-class eieio-browse) "eieio-opt" "emacs-lisp/eieio-opt.el"
-;;;;;; (20617 41641 89638 0))
+;;;;;; (20619 27099 673959 0))
;;; Generated autoloads from emacs-lisp/eieio-opt.el
(autoload 'eieio-browse "eieio-opt" "\
;;;***
\f
;;;### (autoloads (turn-on-eldoc-mode eldoc-mode eldoc-minor-mode-string)
-;;;;;; "eldoc" "emacs-lisp/eldoc.el" (20355 10021 546955 0))
+;;;;;; "eldoc" "emacs-lisp/eldoc.el" (20533 50312 678915 0))
;;; Generated autoloads from emacs-lisp/eldoc.el
(defvar eldoc-minor-mode-string (purecopy " ElDoc") "\
;;;***
\f
;;;### (autoloads (electric-layout-mode electric-pair-mode electric-indent-mode)
-;;;;;; "electric" "electric.el" (20613 49078 764749 0))
+;;;;;; "electric" "electric.el" (20613 39767 44650 0))
;;; Generated autoloads from electric.el
(defvar electric-indent-chars '(10) "\
;;;***
\f
-;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from elide-head.el
(autoload 'elide-head "elide-head" "\
\f
;;;### (autoloads (elint-initialize elint-defun elint-current-buffer
;;;;;; elint-directory elint-file) "elint" "emacs-lisp/elint.el"
-;;;;;; (20486 36135 22104 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from emacs-lisp/elint.el
(autoload 'elint-file "elint" "\
;;;***
\f
;;;### (autoloads (elp-results elp-instrument-package elp-instrument-list
-;;;;;; elp-instrument-function) "elp" "emacs-lisp/elp.el" (20642
-;;;;;; 11326 759953 0))
+;;;;;; elp-instrument-function) "elp" "emacs-lisp/elp.el" (20647
+;;;;;; 7982 429263 0))
;;; Generated autoloads from emacs-lisp/elp.el
(autoload 'elp-instrument-function "elp" "\
;;;***
\f
;;;### (autoloads (emacs-lock-mode) "emacs-lock" "emacs-lock.el"
-;;;;;; (20577 33959 40183 0))
+;;;;;; (20574 60091 377598 17000))
;;; Generated autoloads from emacs-lock.el
(autoload 'emacs-lock-mode "emacs-lock" "\
;;;***
\f
;;;### (autoloads (report-emacs-bug) "emacsbug" "mail/emacsbug.el"
-;;;;;; (20639 35129 235843 0))
+;;;;;; (20647 7982 429263 0))
;;; Generated autoloads from mail/emacsbug.el
(autoload 'report-emacs-bug "emacsbug" "\
;;;;;; 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"
-;;;;;; "vc/emerge.el" (20576 42138 697312 0))
+;;;;;; "vc/emerge.el" (20576 20472 112114 850000))
;;; Generated autoloads from vc/emerge.el
(autoload 'emerge-files "emerge" "\
;;;***
\f
;;;### (autoloads (enriched-decode enriched-encode enriched-mode)
-;;;;;; "enriched" "textmodes/enriched.el" (20461 32935 300400 0))
+;;;;;; "enriched" "textmodes/enriched.el" (20533 50312 678915 0))
;;; Generated autoloads from textmodes/enriched.el
(autoload 'enriched-mode "enriched" "\
;;;;;; epa-decrypt-armor-in-region epa-decrypt-region epa-encrypt-file
;;;;;; epa-sign-file epa-verify-file epa-decrypt-file epa-select-keys
;;;;;; epa-list-secret-keys epa-list-keys) "epa" "epa.el" (20577
-;;;;;; 33959 40183 0))
+;;;;;; 6050 709767 255000))
;;; Generated autoloads from epa.el
(autoload 'epa-list-keys "epa" "\
;;;***
\f
;;;### (autoloads (epa-dired-do-encrypt epa-dired-do-sign epa-dired-do-verify
-;;;;;; epa-dired-do-decrypt) "epa-dired" "epa-dired.el" (20355 10021
-;;;;;; 546955 0))
+;;;;;; epa-dired-do-decrypt) "epa-dired" "epa-dired.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from epa-dired.el
(autoload 'epa-dired-do-decrypt "epa-dired" "\
;;;***
\f
;;;### (autoloads (epa-file-disable epa-file-enable epa-file-handler)
-;;;;;; "epa-file" "epa-file.el" (20355 10021 546955 0))
+;;;;;; "epa-file" "epa-file.el" (20533 50312 678915 0))
;;; Generated autoloads from epa-file.el
(autoload 'epa-file-handler "epa-file" "\
\f
;;;### (autoloads (epa-global-mail-mode epa-mail-import-keys epa-mail-encrypt
;;;;;; epa-mail-sign epa-mail-verify epa-mail-decrypt epa-mail-mode)
-;;;;;; "epa-mail" "epa-mail.el" (20566 63671 243798 0))
+;;;;;; "epa-mail" "epa-mail.el" (20567 14136 702359 0))
;;; Generated autoloads from epa-mail.el
(autoload 'epa-mail-mode "epa-mail" "\
;;;***
\f
-;;;### (autoloads (epg-make-context) "epg" "epg.el" (20577 33959
-;;;;;; 40183 0))
+;;;### (autoloads (epg-make-context) "epg" "epg.el" (20577 6315 457768
+;;;;;; 40000))
;;; Generated autoloads from epg.el
(autoload 'epg-make-context "epg" "\
;;;***
\f
;;;### (autoloads (epg-expand-group epg-check-configuration epg-configuration)
-;;;;;; "epg-config" "epg-config.el" (20373 11301 906925 0))
+;;;;;; "epg-config" "epg-config.el" (20533 50312 678915 0))
;;; Generated autoloads from epg-config.el
(autoload 'epg-configuration "epg-config" "\
;;;***
\f
;;;### (autoloads (erc-handle-irc-url erc-tls erc erc-select-read-args)
-;;;;;; "erc" "erc/erc.el" (20665 23726 628150 0))
+;;;;;; "erc" "erc/erc.el" (20666 889 186471 0))
;;; Generated autoloads from erc/erc.el
(autoload 'erc-select-read-args "erc" "\
;;;***
\f
-;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (20591
-;;;;;; 33616 626144 310000))
+;;;### (autoloads nil "erc-autoaway" "erc/erc-autoaway.el" (20592
+;;;;;; 4085 721682 0))
;;; Generated autoloads from erc/erc-autoaway.el
(autoload 'erc-autoaway-mode "erc-autoaway")
;;;***
\f
-;;;### (autoloads nil "erc-button" "erc/erc-button.el" (20593 22184
-;;;;;; 581574 0))
+;;;### (autoloads nil "erc-button" "erc/erc-button.el" (20594 14884
+;;;;;; 858174 0))
;;; Generated autoloads from erc/erc-button.el
(autoload 'erc-button-mode "erc-button" nil t)
;;;***
\f
-;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (20650 54512
-;;;;;; 564403 0))
+;;;### (autoloads nil "erc-capab" "erc/erc-capab.el" (20650 61396
+;;;;;; 673885 0))
;;; Generated autoloads from erc/erc-capab.el
(autoload 'erc-capab-identify-mode "erc-capab" nil t)
;;;***
\f
-;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (20591 33616
-;;;;;; 736174 412000))
+;;;### (autoloads nil "erc-compat" "erc/erc-compat.el" (20592 4085
+;;;;;; 721682 0))
;;; Generated autoloads from erc/erc-compat.el
(autoload 'erc-define-minor-mode "erc-compat")
;;;***
\f
;;;### (autoloads (erc-ctcp-query-DCC pcomplete/erc-mode/DCC erc-cmd-DCC)
-;;;;;; "erc-dcc" "erc/erc-dcc.el" (20650 54512 564403 0))
+;;;;;; "erc-dcc" "erc/erc-dcc.el" (20650 61396 673885 0))
;;; Generated autoloads from erc/erc-dcc.el
(autoload 'erc-dcc-mode "erc-dcc")
;;;***
\f
;;;### (autoloads nil "erc-desktop-notifications" "erc/erc-desktop-notifications.el"
-;;;;;; (20593 22184 581574 0))
+;;;;;; (20594 14884 858174 0))
;;; Generated autoloads from erc/erc-desktop-notifications.el
(autoload 'erc-notifications-mode "erc-desktop-notifications" "" t)
;;;;;; erc-ezb-add-session erc-ezb-end-of-session-list erc-ezb-init-session-list
;;;;;; erc-ezb-identify erc-ezb-notice-autodetect erc-ezb-lookup-action
;;;;;; erc-ezb-get-login erc-cmd-ezb) "erc-ezbounce" "erc/erc-ezbounce.el"
-;;;;;; (20650 54512 564403 0))
+;;;;;; (20650 61396 673885 0))
;;; Generated autoloads from erc/erc-ezbounce.el
(autoload 'erc-cmd-ezb "erc-ezbounce" "\
;;;***
\f
-;;;### (autoloads (erc-fill) "erc-fill" "erc/erc-fill.el" (20591
-;;;;;; 33616 776163 920000))
+;;;### (autoloads (erc-fill) "erc-fill" "erc/erc-fill.el" (20592
+;;;;;; 4085 721682 0))
;;; Generated autoloads from erc/erc-fill.el
(autoload 'erc-fill-mode "erc-fill" nil t)
;;;***
\f
;;;### (autoloads (erc-identd-stop erc-identd-start) "erc-identd"
-;;;;;; "erc/erc-identd.el" (20591 33616 794740 81000))
+;;;;;; "erc/erc-identd.el" (20592 4085 721682 0))
;;; Generated autoloads from erc/erc-identd.el
(autoload 'erc-identd-mode "erc-identd")
;;;***
\f
;;;### (autoloads (erc-create-imenu-index) "erc-imenu" "erc/erc-imenu.el"
-;;;;;; (20591 33616 794740 81000))
+;;;;;; (20592 4085 721682 0))
;;; Generated autoloads from erc/erc-imenu.el
(autoload 'erc-create-imenu-index "erc-imenu" "\
;;;***
\f
-;;;### (autoloads nil "erc-join" "erc/erc-join.el" (20650 54512 564403
+;;;### (autoloads nil "erc-join" "erc/erc-join.el" (20650 61396 673885
;;;;;; 0))
;;; Generated autoloads from erc/erc-join.el
(autoload 'erc-autojoin-mode "erc-join" nil t)
;;;***
\f
-;;;### (autoloads nil "erc-list" "erc/erc-list.el" (20591 33616 824757
-;;;;;; 867000))
+;;;### (autoloads nil "erc-list" "erc/erc-list.el" (20592 4085 721682
+;;;;;; 0))
;;; Generated autoloads from erc/erc-list.el
(autoload 'erc-list-mode "erc-list")
;;;***
\f
;;;### (autoloads (erc-save-buffer-in-logs erc-logging-enabled) "erc-log"
-;;;;;; "erc/erc-log.el" (20650 54512 564403 0))
+;;;;;; "erc/erc-log.el" (20650 61396 673885 0))
;;; Generated autoloads from erc/erc-log.el
(autoload 'erc-log-mode "erc-log" nil t)
;;;### (autoloads (erc-delete-dangerous-host erc-add-dangerous-host
;;;;;; erc-delete-keyword erc-add-keyword erc-delete-fool erc-add-fool
;;;;;; erc-delete-pal erc-add-pal) "erc-match" "erc/erc-match.el"
-;;;;;; (20650 54512 564403 0))
+;;;;;; (20650 61396 673885 0))
;;; Generated autoloads from erc/erc-match.el
(autoload 'erc-match-mode "erc-match")
;;;***
\f
-;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (20591 33616 844710
-;;;;;; 904000))
+;;;### (autoloads nil "erc-menu" "erc/erc-menu.el" (20592 4085 721682
+;;;;;; 0))
;;; Generated autoloads from erc/erc-menu.el
(autoload 'erc-menu-mode "erc-menu" nil t)
;;;***
\f
;;;### (autoloads (erc-cmd-WHOLEFT) "erc-netsplit" "erc/erc-netsplit.el"
-;;;;;; (20650 54512 564403 0))
+;;;;;; (20650 61396 673885 0))
;;; Generated autoloads from erc/erc-netsplit.el
(autoload 'erc-netsplit-mode "erc-netsplit")
;;;***
\f
;;;### (autoloads (erc-server-select erc-determine-network) "erc-networks"
-;;;;;; "erc/erc-networks.el" (20650 54512 564403 0))
+;;;;;; "erc/erc-networks.el" (20650 61396 673885 0))
;;; Generated autoloads from erc/erc-networks.el
(autoload 'erc-determine-network "erc-networks" "\
;;;***
\f
;;;### (autoloads (pcomplete/erc-mode/NOTIFY erc-cmd-NOTIFY) "erc-notify"
-;;;;;; "erc/erc-notify.el" (20650 54512 564403 0))
+;;;;;; "erc/erc-notify.el" (20650 61396 673885 0))
;;; Generated autoloads from erc/erc-notify.el
(autoload 'erc-notify-mode "erc-notify" nil t)
;;;***
\f
-;;;### (autoloads nil "erc-page" "erc/erc-page.el" (20591 33616 864734
-;;;;;; 46000))
+;;;### (autoloads nil "erc-page" "erc/erc-page.el" (20592 4085 721682
+;;;;;; 0))
;;; Generated autoloads from erc/erc-page.el
(autoload 'erc-page-mode "erc-page")
;;;***
\f
;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (20650
-;;;;;; 54512 564403 0))
+;;;;;; 61396 673885 0))
;;; Generated autoloads from erc/erc-pcomplete.el
(autoload 'erc-completion-mode "erc-pcomplete" nil t)
;;;***
\f
-;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (20591 33616
-;;;;;; 874723 983000))
+;;;### (autoloads nil "erc-replace" "erc/erc-replace.el" (20592 4085
+;;;;;; 721682 0))
;;; Generated autoloads from erc/erc-replace.el
(autoload 'erc-replace-mode "erc-replace")
;;;***
\f
-;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (20591 33616 884730
-;;;;;; 605000))
+;;;### (autoloads nil "erc-ring" "erc/erc-ring.el" (20592 4085 721682
+;;;;;; 0))
;;; Generated autoloads from erc/erc-ring.el
(autoload 'erc-ring-mode "erc-ring" nil t)
;;;***
\f
;;;### (autoloads (erc-nickserv-identify erc-nickserv-identify-mode)
-;;;;;; "erc-services" "erc/erc-services.el" (20650 54512 564403
+;;;;;; "erc-services" "erc/erc-services.el" (20650 61396 673885
;;;;;; 0))
;;; Generated autoloads from erc/erc-services.el
(autoload 'erc-services-mode "erc-services" nil t)
;;;***
\f
-;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (20591 33616
-;;;;;; 894723 303000))
+;;;### (autoloads nil "erc-sound" "erc/erc-sound.el" (20592 4085
+;;;;;; 721682 0))
;;; Generated autoloads from erc/erc-sound.el
(autoload 'erc-sound-mode "erc-sound")
;;;***
\f
;;;### (autoloads (erc-speedbar-browser) "erc-speedbar" "erc/erc-speedbar.el"
-;;;;;; (20650 54512 564403 0))
+;;;;;; (20650 61396 673885 0))
;;; Generated autoloads from erc/erc-speedbar.el
(autoload 'erc-speedbar-browser "erc-speedbar" "\
;;;***
\f
-;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (20591
-;;;;;; 33616 904733 437000))
+;;;### (autoloads nil "erc-spelling" "erc/erc-spelling.el" (20592
+;;;;;; 4085 721682 0))
;;; Generated autoloads from erc/erc-spelling.el
(autoload 'erc-spelling-mode "erc-spelling" nil t)
;;;***
\f
-;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (20593 22184
-;;;;;; 581574 0))
+;;;### (autoloads nil "erc-stamp" "erc/erc-stamp.el" (20594 14884
+;;;;;; 858174 0))
;;; Generated autoloads from erc/erc-stamp.el
(autoload 'erc-timestamp-mode "erc-stamp" nil t)
;;;***
\f
;;;### (autoloads (erc-track-minor-mode) "erc-track" "erc/erc-track.el"
-;;;;;; (20650 54512 564403 0))
+;;;;;; (20650 61396 673885 0))
;;; Generated autoloads from erc/erc-track.el
(defvar erc-track-minor-mode nil "\
;;;***
\f
;;;### (autoloads (erc-truncate-buffer erc-truncate-buffer-to-size)
-;;;;;; "erc-truncate" "erc/erc-truncate.el" (20591 33616 934716
-;;;;;; 526000))
+;;;;;; "erc-truncate" "erc/erc-truncate.el" (20592 4085 721682 0))
;;; Generated autoloads from erc/erc-truncate.el
(autoload 'erc-truncate-mode "erc-truncate" nil t)
;;;***
\f
;;;### (autoloads (erc-xdcc-add-file) "erc-xdcc" "erc/erc-xdcc.el"
-;;;;;; (20591 33616 934716 526000))
+;;;;;; (20592 4085 721682 0))
;;; Generated autoloads from erc/erc-xdcc.el
(autoload 'erc-xdcc-mode "erc-xdcc")
\f
;;;### (autoloads (ert-describe-test ert-run-tests-interactively
;;;;;; ert-run-tests-batch-and-exit ert-run-tests-batch ert-deftest)
-;;;;;; "ert" "emacs-lisp/ert.el" (20655 23358 697173 0))
+;;;;;; "ert" "emacs-lisp/ert.el" (20655 4702 996292 0))
;;; Generated autoloads from emacs-lisp/ert.el
(autoload 'ert-deftest "ert" "\
;;;***
\f
;;;### (autoloads (ert-kill-all-test-buffers) "ert-x" "emacs-lisp/ert-x.el"
-;;;;;; (20655 23358 697173 0))
+;;;;;; (20655 4702 996292 0))
;;; Generated autoloads from emacs-lisp/ert-x.el
(put 'ert-with-test-buffer 'lisp-indent-function 1)
;;;***
\f
-;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (20593
-;;;;;; 22184 581574 0))
+;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (20594
+;;;;;; 14884 858174 0))
;;; Generated autoloads from eshell/esh-mode.el
(autoload 'eshell-mode "esh-mode" "\
;;;***
\f
;;;### (autoloads (eshell-command-result eshell-command eshell) "eshell"
-;;;;;; "eshell/eshell.el" (20577 33959 40183 0))
+;;;;;; "eshell/eshell.el" (20576 16566 11955 847000))
;;; Generated autoloads from eshell/eshell.el
(autoload 'eshell "eshell" "\
;;;;;; 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"
-;;;;;; (20664 38325 385623 0))
+;;;;;; (20664 5610 38100 0))
;;; Generated autoloads from progmodes/etags.el
(defvar tags-file-name nil "\
;;;;;; ethio-fidel-to-sera-marker ethio-fidel-to-sera-region ethio-fidel-to-sera-buffer
;;;;;; ethio-sera-to-fidel-marker ethio-sera-to-fidel-region ethio-sera-to-fidel-buffer
;;;;;; setup-ethiopic-environment-internal) "ethio-util" "language/ethio-util.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from language/ethio-util.el
(autoload 'setup-ethiopic-environment-internal "ethio-util" "\
\f
;;;### (autoloads (eudc-load-eudc eudc-query-form eudc-expand-inline
;;;;;; eudc-get-phone eudc-get-email eudc-set-server) "eudc" "net/eudc.el"
-;;;;;; (20478 3673 653810 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from net/eudc.el
(autoload 'eudc-set-server "eudc" "\
\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" (20355 10021 546955 0))
+;;;;;; "eudc-bob" "net/eudc-bob.el" (20533 50312 678915 0))
;;; Generated autoloads from net/eudc-bob.el
(autoload 'eudc-display-generic-binary "eudc-bob" "\
;;;***
\f
;;;### (autoloads (eudc-try-bbdb-insert eudc-insert-record-at-point-into-bbdb)
-;;;;;; "eudc-export" "net/eudc-export.el" (20355 10021 546955 0))
+;;;;;; "eudc-export" "net/eudc-export.el" (20533 50312 678915 0))
;;; Generated autoloads from net/eudc-export.el
(autoload 'eudc-insert-record-at-point-into-bbdb "eudc-export" "\
;;;***
\f
;;;### (autoloads (eudc-edit-hotlist) "eudc-hotlist" "net/eudc-hotlist.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from net/eudc-hotlist.el
(autoload 'eudc-edit-hotlist "eudc-hotlist" "\
;;;***
\f
-;;;### (autoloads (ewoc-create) "ewoc" "emacs-lisp/ewoc.el" (20453
-;;;;;; 5437 764254 0))
+;;;### (autoloads (ewoc-create) "ewoc" "emacs-lisp/ewoc.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from emacs-lisp/ewoc.el
(autoload 'ewoc-create "ewoc" "\
;;;### (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"
-;;;;;; (20533 6181 437016 717000))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from progmodes/executable.el
(autoload 'executable-command-find-posix-p "executable" "\
\f
;;;### (autoloads (expand-jump-to-next-slot expand-jump-to-previous-slot
;;;;;; expand-abbrev-hook expand-add-abbrevs) "expand" "expand.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from expand.el
(autoload 'expand-add-abbrevs "expand" "\
;;;***
\f
-;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (20566 63671
-;;;;;; 243798 0))
+;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (20566 46184
+;;;;;; 706620 234000))
;;; Generated autoloads from progmodes/f90.el
(autoload 'f90-mode "f90" "\
;;;;;; buffer-face-mode text-scale-adjust text-scale-decrease text-scale-increase
;;;;;; text-scale-set face-remap-set-base face-remap-reset-base
;;;;;; face-remap-add-relative) "face-remap" "face-remap.el" (20622
-;;;;;; 22438 32851 0))
+;;;;;; 21008 480608 570000))
;;; Generated autoloads from face-remap.el
(autoload 'face-remap-add-relative "face-remap" "\
\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" (20566 63671
-;;;;;; 243798 0))
+;;;;;; feedmail-send-it) "feedmail" "mail/feedmail.el" (20566 46719
+;;;;;; 378637 198000))
;;; Generated autoloads from mail/feedmail.el
(autoload 'feedmail-send-it "feedmail" "\
\f
;;;### (autoloads (ffap-bindings ffap-guess-file-name-at-point dired-at-point
;;;;;; ffap-at-mouse ffap-menu find-file-at-point ffap-next) "ffap"
-;;;;;; "ffap.el" (20595 63909 923329 0))
+;;;;;; "ffap.el" (20595 33984 147078 0))
;;; Generated autoloads from ffap.el
(autoload 'ffap-next "ffap" "\
;;;### (autoloads (file-cache-minibuffer-complete file-cache-add-directory-recursively
;;;;;; file-cache-add-directory-using-locate file-cache-add-directory-using-find
;;;;;; file-cache-add-file file-cache-add-directory-list file-cache-add-directory)
-;;;;;; "filecache" "filecache.el" (20648 50109 802321 0))
+;;;;;; "filecache" "filecache.el" (20648 29733 701119 761000))
;;; Generated autoloads from filecache.el
(autoload 'file-cache-add-directory "filecache" "\
;;;;;; copy-file-locals-to-dir-locals delete-dir-local-variable
;;;;;; add-dir-local-variable delete-file-local-variable-prop-line
;;;;;; add-file-local-variable-prop-line delete-file-local-variable
-;;;;;; add-file-local-variable) "files-x" "files-x.el" (20355 10021
-;;;;;; 546955 0))
+;;;;;; add-file-local-variable) "files-x" "files-x.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from files-x.el
(autoload 'add-file-local-variable "files-x" "\
;;;***
\f
-;;;### (autoloads (filesets-init) "filesets" "filesets.el" (20614
-;;;;;; 54428 654267 0))
+;;;### (autoloads (filesets-init) "filesets" "filesets.el" (20615
+;;;;;; 22847 537904 0))
;;; Generated autoloads from filesets.el
(autoload 'filesets-init "filesets" "\
;;;***
\f
-;;;### (autoloads (find-cmd) "find-cmd" "find-cmd.el" (20655 23358
-;;;;;; 697173 0))
+;;;### (autoloads (find-cmd) "find-cmd" "find-cmd.el" (20655 12114
+;;;;;; 463008 671000))
;;; Generated autoloads from find-cmd.el
(autoload 'find-cmd "find-cmd" "\
;;;***
\f
;;;### (autoloads (find-grep-dired find-name-dired find-dired) "find-dired"
-;;;;;; "find-dired.el" (20355 10021 546955 0))
+;;;;;; "find-dired.el" (20533 50312 678915 0))
;;; Generated autoloads from find-dired.el
(autoload 'find-dired "find-dired" "\
\f
;;;### (autoloads (ff-mouse-find-other-file-other-window ff-mouse-find-other-file
;;;;;; ff-find-other-file ff-get-other-file ff-special-constructs)
-;;;;;; "find-file" "find-file.el" (20387 44199 24128 0))
+;;;;;; "find-file" "find-file.el" (20533 50312 678915 0))
;;; Generated autoloads from find-file.el
(defvar ff-special-constructs `((,(purecopy "^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]") lambda nil (buffer-substring (match-beginning 2) (match-end 2)))) "\
;;;;;; 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" (20497 6436 957082 0))
+;;;;;; "emacs-lisp/find-func.el" (20533 50312 678915 0))
;;; Generated autoloads from emacs-lisp/find-func.el
(autoload 'find-library "find-func" "\
;;;***
\f
;;;### (autoloads (find-lisp-find-dired-filter find-lisp-find-dired-subdirectories
-;;;;;; find-lisp-find-dired) "find-lisp" "find-lisp.el" (20355 10021
-;;;;;; 546955 0))
+;;;;;; find-lisp-find-dired) "find-lisp" "find-lisp.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from find-lisp.el
(autoload 'find-lisp-find-dired "find-lisp" "\
;;;***
\f
;;;### (autoloads (finder-by-keyword finder-commentary finder-list-keywords)
-;;;;;; "finder" "finder.el" (20355 10021 546955 0))
+;;;;;; "finder" "finder.el" (20533 50312 678915 0))
;;; Generated autoloads from finder.el
(autoload 'finder-list-keywords "finder" "\
;;;***
\f
;;;### (autoloads (enable-flow-control-on enable-flow-control) "flow-ctrl"
-;;;;;; "flow-ctrl.el" (20566 63671 243798 0))
+;;;;;; "flow-ctrl.el" (20566 45950 38611 876000))
;;; Generated autoloads from flow-ctrl.el
(autoload 'enable-flow-control "flow-ctrl" "\
;;;***
\f
;;;### (autoloads (fill-flowed fill-flowed-encode) "flow-fill" "gnus/flow-fill.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/flow-fill.el
(autoload 'fill-flowed-encode "flow-fill" "\
;;;***
\f
;;;### (autoloads (flymake-find-file-hook flymake-mode-off flymake-mode-on
-;;;;;; flymake-mode) "flymake" "progmodes/flymake.el" (20642 11326
-;;;;;; 759953 0))
+;;;;;; flymake-mode) "flymake" "progmodes/flymake.el" (20647 7982
+;;;;;; 429263 0))
;;; Generated autoloads from progmodes/flymake.el
(autoload 'flymake-mode "flymake" "\
\f
;;;### (autoloads (flyspell-buffer flyspell-region flyspell-mode-off
;;;;;; turn-off-flyspell turn-on-flyspell flyspell-mode flyspell-prog-mode)
-;;;;;; "flyspell" "textmodes/flyspell.el" (20566 63671 243798 0))
+;;;;;; "flyspell" "textmodes/flyspell.el" (20566 46000 842611 651000))
;;; Generated autoloads from textmodes/flyspell.el
(autoload 'flyspell-prog-mode "flyspell" "\
\f
;;;### (autoloads (follow-delete-other-windows-and-split follow-mode
;;;;;; turn-off-follow-mode turn-on-follow-mode) "follow" "follow.el"
-;;;;;; (20501 3499 284800 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from follow.el
(autoload 'turn-on-follow-mode "follow" "\
;;;***
\f
-;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (20478
-;;;;;; 3673 653810 0))
+;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from mail/footnote.el
(autoload 'footnote-mode "footnote" "\
;;;***
\f
;;;### (autoloads (forms-find-file-other-window forms-find-file forms-mode)
-;;;;;; "forms" "forms.el" (20427 14766 970343 0))
+;;;;;; "forms" "forms.el" (20533 50312 678915 0))
;;; Generated autoloads from forms.el
(autoload 'forms-mode "forms" "\
;;;***
\f
;;;### (autoloads (fortran-mode) "fortran" "progmodes/fortran.el"
-;;;;;; (20438 24024 724594 589000))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from progmodes/fortran.el
(autoload 'fortran-mode "fortran" "\
;;;***
\f
;;;### (autoloads (fortune fortune-to-signature fortune-compile fortune-from-region
-;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (20355 10021
-;;;;;; 546955 0))
+;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from play/fortune.el
(autoload 'fortune-add-fortune "fortune" "\
;;;***
\f
;;;### (autoloads (gdb gdb-enable-debug) "gdb-mi" "progmodes/gdb-mi.el"
-;;;;;; (20609 10405 476026 0))
+;;;;;; (20608 21217 487940 41000))
;;; Generated autoloads from progmodes/gdb-mi.el
(defvar gdb-enable-debug nil "\
;;;***
\f
;;;### (autoloads (generic-make-keywords-list generic-mode generic-mode-internal
-;;;;;; define-generic-mode) "generic" "emacs-lisp/generic.el" (20406
-;;;;;; 8611 875037 0))
+;;;;;; define-generic-mode) "generic" "emacs-lisp/generic.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from emacs-lisp/generic.el
(defvar generic-mode-list nil "\
;;;***
\f
;;;### (autoloads (glasses-mode) "glasses" "progmodes/glasses.el"
-;;;;;; (20478 3673 653810 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from progmodes/glasses.el
(autoload 'glasses-mode "glasses" "\
\f
;;;### (autoloads (gmm-tool-bar-from-list gmm-widget-p gmm-error
;;;;;; gmm-message gmm-regexp-concat) "gmm-utils" "gnus/gmm-utils.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/gmm-utils.el
(autoload 'gmm-regexp-concat "gmm-utils" "\
;;;***
\f
;;;### (autoloads (gnus gnus-other-frame gnus-slave gnus-no-server
-;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (20552 30761
-;;;;;; 207103 0))
+;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (20552 25066
+;;;;;; 479417 0))
;;; Generated autoloads from gnus/gnus.el
(when (fboundp 'custom-autoload)
(custom-autoload 'gnus-select-method "gnus"))
;;;;;; 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" (20518 12580 46478 0))
+;;;;;; "gnus/gnus-agent.el" (20533 50312 678915 0))
;;; Generated autoloads from gnus/gnus-agent.el
(autoload 'gnus-unplugged "gnus-agent" "\
;;;***
\f
;;;### (autoloads (gnus-article-prepare-display) "gnus-art" "gnus/gnus-art.el"
-;;;;;; (20636 58934 667126 0))
+;;;;;; (20647 7982 429263 0))
;;; Generated autoloads from gnus/gnus-art.el
(autoload 'gnus-article-prepare-display "gnus-art" "\
;;;***
\f
;;;### (autoloads (gnus-bookmark-bmenu-list gnus-bookmark-jump gnus-bookmark-set)
-;;;;;; "gnus-bookmark" "gnus/gnus-bookmark.el" (20355 10021 546955
+;;;;;; "gnus-bookmark" "gnus/gnus-bookmark.el" (20533 50312 678915
;;;;;; 0))
;;; Generated autoloads from gnus/gnus-bookmark.el
\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" (20355
-;;;;;; 10021 546955 0))
+;;;;;; gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from gnus/gnus-cache.el
(autoload 'gnus-jog-cache "gnus-cache" "\
;;;***
\f
;;;### (autoloads (gnus-delay-initialize gnus-delay-send-queue gnus-delay-article)
-;;;;;; "gnus-delay" "gnus/gnus-delay.el" (20355 10021 546955 0))
+;;;;;; "gnus-delay" "gnus/gnus-delay.el" (20533 50312 678915 0))
;;; Generated autoloads from gnus/gnus-delay.el
(autoload 'gnus-delay-article "gnus-delay" "\
;;;***
\f
;;;### (autoloads (gnus-user-format-function-D gnus-user-format-function-d)
-;;;;;; "gnus-diary" "gnus/gnus-diary.el" (20647 29243 972198 0))
+;;;;;; "gnus-diary" "gnus/gnus-diary.el" (20647 7982 429263 0))
;;; Generated autoloads from gnus/gnus-diary.el
(autoload 'gnus-user-format-function-d "gnus-diary" "\
;;;***
\f
;;;### (autoloads (turn-on-gnus-dired-mode) "gnus-dired" "gnus/gnus-dired.el"
-;;;;;; (20628 29298 719852 0))
+;;;;;; (20628 55151 230164 0))
;;; Generated autoloads from gnus/gnus-dired.el
(autoload 'turn-on-gnus-dired-mode "gnus-dired" "\
;;;***
\f
;;;### (autoloads (gnus-draft-reminder) "gnus-draft" "gnus/gnus-draft.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/gnus-draft.el
(autoload 'gnus-draft-reminder "gnus-draft" "\
;;;### (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" (20549
-;;;;;; 54573 979353 0))
+;;;;;; 34104 417881 0))
;;; Generated autoloads from gnus/gnus-fun.el
(autoload 'gnus-random-x-face "gnus-fun" "\
;;;***
\f
;;;### (autoloads (gnus-treat-mail-gravatar gnus-treat-from-gravatar)
-;;;;;; "gnus-gravatar" "gnus/gnus-gravatar.el" (20355 10021 546955
+;;;;;; "gnus-gravatar" "gnus/gnus-gravatar.el" (20533 50312 678915
;;;;;; 0))
;;; Generated autoloads from gnus/gnus-gravatar.el
;;;***
\f
;;;### (autoloads (gnus-fetch-group-other-frame gnus-fetch-group)
-;;;;;; "gnus-group" "gnus/gnus-group.el" (20553 51627 169867 0))
+;;;;;; "gnus-group" "gnus/gnus-group.el" (20553 28953 158351 908000))
;;; Generated autoloads from gnus/gnus-group.el
(autoload 'gnus-fetch-group "gnus-group" "\
;;;***
\f
;;;### (autoloads (gnus-html-prefetch-images gnus-article-html) "gnus-html"
-;;;;;; "gnus/gnus-html.el" (20355 10021 546955 0))
+;;;;;; "gnus/gnus-html.el" (20533 50312 678915 0))
;;; Generated autoloads from gnus/gnus-html.el
(autoload 'gnus-article-html "gnus-html" "\
;;;***
\f
;;;### (autoloads (gnus-batch-score) "gnus-kill" "gnus/gnus-kill.el"
-;;;;;; (20495 51111 757560 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/gnus-kill.el
(defalias 'gnus-batch-kill 'gnus-batch-score)
\f
;;;### (autoloads (gnus-mailing-list-mode gnus-mailing-list-insinuate
;;;;;; turn-on-gnus-mailing-list-mode) "gnus-ml" "gnus/gnus-ml.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/gnus-ml.el
(autoload 'turn-on-gnus-mailing-list-mode "gnus-ml" "\
\f
;;;### (autoloads (gnus-group-split-fancy gnus-group-split gnus-group-split-update
;;;;;; gnus-group-split-setup) "gnus-mlspl" "gnus/gnus-mlspl.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/gnus-mlspl.el
(autoload 'gnus-group-split-setup "gnus-mlspl" "\
;;;***
\f
;;;### (autoloads (gnus-button-reply gnus-button-mailto gnus-msg-mail)
-;;;;;; "gnus-msg" "gnus/gnus-msg.el" (20593 22184 581574 0))
+;;;;;; "gnus-msg" "gnus/gnus-msg.el" (20594 14884 858174 0))
;;; Generated autoloads from gnus/gnus-msg.el
(autoload 'gnus-msg-mail "gnus-msg" "\
;;;***
\f
;;;### (autoloads (gnus-notifications) "gnus-notifications" "gnus/gnus-notifications.el"
-;;;;;; (20593 22184 581574 0))
+;;;;;; (20594 14884 858174 0))
;;; Generated autoloads from gnus/gnus-notifications.el
(autoload 'gnus-notifications "gnus-notifications" "\
\f
;;;### (autoloads (gnus-treat-newsgroups-picon gnus-treat-mail-picon
;;;;;; gnus-treat-from-picon) "gnus-picon" "gnus/gnus-picon.el"
-;;;;;; (20523 62082 997685 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/gnus-picon.el
(autoload 'gnus-treat-from-picon "gnus-picon" "\
;;;;;; 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" (20544 36659 880486 0))
+;;;;;; "gnus/gnus-range.el" (20545 60086 510404 0))
;;; Generated autoloads from gnus/gnus-range.el
(autoload 'gnus-sorted-difference "gnus-range" "\
;;;***
\f
;;;### (autoloads (gnus-registry-install-hooks gnus-registry-initialize)
-;;;;;; "gnus-registry" "gnus/gnus-registry.el" (20544 36659 880486
+;;;;;; "gnus-registry" "gnus/gnus-registry.el" (20545 60086 510404
;;;;;; 0))
;;; Generated autoloads from gnus/gnus-registry.el
;;;***
\f
;;;### (autoloads (gnus-sieve-article-add-rule gnus-sieve-generate
-;;;;;; gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (20355
-;;;;;; 10021 546955 0))
+;;;;;; gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from gnus/gnus-sieve.el
(autoload 'gnus-sieve-update "gnus-sieve" "\
;;;***
\f
;;;### (autoloads (gnus-update-format) "gnus-spec" "gnus/gnus-spec.el"
-;;;;;; (20458 56750 651721 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/gnus-spec.el
(autoload 'gnus-update-format "gnus-spec" "\
;;;***
\f
;;;### (autoloads (gnus-declare-backend) "gnus-start" "gnus/gnus-start.el"
-;;;;;; (20614 54428 654267 0))
+;;;;;; (20615 22847 537904 0))
;;; Generated autoloads from gnus/gnus-start.el
(autoload 'gnus-declare-backend "gnus-start" "\
;;;***
\f
;;;### (autoloads (gnus-summary-bookmark-jump) "gnus-sum" "gnus/gnus-sum.el"
-;;;;;; (20540 39589 424586 0))
+;;;;;; (20668 15033 902481 0))
;;; Generated autoloads from gnus/gnus-sum.el
(autoload 'gnus-summary-bookmark-jump "gnus-sum" "\
;;;***
\f
;;;### (autoloads (gnus-sync-install-hooks gnus-sync-initialize)
-;;;;;; "gnus-sync" "gnus/gnus-sync.el" (20593 22184 581574 0))
+;;;;;; "gnus-sync" "gnus/gnus-sync.el" (20669 24410 534430 0))
;;; Generated autoloads from gnus/gnus-sync.el
(autoload 'gnus-sync-initialize "gnus-sync" "\
;;;***
\f
;;;### (autoloads (gnus-add-configuration) "gnus-win" "gnus/gnus-win.el"
-;;;;;; (20447 49522 409090 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/gnus-win.el
(autoload 'gnus-add-configuration "gnus-win" "\
;;;***
\f
;;;### (autoloads (gnutls-min-prime-bits) "gnutls" "net/gnutls.el"
-;;;;;; (20476 31768 298871 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from net/gnutls.el
(defvar gnutls-min-prime-bits 256 "\
;;;***
\f
-;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (20626 19492
-;;;;;; 855904 0))
+;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (20625 56567
+;;;;;; 922104 625000))
;;; Generated autoloads from play/gomoku.el
(autoload 'gomoku "gomoku" "\
\f
;;;### (autoloads (goto-address-prog-mode goto-address-mode goto-address
;;;;;; goto-address-at-point) "goto-addr" "net/goto-addr.el" (20566
-;;;;;; 63671 243798 0))
+;;;;;; 46230 958621 550000))
;;; Generated autoloads from net/goto-addr.el
(define-obsolete-function-alias 'goto-address-at-mouse 'goto-address-at-point "22.1")
;;;***
\f
;;;### (autoloads (gravatar-retrieve-synchronously gravatar-retrieve)
-;;;;;; "gravatar" "gnus/gravatar.el" (20355 10021 546955 0))
+;;;;;; "gravatar" "gnus/gravatar.el" (20533 50312 678915 0))
;;; Generated autoloads from gnus/gravatar.el
(autoload 'gravatar-retrieve "gravatar" "\
\f
;;;### (autoloads (zrgrep rgrep lgrep grep-find grep grep-mode grep-compute-defaults
;;;;;; grep-process-setup grep-setup-hook grep-find-command grep-command
-;;;;;; grep-window-height) "grep" "progmodes/grep.el" (20664 38325
-;;;;;; 385623 0))
+;;;;;; grep-window-height) "grep" "progmodes/grep.el" (20664 24895
+;;;;;; 147100 745000))
;;; Generated autoloads from progmodes/grep.el
(defvar grep-window-height nil "\
;;;***
\f
-;;;### (autoloads (gs-load-image) "gs" "gs.el" (20355 10021 546955
+;;;### (autoloads (gs-load-image) "gs" "gs.el" (20533 50312 678915
;;;;;; 0))
;;; Generated autoloads from gs.el
;;;***
\f
;;;### (autoloads (gud-tooltip-mode gdb-script-mode jdb pdb perldb
-;;;;;; xdb dbx sdb gud-gdb) "gud" "progmodes/gud.el" (20614 55343
-;;;;;; 384716 548000))
+;;;;;; xdb dbx sdb gud-gdb) "gud" "progmodes/gud.el" (20615 22847
+;;;;;; 537904 0))
;;; Generated autoloads from progmodes/gud.el
(autoload 'gud-gdb "gud" "\
\f
;;;### (autoloads (gv-ref setf gv-define-simple-setter gv-define-setter
;;;;;; gv--defun-declaration gv-define-expander gv-letplace gv-get)
-;;;;;; "gv" "emacs-lisp/gv.el" (20643 32183 554981 0))
+;;;;;; "gv" "emacs-lisp/gv.el" (20647 7982 429263 0))
;;; Generated autoloads from emacs-lisp/gv.el
(autoload 'gv-get "gv" "\
;;;***
\f
;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (20566
-;;;;;; 63671 243798 0))
+;;;;;; 46640 14637 679000))
;;; Generated autoloads from play/handwrite.el
(autoload 'handwrite "handwrite" "\
;;;***
\f
;;;### (autoloads (hanoi-unix-64 hanoi-unix hanoi) "hanoi" "play/hanoi.el"
-;;;;;; (20478 3673 653810 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from play/hanoi.el
(autoload 'hanoi "hanoi" "\
\f
;;;### (autoloads (mail-check-payment mail-add-payment-async mail-add-payment
;;;;;; hashcash-verify-payment hashcash-insert-payment-async hashcash-insert-payment)
-;;;;;; "hashcash" "mail/hashcash.el" (20355 10021 546955 0))
+;;;;;; "hashcash" "mail/hashcash.el" (20533 50312 678915 0))
;;; Generated autoloads from mail/hashcash.el
(autoload 'hashcash-insert-payment "hashcash" "\
;;;### (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" (20355 10021
-;;;;;; 546955 0))
+;;;;;; help-at-pt-string) "help-at-pt" "help-at-pt.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from help-at-pt.el
(autoload 'help-at-pt-string "help-at-pt" "\
;;;### (autoloads (doc-file-to-info doc-file-to-man describe-categories
;;;;;; describe-syntax describe-variable variable-at-point describe-function-1
;;;;;; find-lisp-object-file-name help-C-file-name describe-function)
-;;;;;; "help-fns" "help-fns.el" (20601 16294 451653 0))
+;;;;;; "help-fns" "help-fns.el" (20600 48649 527386 0))
;;; Generated autoloads from help-fns.el
(autoload 'describe-function "help-fns" "\
;;;***
\f
;;;### (autoloads (three-step-help) "help-macro" "help-macro.el"
-;;;;;; (20589 25124 41923 0))
+;;;;;; (20588 61767 630752 0))
;;; Generated autoloads from help-macro.el
(defvar three-step-help nil "\
;;;### (autoloads (help-bookmark-jump help-xref-on-pp help-insert-xref-button
;;;;;; help-xref-button help-make-xrefs help-buffer help-setup-xref
;;;;;; help-mode-finish help-mode-setup help-mode) "help-mode" "help-mode.el"
-;;;;;; (20647 29243 972198 0))
+;;;;;; (20647 12936 770269 490000))
;;; Generated autoloads from help-mode.el
(autoload 'help-mode "help-mode" "\
;;;***
\f
;;;### (autoloads (Helper-help Helper-describe-bindings) "helper"
-;;;;;; "emacs-lisp/helper.el" (20355 10021 546955 0))
+;;;;;; "emacs-lisp/helper.el" (20533 50312 678915 0))
;;; Generated autoloads from emacs-lisp/helper.el
(autoload 'Helper-describe-bindings "helper" "\
;;;***
\f
;;;### (autoloads (hexlify-buffer hexl-find-file hexl-mode) "hexl"
-;;;;;; "hexl.el" (20523 62082 997685 0))
+;;;;;; "hexl.el" (20666 60492 791740 0))
;;; Generated autoloads from hexl.el
(autoload 'hexl-mode "hexl" "\
;;;### (autoloads (hi-lock-write-interactive-patterns hi-lock-unface-buffer
;;;;;; hi-lock-face-phrase-buffer hi-lock-face-buffer hi-lock-line-face-buffer
;;;;;; global-hi-lock-mode hi-lock-mode) "hi-lock" "hi-lock.el"
-;;;;;; (20593 22184 581574 0))
+;;;;;; (20594 14884 858174 0))
;;; Generated autoloads from hi-lock.el
(autoload 'hi-lock-mode "hi-lock" "\
;;;***
\f
;;;### (autoloads (hide-ifdef-mode) "hideif" "progmodes/hideif.el"
-;;;;;; (20588 4262 531841 0))
+;;;;;; (20587 1560 278468 915000))
;;; Generated autoloads from progmodes/hideif.el
(autoload 'hide-ifdef-mode "hideif" "\
;;;***
\f
;;;### (autoloads (turn-off-hideshow hs-minor-mode) "hideshow" "progmodes/hideshow.el"
-;;;;;; (20566 63671 243798 0))
+;;;;;; (20566 46578 522635 374000))
;;; Generated autoloads from progmodes/hideshow.el
(defvar hs-special-modes-alist (mapcar 'purecopy '((c-mode "{" "}" "/[*/]" nil nil) (c++-mode "{" "}" "/[*/]" nil nil) (bibtex-mode ("@\\S(*\\(\\s(\\)" 1)) (java-mode "{" "}" "/[*/]" nil nil) (js-mode "{" "}" "/[*/]" nil))) "\
;;;;;; highlight-compare-buffers highlight-changes-rotate-faces
;;;;;; highlight-changes-previous-change highlight-changes-next-change
;;;;;; highlight-changes-remove-highlight highlight-changes-visible-mode
-;;;;;; highlight-changes-mode) "hilit-chg" "hilit-chg.el" (20355
-;;;;;; 10021 546955 0))
+;;;;;; highlight-changes-mode) "hilit-chg" "hilit-chg.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from hilit-chg.el
(autoload 'highlight-changes-mode "hilit-chg" "\
;;;***
\f
;;;### (autoloads (make-hippie-expand-function hippie-expand hippie-expand-try-functions-list)
-;;;;;; "hippie-exp" "hippie-exp.el" (20660 41272 835092 0))
+;;;;;; "hippie-exp" "hippie-exp.el" (20660 26176 137583 0))
;;; Generated autoloads from hippie-exp.el
(defvar hippie-expand-try-functions-list '(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) "\
;;;***
\f
;;;### (autoloads (global-hl-line-mode hl-line-mode) "hl-line" "hl-line.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from hl-line.el
(autoload 'hl-line-mode "hl-line" "\
;;;;;; holiday-bahai-holidays holiday-islamic-holidays holiday-christian-holidays
;;;;;; holiday-hebrew-holidays holiday-other-holidays holiday-local-holidays
;;;;;; holiday-oriental-holidays holiday-general-holidays) "holidays"
-;;;;;; "calendar/holidays.el" (20566 63671 243798 0))
+;;;;;; "calendar/holidays.el" (20566 46439 838629 747000))
;;; Generated autoloads from calendar/holidays.el
(define-obsolete-variable-alias 'general-holidays 'holiday-general-holidays "23.1")
;;;***
\f
-;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from gnus/html2text.el
(autoload 'html2text "html2text" "\
;;;***
\f
;;;### (autoloads (htmlfontify-copy-and-link-dir htmlfontify-buffer)
-;;;;;; "htmlfontify" "htmlfontify.el" (20614 54428 654267 0))
+;;;;;; "htmlfontify" "htmlfontify.el" (20615 22847 537904 0))
;;; Generated autoloads from htmlfontify.el
(autoload 'htmlfontify-buffer "htmlfontify" "\
;;;***
\f
;;;### (autoloads (define-ibuffer-filter define-ibuffer-op define-ibuffer-sorter
-;;;;;; define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (20478
-;;;;;; 3673 653810 0))
+;;;;;; define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from ibuf-macs.el
(autoload 'define-ibuffer-column "ibuf-macs" "\
;;;***
\f
;;;### (autoloads (ibuffer ibuffer-other-window ibuffer-list-buffers)
-;;;;;; "ibuffer" "ibuffer.el" (20647 29243 972198 0))
+;;;;;; "ibuffer" "ibuffer.el" (20647 14483 886336 46000))
;;; Generated autoloads from ibuffer.el
(autoload 'ibuffer-list-buffers "ibuffer" "\
\f
;;;### (autoloads (icalendar-import-buffer icalendar-import-file
;;;;;; icalendar-export-region icalendar-export-file) "icalendar"
-;;;;;; "calendar/icalendar.el" (20593 22184 581574 0))
+;;;;;; "calendar/icalendar.el" (20594 14884 858174 0))
;;; Generated autoloads from calendar/icalendar.el
(autoload 'icalendar-export-file "icalendar" "\
;;;***
\f
;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (20665
-;;;;;; 23726 628150 0))
+;;;;;; 22617 826757 0))
;;; Generated autoloads from icomplete.el
(defvar icomplete-mode nil "\
;;;***
\f
-;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (20355 10021
-;;;;;; 546955 0))
+;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from progmodes/icon.el
(autoload 'icon-mode "icon" "\
;;;***
\f
;;;### (autoloads (idlwave-shell) "idlw-shell" "progmodes/idlw-shell.el"
-;;;;;; (20572 16038 402143 0))
+;;;;;; (20571 55599 814625 0))
;;; Generated autoloads from progmodes/idlw-shell.el
(autoload 'idlwave-shell "idlw-shell" "\
;;;***
\f
;;;### (autoloads (idlwave-mode) "idlwave" "progmodes/idlwave.el"
-;;;;;; (20576 42138 697312 0))
+;;;;;; (20576 17457 279993 463000))
;;; Generated autoloads from progmodes/idlwave.el
(autoload 'idlwave-mode "idlwave" "\
;;;;;; 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" (20665
-;;;;;; 23733 615437 420000))
+;;;;;; 25107 949632 0))
;;; Generated autoloads from ido.el
(defvar ido-mode nil "\
;;;***
\f
-;;;### (autoloads (ielm) "ielm" "ielm.el" (20566 63671 243798 0))
+;;;### (autoloads (ielm) "ielm" "ielm.el" (20566 45191 990577 813000))
;;; Generated autoloads from ielm.el
(autoload 'ielm "ielm" "\
;;;***
\f
-;;;### (autoloads (iimage-mode) "iimage" "iimage.el" (20355 10021
-;;;;;; 546955 0))
+;;;### (autoloads (iimage-mode) "iimage" "iimage.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from iimage.el
(define-obsolete-function-alias 'turn-on-iimage-mode 'iimage-mode "24.1")
;;;;;; create-image image-type-auto-detected-p image-type-available-p
;;;;;; image-type image-type-from-file-name image-type-from-file-header
;;;;;; image-type-from-buffer image-type-from-data) "image" "image.el"
-;;;;;; (20648 50109 802321 0))
+;;;;;; (20648 29678 511980 0))
;;; Generated autoloads from image.el
(autoload 'image-type-from-data "image" "\
;;;;;; image-dired-jump-thumbnail-buffer image-dired-delete-tag
;;;;;; image-dired-tag-files image-dired-show-all-from-dir image-dired-display-thumbs
;;;;;; image-dired-dired-with-window-configuration image-dired-dired-toggle-marked-thumbs)
-;;;;;; "image-dired" "image-dired.el" (20648 50109 802321 0))
+;;;;;; "image-dired" "image-dired.el" (20648 29678 511980 0))
;;; Generated autoloads from image-dired.el
(autoload 'image-dired-dired-toggle-marked-thumbs "image-dired" "\
\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" (20355 10021 546955 0))
+;;;;;; "image-file.el" (20533 50312 678915 0))
;;; Generated autoloads from image-file.el
(defvar image-file-name-extensions (purecopy '("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm" "svg")) "\
;;;***
\f
;;;### (autoloads (image-bookmark-jump image-mode-as-text image-minor-mode
-;;;;;; image-mode) "image-mode" "image-mode.el" (20656 44218 805102
+;;;;;; image-mode) "image-mode" "image-mode.el" (20656 14460 296991
;;;;;; 0))
;;; Generated autoloads from image-mode.el
;;;***
\f
;;;### (autoloads (imenu imenu-add-menubar-index imenu-add-to-menubar
-;;;;;; imenu-sort-function) "imenu" "imenu.el" (20644 53049 326201
+;;;;;; imenu-sort-function) "imenu" "imenu.el" (20647 7982 429263
;;;;;; 0))
;;; Generated autoloads from imenu.el
\f
;;;### (autoloads (indian-2-column-to-ucs-region in-is13194-pre-write-conversion
;;;;;; in-is13194-post-read-conversion indian-compose-string indian-compose-region)
-;;;;;; "ind-util" "language/ind-util.el" (20355 10021 546955 0))
+;;;;;; "ind-util" "language/ind-util.el" (20533 50312 678915 0))
;;; Generated autoloads from language/ind-util.el
(autoload 'indian-compose-region "ind-util" "\
;;;***
\f
;;;### (autoloads (inferior-lisp) "inf-lisp" "progmodes/inf-lisp.el"
-;;;;;; (20584 7212 455152 0))
+;;;;;; (20584 355 183605 0))
;;; Generated autoloads from progmodes/inf-lisp.el
(autoload 'inferior-lisp "inf-lisp" "\
;;;;;; Info-goto-emacs-key-command-node Info-goto-emacs-command-node
;;;;;; Info-mode info-finder info-apropos Info-index Info-directory
;;;;;; Info-on-current-buffer info-standalone info-emacs-bug info-emacs-manual
-;;;;;; info info-other-window) "info" "info.el" (20648 50109 802321
-;;;;;; 0))
+;;;;;; info info-other-window) "info" "info.el" (20668 19667 245432
+;;;;;; 713000))
;;; Generated autoloads from info.el
(defcustom Info-default-directory-list (let* ((config-dir (file-name-as-directory (or (and (featurep 'ns) (let ((dir (expand-file-name "../info" data-directory))) (if (file-directory-p dir) dir))) configure-info-directory))) (prefixes (prune-directory-list '("/usr/local/" "/usr/" "/opt/" "/"))) (suffixes '("share/" "" "gnu/" "gnu/lib/" "gnu/lib/emacs/" "emacs/" "lib/" "lib/emacs/")) (standard-info-dirs (apply #'nconc (mapcar (lambda (pfx) (let ((dirs (mapcar (lambda (sfx) (concat pfx sfx "info/")) suffixes))) (prune-directory-list dirs))) prefixes))) (dirs (if (member config-dir standard-info-dirs) (nconc standard-info-dirs (list config-dir)) (cons config-dir standard-info-dirs)))) (if (not (eq system-type 'windows-nt)) dirs (let* ((instdir (file-name-directory invocation-directory)) (dir1 (expand-file-name "../info/" instdir)) (dir2 (expand-file-name "../../../info/" instdir))) (cond ((file-exists-p dir1) (append dirs (list dir1))) ((file-exists-p dir2) (append dirs (list dir2))) (t dirs))))) "\
\(fn BMK)" nil nil)
(autoload 'info-display-manual "info" "\
-Go to Info buffer that displays MANUAL, creating it if none already exists.
+Display an Info buffer displaying MANUAL.
+If there is an existing Info buffer for MANUAL, display it.
+Otherwise, visit the manual in a new Info buffer.
\(fn MANUAL)" t nil)
\f
;;;### (autoloads (info-complete-file info-complete-symbol info-lookup-file
;;;;;; info-lookup-symbol info-lookup-reset) "info-look" "info-look.el"
-;;;;;; (20474 44971 970015 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from info-look.el
(autoload 'info-lookup-reset "info-look" "\
\f
;;;### (autoloads (info-xref-docstrings info-xref-check-all-custom
;;;;;; info-xref-check-all info-xref-check) "info-xref" "info-xref.el"
-;;;;;; (20476 31768 298871 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from info-xref.el
(autoload 'info-xref-check "info-xref" "\
;;;***
\f
;;;### (autoloads (batch-info-validate Info-validate Info-split Info-split-threshold
-;;;;;; Info-tagify) "informat" "informat.el" (20355 10021 546955
+;;;;;; Info-tagify) "informat" "informat.el" (20533 50312 678915
;;;;;; 0))
;;; Generated autoloads from informat.el
;;;***
\f
;;;### (autoloads (inversion-require-emacs) "inversion" "cedet/inversion.el"
-;;;;;; (20590 45996 129575 0))
+;;;;;; (20590 37036 437844 0))
;;; Generated autoloads from cedet/inversion.el
(autoload 'inversion-require-emacs "inversion" "\
\f
;;;### (autoloads (isearch-process-search-multibyte-characters isearch-toggle-input-method
;;;;;; isearch-toggle-specified-input-method) "isearch-x" "international/isearch-x.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from international/isearch-x.el
(autoload 'isearch-toggle-specified-input-method "isearch-x" "\
;;;***
\f
-;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from isearchb.el
(autoload 'isearchb-activate "isearchb" "\
;;;### (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" (20355 10021 546955 0))
+;;;;;; "international/iso-cvt.el" (20533 50312 678915 0))
;;; Generated autoloads from international/iso-cvt.el
(autoload 'iso-spanish "iso-cvt" "\
;;;***
\f
;;;### (autoloads nil "iso-transl" "international/iso-transl.el"
-;;;;;; (20486 36135 22104 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from international/iso-transl.el
(define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map)
(autoload 'iso-transl-ctl-x-8-map "iso-transl" "Keymap for C-x 8 prefix." t 'keymap)
;;;;;; ispell-buffer ispell-comments-and-strings ispell-region ispell-change-dictionary
;;;;;; ispell-kill-ispell ispell-help ispell-pdict-save ispell-word
;;;;;; ispell-personal-dictionary) "ispell" "textmodes/ispell.el"
-;;;;;; (20634 17206 740185 0))
+;;;;;; (20669 24410 534430 0))
;;; Generated autoloads from textmodes/ispell.el
(put 'ispell-check-comments 'safe-local-variable (lambda (a) (memq a '(nil t exclusive))))
;;;***
\f
-;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (20577
-;;;;;; 33959 40183 0))
+;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (20576
+;;;;;; 18956 372056 655000))
;;; Generated autoloads from iswitchb.el
(defvar iswitchb-mode nil "\
;;;### (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" (20355 10021 546955
+;;;;;; "japan-util" "language/japan-util.el" (20533 50312 678915
;;;;;; 0))
;;; Generated autoloads from language/japan-util.el
;;;***
\f
;;;### (autoloads (jka-compr-uninstall jka-compr-handler) "jka-compr"
-;;;;;; "jka-compr.el" (20355 10021 546955 0))
+;;;;;; "jka-compr.el" (20533 50312 678915 0))
;;; Generated autoloads from jka-compr.el
(defvar jka-compr-inhibit nil "\
;;;***
\f
-;;;### (autoloads (js-mode) "js" "progmodes/js.el" (20665 59189 799105
-;;;;;; 0))
+;;;### (autoloads (js-mode) "js" "progmodes/js.el" (20665 32946 244749
+;;;;;; 462000))
;;; Generated autoloads from progmodes/js.el
(autoload 'js-mode "js" "\
\f
;;;### (autoloads (keypad-setup keypad-numlock-shifted-setup keypad-shifted-setup
;;;;;; keypad-numlock-setup keypad-setup) "keypad" "emulation/keypad.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from emulation/keypad.el
(defvar keypad-setup nil "\
;;;***
\f
;;;### (autoloads (kinsoku) "kinsoku" "international/kinsoku.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from international/kinsoku.el
(autoload 'kinsoku "kinsoku" "\
;;;***
\f
-;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from international/kkc.el
(defvar kkc-after-update-conversion-functions nil "\
;;;### (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-exec-ring-item)
-;;;;;; "kmacro" "kmacro.el" (20471 22929 875294 592000))
+;;;;;; "kmacro" "kmacro.el" (20533 50312 678915 0))
;;; Generated autoloads from kmacro.el
(global-set-key "\C-x(" 'kmacro-start-macro)
(global-set-key "\C-x)" 'kmacro-end-macro)
;;;***
\f
;;;### (autoloads (setup-korean-environment-internal) "korea-util"
-;;;;;; "language/korea-util.el" (20501 3499 284800 0))
+;;;;;; "language/korea-util.el" (20533 50312 678915 0))
;;; Generated autoloads from language/korea-util.el
(defvar default-korean-keyboard (purecopy (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) "3" "")) "\
;;;***
\f
;;;### (autoloads (landmark landmark-test-run) "landmark" "play/landmark.el"
-;;;;;; (20545 57511 257469 0))
+;;;;;; (20545 60086 510404 0))
;;; Generated autoloads from play/landmark.el
(defalias 'landmark-repeat 'landmark-test-run)
\f
;;;### (autoloads (lao-compose-region lao-composition-function lao-transcribe-roman-to-lao-string
;;;;;; lao-transcribe-single-roman-syllable-to-lao lao-compose-string)
-;;;;;; "lao-util" "language/lao-util.el" (20355 10021 546955 0))
+;;;;;; "lao-util" "language/lao-util.el" (20533 50312 678915 0))
;;; Generated autoloads from language/lao-util.el
(autoload 'lao-compose-string "lao-util" "\
\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" (20355 10021 546955
+;;;;;; "latexenc" "international/latexenc.el" (20533 50312 678915
;;;;;; 0))
;;; Generated autoloads from international/latexenc.el
;;;***
\f
;;;### (autoloads (latin1-display-ucs-per-lynx latin1-display latin1-display)
-;;;;;; "latin1-disp" "international/latin1-disp.el" (20577 33959
-;;;;;; 40183 0))
+;;;;;; "latin1-disp" "international/latin1-disp.el" (20577 7722
+;;;;;; 729771 155000))
;;; Generated autoloads from international/latin1-disp.el
(defvar latin1-display nil "\
;;;***
\f
;;;### (autoloads (ld-script-mode) "ld-script" "progmodes/ld-script.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from progmodes/ld-script.el
(autoload 'ld-script-mode "ld-script" "\
;;;***
\f
-;;;### (autoloads (life) "life" "play/life.el" (20545 57511 257469
+;;;### (autoloads (life) "life" "play/life.el" (20545 60086 510404
;;;;;; 0))
;;; Generated autoloads from play/life.el
;;;***
\f
;;;### (autoloads (global-linum-mode linum-mode) "linum" "linum.el"
-;;;;;; (20580 10161 446444 0))
+;;;;;; (20581 13032 944808 0))
;;; Generated autoloads from linum.el
(autoload 'linum-mode "linum" "\
;;;***
\f
-;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (20476
-;;;;;; 31768 298871 0))
+;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from loadhist.el
(autoload 'unload-feature "loadhist" "\
;;;***
\f
;;;### (autoloads (locate-with-filter locate locate-ls-subdir-switches)
-;;;;;; "locate" "locate.el" (20566 63671 243798 0))
+;;;;;; "locate" "locate.el" (20566 45835 254600 494000))
;;; Generated autoloads from locate.el
(defvar locate-ls-subdir-switches (purecopy "-al") "\
;;;***
\f
-;;;### (autoloads (log-edit) "log-edit" "vc/log-edit.el" (20586 48936
-;;;;;; 135199 0))
+;;;### (autoloads (log-edit) "log-edit" "vc/log-edit.el" (20586 27094
+;;;;;; 290288 0))
;;; Generated autoloads from vc/log-edit.el
(autoload 'log-edit "log-edit" "\
;;;***
\f
-;;;### (autoloads (log-view-mode) "log-view" "vc/log-view.el" (20515
-;;;;;; 36389 544939 0))
+;;;### (autoloads (log-view-mode) "log-view" "vc/log-view.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from vc/log-view.el
(autoload 'log-view-mode "log-view" "\
\(fn)" t nil)
-;;;***
-\f
-;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (20664
-;;;;;; 38325 385623 0))
-;;; Generated autoloads from longlines.el
-
-(autoload 'longlines-mode "longlines" "\
-Toggle Long Lines mode in this buffer.
-With a prefix argument ARG, enable Long Lines mode if ARG is
-positive, and disable it otherwise. If called from Lisp, enable
-the mode if ARG is omitted or nil.
-
-When Long Lines mode is enabled, long lines are wrapped if they
-extend beyond `fill-column'. The soft newlines used for line
-wrapping will not show up when the text is yanked or saved to
-disk.
-
-If the variable `longlines-auto-wrap' is non-nil, lines are
-automatically wrapped whenever the buffer is changed. You can
-always call `fill-paragraph' to fill individual paragraphs.
-
-If the variable `longlines-show-hard-newlines' is non-nil, hard
-newlines are indicated with a symbol.
-
-\(fn &optional ARG)" t nil)
-
;;;***
\f
;;;### (autoloads (print-region lpr-region print-buffer lpr-buffer
-;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (20476
-;;;;;; 31768 298871 0))
+;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from lpr.el
(defvar lpr-windows-system (memq system-type '(ms-dos windows-nt)) "\
;;;***
\f
;;;### (autoloads (ls-lisp-support-shell-wildcards) "ls-lisp" "ls-lisp.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from ls-lisp.el
(defvar ls-lisp-support-shell-wildcards t "\
;;;***
\f
;;;### (autoloads (lunar-phases) "lunar" "calendar/lunar.el" (20566
-;;;;;; 63671 243798 0))
+;;;;;; 46417 662629 772000))
;;; Generated autoloads from calendar/lunar.el
(autoload 'lunar-phases "lunar" "\
;;;***
\f
;;;### (autoloads (m4-mode) "m4-mode" "progmodes/m4-mode.el" (20665
-;;;;;; 59189 799105 0))
+;;;;;; 36931 628705 467000))
;;; Generated autoloads from progmodes/m4-mode.el
(autoload 'm4-mode "m4-mode" "\
;;;***
\f
;;;### (autoloads (apply-macro-to-region-lines kbd-macro-query insert-kbd-macro
-;;;;;; name-last-kbd-macro) "macros" "macros.el" (20355 10021 546955
+;;;;;; name-last-kbd-macro) "macros" "macros.el" (20533 50312 678915
;;;;;; 0))
;;; Generated autoloads from macros.el
;;;***
\f
;;;### (autoloads (what-domain mail-extract-address-components) "mail-extr"
-;;;;;; "mail/mail-extr.el" (20355 10021 546955 0))
+;;;;;; "mail/mail-extr.el" (20533 50312 678915 0))
;;; Generated autoloads from mail/mail-extr.el
(autoload 'mail-extract-address-components "mail-extr" "\
\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"
-;;;;;; (20566 63671 243798 0))
+;;;;;; (20566 46269 462622 211000))
;;; Generated autoloads from mail/mail-hist.el
(autoload 'mail-hist-define-keys "mail-hist" "\
;;;### (autoloads (mail-fetch-field mail-unquote-printable-region
;;;;;; mail-unquote-printable mail-quote-printable-region mail-quote-printable
;;;;;; mail-file-babyl-p mail-dont-reply-to-names mail-use-rfc822)
-;;;;;; "mail-utils" "mail/mail-utils.el" (20355 10021 546955 0))
+;;;;;; "mail-utils" "mail/mail-utils.el" (20533 50312 678915 0))
;;; Generated autoloads from mail/mail-utils.el
(defvar mail-use-rfc822 nil "\
\f
;;;### (autoloads (define-mail-abbrev build-mail-abbrevs mail-abbrevs-setup
;;;;;; mail-abbrevs-mode) "mailabbrev" "mail/mailabbrev.el" (20566
-;;;;;; 63671 243798 0))
+;;;;;; 34890 729127 0))
;;; Generated autoloads from mail/mailabbrev.el
(defvar mail-abbrevs-mode nil "\
\f
;;;### (autoloads (mail-complete mail-completion-at-point-function
;;;;;; define-mail-alias expand-mail-aliases mail-complete-style)
-;;;;;; "mailalias" "mail/mailalias.el" (20577 33959 40183 0))
+;;;;;; "mailalias" "mail/mailalias.el" (20576 15960 587930 157000))
;;; Generated autoloads from mail/mailalias.el
(defvar mail-complete-style 'angles "\
;;;***
\f
;;;### (autoloads (mailclient-send-it) "mailclient" "mail/mailclient.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from mail/mailclient.el
(autoload 'mailclient-send-it "mailclient" "\
\f
;;;### (autoloads (makefile-imake-mode makefile-bsdmake-mode makefile-makepp-mode
;;;;;; makefile-gmake-mode makefile-automake-mode makefile-mode)
-;;;;;; "make-mode" "progmodes/make-mode.el" (20665 59189 799105
-;;;;;; 0))
+;;;;;; "make-mode" "progmodes/make-mode.el" (20665 39324 196680
+;;;;;; 404000))
;;; Generated autoloads from progmodes/make-mode.el
(autoload 'makefile-mode "make-mode" "\
;;;***
\f
-;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from makesum.el
(autoload 'make-command-summary "makesum" "\
;;;***
\f
;;;### (autoloads (Man-bookmark-jump man-follow man) "man" "man.el"
-;;;;;; (20523 62082 997685 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from man.el
(defalias 'manual-entry 'man)
;;;***
\f
-;;;### (autoloads (master-mode) "master" "master.el" (20355 10021
-;;;;;; 546955 0))
+;;;### (autoloads (master-mode) "master" "master.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from master.el
(autoload 'master-mode "master" "\
;;;***
\f
;;;### (autoloads (minibuffer-depth-indicate-mode) "mb-depth" "mb-depth.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from mb-depth.el
(defvar minibuffer-depth-indicate-mode nil "\
;;;;;; message-forward-make-body message-forward message-recover
;;;;;; message-supersede message-cancel-news message-followup message-wide-reply
;;;;;; message-reply message-news message-mail message-mode) "message"
-;;;;;; "gnus/message.el" (20650 54512 564403 0))
+;;;;;; "gnus/message.el" (20650 61396 673885 0))
;;; Generated autoloads from gnus/message.el
(define-mail-user-agent 'message-user-agent 'message-mail 'message-send-and-exit 'message-kill-buffer 'message-send-hook)
;;;***
\f
;;;### (autoloads (metapost-mode metafont-mode) "meta-mode" "progmodes/meta-mode.el"
-;;;;;; (20399 35365 4050 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from progmodes/meta-mode.el
(autoload 'metafont-mode "meta-mode" "\
\f
;;;### (autoloads (metamail-region metamail-buffer metamail-interpret-body
;;;;;; metamail-interpret-header) "metamail" "mail/metamail.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from mail/metamail.el
(autoload 'metamail-interpret-header "metamail" "\
\f
;;;### (autoloads (mh-fully-kill-draft mh-send-letter mh-user-agent-compose
;;;;;; mh-smail-batch mh-smail-other-window mh-smail) "mh-comp"
-;;;;;; "mh-e/mh-comp.el" (20659 20411 59719 0))
+;;;;;; "mh-e/mh-comp.el" (20660 26176 137583 0))
;;; Generated autoloads from mh-e/mh-comp.el
(autoload 'mh-smail "mh-comp" "\
;;;***
\f
-;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (20659 20411
-;;;;;; 59719 0))
+;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (20660 26176
+;;;;;; 137583 0))
;;; Generated autoloads from mh-e/mh-e.el
(put 'mh-progs 'risky-local-variable t)
;;;***
\f
;;;### (autoloads (mh-folder-mode mh-nmail mh-rmail) "mh-folder"
-;;;;;; "mh-e/mh-folder.el" (20659 20411 59719 0))
+;;;;;; "mh-e/mh-folder.el" (20660 26176 137583 0))
;;; Generated autoloads from mh-e/mh-folder.el
(autoload 'mh-rmail "mh-folder" "\
;;;***
\f
;;;### (autoloads (midnight-delay-set clean-buffer-list) "midnight"
-;;;;;; "midnight.el" (20478 3673 653810 0))
+;;;;;; "midnight.el" (20533 50312 678915 0))
;;; Generated autoloads from midnight.el
(autoload 'clean-buffer-list "midnight" "\
;;;***
\f
;;;### (autoloads (minibuffer-electric-default-mode) "minibuf-eldef"
-;;;;;; "minibuf-eldef.el" (20639 35129 235843 0))
+;;;;;; "minibuf-eldef.el" (20647 7982 429263 0))
;;; Generated autoloads from minibuf-eldef.el
(defvar minibuffer-electric-default-mode nil "\
;;;***
\f
;;;### (autoloads (list-dynamic-libraries butterfly) "misc" "misc.el"
-;;;;;; (20533 5993 500881 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from misc.el
(autoload 'butterfly "misc" "\
\f
;;;### (autoloads (multi-isearch-files-regexp multi-isearch-files
;;;;;; multi-isearch-buffers-regexp multi-isearch-buffers multi-isearch-setup)
-;;;;;; "misearch" "misearch.el" (20490 33188 850375 0))
+;;;;;; "misearch" "misearch.el" (20533 50312 678915 0))
;;; Generated autoloads from misearch.el
(add-hook 'isearch-mode-hook 'multi-isearch-setup)
;;;***
\f
;;;### (autoloads (mixal-mode) "mixal-mode" "progmodes/mixal-mode.el"
-;;;;;; (20566 63671 243798 0))
+;;;;;; (20566 46143 538618 330000))
;;; Generated autoloads from progmodes/mixal-mode.el
(autoload 'mixal-mode "mixal-mode" "\
;;;***
\f
;;;### (autoloads (mm-default-file-encoding) "mm-encode" "gnus/mm-encode.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/mm-encode.el
(autoload 'mm-default-file-encoding "mm-encode" "\
;;;***
\f
;;;### (autoloads (mm-inline-external-body mm-extern-cache-contents)
-;;;;;; "mm-extern" "gnus/mm-extern.el" (20355 10021 546955 0))
+;;;;;; "mm-extern" "gnus/mm-extern.el" (20533 50312 678915 0))
;;; Generated autoloads from gnus/mm-extern.el
(autoload 'mm-extern-cache-contents "mm-extern" "\
;;;***
\f
;;;### (autoloads (mm-inline-partial) "mm-partial" "gnus/mm-partial.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/mm-partial.el
(autoload 'mm-inline-partial "mm-partial" "\
;;;***
\f
;;;### (autoloads (mm-url-insert-file-contents-external mm-url-insert-file-contents)
-;;;;;; "mm-url" "gnus/mm-url.el" (20495 51111 757560 0))
+;;;;;; "mm-url" "gnus/mm-url.el" (20533 50312 678915 0))
;;; Generated autoloads from gnus/mm-url.el
(autoload 'mm-url-insert-file-contents "mm-url" "\
;;;***
\f
;;;### (autoloads (mm-uu-dissect-text-parts mm-uu-dissect) "mm-uu"
-;;;;;; "gnus/mm-uu.el" (20355 10021 546955 0))
+;;;;;; "gnus/mm-uu.el" (20533 50312 678915 0))
;;; Generated autoloads from gnus/mm-uu.el
(autoload 'mm-uu-dissect "mm-uu" "\
;;;***
\f
;;;### (autoloads (mml-attach-file mml-to-mime) "mml" "gnus/mml.el"
-;;;;;; (20567 23165 75548 0))
+;;;;;; (20567 14136 702359 0))
;;; Generated autoloads from gnus/mml.el
(autoload 'mml-to-mime "mml" "\
;;;***
\f
;;;### (autoloads (mml1991-sign mml1991-encrypt) "mml1991" "gnus/mml1991.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/mml1991.el
(autoload 'mml1991-encrypt "mml1991" "\
\f
;;;### (autoloads (mml2015-self-encrypt mml2015-sign mml2015-encrypt
;;;;;; mml2015-verify-test mml2015-verify mml2015-decrypt-test mml2015-decrypt)
-;;;;;; "mml2015" "gnus/mml2015.el" (20355 10021 546955 0))
+;;;;;; "mml2015" "gnus/mml2015.el" (20533 50312 678915 0))
;;; Generated autoloads from gnus/mml2015.el
(autoload 'mml2015-decrypt "mml2015" "\
;;;***
\f
-;;;### (autoloads nil "mode-local" "cedet/mode-local.el" (20406 8611
-;;;;;; 875037 0))
+;;;### (autoloads nil "mode-local" "cedet/mode-local.el" (20585 42247
+;;;;;; 723488 573000))
;;; Generated autoloads from cedet/mode-local.el
(put 'define-overloadable-function 'doc-string-elt 3)
;;;***
\f
-;;;### (autoloads (m2-mode) "modula2" "progmodes/modula2.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (m2-mode) "modula2" "progmodes/modula2.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from progmodes/modula2.el
(defalias 'modula-2-mode 'm2-mode)
;;;***
\f
;;;### (autoloads (denato-region nato-region unmorse-region morse-region)
-;;;;;; "morse" "play/morse.el" (20355 10021 546955 0))
+;;;;;; "morse" "play/morse.el" (20533 50312 678915 0))
;;; Generated autoloads from play/morse.el
(autoload 'morse-region "morse" "\
;;;***
\f
;;;### (autoloads (mouse-drag-drag mouse-drag-throw) "mouse-drag"
-;;;;;; "mouse-drag.el" (20566 63671 243798 0))
+;;;;;; "mouse-drag.el" (20566 45828 866603 595000))
;;; Generated autoloads from mouse-drag.el
(autoload 'mouse-drag-throw "mouse-drag" "\
;;;***
\f
-;;;### (autoloads (mpc) "mpc" "mpc.el" (20523 62082 997685 0))
+;;;### (autoloads (mpc) "mpc" "mpc.el" (20533 50312 678915 0))
;;; Generated autoloads from mpc.el
(autoload 'mpc "mpc" "\
;;;***
\f
-;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (20545 57511 257469
+;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (20545 60086 510404
;;;;;; 0))
;;; Generated autoloads from play/mpuz.el
;;;***
\f
-;;;### (autoloads (msb-mode) "msb" "msb.el" (20476 31768 298871 0))
+;;;### (autoloads (msb-mode) "msb" "msb.el" (20533 50312 678915 0))
;;; Generated autoloads from msb.el
(defvar msb-mode nil "\
;;;;;; 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"
-;;;;;; (20577 33959 40183 0))
+;;;;;; (20576 16405 87949 626000))
;;; Generated autoloads from international/mule-diag.el
(autoload 'list-character-sets "mule-diag" "\
;;;;;; 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) "mule-util" "international/mule-util.el"
-;;;;;; (20577 33959 40183 0))
+;;;;;; (20577 7556 49770 693000))
;;; Generated autoloads from international/mule-util.el
(defsubst string-to-list (string) "\
\f
;;;### (autoloads (advice-member-p advice-remove advice-add advice--add-function
;;;;;; add-function advice--buffer-local advice--remove-function)
-;;;;;; "nadvice" "emacs-lisp/nadvice.el" (20651 26294 774003 0))
+;;;;;; "nadvice" "emacs-lisp/nadvice.el" (20652 52617 313760 0))
;;; Generated autoloads from emacs-lisp/nadvice.el
(autoload 'advice--remove-function "nadvice" "\
;;;### (autoloads (network-connection network-connection-to-service
;;;;;; whois-reverse-lookup whois finger ftp run-dig dns-lookup-host
;;;;;; nslookup nslookup-host ping traceroute route arp netstat
-;;;;;; iwconfig ifconfig) "net-utils" "net/net-utils.el" (20355
-;;;;;; 10021 546955 0))
+;;;;;; iwconfig ifconfig) "net-utils" "net/net-utils.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from net/net-utils.el
(autoload 'ifconfig "net-utils" "\
;;;***
\f
-;;;### (autoloads (netrc-credentials) "netrc" "net/netrc.el" (20495
-;;;;;; 51111 757560 0))
+;;;### (autoloads (netrc-credentials) "netrc" "net/netrc.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from net/netrc.el
(autoload 'netrc-credentials "netrc" "\
;;;***
\f
;;;### (autoloads (open-network-stream) "network-stream" "net/network-stream.el"
-;;;;;; (20369 14251 85829 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from net/network-stream.el
(autoload 'open-network-stream "network-stream" "\
;;;***
\f
;;;### (autoloads (newsticker-start newsticker-running-p) "newst-backend"
-;;;;;; "net/newst-backend.el" (20577 33959 40183 0))
+;;;;;; "net/newst-backend.el" (20576 15743 119920 938000))
;;; Generated autoloads from net/newst-backend.el
(autoload 'newsticker-running-p "newst-backend" "\
;;;***
\f
;;;### (autoloads (newsticker-plainview) "newst-plainview" "net/newst-plainview.el"
-;;;;;; (20434 17809 692608 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from net/newst-plainview.el
(autoload 'newsticker-plainview "newst-plainview" "\
;;;***
\f
;;;### (autoloads (newsticker-show-news) "newst-reader" "net/newst-reader.el"
-;;;;;; (20434 17809 692608 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from net/newst-reader.el
(autoload 'newsticker-show-news "newst-reader" "\
;;;***
\f
;;;### (autoloads (newsticker-start-ticker newsticker-ticker-running-p)
-;;;;;; "newst-ticker" "net/newst-ticker.el" (20427 14766 970343
+;;;;;; "newst-ticker" "net/newst-ticker.el" (20533 50312 678915
;;;;;; 0))
;;; Generated autoloads from net/newst-ticker.el
;;;***
\f
;;;### (autoloads (newsticker-treeview) "newst-treeview" "net/newst-treeview.el"
-;;;;;; (20590 45996 129575 0))
+;;;;;; (20590 37036 437844 0))
;;; Generated autoloads from net/newst-treeview.el
(autoload 'newsticker-treeview "newst-treeview" "\
;;;***
\f
;;;### (autoloads (nndiary-generate-nov-databases) "nndiary" "gnus/nndiary.el"
-;;;;;; (20614 54428 654267 0))
+;;;;;; (20615 22847 537904 0))
;;; Generated autoloads from gnus/nndiary.el
(autoload 'nndiary-generate-nov-databases "nndiary" "\
;;;***
\f
-;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from gnus/nndoc.el
(autoload 'nndoc-add-type "nndoc" "\
;;;***
\f
;;;### (autoloads (nnfolder-generate-active-file) "nnfolder" "gnus/nnfolder.el"
-;;;;;; (20458 56750 651721 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/nnfolder.el
(autoload 'nnfolder-generate-active-file "nnfolder" "\
;;;***
\f
;;;### (autoloads (nnml-generate-nov-databases) "nnml" "gnus/nnml.el"
-;;;;;; (20458 56750 651721 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/nnml.el
(autoload 'nnml-generate-nov-databases "nnml" "\
;;;***
\f
;;;### (autoloads (disable-command enable-command disabled-command-function)
-;;;;;; "novice" "novice.el" (20566 63671 243798 0))
+;;;;;; "novice" "novice.el" (20566 45824 34603 301000))
;;; Generated autoloads from novice.el
(define-obsolete-variable-alias 'disabled-command-hook 'disabled-command-function "22.1")
;;;***
\f
;;;### (autoloads (nroff-mode) "nroff-mode" "textmodes/nroff-mode.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from textmodes/nroff-mode.el
(autoload 'nroff-mode "nroff-mode" "\
;;;***
\f
;;;### (autoloads (nxml-glyph-display-string) "nxml-glyph" "nxml/nxml-glyph.el"
-;;;;;; (20523 62082 997685 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from nxml/nxml-glyph.el
(autoload 'nxml-glyph-display-string "nxml-glyph" "\
;;;***
\f
-;;;### (autoloads (nxml-mode) "nxml-mode" "nxml/nxml-mode.el" (20478
-;;;;;; 3673 653810 0))
+;;;### (autoloads (nxml-mode) "nxml-mode" "nxml/nxml-mode.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from nxml/nxml-mode.el
(autoload 'nxml-mode "nxml-mode" "\
;;;***
\f
;;;### (autoloads (nxml-enable-unicode-char-name-sets) "nxml-uchnm"
-;;;;;; "nxml/nxml-uchnm.el" (20355 10021 546955 0))
+;;;;;; "nxml/nxml-uchnm.el" (20533 50312 678915 0))
;;; Generated autoloads from nxml/nxml-uchnm.el
(autoload 'nxml-enable-unicode-char-name-sets "nxml-uchnm" "\
;;;***
\f
;;;### (autoloads (inferior-octave) "octave-inf" "progmodes/octave-inf.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from progmodes/octave-inf.el
(autoload 'inferior-octave "octave-inf" "\
;;;***
\f
;;;### (autoloads (octave-mode) "octave-mod" "progmodes/octave-mod.el"
-;;;;;; (20566 63671 243798 0))
+;;;;;; (20566 45245 150579 485000))
;;; Generated autoloads from progmodes/octave-mod.el
(autoload 'octave-mode "octave-mod" "\
;;;;;; org-run-like-in-org-mode turn-on-orgstruct++ turn-on-orgstruct
;;;;;; orgstruct-mode org-global-cycle org-cycle org-mode org-clock-persistence-insinuate
;;;;;; turn-on-orgtbl org-version org-babel-do-load-languages) "org"
-;;;;;; "org/org.el" (20618 55210 422086 0))
+;;;;;; "org/org.el" (20619 27099 673959 0))
;;; Generated autoloads from org/org.el
(autoload 'org-babel-do-load-languages "org" "\
;;;;;; org-search-view org-agenda-list org-batch-store-agenda-views
;;;;;; org-store-agenda-views org-batch-agenda-csv org-batch-agenda
;;;;;; org-agenda org-toggle-sticky-agenda) "org-agenda" "org/org-agenda.el"
-;;;;;; (20618 55210 422086 0))
+;;;;;; (20619 27099 673959 0))
;;; Generated autoloads from org/org-agenda.el
(autoload 'org-toggle-sticky-agenda "org-agenda" "\
;;;***
\f
;;;### (autoloads (org-beamer-mode org-beamer-sectioning) "org-beamer"
-;;;;;; "org/org-beamer.el" (20618 55210 422086 0))
+;;;;;; "org/org-beamer.el" (20619 27099 673959 0))
;;; Generated autoloads from org/org-beamer.el
(autoload 'org-beamer-sectioning "org-beamer" "\
;;;***
\f
;;;### (autoloads (org-capture-import-remember-templates org-capture
-;;;;;; org-capture-string) "org-capture" "org/org-capture.el" (20618
-;;;;;; 55210 422086 0))
+;;;;;; org-capture-string) "org-capture" "org/org-capture.el" (20619
+;;;;;; 27099 673959 0))
;;; Generated autoloads from org/org-capture.el
(autoload 'org-capture-string "org-capture" "\
;;;***
\f
;;;### (autoloads (org-agenda-columns org-insert-columns-dblock org-dblock-write:columnview
-;;;;;; org-columns) "org-colview" "org/org-colview.el" (20618 55210
-;;;;;; 422086 0))
+;;;;;; org-columns) "org-colview" "org/org-colview.el" (20619 27099
+;;;;;; 673959 0))
;;; Generated autoloads from org/org-colview.el
(autoload 'org-columns "org-colview" "\
;;;***
\f
;;;### (autoloads (org-check-version) "org-compat" "org/org-compat.el"
-;;;;;; (20618 55210 422086 0))
+;;;;;; (20619 27099 673959 0))
;;; Generated autoloads from org/org-compat.el
(autoload 'org-check-version "org-compat" "\
;;;***
\f
;;;### (autoloads (org-git-version org-release) "org-version" "org/org-version.el"
-;;;;;; (20618 55210 422086 0))
+;;;;;; (20619 27099 673959 0))
;;; Generated autoloads from org/org-version.el
(autoload 'org-release "org-version" "\
;;;***
\f
;;;### (autoloads (outline-minor-mode outline-mode) "outline" "outline.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from outline.el
(put 'outline-regexp 'safe-local-variable 'stringp)
(put 'outline-heading-end-regexp 'safe-local-variable 'stringp)
;;;### (autoloads (list-packages describe-package package-initialize
;;;;;; package-refresh-contents package-install-file package-install-from-buffer
;;;;;; package-install package-enable-at-startup) "package" "emacs-lisp/package.el"
-;;;;;; (20622 22438 32851 0))
+;;;;;; (20622 16646 799433 0))
;;; Generated autoloads from emacs-lisp/package.el
(defvar package-enable-at-startup t "\
;;;***
\f
-;;;### (autoloads (show-paren-mode) "paren" "paren.el" (20542 50478
-;;;;;; 439878 507000))
+;;;### (autoloads (show-paren-mode) "paren" "paren.el" (20542 54621
+;;;;;; 56606 0))
;;; Generated autoloads from paren.el
(defvar show-paren-mode nil "\
;;;***
\f
;;;### (autoloads (parse-time-string) "parse-time" "calendar/parse-time.el"
-;;;;;; (20478 3673 653810 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from calendar/parse-time.el
(put 'parse-time-rules 'risky-local-variable t)
;;;***
\f
-;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (20478
-;;;;;; 3673 653810 0))
+;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from progmodes/pascal.el
(autoload 'pascal-mode "pascal" "\
;;;***
\f
;;;### (autoloads (password-in-cache-p password-cache-expiry password-cache)
-;;;;;; "password-cache" "password-cache.el" (20577 33959 40183 0))
+;;;;;; "password-cache" "password-cache.el" (20576 15327 199903
+;;;;;; 603000))
;;; Generated autoloads from password-cache.el
(defvar password-cache t "\
;;;***
\f
;;;### (autoloads (pcase-let pcase-let* pcase) "pcase" "emacs-lisp/pcase.el"
-;;;;;; (20582 12914 894781 0))
+;;;;;; (20584 355 183605 0))
;;; Generated autoloads from emacs-lisp/pcase.el
(autoload 'pcase "pcase" "\
;;;***
\f
-;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from pcmpl-cvs.el
(autoload 'pcomplete/cvs "pcmpl-cvs" "\
;;;***
\f
;;;### (autoloads (pcomplete/tar pcomplete/make pcomplete/bzip2 pcomplete/gzip)
-;;;;;; "pcmpl-gnu" "pcmpl-gnu.el" (20572 16038 402143 0))
+;;;;;; "pcmpl-gnu" "pcmpl-gnu.el" (20571 55599 814625 0))
;;; Generated autoloads from pcmpl-gnu.el
(autoload 'pcomplete/gzip "pcmpl-gnu" "\
;;;***
\f
;;;### (autoloads (pcomplete/mount pcomplete/umount pcomplete/kill)
-;;;;;; "pcmpl-linux" "pcmpl-linux.el" (20355 10021 546955 0))
+;;;;;; "pcmpl-linux" "pcmpl-linux.el" (20533 50312 678915 0))
;;; Generated autoloads from pcmpl-linux.el
(autoload 'pcomplete/kill "pcmpl-linux" "\
;;;***
\f
-;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (20523
-;;;;;; 62082 997685 0))
+;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from pcmpl-rpm.el
(autoload 'pcomplete/rpm "pcmpl-rpm" "\
\f
;;;### (autoloads (pcomplete/scp pcomplete/ssh pcomplete/chgrp pcomplete/chown
;;;;;; pcomplete/which pcomplete/xargs pcomplete/rm pcomplete/rmdir
-;;;;;; pcomplete/cd) "pcmpl-unix" "pcmpl-unix.el" (20376 40834 914217
+;;;;;; pcomplete/cd) "pcmpl-unix" "pcmpl-unix.el" (20533 50312 678915
;;;;;; 0))
;;; Generated autoloads from pcmpl-unix.el
;;;### (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" (20652
-;;;;;; 47164 970964 0))
+;;;;;; 52617 313760 0))
;;; Generated autoloads from pcomplete.el
(autoload 'pcomplete "pcomplete" "\
\f
;;;### (autoloads (cvs-dired-use-hook cvs-dired-action cvs-status
;;;;;; cvs-update cvs-examine cvs-quickdir cvs-checkout) "pcvs"
-;;;;;; "vc/pcvs.el" (20584 7212 455152 0))
+;;;;;; "vc/pcvs.el" (20584 355 183605 0))
;;; Generated autoloads from vc/pcvs.el
(autoload 'cvs-checkout "pcvs" "\
;;;***
\f
-;;;### (autoloads nil "pcvs-defs" "vc/pcvs-defs.el" (20576 42138
-;;;;;; 697312 0))
+;;;### (autoloads nil "pcvs-defs" "vc/pcvs-defs.el" (20576 19280
+;;;;;; 28070 497000))
;;; Generated autoloads from vc/pcvs-defs.el
(defvar cvs-global-menu (let ((m (make-sparse-keymap "PCL-CVS"))) (define-key m [status] `(menu-item ,(purecopy "Directory Status") cvs-status :help ,(purecopy "A more verbose status of a workarea"))) (define-key m [checkout] `(menu-item ,(purecopy "Checkout Module") cvs-checkout :help ,(purecopy "Check out a module from the repository"))) (define-key m [update] `(menu-item ,(purecopy "Update Directory") cvs-update :help ,(purecopy "Fetch updates from the repository"))) (define-key m [examine] `(menu-item ,(purecopy "Examine Directory") cvs-examine :help ,(purecopy "Examine the current state of a workarea"))) (fset 'cvs-global-menu m)) "\
;;;***
\f
;;;### (autoloads (perl-mode) "perl-mode" "progmodes/perl-mode.el"
-;;;;;; (20665 59189 799105 0))
+;;;;;; (20665 36903 324706 553000))
;;; Generated autoloads from progmodes/perl-mode.el
(put 'perl-indent-level 'safe-local-variable 'integerp)
(put 'perl-continued-statement-offset 'safe-local-variable 'integerp)
;;;***
\f
;;;### (autoloads (picture-mode) "picture" "textmodes/picture.el"
-;;;;;; (20551 9899 283417 0))
+;;;;;; (20552 25066 479417 0))
;;; Generated autoloads from textmodes/picture.el
(autoload 'picture-mode "picture" "\
;;;***
\f
;;;### (autoloads (plstore-mode plstore-open) "plstore" "gnus/plstore.el"
-;;;;;; (20378 29222 722320 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/plstore.el
(autoload 'plstore-open "plstore" "\
;;;***
\f
;;;### (autoloads (po-find-file-coding-system) "po" "textmodes/po.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from textmodes/po.el
(autoload 'po-find-file-coding-system "po" "\
;;;***
\f
-;;;### (autoloads (pong) "pong" "play/pong.el" (20478 3673 653810
+;;;### (autoloads (pong) "pong" "play/pong.el" (20533 50312 678915
;;;;;; 0))
;;; Generated autoloads from play/pong.el
;;;***
\f
-;;;### (autoloads (pop3-movemail) "pop3" "gnus/pop3.el" (20643 32183
-;;;;;; 554981 0))
+;;;### (autoloads (pop3-movemail) "pop3" "gnus/pop3.el" (20647 7982
+;;;;;; 429263 0))
;;; Generated autoloads from gnus/pop3.el
(autoload 'pop3-movemail "pop3" "\
\f
;;;### (autoloads (pp-macroexpand-last-sexp pp-eval-last-sexp pp-macroexpand-expression
;;;;;; pp-eval-expression pp pp-buffer pp-to-string) "pp" "emacs-lisp/pp.el"
-;;;;;; (20495 51111 757560 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from emacs-lisp/pp.el
(autoload 'pp-to-string "pp" "\
;;;;;; 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"
-;;;;;; (20648 50109 802321 0))
+;;;;;; (20648 29678 511980 0))
;;; Generated autoloads from printing.el
(autoload 'pr-interface "printing" "\
;;;***
\f
-;;;### (autoloads (proced) "proced" "proced.el" (20593 22184 581574
+;;;### (autoloads (proced) "proced" "proced.el" (20594 14884 858174
;;;;;; 0))
;;; Generated autoloads from proced.el
\f
;;;### (autoloads (profiler-find-profile-other-frame profiler-find-profile-other-window
;;;;;; profiler-find-profile profiler-start) "profiler" "profiler.el"
-;;;;;; (20650 54468 205452 950000))
+;;;;;; (20650 61396 673885 0))
;;; Generated autoloads from profiler.el
(autoload 'profiler-start "profiler" "\
;;;***
\f
;;;### (autoloads (run-prolog mercury-mode prolog-mode) "prolog"
-;;;;;; "progmodes/prolog.el" (20576 42138 697312 0))
+;;;;;; "progmodes/prolog.el" (20576 17486 923994 745000))
;;; Generated autoloads from progmodes/prolog.el
(autoload 'prolog-mode "prolog" "\
;;;***
\f
;;;### (autoloads (bdf-directory-list) "ps-bdf" "ps-bdf.el" (20652
-;;;;;; 47164 970964 0))
+;;;;;; 52617 313760 0))
;;; Generated autoloads from ps-bdf.el
(defvar bdf-directory-list (if (memq system-type '(ms-dos windows-nt)) (list (expand-file-name "fonts/bdf" installation-directory)) '("/usr/local/share/emacs/fonts/bdf")) "\
;;;***
\f
;;;### (autoloads (ps-mode) "ps-mode" "progmodes/ps-mode.el" (20576
-;;;;;; 42138 697312 0))
+;;;;;; 17495 155995 39000))
;;; Generated autoloads from progmodes/ps-mode.el
(autoload 'ps-mode "ps-mode" "\
;;;;;; 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" (20566
-;;;;;; 63671 243798 0))
+;;;;;; 45755 958602 756000))
;;; Generated autoloads from ps-print.el
(defvar ps-page-dimensions-database (purecopy (list (list 'a4 (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4") (list 'a3 (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3") (list 'letter (* 72 8.5) (* 72 11.0) "Letter") (list 'legal (* 72 8.5) (* 72 14.0) "Legal") (list 'letter-small (* 72 7.68) (* 72 10.16) "LetterSmall") (list 'tabloid (* 72 11.0) (* 72 17.0) "Tabloid") (list 'ledger (* 72 17.0) (* 72 11.0) "Ledger") (list 'statement (* 72 5.5) (* 72 8.5) "Statement") (list 'executive (* 72 7.5) (* 72 10.0) "Executive") (list 'a4small (* 72 7.47) (* 72 10.85) "A4Small") (list 'b4 (* 72 10.125) (* 72 14.33) "B4") (list 'b5 (* 72 7.16) (* 72 10.125) "B5") '(addresslarge 236.0 99.0 "AddressLarge") '(addresssmall 236.0 68.0 "AddressSmall") '(cuthanging13 90.0 222.0 "CutHanging13") '(cuthanging15 90.0 114.0 "CutHanging15") '(diskette 181.0 136.0 "Diskette") '(eurofilefolder 139.0 112.0 "EuropeanFilefolder") '(eurofoldernarrow 526.0 107.0 "EuroFolderNarrow") '(eurofolderwide 526.0 136.0 "EuroFolderWide") '(euronamebadge 189.0 108.0 "EuroNameBadge") '(euronamebadgelarge 223.0 136.0 "EuroNameBadgeLarge") '(filefolder 230.0 37.0 "FileFolder") '(jewelry 76.0 136.0 "Jewelry") '(mediabadge 180.0 136.0 "MediaBadge") '(multipurpose 126.0 68.0 "MultiPurpose") '(retaillabel 90.0 104.0 "RetailLabel") '(shipping 271.0 136.0 "Shipping") '(slide35mm 26.0 104.0 "Slide35mm") '(spine8mm 187.0 26.0 "Spine8mm") '(topcoated 425.19685 136.0 "TopCoatedPaper") '(topcoatedpaper 396.0 136.0 "TopcoatedPaper150") '(vhsface 205.0 127.0 "VHSFace") '(vhsspine 400.0 50.0 "VHSSpine") '(zipdisk 156.0 136.0 "ZipDisk"))) "\
;;;***
\f
;;;### (autoloads (python-mode run-python) "python" "progmodes/python.el"
-;;;;;; (20660 41272 835092 0))
+;;;;;; (20660 26176 137583 0))
;;; Generated autoloads from progmodes/python.el
(add-to-list 'auto-mode-alist (cons (purecopy "\\.py\\'") 'python-mode))
;;;***
\f
;;;### (autoloads (quoted-printable-decode-region) "qp" "gnus/qp.el"
-;;;;;; (20557 48712 315579 0))
+;;;;;; (20557 23173 326608 0))
;;; Generated autoloads from gnus/qp.el
(autoload 'quoted-printable-decode-region "qp" "\
;;;;;; 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" (20523 62082 997685 0))
+;;;;;; "international/quail.el" (20533 50312 678915 0))
;;; Generated autoloads from international/quail.el
(autoload 'quail-title "quail" "\
;;;### (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" (20566
-;;;;;; 63671 243798 0))
+;;;;;; 46668 994639 176000))
;;; 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" "\
;;;***
\f
;;;### (autoloads (rcirc-track-minor-mode rcirc-connect rcirc) "rcirc"
-;;;;;; "net/rcirc.el" (20614 54428 654267 0))
+;;;;;; "net/rcirc.el" (20615 22847 537904 0))
;;; Generated autoloads from net/rcirc.el
(autoload 'rcirc "rcirc" "\
;;;***
\f
-;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from net/rcompile.el
(autoload 'remote-compile "rcompile" "\
;;;***
\f
;;;### (autoloads (re-builder) "re-builder" "emacs-lisp/re-builder.el"
-;;;;;; (20427 14766 970343 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from emacs-lisp/re-builder.el
(defalias 'regexp-builder 're-builder)
;;;***
\f
-;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (20356 2211
-;;;;;; 532900 0))
+;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from recentf.el
(defvar recentf-mode nil "\
;;;;;; string-rectangle delete-whitespace-rectangle open-rectangle
;;;;;; insert-rectangle yank-rectangle copy-rectangle-as-kill kill-rectangle
;;;;;; extract-rectangle delete-extract-rectangle delete-rectangle)
-;;;;;; "rect" "rect.el" (20501 3499 284800 0))
+;;;;;; "rect" "rect.el" (20533 50312 678915 0))
;;; Generated autoloads from rect.el
(autoload 'delete-rectangle "rect" "\
;;;***
\f
-;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (20478
-;;;;;; 3673 653810 0))
+;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from textmodes/refill.el
(autoload 'refill-mode "refill" "\
;;;***
\f
;;;### (autoloads (reftex-reset-scanning-information reftex-mode
-;;;;;; turn-on-reftex) "reftex" "textmodes/reftex.el" (20657 65077
-;;;;;; 880084 0))
+;;;;;; turn-on-reftex) "reftex" "textmodes/reftex.el" (20660 26176
+;;;;;; 137583 0))
;;; Generated autoloads from textmodes/reftex.el
(autoload 'turn-on-reftex "reftex" "\
;;;***
\f
;;;### (autoloads (reftex-citation) "reftex-cite" "textmodes/reftex-cite.el"
-;;;;;; (20585 28088 480237 0))
+;;;;;; (20585 2669 263465 0))
;;; Generated autoloads from textmodes/reftex-cite.el
(autoload 'reftex-citation "reftex-cite" "\
;;;***
\f
;;;### (autoloads (reftex-isearch-minor-mode) "reftex-global" "textmodes/reftex-global.el"
-;;;;;; (20585 28088 480237 0))
+;;;;;; (20585 2669 263465 0))
;;; Generated autoloads from textmodes/reftex-global.el
(autoload 'reftex-isearch-minor-mode "reftex-global" "\
;;;***
\f
;;;### (autoloads (reftex-index-phrases-mode) "reftex-index" "textmodes/reftex-index.el"
-;;;;;; (20585 28088 480237 0))
+;;;;;; (20585 2669 263465 0))
;;; Generated autoloads from textmodes/reftex-index.el
(autoload 'reftex-index-phrases-mode "reftex-index" "\
;;;***
\f
;;;### (autoloads (reftex-all-document-files) "reftex-parse" "textmodes/reftex-parse.el"
-;;;;;; (20657 65077 880084 0))
+;;;;;; (20660 26176 137583 0))
;;; Generated autoloads from textmodes/reftex-parse.el
(autoload 'reftex-all-document-files "reftex-parse" "\
;;;***
\f
-;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (20593
-;;;;;; 22184 581574 0))
+;;;### (autoloads nil "reftex-vars" "textmodes/reftex-vars.el" (20594
+;;;;;; 14884 858174 0))
;;; Generated autoloads from textmodes/reftex-vars.el
(put 'reftex-vref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x))))
(put 'reftex-fref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x))))
;;;***
\f
;;;### (autoloads (regexp-opt-depth regexp-opt) "regexp-opt" "emacs-lisp/regexp-opt.el"
-;;;;;; (20522 38650 757441 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from emacs-lisp/regexp-opt.el
(autoload 'regexp-opt "regexp-opt" "\
\f
;;;### (autoloads (remember-diary-extract-entries remember-clipboard
;;;;;; remember-other-frame remember) "remember" "textmodes/remember.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from textmodes/remember.el
(autoload 'remember "remember" "\
;;;***
\f
-;;;### (autoloads (repeat) "repeat" "repeat.el" (20614 54428 654267
+;;;### (autoloads (repeat) "repeat" "repeat.el" (20615 22847 537904
;;;;;; 0))
;;; Generated autoloads from repeat.el
;;;***
\f
;;;### (autoloads (reporter-submit-bug-report) "reporter" "mail/reporter.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from mail/reporter.el
(autoload 'reporter-submit-bug-report "reporter" "\
;;;***
\f
;;;### (autoloads (reposition-window) "reposition" "reposition.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from reposition.el
(autoload 'reposition-window "reposition" "\
;;;***
\f
;;;### (autoloads (global-reveal-mode reveal-mode) "reveal" "reveal.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from reveal.el
(autoload 'reveal-mode "reveal" "\
;;;***
\f
;;;### (autoloads (make-ring ring-p) "ring" "emacs-lisp/ring.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from emacs-lisp/ring.el
(autoload 'ring-p "ring" "\
;;;***
\f
-;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (20402 11562
-;;;;;; 85788 0))
+;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from net/rlogin.el
(autoload 'rlogin "rlogin" "\
;;;;;; rmail-secondary-file-directory rmail-primary-inbox-list rmail-highlighted-headers
;;;;;; rmail-retry-ignored-headers rmail-displayed-headers rmail-ignored-headers
;;;;;; rmail-user-mail-address-regexp rmail-movemail-variant-p rmail-spool-directory
-;;;;;; rmail-file-name) "rmail" "mail/rmail.el" (20599 61088 34742
-;;;;;; 635000))
+;;;;;; rmail-file-name) "rmail" "mail/rmail.el" (20599 38534 554587
+;;;;;; 163000))
;;; Generated autoloads from mail/rmail.el
(defvar rmail-file-name (purecopy "~/RMAIL") "\
;;;***
\f
;;;### (autoloads (rmail-output-body-to-file rmail-output-as-seen
-;;;;;; rmail-output) "rmailout" "mail/rmailout.el" (20530 3765 184907
-;;;;;; 0))
+;;;;;; rmail-output) "rmailout" "mail/rmailout.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from mail/rmailout.el
(put 'rmail-output-file-alist 'risky-local-variable t)
;;;***
\f
;;;### (autoloads (rng-c-load-schema) "rng-cmpct" "nxml/rng-cmpct.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from nxml/rng-cmpct.el
(autoload 'rng-c-load-schema "rng-cmpct" "\
;;;***
\f
;;;### (autoloads (rng-nxml-mode-init) "rng-nxml" "nxml/rng-nxml.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from nxml/rng-nxml.el
(autoload 'rng-nxml-mode-init "rng-nxml" "\
;;;***
\f
;;;### (autoloads (rng-validate-mode) "rng-valid" "nxml/rng-valid.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from nxml/rng-valid.el
(autoload 'rng-validate-mode "rng-valid" "\
;;;***
\f
-;;;### (autoloads (rng-xsd-compile) "rng-xsd" "nxml/rng-xsd.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (rng-xsd-compile) "rng-xsd" "nxml/rng-xsd.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from nxml/rng-xsd.el
(put 'http://www\.w3\.org/2001/XMLSchema-datatypes 'rng-dt-compile 'rng-xsd-compile)
;;;***
\f
;;;### (autoloads (robin-use-package robin-modify-package robin-define-package)
-;;;;;; "robin" "international/robin.el" (20523 62082 997685 0))
+;;;;;; "robin" "international/robin.el" (20533 50312 678915 0))
;;; Generated autoloads from international/robin.el
(autoload 'robin-define-package "robin" "\
;;;***
\f
;;;### (autoloads (toggle-rot13-mode rot13-other-window rot13-region
-;;;;;; rot13-string rot13) "rot13" "rot13.el" (20355 10021 546955
+;;;;;; rot13-string rot13) "rot13" "rot13.el" (20533 50312 678915
;;;;;; 0))
;;; Generated autoloads from rot13.el
;;;***
\f
;;;### (autoloads (rst-minor-mode rst-mode) "rst" "textmodes/rst.el"
-;;;;;; (20594 43050 277913 0))
+;;;;;; (20594 14884 858174 0))
;;; Generated autoloads from textmodes/rst.el
(add-to-list 'auto-mode-alist (purecopy '("\\.re?st\\'" . rst-mode)))
;;;***
\f
;;;### (autoloads (ruby-mode) "ruby-mode" "progmodes/ruby-mode.el"
-;;;;;; (20644 53049 326201 0))
+;;;;;; (20647 7982 429263 0))
;;; Generated autoloads from progmodes/ruby-mode.el
(autoload 'ruby-mode "ruby-mode" "\
;;;***
\f
-;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from ruler-mode.el
(defvar ruler-mode nil "\
;;;***
\f
-;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (20518
-;;;;;; 12580 46478 0))
+;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from emacs-lisp/rx.el
(autoload 'rx-to-string "rx" "\
;;;***
\f
-;;;### (autoloads (savehist-mode) "savehist" "savehist.el" (20577
-;;;;;; 33959 40183 0))
+;;;### (autoloads (savehist-mode) "savehist" "savehist.el" (20576
+;;;;;; 15358 683905 201000))
;;; Generated autoloads from savehist.el
(defvar savehist-mode nil "\
;;;***
\f
;;;### (autoloads (dsssl-mode scheme-mode) "scheme" "progmodes/scheme.el"
-;;;;;; (20665 59189 799105 0))
+;;;;;; (20665 36153 780714 159000))
;;; Generated autoloads from progmodes/scheme.el
(autoload 'scheme-mode "scheme" "\
;;;***
\f
;;;### (autoloads (gnus-score-mode) "score-mode" "gnus/score-mode.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/score-mode.el
(autoload 'gnus-score-mode "score-mode" "\
;;;***
\f
;;;### (autoloads (scroll-all-mode) "scroll-all" "scroll-all.el"
-;;;;;; (20363 61861 222722 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from scroll-all.el
(defvar scroll-all-mode nil "\
;;;***
\f
;;;### (autoloads (scroll-lock-mode) "scroll-lock" "scroll-lock.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from scroll-lock.el
(autoload 'scroll-lock-mode "scroll-lock" "\
;;;***
\f
-;;;### (autoloads nil "secrets" "net/secrets.el" (20478 3673 653810
+;;;### (autoloads nil "secrets" "net/secrets.el" (20533 50312 678915
;;;;;; 0))
;;; Generated autoloads from net/secrets.el
(when (featurep 'dbusbind)
;;;***
\f
;;;### (autoloads (semantic-mode semantic-default-submodes) "semantic"
-;;;;;; "cedet/semantic.el" (20617 41641 89638 0))
+;;;;;; "cedet/semantic.el" (20619 27099 673959 0))
;;; Generated autoloads from cedet/semantic.el
(defvar semantic-default-submodes '(global-semantic-idle-scheduler-mode global-semanticdb-minor-mode) "\
;;;***
\f
;;;### (autoloads (bovine-grammar-mode) "semantic/bovine/grammar"
-;;;;;; "cedet/semantic/bovine/grammar.el" (20593 22184 581574 0))
+;;;;;; "cedet/semantic/bovine/grammar.el" (20592 14750 589797 981000))
;;; Generated autoloads from cedet/semantic/bovine/grammar.el
(autoload 'bovine-grammar-mode "semantic/bovine/grammar" "\
;;;***
\f
;;;### (autoloads (wisent-grammar-mode) "semantic/wisent/grammar"
-;;;;;; "cedet/semantic/wisent/grammar.el" (20593 22184 581574 0))
+;;;;;; "cedet/semantic/wisent/grammar.el" (20592 14837 837798 186000))
;;; Generated autoloads from cedet/semantic/wisent/grammar.el
(autoload 'wisent-grammar-mode "semantic/wisent/grammar" "\
;;;;;; mail-personal-alias-file mail-default-reply-to mail-archive-file-name
;;;;;; mail-header-separator send-mail-function mail-interactive
;;;;;; mail-self-blind mail-specify-envelope-from mail-from-style)
-;;;;;; "sendmail" "mail/sendmail.el" (20614 54428 654267 0))
+;;;;;; "sendmail" "mail/sendmail.el" (20615 22847 537904 0))
;;; Generated autoloads from mail/sendmail.el
(defvar mail-from-style 'default "\
;;;***
\f
;;;### (autoloads (server-save-buffers-kill-terminal server-mode
-;;;;;; server-force-delete server-start) "server" "server.el" (20639
-;;;;;; 35129 235843 0))
+;;;;;; server-force-delete server-start) "server" "server.el" (20647
+;;;;;; 7982 429263 0))
;;; Generated autoloads from server.el
(put 'server-host 'risky-local-variable t)
;;;***
\f
-;;;### (autoloads (ses-mode) "ses" "ses.el" (20657 65077 880084 0))
+;;;### (autoloads (ses-mode) "ses" "ses.el" (20657 39151 929960 0))
;;; Generated autoloads from ses.el
(autoload 'ses-mode "ses" "\
;;;***
\f
;;;### (autoloads (html-mode sgml-mode) "sgml-mode" "textmodes/sgml-mode.el"
-;;;;;; (20665 59189 799105 0))
+;;;;;; (20665 37305 556705 260000))
;;; Generated autoloads from textmodes/sgml-mode.el
(autoload 'sgml-mode "sgml-mode" "\
;;;***
\f
;;;### (autoloads (sh-mode) "sh-script" "progmodes/sh-script.el"
-;;;;;; (20665 59189 799105 0))
+;;;;;; (20665 38785 745682 0))
;;; Generated autoloads from progmodes/sh-script.el
(put 'sh-shell 'safe-local-variable 'symbolp)
;;;***
\f
;;;### (autoloads (list-load-path-shadows) "shadow" "emacs-lisp/shadow.el"
-;;;;;; (20572 16038 402143 0))
+;;;;;; (20571 55599 814625 0))
;;; Generated autoloads from emacs-lisp/shadow.el
(autoload 'list-load-path-shadows "shadow" "\
;;;***
\f
;;;### (autoloads (shadow-initialize shadow-define-regexp-group shadow-define-literal-group
-;;;;;; shadow-define-cluster) "shadowfile" "shadowfile.el" (20355
-;;;;;; 10021 546955 0))
+;;;;;; shadow-define-cluster) "shadowfile" "shadowfile.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from shadowfile.el
(autoload 'shadow-define-cluster "shadowfile" "\
;;;***
\f
;;;### (autoloads (shell shell-dumb-shell-regexp) "shell" "shell.el"
-;;;;;; (20664 38325 385623 0))
+;;;;;; (20664 27691 323071 891000))
;;; Generated autoloads from shell.el
(defvar shell-dumb-shell-regexp (purecopy "cmd\\(proxy\\)?\\.exe") "\
;;;***
\f
-;;;### (autoloads (shr-insert-document) "shr" "gnus/shr.el" (20595
-;;;;;; 63909 923329 0))
+;;;### (autoloads (shr-insert-document) "shr" "gnus/shr.el" (20596
+;;;;;; 57817 368875 0))
;;; Generated autoloads from gnus/shr.el
(autoload 'shr-insert-document "shr" "\
;;;***
\f
;;;### (autoloads (sieve-upload-and-kill sieve-upload-and-bury sieve-upload
-;;;;;; sieve-manage) "sieve" "gnus/sieve.el" (20487 57003 603251
+;;;;;; sieve-manage) "sieve" "gnus/sieve.el" (20533 50312 678915
;;;;;; 0))
;;; Generated autoloads from gnus/sieve.el
;;;***
\f
;;;### (autoloads (sieve-mode) "sieve-mode" "gnus/sieve-mode.el"
-;;;;;; (20487 57003 603251 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/sieve-mode.el
(autoload 'sieve-mode "sieve-mode" "\
;;;***
\f
-;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from progmodes/simula.el
(autoload 'simula-mode "simula" "\
;;;***
\f
;;;### (autoloads (skeleton-pair-insert-maybe skeleton-insert skeleton-proxy-new
-;;;;;; define-skeleton) "skeleton" "skeleton.el" (20541 6907 775259
+;;;;;; define-skeleton) "skeleton" "skeleton.el" (20541 32865 505578
;;;;;; 0))
;;; Generated autoloads from skeleton.el
;;;***
\f
;;;### (autoloads (smerge-start-session smerge-mode smerge-ediff)
-;;;;;; "smerge-mode" "vc/smerge-mode.el" (20585 28088 480237 0))
+;;;;;; "smerge-mode" "vc/smerge-mode.el" (20585 2669 263465 0))
;;; Generated autoloads from vc/smerge-mode.el
(autoload 'smerge-ediff "smerge-mode" "\
;;;***
\f
;;;### (autoloads (smiley-buffer smiley-region) "smiley" "gnus/smiley.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from gnus/smiley.el
(autoload 'smiley-region "smiley" "\
;;;***
\f
;;;### (autoloads (smtpmail-send-queued-mail smtpmail-send-it) "smtpmail"
-;;;;;; "mail/smtpmail.el" (20551 9899 283417 0))
+;;;;;; "mail/smtpmail.el" (20552 25066 479417 0))
;;; Generated autoloads from mail/smtpmail.el
(autoload 'smtpmail-send-it "smtpmail" "\
;;;***
\f
-;;;### (autoloads (snake) "snake" "play/snake.el" (20478 3673 653810
+;;;### (autoloads (snake) "snake" "play/snake.el" (20533 50312 678915
;;;;;; 0))
;;; Generated autoloads from play/snake.el
;;;***
\f
;;;### (autoloads (snmpv2-mode snmp-mode) "snmp-mode" "net/snmp-mode.el"
-;;;;;; (20577 33959 40183 0))
+;;;;;; (20576 17407 119991 302000))
;;; Generated autoloads from net/snmp-mode.el
(autoload 'snmp-mode "snmp-mode" "\
;;;***
\f
;;;### (autoloads (sunrise-sunset) "solar" "calendar/solar.el" (20566
-;;;;;; 63671 243798 0))
+;;;;;; 46404 938628 506000))
;;; Generated autoloads from calendar/solar.el
(autoload 'sunrise-sunset "solar" "\
;;;***
\f
-;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (20427
-;;;;;; 14766 970343 0))
+;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from play/solitaire.el
(autoload 'solitaire "solitaire" "\
;;;***
\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" (20507 42276 222255
-;;;;;; 0))
+;;;### (autoloads (delete-duplicate-lines reverse-region sort-columns
+;;;;;; sort-regexp-fields sort-fields sort-numeric-fields sort-pages
+;;;;;; sort-paragraphs sort-lines sort-subr) "sort" "sort.el" (20669
+;;;;;; 24410 534430 0))
;;; Generated autoloads from sort.el
(put 'sort-fold-case 'safe-local-variable 'booleanp)
\(fn BEG END)" t nil)
+(autoload 'delete-duplicate-lines "sort" "\
+Delete duplicate lines in the region between BEG and END.
+
+If REVERSE is nil, search and delete duplicates forward keeping the first
+occurrence of duplicate lines. If REVERSE is non-nil (when called
+interactively with C-u prefix), search and delete duplicates backward
+keeping the last occurrence of duplicate lines.
+
+If ADJACENT is non-nil (when called interactively with two C-u prefixes),
+delete repeated lines only if they are adjacent. It works like the utility
+`uniq' and is useful when lines are already sorted in a large file since
+this is more efficient in performance and memory usage than when ADJACENT
+is nil that uses additional memory to remember previous lines.
+
+When called from Lisp and INTERACTIVE is omitted or nil, return the number
+of deleted duplicate lines, do not print it; if INTERACTIVE is t, the
+function behaves in all respects as if it had been called interactively.
+
+\(fn BEG END &optional REVERSE ADJACENT INTERACTIVE)" t nil)
+
;;;***
\f
-;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (20458
-;;;;;; 56750 651721 0))
+;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from gnus/spam.el
(autoload 'spam-initialize "spam" "\
\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" (20355 10021 546955 0))
+;;;;;; "gnus/spam-report.el" (20533 50312 678915 0))
;;; Generated autoloads from gnus/spam-report.el
(autoload 'spam-report-process-queue "spam-report" "\
;;;***
\f
;;;### (autoloads (speedbar-get-focus speedbar-frame-mode) "speedbar"
-;;;;;; "speedbar.el" (20648 50109 802321 0))
+;;;;;; "speedbar.el" (20648 29678 511980 0))
;;; Generated autoloads from speedbar.el
(defalias 'speedbar 'speedbar-frame-mode)
;;;***
\f
-;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from play/spook.el
(autoload 'spook "spook" "\
;;;;;; sql-ms sql-ingres sql-solid sql-mysql sql-sqlite sql-informix
;;;;;; sql-sybase sql-oracle sql-product-interactive sql-connect
;;;;;; sql-mode sql-add-product-keywords) "sql" "progmodes/sql.el"
-;;;;;; (20654 2487 96777 0))
+;;;;;; (20655 4702 996292 0))
;;; Generated autoloads from progmodes/sql.el
(autoload 'sql-add-product-keywords "sql" "\
;;;***
\f
;;;### (autoloads (srecode-template-mode) "srecode/srt-mode" "cedet/srecode/srt-mode.el"
-;;;;;; (20642 11326 759953 0))
+;;;;;; (20647 7982 429263 0))
;;; Generated autoloads from cedet/srecode/srt-mode.el
(autoload 'srecode-template-mode "srecode/srt-mode" "\
;;;***
\f
;;;### (autoloads (starttls-open-stream) "starttls" "gnus/starttls.el"
-;;;;;; (20606 34222 123795 0))
+;;;;;; (20608 13586 654200 0))
;;; Generated autoloads from gnus/starttls.el
(autoload 'starttls-open-stream "starttls" "\
;;;;;; 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" (20593
-;;;;;; 22184 581574 0))
+;;;;;; strokes-global-set-stroke) "strokes" "strokes.el" (20594
+;;;;;; 14884 858174 0))
;;; Generated autoloads from strokes.el
(autoload 'strokes-global-set-stroke "strokes" "\
;;;***
\f
;;;### (autoloads (studlify-buffer studlify-word studlify-region)
-;;;;;; "studly" "play/studly.el" (20355 10021 546955 0))
+;;;;;; "studly" "play/studly.el" (20533 50312 678915 0))
;;; Generated autoloads from play/studly.el
(autoload 'studlify-region "studly" "\
;;;***
\f
;;;### (autoloads (global-subword-mode subword-mode) "subword" "progmodes/subword.el"
-;;;;;; (20524 51365 2559 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from progmodes/subword.el
(autoload 'subword-mode "subword" "\
;;;***
\f
;;;### (autoloads (sc-cite-original) "supercite" "mail/supercite.el"
-;;;;;; (20576 42138 697312 0))
+;;;;;; (20576 15917 623928 140000))
;;; Generated autoloads from mail/supercite.el
(autoload 'sc-cite-original "supercite" "\
;;;***
\f
-;;;### (autoloads (gpm-mouse-mode) "t-mouse" "t-mouse.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (gpm-mouse-mode) "t-mouse" "t-mouse.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from t-mouse.el
(define-obsolete-function-alias 't-mouse-mode 'gpm-mouse-mode "23.1")
;;;***
\f
-;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (20355 10021
-;;;;;; 546955 0))
+;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from tabify.el
(autoload 'untabify "tabify" "\
;;;;;; 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" (20660 41272 835092 0))
+;;;;;; "table" "textmodes/table.el" (20660 26176 137583 0))
;;; Generated autoloads from textmodes/table.el
(defvar table-cell-map-hook nil "\
;;;***
\f
-;;;### (autoloads (talk talk-connect) "talk" "talk.el" (20355 10021
-;;;;;; 546955 0))
+;;;### (autoloads (talk talk-connect) "talk" "talk.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from talk.el
(autoload 'talk-connect "talk" "\
;;;***
\f
-;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (20585 28088
-;;;;;; 480237 0))
+;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (20585 2669
+;;;;;; 263465 0))
;;; Generated autoloads from tar-mode.el
(autoload 'tar-mode "tar-mode" "\
;;;***
\f
;;;### (autoloads (tcl-help-on-word inferior-tcl tcl-mode) "tcl"
-;;;;;; "progmodes/tcl.el" (20580 10161 446444 0))
+;;;;;; "progmodes/tcl.el" (20581 13032 944808 0))
;;; Generated autoloads from progmodes/tcl.el
(autoload 'tcl-mode "tcl" "\
;;;***
\f
-;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (20355 10021
-;;;;;; 546955 0))
+;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from net/telnet.el
(autoload 'telnet "telnet" "\
;;;***
\f
;;;### (autoloads (serial-term ansi-term term make-term) "term" "term.el"
-;;;;;; (20648 50109 802321 0))
+;;;;;; (20648 29678 511980 0))
;;; Generated autoloads from term.el
(autoload 'make-term "term" "\
\(fn PORT SPEED)" t nil)
-;;;***
-\f
-;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (20355
-;;;;;; 10021 546955 0))
-;;; Generated autoloads from terminal.el
-
-(autoload 'terminal-emulator "terminal" "\
-Under a display-terminal emulator in BUFFER, run PROGRAM on arguments ARGS.
-ARGS is a list of argument-strings. Remaining arguments are WIDTH and HEIGHT.
-BUFFER's contents are made an image of the display generated by that program,
-and any input typed when BUFFER is the current Emacs buffer is sent to that
-program as keyboard input.
-
-Interactively, BUFFER defaults to \"*terminal*\" and PROGRAM and ARGS
-are parsed from an input-string using your usual shell.
-WIDTH and HEIGHT are determined from the size of the current window
--- WIDTH will be one less than the window's width, HEIGHT will be its height.
-
-To switch buffers and leave the emulator, or to give commands
-to the emulator itself (as opposed to the program running under it),
-type Control-^. The following character is an emulator command.
-Type Control-^ twice to send it to the subprogram.
-This escape character may be changed using the variable `terminal-escape-char'.
-
-`Meta' characters may not currently be sent through the terminal emulator.
-
-Here is a list of some of the variables which control the behavior
-of the emulator -- see their documentation for more information:
-terminal-escape-char, terminal-scrolling, terminal-more-processing,
-terminal-redisplay-interval.
-
-This function calls the value of terminal-mode-hook if that exists
-and is non-nil after the terminal buffer has been set up and the
-subprocess started.
-
-\(fn BUFFER PROGRAM ARGS &optional WIDTH HEIGHT)" t nil)
-
;;;***
\f
;;;### (autoloads (testcover-this-defun) "testcover" "emacs-lisp/testcover.el"
-;;;;;; (20580 10161 446444 0))
+;;;;;; (20579 47335 3827 0))
;;; Generated autoloads from emacs-lisp/testcover.el
(autoload 'testcover-this-defun "testcover" "\
;;;***
\f
-;;;### (autoloads (tetris) "tetris" "play/tetris.el" (20545 57511
-;;;;;; 257469 0))
+;;;### (autoloads (tetris) "tetris" "play/tetris.el" (20545 60086
+;;;;;; 510404 0))
;;; Generated autoloads from play/tetris.el
(autoload 'tetris "tetris" "\
;;;;;; 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"
-;;;;;; (20665 59189 799105 0))
+;;;;;; (20665 36964 828705 971000))
;;; Generated autoloads from textmodes/tex-mode.el
(defvar tex-shell-file-name nil "\
;;;***
\f
;;;### (autoloads (texi2info texinfo-format-region texinfo-format-buffer)
-;;;;;; "texinfmt" "textmodes/texinfmt.el" (20434 17809 692608 0))
+;;;;;; "texinfmt" "textmodes/texinfmt.el" (20533 50312 678915 0))
;;; Generated autoloads from textmodes/texinfmt.el
(autoload 'texinfo-format-buffer "texinfmt" "\
;;;***
\f
;;;### (autoloads (texinfo-mode texinfo-close-quote texinfo-open-quote)
-;;;;;; "texinfo" "textmodes/texinfo.el" (20665 59189 799105 0))
+;;;;;; "texinfo" "textmodes/texinfo.el" (20665 37006 296704 255000))
;;; Generated autoloads from textmodes/texinfo.el
(defvar texinfo-open-quote (purecopy "``") "\
\f
;;;### (autoloads (thai-composition-function thai-compose-buffer
;;;;;; thai-compose-string thai-compose-region) "thai-util" "language/thai-util.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from language/thai-util.el
(autoload 'thai-compose-region "thai-util" "\
\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" (20623 43301 870757 0))
+;;;;;; "thingatpt" "thingatpt.el" (20623 2577 143277 474000))
;;; Generated autoloads from thingatpt.el
(autoload 'forward-thing "thingatpt" "\
\f
;;;### (autoloads (thumbs-dired-setroot thumbs-dired-show thumbs-dired-show-marked
;;;;;; thumbs-show-from-dir thumbs-find-thumb) "thumbs" "thumbs.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from thumbs.el
(autoload 'thumbs-find-thumb "thumbs" "\
;;;;;; tibetan-post-read-conversion tibetan-compose-buffer tibetan-decompose-buffer
;;;;;; 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" (20355
-;;;;;; 10021 546955 0))
+;;;;;; tibetan-char-p) "tibet-util" "language/tibet-util.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from language/tibet-util.el
(autoload 'tibetan-char-p "tibet-util" "\
;;;***
\f
;;;### (autoloads (tildify-buffer tildify-region) "tildify" "textmodes/tildify.el"
-;;;;;; (20373 11301 906925 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from textmodes/tildify.el
(autoload 'tildify-region "tildify" "\
\f
;;;### (autoloads (emacs-init-time emacs-uptime display-time-world
;;;;;; display-time-mode display-time display-time-day-and-date)
-;;;;;; "time" "time.el" (20619 46245 806932 0))
+;;;;;; "time" "time.el" (20622 16646 799433 0))
;;; Generated autoloads from time.el
(defvar display-time-day-and-date nil "\
;;;;;; 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 date-to-time) "time-date" "calendar/time-date.el"
-;;;;;; (20652 47164 970964 0))
+;;;;;; (20652 52617 313760 0))
;;; Generated autoloads from calendar/time-date.el
(autoload 'date-to-time "time-date" "\
;;;***
\f
;;;### (autoloads (time-stamp-toggle-active time-stamp) "time-stamp"
-;;;;;; "time-stamp.el" (20566 63671 243798 0))
+;;;;;; "time-stamp.el" (20566 45666 534598 861000))
;;; Generated autoloads from time-stamp.el
(put 'time-stamp-format 'safe-local-variable 'stringp)
(put 'time-stamp-time-zone 'safe-local-variable 'string-or-null-p)
;;;;;; timeclock-workday-remaining-string timeclock-reread-log timeclock-query-out
;;;;;; timeclock-change timeclock-status-string timeclock-out timeclock-in
;;;;;; timeclock-mode-line-display) "timeclock" "calendar/timeclock.el"
-;;;;;; (20593 22184 581574 0))
+;;;;;; (20594 14884 858174 0))
;;; Generated autoloads from calendar/timeclock.el
(autoload 'timeclock-mode-line-display "timeclock" "\
;;;***
\f
;;;### (autoloads (batch-titdic-convert titdic-convert) "titdic-cnv"
-;;;;;; "international/titdic-cnv.el" (20355 10021 546955 0))
+;;;;;; "international/titdic-cnv.el" (20533 50312 678915 0))
;;; Generated autoloads from international/titdic-cnv.el
(autoload 'titdic-convert "titdic-cnv" "\
;;;***
\f
;;;### (autoloads (tmm-prompt tmm-menubar-mouse tmm-menubar) "tmm"
-;;;;;; "tmm.el" (20622 22438 32851 0))
+;;;;;; "tmm.el" (20622 16646 799433 0))
;;; Generated autoloads from tmm.el
(define-key global-map "\M-`" 'tmm-menubar)
(define-key global-map [menu-bar mouse-1] 'tmm-menubar-mouse)
\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" (20355 10021 546955 0))
+;;;;;; "todo-mode" "calendar/todo-mode.el" (20533 50312 678915 0))
;;; Generated autoloads from calendar/todo-mode.el
(autoload 'todo-add-category "todo-mode" "\
\f
;;;### (autoloads (tool-bar-local-item-from-menu tool-bar-add-item-from-menu
;;;;;; tool-bar-local-item tool-bar-add-item toggle-tool-bar-mode-from-frame)
-;;;;;; "tool-bar" "tool-bar.el" (20355 10021 546955 0))
+;;;;;; "tool-bar" "tool-bar.el" (20533 50312 678915 0))
;;; Generated autoloads from tool-bar.el
(autoload 'toggle-tool-bar-mode-from-frame "tool-bar" "\
;;;***
\f
;;;### (autoloads (tpu-edt-on tpu-edt-mode) "tpu-edt" "emulation/tpu-edt.el"
-;;;;;; (20566 63671 243798 0))
+;;;;;; (20566 47027 18655 117000))
;;; Generated autoloads from emulation/tpu-edt.el
(defvar tpu-edt-mode nil "\
;;;***
\f
;;;### (autoloads (tpu-mapper) "tpu-mapper" "emulation/tpu-mapper.el"
-;;;;;; (20566 63671 243798 0))
+;;;;;; (20566 46324 490624 377000))
;;; Generated autoloads from emulation/tpu-mapper.el
(autoload 'tpu-mapper "tpu-mapper" "\
;;;***
\f
-;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (20355 10021
-;;;;;; 546955 0))
+;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from emacs-lisp/tq.el
(autoload 'tq-create "tq" "\
;;;***
\f
;;;### (autoloads (trace-function-background trace-function-foreground
-;;;;;; trace-buffer) "trace" "emacs-lisp/trace.el" (20652 47164
-;;;;;; 970964 0))
+;;;;;; trace-buffer) "trace" "emacs-lisp/trace.el" (20652 52617
+;;;;;; 313760 0))
;;; Generated autoloads from emacs-lisp/trace.el
(defvar trace-buffer "*trace-output*" "\
;;;### (autoloads (tramp-unload-tramp tramp-completion-handle-file-name-completion
;;;;;; tramp-completion-handle-file-name-all-completions tramp-unload-file-name-handlers
;;;;;; tramp-file-name-handler tramp-syntax tramp-mode) "tramp"
-;;;;;; "net/tramp.el" (20652 47164 970964 0))
+;;;;;; "net/tramp.el" (20652 52617 313760 0))
;;; Generated autoloads from net/tramp.el
(defvar tramp-mode t "\
;;;***
\f
;;;### (autoloads (tramp-ftp-enable-ange-ftp) "tramp-ftp" "net/tramp-ftp.el"
-;;;;;; (20438 24016 194668 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from net/tramp-ftp.el
(autoload 'tramp-ftp-enable-ange-ftp "tramp-ftp" "\
;;;***
\f
;;;### (autoloads (help-with-tutorial) "tutorial" "tutorial.el" (20584
-;;;;;; 7212 455152 0))
+;;;;;; 355 183605 0))
;;; Generated autoloads from tutorial.el
(autoload 'help-with-tutorial "tutorial" "\
;;;***
\f
;;;### (autoloads (tai-viet-composition-function) "tv-util" "language/tv-util.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from language/tv-util.el
(autoload 'tai-viet-composition-function "tv-util" "\
;;;***
\f
;;;### (autoloads (2C-split 2C-associate-buffer 2C-two-columns) "two-column"
-;;;;;; "textmodes/two-column.el" (20566 63671 243798 0))
+;;;;;; "textmodes/two-column.el" (20566 46502 658633 677000))
;;; Generated autoloads from textmodes/two-column.el
(autoload '2C-command "two-column" () t 'keymap)
(global-set-key "\C-x6" '2C-command)
\f
;;;### (autoloads (type-break-guesstimate-keystroke-threshold type-break-statistics
;;;;;; type-break type-break-mode) "type-break" "type-break.el"
-;;;;;; (20582 12914 894781 0))
+;;;;;; (20584 355 183605 0))
;;; Generated autoloads from type-break.el
(defvar type-break-mode nil "\
;;;***
\f
-;;;### (autoloads (uce-reply-to-uce) "uce" "mail/uce.el" (20566 63671
-;;;;;; 243798 0))
+;;;### (autoloads (uce-reply-to-uce) "uce" "mail/uce.el" (20566 46709
+;;;;;; 606641 427000))
;;; Generated autoloads from mail/uce.el
(autoload 'uce-reply-to-uce "uce" "\
;;;;;; ucs-normalize-NFKC-string ucs-normalize-NFKC-region ucs-normalize-NFKD-string
;;;;;; ucs-normalize-NFKD-region ucs-normalize-NFC-string ucs-normalize-NFC-region
;;;;;; ucs-normalize-NFD-string ucs-normalize-NFD-region) "ucs-normalize"
-;;;;;; "international/ucs-normalize.el" (20476 31768 298871 0))
+;;;;;; "international/ucs-normalize.el" (20533 50312 678915 0))
;;; Generated autoloads from international/ucs-normalize.el
(autoload 'ucs-normalize-NFD-region "ucs-normalize" "\
;;;***
\f
;;;### (autoloads (ununderline-region underline-region) "underline"
-;;;;;; "textmodes/underline.el" (20355 10021 546955 0))
+;;;;;; "textmodes/underline.el" (20533 50312 678915 0))
;;; Generated autoloads from textmodes/underline.el
(autoload 'underline-region "underline" "\
;;;***
\f
;;;### (autoloads (unrmail batch-unrmail) "unrmail" "mail/unrmail.el"
-;;;;;; (20369 14251 85829 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from mail/unrmail.el
(autoload 'batch-unrmail "unrmail" "\
;;;***
\f
-;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from emacs-lisp/unsafep.el
(autoload 'unsafep "unsafep" "\
;;;***
\f
;;;### (autoloads (url-retrieve-synchronously url-retrieve) "url"
-;;;;;; "url/url.el" (20601 16294 451653 0))
+;;;;;; "url/url.el" (20601 13717 868555 169000))
;;; Generated autoloads from url/url.el
(autoload 'url-retrieve "url" "\
;;;***
\f
;;;### (autoloads (url-register-auth-scheme url-get-authentication)
-;;;;;; "url-auth" "url/url-auth.el" (20355 10021 546955 0))
+;;;;;; "url-auth" "url/url-auth.el" (20533 50312 678915 0))
;;; Generated autoloads from url/url-auth.el
(autoload 'url-get-authentication "url-auth" "\
;;;***
\f
;;;### (autoloads (url-cache-extract url-is-cached url-store-in-cache)
-;;;;;; "url-cache" "url/url-cache.el" (20355 10021 546955 0))
+;;;;;; "url-cache" "url/url-cache.el" (20533 50312 678915 0))
;;; Generated autoloads from url/url-cache.el
(autoload 'url-store-in-cache "url-cache" "\
;;;***
\f
-;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (20355 10021
-;;;;;; 546955 0))
+;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from url/url-cid.el
(autoload 'url-cid "url-cid" "\
;;;***
\f
;;;### (autoloads (url-dav-vc-registered url-dav-request url-dav-supported-p)
-;;;;;; "url-dav" "url/url-dav.el" (20501 3499 284800 0))
+;;;;;; "url-dav" "url/url-dav.el" (20533 50312 678915 0))
;;; Generated autoloads from url/url-dav.el
(autoload 'url-dav-supported-p "url-dav" "\
;;;***
\f
-;;;### (autoloads (url-file) "url-file" "url/url-file.el" (20602
-;;;;;; 37158 321420 0))
+;;;### (autoloads (url-file) "url-file" "url/url-file.el" (20601
+;;;;;; 54760 265680 0))
;;; Generated autoloads from url/url-file.el
(autoload 'url-file "url-file" "\
;;;***
\f
;;;### (autoloads (url-open-stream url-gateway-nslookup-host) "url-gw"
-;;;;;; "url/url-gw.el" (20478 3673 653810 0))
+;;;;;; "url/url-gw.el" (20533 50312 678915 0))
;;; Generated autoloads from url/url-gw.el
(autoload 'url-gateway-nslookup-host "url-gw" "\
\f
;;;### (autoloads (url-insert-file-contents url-file-local-copy url-copy-file
;;;;;; url-file-handler url-handler-mode) "url-handlers" "url/url-handlers.el"
-;;;;;; (20584 7212 455152 0))
+;;;;;; (20584 355 183605 0))
;;; Generated autoloads from url/url-handlers.el
(defvar url-handler-mode nil "\
;;;***
\f
-;;;### (autoloads nil "url-http" "url/url-http.el" (20601 16294 451653
-;;;;;; 0))
+;;;### (autoloads nil "url-http" "url/url-http.el" (20601 13773 988556
+;;;;;; 549000))
;;; Generated autoloads from url/url-http.el
(autoload 'url-default-expander "url-expand")
;;;***
\f
-;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (20355 10021
-;;;;;; 546955 0))
+;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from url/url-irc.el
(autoload 'url-irc "url-irc" "\
;;;***
\f
-;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (20355
-;;;;;; 10021 546955 0))
+;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from url/url-ldap.el
(autoload 'url-ldap "url-ldap" "\
;;;***
\f
;;;### (autoloads (url-mailto url-mail) "url-mailto" "url/url-mailto.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from url/url-mailto.el
(autoload 'url-mail "url-mailto" "\
;;;***
\f
;;;### (autoloads (url-data url-generic-emulator-loader url-info
-;;;;;; url-man) "url-misc" "url/url-misc.el" (20478 3673 653810
-;;;;;; 0))
+;;;;;; url-man) "url-misc" "url/url-misc.el" (20668 17640 189346
+;;;;;; 887000))
;;; Generated autoloads from url/url-misc.el
(autoload 'url-man "url-misc" "\
;;;***
\f
;;;### (autoloads (url-snews url-news) "url-news" "url/url-news.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from url/url-news.el
(autoload 'url-news "url-news" "\
\f
;;;### (autoloads (url-ns-user-pref url-ns-prefs isInNet isResolvable
;;;;;; dnsResolve dnsDomainIs isPlainHostName) "url-ns" "url/url-ns.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from url/url-ns.el
(autoload 'isPlainHostName "url-ns" "\
;;;***
\f
;;;### (autoloads (url-generic-parse-url url-recreate-url) "url-parse"
-;;;;;; "url/url-parse.el" (20648 50109 802321 0))
+;;;;;; "url/url-parse.el" (20648 29678 511980 0))
;;; Generated autoloads from url/url-parse.el
(autoload 'url-recreate-url "url-parse" "\
;;;***
\f
;;;### (autoloads (url-setup-privacy-info) "url-privacy" "url/url-privacy.el"
-;;;;;; (20478 3673 653810 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from url/url-privacy.el
(autoload 'url-setup-privacy-info "url-privacy" "\
;;;***
\f
;;;### (autoloads (url-queue-retrieve) "url-queue" "url/url-queue.el"
-;;;;;; (20478 3673 653810 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from url/url-queue.el
(autoload 'url-queue-retrieve "url-queue" "\
;;;;;; 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" (20584
-;;;;;; 7212 455152 0))
+;;;;;; 355 183605 0))
;;; Generated autoloads from url/url-util.el
(defvar url-debug nil "\
;;;***
\f
;;;### (autoloads (ask-user-about-supersession-threat ask-user-about-lock)
-;;;;;; "userlock" "userlock.el" (20555 6946 859539 0))
+;;;;;; "userlock" "userlock.el" (20553 51521 311307 389000))
;;; Generated autoloads from userlock.el
(autoload 'ask-user-about-lock "userlock" "\
\f
;;;### (autoloads (utf-7-imap-pre-write-conversion utf-7-pre-write-conversion
;;;;;; utf-7-imap-post-read-conversion utf-7-post-read-conversion)
-;;;;;; "utf-7" "international/utf-7.el" (20355 10021 546955 0))
+;;;;;; "utf-7" "international/utf-7.el" (20533 50312 678915 0))
;;; Generated autoloads from international/utf-7.el
(autoload 'utf-7-post-read-conversion "utf-7" "\
;;;***
\f
-;;;### (autoloads (utf7-encode) "utf7" "gnus/utf7.el" (20355 10021
-;;;;;; 546955 0))
+;;;### (autoloads (utf7-encode) "utf7" "gnus/utf7.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from gnus/utf7.el
(autoload 'utf7-encode "utf7" "\
\f
;;;### (autoloads (uudecode-decode-region uudecode-decode-region-internal
;;;;;; uudecode-decode-region-external) "uudecode" "mail/uudecode.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from mail/uudecode.el
(autoload 'uudecode-decode-region-external "uudecode" "\
;;;;;; vc-print-log vc-retrieve-tag vc-create-tag vc-merge vc-insert-headers
;;;;;; vc-revision-other-window vc-root-diff vc-ediff vc-version-ediff
;;;;;; vc-diff vc-version-diff vc-register vc-next-action vc-before-checkin-hook
-;;;;;; vc-checkin-hook vc-checkout-hook) "vc" "vc/vc.el" (20664
-;;;;;; 38325 385623 0))
+;;;;;; vc-checkin-hook vc-checkout-hook) "vc" "vc/vc.el" (20668
+;;;;;; 15033 902481 0))
;;; Generated autoloads from vc/vc.el
(defvar vc-checkout-hook nil "\
(autoload 'vc-delete-file "vc" "\
Delete file and mark it as such in the version control system.
+If called interactively, read FILE, defaulting to the current
+buffer's file name if it's under version control.
\(fn FILE)" t nil)
(autoload 'vc-rename-file "vc" "\
Rename file OLD to NEW in both work area and repository.
+If called interactively, read OLD and NEW, defaulting OLD to the
+current buffer's file name if it's under version control.
\(fn OLD NEW)" t nil)
;;;***
\f
;;;### (autoloads (vc-annotate) "vc-annotate" "vc/vc-annotate.el"
-;;;;;; (20478 3673 653810 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from vc/vc-annotate.el
(autoload 'vc-annotate "vc-annotate" "\
;;;***
\f
-;;;### (autoloads nil "vc-arch" "vc/vc-arch.el" (20478 3673 653810
+;;;### (autoloads nil "vc-arch" "vc/vc-arch.el" (20533 50312 678915
;;;;;; 0))
;;; Generated autoloads from vc/vc-arch.el
(defun vc-arch-registered (file)
;;;***
\f
-;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (20584 7212 455152
-;;;;;; 0))
+;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (20584 355 183605 0))
;;; Generated autoloads from vc/vc-bzr.el
(defconst vc-bzr-admin-dirname ".bzr" "\
;;;***
\f
-;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (20542 46798 773957
+;;;### (autoloads nil "vc-cvs" "vc/vc-cvs.el" (20542 54621 56606
;;;;;; 0))
;;; Generated autoloads from vc/vc-cvs.el
(defun vc-cvs-registered (f)
;;;***
\f
-;;;### (autoloads (vc-dir vc-dir-mode) "vc-dir" "vc/vc-dir.el" (20662
-;;;;;; 46799 394737 457000))
+;;;### (autoloads (vc-dir vc-dir-mode) "vc-dir" "vc/vc-dir.el" (20664
+;;;;;; 5610 38100 0))
;;; Generated autoloads from vc/vc-dir.el
(autoload 'vc-dir-mode "vc-dir" "\
;;;***
\f
;;;### (autoloads (vc-do-command) "vc-dispatcher" "vc/vc-dispatcher.el"
-;;;;;; (20489 12324 656827 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from vc/vc-dispatcher.el
(autoload 'vc-do-command "vc-dispatcher" "\
;;;***
\f
-;;;### (autoloads nil "vc-git" "vc/vc-git.el" (20664 38325 385623
-;;;;;; 0))
+;;;### (autoloads nil "vc-git" "vc/vc-git.el" (20664 25386 555095
+;;;;;; 685000))
;;; Generated autoloads from vc/vc-git.el
(defun vc-git-registered (file)
"Return non-nil if FILE is registered with git."
;;;***
\f
-;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (20665 26237 235433 272000))
+;;;### (autoloads nil "vc-hg" "vc/vc-hg.el" (20665 28029 52155 0))
;;; Generated autoloads from vc/vc-hg.el
(defun vc-hg-registered (file)
"Return non-nil if FILE is registered with hg."
;;;***
\f
-;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (20524 51365 2559 0))
+;;;### (autoloads nil "vc-mtn" "vc/vc-mtn.el" (20533 50312 678915
+;;;;;; 0))
;;; Generated autoloads from vc/vc-mtn.el
(defconst vc-mtn-admin-dir "_MTN" "\
;;;***
\f
;;;### (autoloads (vc-rcs-master-templates) "vc-rcs" "vc/vc-rcs.el"
-;;;;;; (20584 7212 455152 0))
+;;;;;; (20584 355 183605 0))
;;; Generated autoloads from vc/vc-rcs.el
(defvar vc-rcs-master-templates (purecopy '("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) "\
;;;***
\f
;;;### (autoloads (vc-sccs-master-templates) "vc-sccs" "vc/vc-sccs.el"
-;;;;;; (20584 7212 455152 0))
+;;;;;; (20584 355 183605 0))
;;; Generated autoloads from vc/vc-sccs.el
(defvar vc-sccs-master-templates (purecopy '("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)) "\
;;;***
\f
-;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (20648 50109 802321
+;;;### (autoloads nil "vc-svn" "vc/vc-svn.el" (20648 29678 511980
;;;;;; 0))
;;; Generated autoloads from vc/vc-svn.el
(defun vc-svn-registered (f)
;;;***
\f
;;;### (autoloads (vera-mode) "vera-mode" "progmodes/vera-mode.el"
-;;;;;; (20577 33959 40183 0))
+;;;;;; (20576 17562 243997 985000))
;;; Generated autoloads from progmodes/vera-mode.el
(add-to-list 'auto-mode-alist (cons (purecopy "\\.vr[hi]?\\'") 'vera-mode))
;;;***
\f
;;;### (autoloads (verilog-mode) "verilog-mode" "progmodes/verilog-mode.el"
-;;;;;; (20593 22184 581574 0))
+;;;;;; (20594 14884 858174 0))
;;; Generated autoloads from progmodes/verilog-mode.el
(autoload 'verilog-mode "verilog-mode" "\
;;;***
\f
;;;### (autoloads (vhdl-mode) "vhdl-mode" "progmodes/vhdl-mode.el"
-;;;;;; (20593 22184 581574 0))
+;;;;;; (20594 14884 858174 0))
;;; Generated autoloads from progmodes/vhdl-mode.el
(autoload 'vhdl-mode "vhdl-mode" "\
;;;***
\f
-;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (20566 63671 243798
-;;;;;; 0))
+;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (20566 46321 482625
+;;;;;; 150000))
;;; Generated autoloads from emulation/vi.el
(autoload 'vi-mode "vi" "\
;;;### (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" (20355 10021 546955 0))
+;;;;;; "language/viet-util.el" (20533 50312 678915 0))
;;; Generated autoloads from language/viet-util.el
(autoload 'viet-encode-viscii-char "viet-util" "\
;;;;;; view-mode view-buffer-other-frame view-buffer-other-window
;;;;;; view-buffer view-file-other-frame view-file-other-window
;;;;;; view-file kill-buffer-if-not-modified view-remove-frame-by-deleting)
-;;;;;; "view" "view.el" (20577 33959 40183 0))
+;;;;;; "view" "view.el" (20574 60285 453605 907000))
;;; Generated autoloads from view.el
(defvar view-remove-frame-by-deleting t "\
;;;***
\f
-;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (20513
-;;;;;; 18948 537867 0))
+;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from emulation/vip.el
(autoload 'vip-setup "vip" "\
;;;***
\f
;;;### (autoloads (viper-mode toggle-viper-mode) "viper" "emulation/viper.el"
-;;;;;; (20566 63671 243798 0))
+;;;;;; (20566 46795 194646 255000))
;;; Generated autoloads from emulation/viper.el
(autoload 'toggle-viper-mode "viper" "\
;;;***
\f
;;;### (autoloads (warn lwarn display-warning) "warnings" "emacs-lisp/warnings.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from emacs-lisp/warnings.el
(defvar warning-prefix-function nil "\
;;;***
\f
;;;### (autoloads (wdired-change-to-wdired-mode) "wdired" "wdired.el"
-;;;;;; (20656 44218 805102 0))
+;;;;;; (20656 14460 296991 0))
;;; Generated autoloads from wdired.el
(autoload 'wdired-change-to-wdired-mode "wdired" "\
;;;***
\f
-;;;### (autoloads (webjump) "webjump" "net/webjump.el" (20566 63671
-;;;;;; 243798 0))
+;;;### (autoloads (webjump) "webjump" "net/webjump.el" (20566 45342
+;;;;;; 918583 804000))
;;; Generated autoloads from net/webjump.el
(autoload 'webjump "webjump" "\
;;;***
\f
;;;### (autoloads (which-function-mode) "which-func" "progmodes/which-func.el"
-;;;;;; (20613 49078 764749 0))
+;;;;;; (20613 39767 44650 0))
;;; Generated autoloads from progmodes/which-func.el
(put 'which-func-format 'risky-local-variable t)
(put 'which-func-current 'risky-local-variable t)
;;;### (autoloads (whitespace-report-region whitespace-report whitespace-cleanup-region
;;;;;; whitespace-cleanup global-whitespace-toggle-options whitespace-toggle-options
;;;;;; global-whitespace-newline-mode global-whitespace-mode whitespace-newline-mode
-;;;;;; whitespace-mode) "whitespace" "whitespace.el" (20508 13724
-;;;;;; 260761 0))
+;;;;;; whitespace-mode) "whitespace" "whitespace.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from whitespace.el
(autoload 'whitespace-mode "whitespace" "\
;;;***
\f
;;;### (autoloads (widget-minor-mode widget-browse-other-window widget-browse
-;;;;;; widget-browse-at) "wid-browse" "wid-browse.el" (20478 3673
-;;;;;; 653810 0))
+;;;;;; widget-browse-at) "wid-browse" "wid-browse.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from wid-browse.el
(autoload 'widget-browse-at "wid-browse" "\
;;;***
\f
;;;### (autoloads (widget-setup widget-insert widget-delete widget-create
-;;;;;; widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (20373
-;;;;;; 11301 906925 0))
+;;;;;; widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from wid-edit.el
(autoload 'widgetp "wid-edit" "\
\f
;;;### (autoloads (windmove-default-keybindings windmove-down windmove-right
;;;;;; windmove-up windmove-left) "windmove" "windmove.el" (20566
-;;;;;; 63671 243798 0))
+;;;;;; 44765 218559 34000))
;;; Generated autoloads from windmove.el
(autoload 'windmove-left "windmove" "\
;;;***
\f
-;;;### (autoloads (winner-mode) "winner" "winner.el" (20584 7212
-;;;;;; 455152 0))
+;;;### (autoloads (winner-mode) "winner" "winner.el" (20584 355 183605
+;;;;;; 0))
;;; Generated autoloads from winner.el
(defvar winner-mode nil "\
;;;***
\f
;;;### (autoloads (woman-bookmark-jump woman-find-file woman-dired-find-file
-;;;;;; woman woman-locale) "woman" "woman.el" (20657 65077 880084
-;;;;;; 0))
+;;;;;; woman woman-locale) "woman" "woman.el" (20656 64489 79784
+;;;;;; 260000))
;;; Generated autoloads from woman.el
(defvar woman-locale nil "\
;;;***
\f
;;;### (autoloads (wordstar-mode) "ws-mode" "emulation/ws-mode.el"
-;;;;;; (20355 10021 546955 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from emulation/ws-mode.el
(autoload 'wordstar-mode "ws-mode" "\
;;;***
\f
-;;;### (autoloads (xesam-search) "xesam" "net/xesam.el" (20478 3673
-;;;;;; 653810 0))
+;;;### (autoloads (xesam-search) "xesam" "net/xesam.el" (20533 50312
+;;;;;; 678915 0))
;;; Generated autoloads from net/xesam.el
(autoload 'xesam-search "xesam" "\
;;;***
\f
;;;### (autoloads (xml-parse-region xml-parse-file) "xml" "xml.el"
-;;;;;; (20528 48420 241677 0))
+;;;;;; (20533 50312 678915 0))
;;; Generated autoloads from xml.el
(autoload 'xml-parse-file "xml" "\
;;;***
\f
;;;### (autoloads (xmltok-get-declared-encoding-position) "xmltok"
-;;;;;; "nxml/xmltok.el" (20355 10021 546955 0))
+;;;;;; "nxml/xmltok.el" (20533 50312 678915 0))
;;; Generated autoloads from nxml/xmltok.el
(autoload 'xmltok-get-declared-encoding-position "xmltok" "\
;;;***
\f
-;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (20485
-;;;;;; 15269 390836 0))
+;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (20533
+;;;;;; 50312 678915 0))
;;; Generated autoloads from xt-mouse.el
(defvar xterm-mouse-mode nil "\
;;;***
\f
;;;### (autoloads (yenc-extract-filename yenc-decode-region) "yenc"
-;;;;;; "gnus/yenc.el" (20355 10021 546955 0))
+;;;;;; "gnus/yenc.el" (20533 50312 678915 0))
;;; Generated autoloads from gnus/yenc.el
(autoload 'yenc-decode-region "yenc" "\
;;;***
\f
;;;### (autoloads (psychoanalyze-pinhead apropos-zippy insert-zippyism
-;;;;;; yow) "yow" "play/yow.el" (20364 42504 244840 586000))
+;;;;;; yow) "yow" "play/yow.el" (20533 50312 678915 0))
;;; Generated autoloads from play/yow.el
(autoload 'yow "yow" "\
;;;***
\f
-;;;### (autoloads (zone) "zone" "play/zone.el" (20545 57511 257469
+;;;### (autoloads (zone) "zone" "play/zone.el" (20545 60086 510404
;;;;;; 0))
;;; Generated autoloads from play/zone.el
;;;;;; "calc/calc-fin.el" "calc/calc-forms.el" "calc/calc-frac.el"
;;;;;; "calc/calc-funcs.el" "calc/calc-graph.el" "calc/calc-help.el"
;;;;;; "calc/calc-incom.el" "calc/calc-keypd.el" "calc/calc-lang.el"
-;;;;;; "calc/calc-loaddefs.el" "calc/calc-macs.el" "calc/calc-map.el"
-;;;;;; "calc/calc-math.el" "calc/calc-menu.el" "calc/calc-misc.el"
-;;;;;; "calc/calc-mode.el" "calc/calc-mtx.el" "calc/calc-nlfit.el"
-;;;;;; "calc/calc-poly.el" "calc/calc-prog.el" "calc/calc-rewr.el"
-;;;;;; "calc/calc-rules.el" "calc/calc-sel.el" "calc/calc-stat.el"
-;;;;;; "calc/calc-store.el" "calc/calc-stuff.el" "calc/calc-trail.el"
-;;;;;; "calc/calc-units.el" "calc/calc-vec.el" "calc/calc-yank.el"
-;;;;;; "calc/calcalg2.el" "calc/calcalg3.el" "calc/calccomp.el"
-;;;;;; "calc/calcsel2.el" "calendar/cal-bahai.el" "calendar/cal-coptic.el"
-;;;;;; "calendar/cal-french.el" "calendar/cal-html.el" "calendar/cal-islam.el"
-;;;;;; "calendar/cal-iso.el" "calendar/cal-julian.el" "calendar/cal-loaddefs.el"
-;;;;;; "calendar/cal-mayan.el" "calendar/cal-menu.el" "calendar/cal-move.el"
-;;;;;; "calendar/cal-persia.el" "calendar/cal-tex.el" "calendar/cal-x.el"
-;;;;;; "calendar/diary-loaddefs.el" "calendar/hol-loaddefs.el" "cdl.el"
-;;;;;; "cedet/cedet-cscope.el" "cedet/cedet-files.el" "cedet/cedet-global.el"
-;;;;;; "cedet/cedet-idutils.el" "cedet/cedet.el" "cedet/ede/auto.el"
-;;;;;; "cedet/ede/autoconf-edit.el" "cedet/ede/base.el" "cedet/ede/cpp-root.el"
-;;;;;; "cedet/ede/custom.el" "cedet/ede/dired.el" "cedet/ede/emacs.el"
-;;;;;; "cedet/ede/files.el" "cedet/ede/generic.el" "cedet/ede/linux.el"
-;;;;;; "cedet/ede/loaddefs.el" "cedet/ede/locate.el" "cedet/ede/make.el"
-;;;;;; "cedet/ede/makefile-edit.el" "cedet/ede/pconf.el" "cedet/ede/pmake.el"
-;;;;;; "cedet/ede/proj-archive.el" "cedet/ede/proj-aux.el" "cedet/ede/proj-comp.el"
-;;;;;; "cedet/ede/proj-elisp.el" "cedet/ede/proj-info.el" "cedet/ede/proj-misc.el"
-;;;;;; "cedet/ede/proj-obj.el" "cedet/ede/proj-prog.el" "cedet/ede/proj-scheme.el"
-;;;;;; "cedet/ede/proj-shared.el" "cedet/ede/proj.el" "cedet/ede/project-am.el"
-;;;;;; "cedet/ede/shell.el" "cedet/ede/simple.el" "cedet/ede/source.el"
-;;;;;; "cedet/ede/speedbar.el" "cedet/ede/srecode.el" "cedet/ede/system.el"
-;;;;;; "cedet/ede/util.el" "cedet/pulse.el" "cedet/semantic/analyze.el"
-;;;;;; "cedet/semantic/analyze/complete.el" "cedet/semantic/analyze/debug.el"
-;;;;;; "cedet/semantic/analyze/fcn.el" "cedet/semantic/analyze/refs.el"
-;;;;;; "cedet/semantic/bovine.el" "cedet/semantic/bovine/c-by.el"
-;;;;;; "cedet/semantic/bovine/c.el" "cedet/semantic/bovine/debug.el"
-;;;;;; "cedet/semantic/bovine/el.el" "cedet/semantic/bovine/gcc.el"
-;;;;;; "cedet/semantic/bovine/make-by.el" "cedet/semantic/bovine/make.el"
-;;;;;; "cedet/semantic/bovine/scm-by.el" "cedet/semantic/bovine/scm.el"
-;;;;;; "cedet/semantic/chart.el" "cedet/semantic/complete.el" "cedet/semantic/ctxt.el"
-;;;;;; "cedet/semantic/db-debug.el" "cedet/semantic/db-ebrowse.el"
-;;;;;; "cedet/semantic/db-el.el" "cedet/semantic/db-file.el" "cedet/semantic/db-find.el"
-;;;;;; "cedet/semantic/db-global.el" "cedet/semantic/db-javascript.el"
-;;;;;; "cedet/semantic/db-mode.el" "cedet/semantic/db-ref.el" "cedet/semantic/db-typecache.el"
+;;;;;; "calc/calc-macs.el" "calc/calc-map.el" "calc/calc-math.el"
+;;;;;; "calc/calc-menu.el" "calc/calc-misc.el" "calc/calc-mode.el"
+;;;;;; "calc/calc-mtx.el" "calc/calc-nlfit.el" "calc/calc-poly.el"
+;;;;;; "calc/calc-prog.el" "calc/calc-rewr.el" "calc/calc-rules.el"
+;;;;;; "calc/calc-sel.el" "calc/calc-stat.el" "calc/calc-store.el"
+;;;;;; "calc/calc-stuff.el" "calc/calc-trail.el" "calc/calc-units.el"
+;;;;;; "calc/calc-vec.el" "calc/calc-yank.el" "calc/calcalg2.el"
+;;;;;; "calc/calcalg3.el" "calc/calccomp.el" "calc/calcsel2.el"
+;;;;;; "calendar/cal-bahai.el" "calendar/cal-coptic.el" "calendar/cal-french.el"
+;;;;;; "calendar/cal-html.el" "calendar/cal-islam.el" "calendar/cal-iso.el"
+;;;;;; "calendar/cal-julian.el" "calendar/cal-loaddefs.el" "calendar/cal-mayan.el"
+;;;;;; "calendar/cal-menu.el" "calendar/cal-move.el" "calendar/cal-persia.el"
+;;;;;; "calendar/cal-tex.el" "calendar/cal-x.el" "calendar/diary-loaddefs.el"
+;;;;;; "calendar/hol-loaddefs.el" "cdl.el" "cedet/cedet-cscope.el"
+;;;;;; "cedet/cedet-files.el" "cedet/cedet-global.el" "cedet/cedet-idutils.el"
+;;;;;; "cedet/cedet.el" "cedet/ede/auto.el" "cedet/ede/autoconf-edit.el"
+;;;;;; "cedet/ede/base.el" "cedet/ede/cpp-root.el" "cedet/ede/custom.el"
+;;;;;; "cedet/ede/dired.el" "cedet/ede/emacs.el" "cedet/ede/files.el"
+;;;;;; "cedet/ede/generic.el" "cedet/ede/linux.el" "cedet/ede/locate.el"
+;;;;;; "cedet/ede/make.el" "cedet/ede/makefile-edit.el" "cedet/ede/pconf.el"
+;;;;;; "cedet/ede/pmake.el" "cedet/ede/proj-archive.el" "cedet/ede/proj-aux.el"
+;;;;;; "cedet/ede/proj-comp.el" "cedet/ede/proj-elisp.el" "cedet/ede/proj-info.el"
+;;;;;; "cedet/ede/proj-misc.el" "cedet/ede/proj-obj.el" "cedet/ede/proj-prog.el"
+;;;;;; "cedet/ede/proj-scheme.el" "cedet/ede/proj-shared.el" "cedet/ede/proj.el"
+;;;;;; "cedet/ede/project-am.el" "cedet/ede/shell.el" "cedet/ede/simple.el"
+;;;;;; "cedet/ede/source.el" "cedet/ede/speedbar.el" "cedet/ede/srecode.el"
+;;;;;; "cedet/ede/system.el" "cedet/ede/util.el" "cedet/pulse.el"
+;;;;;; "cedet/semantic/analyze.el" "cedet/semantic/analyze/complete.el"
+;;;;;; "cedet/semantic/analyze/debug.el" "cedet/semantic/analyze/fcn.el"
+;;;;;; "cedet/semantic/analyze/refs.el" "cedet/semantic/bovine.el"
+;;;;;; "cedet/semantic/bovine/c-by.el" "cedet/semantic/bovine/c.el"
+;;;;;; "cedet/semantic/bovine/debug.el" "cedet/semantic/bovine/el.el"
+;;;;;; "cedet/semantic/bovine/gcc.el" "cedet/semantic/bovine/make-by.el"
+;;;;;; "cedet/semantic/bovine/make.el" "cedet/semantic/bovine/scm-by.el"
+;;;;;; "cedet/semantic/bovine/scm.el" "cedet/semantic/chart.el"
+;;;;;; "cedet/semantic/complete.el" "cedet/semantic/ctxt.el" "cedet/semantic/db-debug.el"
+;;;;;; "cedet/semantic/db-ebrowse.el" "cedet/semantic/db-el.el"
+;;;;;; "cedet/semantic/db-file.el" "cedet/semantic/db-find.el" "cedet/semantic/db-global.el"
+;;;;;; "cedet/semantic/db-javascript.el" "cedet/semantic/db-mode.el"
+;;;;;; "cedet/semantic/db-ref.el" "cedet/semantic/db-typecache.el"
;;;;;; "cedet/semantic/db.el" "cedet/semantic/debug.el" "cedet/semantic/decorate.el"
;;;;;; "cedet/semantic/decorate/include.el" "cedet/semantic/decorate/mode.el"
;;;;;; "cedet/semantic/dep.el" "cedet/semantic/doc.el" "cedet/semantic/ede-grammar.el"
;;;;;; "cedet/semantic/fw.el" "cedet/semantic/grammar-wy.el" "cedet/semantic/grammar.el"
;;;;;; "cedet/semantic/html.el" "cedet/semantic/ia-sb.el" "cedet/semantic/ia.el"
;;;;;; "cedet/semantic/idle.el" "cedet/semantic/imenu.el" "cedet/semantic/java.el"
-;;;;;; "cedet/semantic/lex-spp.el" "cedet/semantic/lex.el" "cedet/semantic/loaddefs.el"
-;;;;;; "cedet/semantic/mru-bookmark.el" "cedet/semantic/sb.el" "cedet/semantic/scope.el"
-;;;;;; "cedet/semantic/senator.el" "cedet/semantic/sort.el" "cedet/semantic/symref.el"
-;;;;;; "cedet/semantic/symref/cscope.el" "cedet/semantic/symref/filter.el"
-;;;;;; "cedet/semantic/symref/global.el" "cedet/semantic/symref/grep.el"
-;;;;;; "cedet/semantic/symref/idutils.el" "cedet/semantic/symref/list.el"
-;;;;;; "cedet/semantic/tag-file.el" "cedet/semantic/tag-ls.el" "cedet/semantic/tag-write.el"
+;;;;;; "cedet/semantic/lex-spp.el" "cedet/semantic/lex.el" "cedet/semantic/mru-bookmark.el"
+;;;;;; "cedet/semantic/sb.el" "cedet/semantic/scope.el" "cedet/semantic/senator.el"
+;;;;;; "cedet/semantic/sort.el" "cedet/semantic/symref.el" "cedet/semantic/symref/cscope.el"
+;;;;;; "cedet/semantic/symref/filter.el" "cedet/semantic/symref/global.el"
+;;;;;; "cedet/semantic/symref/grep.el" "cedet/semantic/symref/idutils.el"
+;;;;;; "cedet/semantic/symref/list.el" "cedet/semantic/tag-file.el"
+;;;;;; "cedet/semantic/tag-ls.el" "cedet/semantic/tag-write.el"
;;;;;; "cedet/semantic/tag.el" "cedet/semantic/texi.el" "cedet/semantic/util-modes.el"
;;;;;; "cedet/semantic/util.el" "cedet/semantic/wisent.el" "cedet/semantic/wisent/comp.el"
;;;;;; "cedet/semantic/wisent/java-tags.el" "cedet/semantic/wisent/javascript.el"
;;;;;; "cedet/srecode/el.el" "cedet/srecode/expandproto.el" "cedet/srecode/extract.el"
;;;;;; "cedet/srecode/fields.el" "cedet/srecode/filters.el" "cedet/srecode/find.el"
;;;;;; "cedet/srecode/getset.el" "cedet/srecode/insert.el" "cedet/srecode/java.el"
-;;;;;; "cedet/srecode/loaddefs.el" "cedet/srecode/map.el" "cedet/srecode/mode.el"
-;;;;;; "cedet/srecode/semantic.el" "cedet/srecode/srt-wy.el" "cedet/srecode/srt.el"
-;;;;;; "cedet/srecode/table.el" "cedet/srecode/template.el" "cedet/srecode/texi.el"
-;;;;;; "cus-dep.el" "dframe.el" "dired-aux.el" "dired-x.el" "dos-fns.el"
-;;;;;; "dos-vars.el" "dos-w32.el" "dynamic-setting.el" "emacs-lisp/authors.el"
+;;;;;; "cedet/srecode/map.el" "cedet/srecode/mode.el" "cedet/srecode/semantic.el"
+;;;;;; "cedet/srecode/srt-wy.el" "cedet/srecode/srt.el" "cedet/srecode/table.el"
+;;;;;; "cedet/srecode/template.el" "cedet/srecode/texi.el" "cus-dep.el"
+;;;;;; "dframe.el" "dired-aux.el" "dired-x.el" "dos-fns.el" "dos-vars.el"
+;;;;;; "dos-w32.el" "dynamic-setting.el" "emacs-lisp/authors.el"
;;;;;; "emacs-lisp/avl-tree.el" "emacs-lisp/bindat.el" "emacs-lisp/byte-opt.el"
;;;;;; "emacs-lisp/chart.el" "emacs-lisp/cl-extra.el" "emacs-lisp/cl-loaddefs.el"
;;;;;; "emacs-lisp/cl-macs.el" "emacs-lisp/cl-seq.el" "emacs-lisp/cl.el"
;;;;;; "eshell/em-pred.el" "eshell/em-prompt.el" "eshell/em-rebind.el"
;;;;;; "eshell/em-script.el" "eshell/em-smart.el" "eshell/em-term.el"
;;;;;; "eshell/em-unix.el" "eshell/em-xtra.el" "eshell/esh-arg.el"
-;;;;;; "eshell/esh-cmd.el" "eshell/esh-ext.el" "eshell/esh-groups.el"
-;;;;;; "eshell/esh-io.el" "eshell/esh-module.el" "eshell/esh-opt.el"
-;;;;;; "eshell/esh-proc.el" "eshell/esh-util.el" "eshell/esh-var.el"
-;;;;;; "ezimage.el" "foldout.el" "format-spec.el" "fringe.el" "generic-x.el"
-;;;;;; "gnus/compface.el" "gnus/gnus-async.el" "gnus/gnus-bcklg.el"
-;;;;;; "gnus/gnus-cite.el" "gnus/gnus-cus.el" "gnus/gnus-demon.el"
-;;;;;; "gnus/gnus-dup.el" "gnus/gnus-eform.el" "gnus/gnus-ems.el"
-;;;;;; "gnus/gnus-int.el" "gnus/gnus-logic.el" "gnus/gnus-mh.el"
-;;;;;; "gnus/gnus-salt.el" "gnus/gnus-score.el" "gnus/gnus-setup.el"
-;;;;;; "gnus/gnus-srvr.el" "gnus/gnus-topic.el" "gnus/gnus-undo.el"
-;;;;;; "gnus/gnus-util.el" "gnus/gnus-uu.el" "gnus/gnus-vm.el" "gnus/gssapi.el"
-;;;;;; "gnus/ietf-drums.el" "gnus/legacy-gnus-agent.el" "gnus/mail-parse.el"
-;;;;;; "gnus/mail-prsvr.el" "gnus/mail-source.el" "gnus/mailcap.el"
-;;;;;; "gnus/messcompat.el" "gnus/mm-archive.el" "gnus/mm-bodies.el"
-;;;;;; "gnus/mm-decode.el" "gnus/mm-util.el" "gnus/mm-view.el" "gnus/mml-sec.el"
-;;;;;; "gnus/mml-smime.el" "gnus/nnagent.el" "gnus/nnbabyl.el" "gnus/nndir.el"
-;;;;;; "gnus/nndraft.el" "gnus/nneething.el" "gnus/nngateway.el"
-;;;;;; "gnus/nnheader.el" "gnus/nnimap.el" "gnus/nnir.el" "gnus/nnmail.el"
-;;;;;; "gnus/nnmaildir.el" "gnus/nnmairix.el" "gnus/nnmbox.el" "gnus/nnmh.el"
-;;;;;; "gnus/nnnil.el" "gnus/nnoo.el" "gnus/nnregistry.el" "gnus/nnrss.el"
-;;;;;; "gnus/nnspool.el" "gnus/nntp.el" "gnus/nnvirtual.el" "gnus/nnweb.el"
-;;;;;; "gnus/registry.el" "gnus/rfc1843.el" "gnus/rfc2045.el" "gnus/rfc2047.el"
-;;;;;; "gnus/rfc2104.el" "gnus/rfc2231.el" "gnus/rtree.el" "gnus/shr-color.el"
-;;;;;; "gnus/sieve-manage.el" "gnus/smime.el" "gnus/spam-stat.el"
-;;;;;; "gnus/spam-wash.el" "hex-util.el" "hfy-cmap.el" "ibuf-ext.el"
-;;;;;; "international/cp51932.el" "international/eucjp-ms.el" "international/fontset.el"
-;;;;;; "international/iso-ascii.el" "international/ja-dic-cnv.el"
+;;;;;; "eshell/esh-cmd.el" "eshell/esh-ext.el" "eshell/esh-io.el"
+;;;;;; "eshell/esh-module.el" "eshell/esh-opt.el" "eshell/esh-proc.el"
+;;;;;; "eshell/esh-util.el" "eshell/esh-var.el" "ezimage.el" "foldout.el"
+;;;;;; "format-spec.el" "fringe.el" "generic-x.el" "gnus/compface.el"
+;;;;;; "gnus/gnus-async.el" "gnus/gnus-bcklg.el" "gnus/gnus-cite.el"
+;;;;;; "gnus/gnus-cus.el" "gnus/gnus-demon.el" "gnus/gnus-dup.el"
+;;;;;; "gnus/gnus-eform.el" "gnus/gnus-ems.el" "gnus/gnus-int.el"
+;;;;;; "gnus/gnus-logic.el" "gnus/gnus-mh.el" "gnus/gnus-salt.el"
+;;;;;; "gnus/gnus-score.el" "gnus/gnus-setup.el" "gnus/gnus-srvr.el"
+;;;;;; "gnus/gnus-topic.el" "gnus/gnus-undo.el" "gnus/gnus-util.el"
+;;;;;; "gnus/gnus-uu.el" "gnus/gnus-vm.el" "gnus/gssapi.el" "gnus/ietf-drums.el"
+;;;;;; "gnus/legacy-gnus-agent.el" "gnus/mail-parse.el" "gnus/mail-prsvr.el"
+;;;;;; "gnus/mail-source.el" "gnus/mailcap.el" "gnus/messcompat.el"
+;;;;;; "gnus/mm-archive.el" "gnus/mm-bodies.el" "gnus/mm-decode.el"
+;;;;;; "gnus/mm-util.el" "gnus/mm-view.el" "gnus/mml-sec.el" "gnus/mml-smime.el"
+;;;;;; "gnus/nnagent.el" "gnus/nnbabyl.el" "gnus/nndir.el" "gnus/nndraft.el"
+;;;;;; "gnus/nneething.el" "gnus/nngateway.el" "gnus/nnheader.el"
+;;;;;; "gnus/nnimap.el" "gnus/nnir.el" "gnus/nnmail.el" "gnus/nnmaildir.el"
+;;;;;; "gnus/nnmairix.el" "gnus/nnmbox.el" "gnus/nnmh.el" "gnus/nnnil.el"
+;;;;;; "gnus/nnoo.el" "gnus/nnregistry.el" "gnus/nnrss.el" "gnus/nnspool.el"
+;;;;;; "gnus/nntp.el" "gnus/nnvirtual.el" "gnus/nnweb.el" "gnus/registry.el"
+;;;;;; "gnus/rfc1843.el" "gnus/rfc2045.el" "gnus/rfc2047.el" "gnus/rfc2104.el"
+;;;;;; "gnus/rfc2231.el" "gnus/rtree.el" "gnus/shr-color.el" "gnus/sieve-manage.el"
+;;;;;; "gnus/smime.el" "gnus/spam-stat.el" "gnus/spam-wash.el" "hex-util.el"
+;;;;;; "hfy-cmap.el" "ibuf-ext.el" "international/cp51932.el" "international/eucjp-ms.el"
+;;;;;; "international/fontset.el" "international/iso-ascii.el" "international/ja-dic-cnv.el"
;;;;;; "international/ja-dic-utl.el" "international/ogonek.el" "international/uni-bidi.el"
;;;;;; "international/uni-category.el" "international/uni-combining.el"
;;;;;; "international/uni-comment.el" "international/uni-decimal.el"
;;;;;; "vc/ediff-ptch.el" "vc/ediff-vers.el" "vc/ediff-wind.el"
;;;;;; "vc/pcvs-info.el" "vc/pcvs-parse.el" "vc/pcvs-util.el" "vc/vc-dav.el"
;;;;;; "vcursor.el" "vt-control.el" "vt100-led.el" "w32-common-fns.el"
-;;;;;; "w32-fns.el" "w32-vars.el" "x-dnd.el") (20665 59400 557912
-;;;;;; 519000))
+;;;;;; "w32-fns.el" "w32-vars.el" "x-dnd.el") (20669 25890 774402
+;;;;;; 97000))
;;;***
\f
--- /dev/null
+;;; terminal.el --- terminal emulator for GNU Emacs
+
+;; Copyright (C) 1986-1989, 1993-1994, 2001-2012
+;; Free Software Foundation, Inc.
+
+;; Author: Richard Mlynarik <mly@eddie.mit.edu>
+;; Maintainer: FSF
+;; Keywords: comm, terminals
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; This file has been censored by the Communications Decency Act.
+;;; That law was passed under the guise of a ban on pornography, but
+;;; it bans far more than that. This file did not contain pornography,
+;;; but it was censored nonetheless.
+
+;;; For information on US government censorship of the Internet, and
+;;; what you can do to bring back freedom of the press, see the web
+;;; site http://www.vtw.org/
+
+;;; Code:
+
+;;>>TODO
+;;>> ** Nothing can be done about emacs' meta-lossage **
+;;>> (without redoing keymaps `sanely' -- ask Mly for details)
+
+;;>> One probably wants to do setenv MORE -c when running with
+;;>> more-processing enabled.
+
+(require 'ehelp)
+
+(defgroup terminal nil
+ "Terminal emulator for Emacs."
+ :group 'terminals)
+
+
+(defcustom terminal-escape-char ?\C-^
+ "All characters except for this are passed verbatim through the
+terminal-emulator. This character acts as a prefix for commands
+to the emulator program itself. Type this character twice to send
+it through the emulator. Type ? after typing it for a list of
+possible commands.
+This variable is local to each terminal-emulator buffer."
+ :type 'character
+ :group 'terminal)
+
+(defcustom terminal-scrolling t ;;>> Setting this to t sort-of defeats my whole aim in writing this package...
+ "If non-nil, the terminal-emulator will losingly `scroll' when output occurs
+past the bottom of the screen. If nil, output will win and `wrap' to the top
+of the screen.
+This variable is local to each terminal-emulator buffer."
+ :type 'boolean
+ :group 'terminal)
+
+(defcustom terminal-more-processing t
+ "If non-nil, do more-processing.
+This variable is local to each terminal-emulator buffer."
+ :type 'boolean
+ :group 'terminal)
+
+;; If you are the sort of loser who uses scrolling without more breaks
+;; and expects to actually see anything, you should probably set this to
+;; around 400
+(defcustom terminal-redisplay-interval 5000
+ "Maximum number of characters which will be processed by the
+terminal-emulator before a screen redisplay is forced.
+Set this to a large value for greater throughput,
+set it smaller for more frequent updates but overall slower
+performance."
+ :type 'integer
+ :group 'terminal)
+
+(defvar terminal-more-break-insertion
+ "*** More break -- Press space to continue ***")
+
+(defvar terminal-meta-map nil)
+(if terminal-meta-map
+ nil
+ (let ((map (make-sparse-keymap)))
+ (define-key map [t] 'te-pass-through)
+ (setq terminal-meta-map map)))
+
+(defvar terminal-map nil)
+(if terminal-map
+ nil
+ (let ((map (make-sparse-keymap)))
+ ;; Prevent defining [menu-bar] as te-pass-through
+ ;; so we allow the global menu bar to be visible.
+ (define-key map [menu-bar] (make-sparse-keymap))
+ (define-key map [t] 'te-pass-through)
+ (define-key map [switch-frame] 'handle-switch-frame)
+ (define-key map "\e" terminal-meta-map)
+ ;;(define-key map "\C-l"
+ ;; (lambda () (interactive) (te-pass-through) (redraw-display)))
+ (setq terminal-map map)))
+
+(defvar terminal-escape-map nil)
+(if terminal-escape-map
+ nil
+ (let ((map (make-sparse-keymap)))
+ (define-key map [t] 'undefined)
+ (let ((s "0"))
+ (while (<= (aref s 0) ?9)
+ (define-key map s 'digit-argument)
+ (aset s 0 (1+ (aref s 0)))))
+ (define-key map "b" 'switch-to-buffer)
+ (define-key map "o" 'other-window)
+ (define-key map "e" 'te-set-escape-char)
+ (define-key map "\C-l" 'redraw-display)
+ (define-key map "\C-o" 'te-flush-pending-output)
+ (define-key map "m" 'te-toggle-more-processing)
+ (define-key map "x" 'te-escape-extended-command)
+ ;;>> What use is this? Why is it in the default terminal-emulator map?
+ (define-key map "w" 'te-edit)
+ (define-key map "?" 'te-escape-help)
+ (define-key map (char-to-string help-char) 'te-escape-help)
+ (setq terminal-escape-map map)))
+
+(defvar te-escape-command-alist nil)
+(if te-escape-command-alist
+ nil
+ (setq te-escape-command-alist
+ '(("Set Escape Character" . te-set-escape-char)
+ ;;>> What use is this? Why is it in the default terminal-emulator map?
+ ("Edit" . te-edit)
+ ("Refresh" . redraw-display)
+ ("Record Output" . te-set-output-log)
+ ("Photo" . te-set-output-log)
+ ("Tofu" . te-tofu) ;; confuse the uninitiated
+ ("Stuff Input" . te-stuff-string)
+ ("Flush Pending Output" . te-flush-pending-output)
+ ("Enable More Processing" . te-enable-more-processing)
+ ("Disable More Processing" . te-disable-more-processing)
+ ("Scroll at end of page" . te-do-scrolling)
+ ("Wrap at end of page" . te-do-wrapping)
+ ("Switch To Buffer" . switch-to-buffer)
+ ("Other Window" . other-window)
+ ("Kill Buffer" . kill-buffer)
+ ("Help" . te-escape-help)
+ ("Set Redisplay Interval" . te-set-redisplay-interval)
+ )))
+
+(defvar terminal-more-break-map nil)
+(if terminal-more-break-map
+ nil
+ (let ((map (make-sparse-keymap)))
+ (define-key map [t] 'te-more-break-unread)
+ (define-key map (char-to-string help-char) 'te-more-break-help)
+ (define-key map " " 'te-more-break-resume)
+ (define-key map "\C-l" 'redraw-display)
+ (define-key map "\C-o" 'te-more-break-flush-pending-output)
+ ;;>>> this isn't right
+ ;(define-key map "\^?" 'te-more-break-flush-pending-output) ;DEL
+ (define-key map "\r" 'te-more-break-advance-one-line)
+
+ (setq terminal-more-break-map map)))
+
+\f
+;;; Pacify the byte compiler
+(defvar te-process nil)
+(defvar te-log-buffer nil)
+(defvar te-height nil)
+(defvar te-width nil)
+(defvar te-more-count nil)
+(defvar te-redisplay-count nil)
+(defvar te-pending-output nil)
+(defvar te-saved-point)
+(defvar te-more-old-point nil)
+(defvar te-more-old-local-map nil)
+(defvar te-more-old-filter nil)
+(defvar te-more-old-mode-line-format nil)
+(defvar te-pending-output-info nil)
+
+;; Required to support terminfo systems
+(defconst te-terminal-name-prefix "emacs-em"
+ "Prefix used for terminal type names for Terminfo.")
+(defconst te-terminfo-directory
+ (file-name-as-directory
+ (expand-file-name "emacs-terminfo" temporary-file-directory))
+ "Directory used for run-time terminal definition files for Terminfo.")
+(defvar te-terminal-name nil)
+\f
+;;;; escape map
+
+(defun te-escape ()
+ (interactive)
+ (let (s
+ (local (current-local-map))
+ (global (current-global-map)))
+ (unwind-protect
+ (progn
+ (use-global-map terminal-escape-map)
+ (use-local-map terminal-escape-map)
+ (setq s (read-key-sequence
+ (if current-prefix-arg
+ (format "Emacs Terminal escape[%s for help]> %d "
+ (substitute-command-keys
+ "\\<terminal-escape-map>\\[te-escape-help]")
+ (prefix-numeric-value current-prefix-arg))
+ (format "Emacs Terminal escape[%s for help]> "
+ (substitute-command-keys
+ "\\<terminal-escape-map>\\[te-escape-help]"))))))
+ (use-global-map global)
+ (use-local-map local))
+
+ (message "")
+
+ (cond
+ ;; Certain keys give vector notation, like [escape] when
+ ;; you hit esc key...
+ ((and (stringp s)
+ (string= s (make-string 1 terminal-escape-char)))
+ (setq last-command-event terminal-escape-char)
+ (let ((terminal-escape-char -259))
+ (te-pass-through)))
+
+ ((setq s (lookup-key terminal-escape-map s))
+ (call-interactively s)))
+
+ ))
+
+
+(defun te-escape-help ()
+ "Provide help on commands available after terminal-escape-char is typed."
+ (interactive)
+ (message "Terminal emulator escape help...")
+ (let ((char (single-key-description terminal-escape-char)))
+ (with-electric-help
+ (function (lambda ()
+ (princ (format "Terminal-emulator escape, invoked by \"%s\"
+Type \"%s\" twice to send a single \"%s\" through.
+
+Other chars following \"%s\" are interpreted as follows:\n"
+ char char char char))
+
+ (princ (substitute-command-keys "\\{terminal-escape-map}\n"))
+ (princ (format "\nSubcommands of \"%s\" (%s)\n"
+ (where-is-internal 'te-escape-extended-command
+ terminal-escape-map t)
+ 'te-escape-extended-command))
+ (let ((l (sort (copy-sequence te-escape-command-alist)
+ (function (lambda (a b)
+ (string< (car a) (car b)))))))
+ (while l
+ (let ((doc (or (documentation (cdr (car l)))
+ "Not documented")))
+ (if (string-match "\n" doc)
+ ;; just use first line of documentation
+ (setq doc (substring doc 0 (match-beginning 0))))
+ (princ " \"")
+ (princ (car (car l)))
+ (princ "\":\n ")
+ (princ doc)
+ (write-char ?\n))
+ (setq l (cdr l))))
+ nil)))))
+
+
+
+(defun te-escape-extended-command ()
+ (interactive)
+ (let ((c (let ((completion-ignore-case t))
+ (completing-read "terminal command: "
+ te-escape-command-alist
+ nil t))))
+ (if c
+ (catch 'foo
+ (setq c (downcase c))
+ (let ((l te-escape-command-alist))
+ (while l
+ (if (string= c (downcase (car (car l))))
+ (throw 'foo (call-interactively (cdr (car l))))
+ (setq l (cdr l)))))))))
+
+;; not used.
+(defun te-escape-extended-command-unread ()
+ (interactive)
+ (setq unread-command-events (listify-key-sequence (this-command-keys)))
+ (te-escape-extended-command))
+
+(defun te-set-escape-char (c)
+ "Change the terminal-emulator escape character."
+ (interactive "cSet escape character to: ")
+ (let ((o terminal-escape-char))
+ (message (if (= o c)
+ "\"%s\" is the escape char"
+ "\"%s\" is now the escape; \"%s\" passes through")
+ (single-key-description c)
+ (single-key-description o))
+ (setq terminal-escape-char c)))
+
+
+(defun te-stuff-string (string)
+ "Read a string to send to through the terminal emulator
+as though that string had been typed on the keyboard.
+
+Very poor man's file transfer protocol."
+ (interactive "sStuff string: ")
+ (process-send-string te-process string))
+
+(defun te-set-output-log (name)
+ "Record output from the terminal emulator in a buffer."
+ (interactive (list (if te-log-buffer
+ nil
+ (read-buffer "Record output in buffer: "
+ (format "%s output-log"
+ (buffer-name (current-buffer)))
+ nil))))
+ (if (or (null name) (equal name ""))
+ (progn (setq te-log-buffer nil)
+ (message "Output logging off."))
+ (if (get-buffer name)
+ nil
+ (with-current-buffer (get-buffer-create name)
+ (fundamental-mode)
+ (buffer-disable-undo (current-buffer))
+ (erase-buffer)))
+ (setq te-log-buffer (get-buffer name))
+ (message "Recording terminal emulator output into buffer \"%s\""
+ (buffer-name te-log-buffer))))
+
+(defun te-tofu ()
+ "Discontinue output log."
+ (interactive)
+ (te-set-output-log nil))
+
+
+(defun te-toggle (sym arg)
+ (set sym (cond ((not (numberp arg)) arg)
+ ((= arg 1) (not (symbol-value sym)))
+ ((< arg 0) nil)
+ (t t))))
+
+(defun te-toggle-more-processing (arg)
+ (interactive "p")
+ (message (if (te-toggle 'terminal-more-processing arg)
+ "More processing on" "More processing off"))
+ (if terminal-more-processing (setq te-more-count -1)))
+
+(defun te-toggle-scrolling (arg)
+ (interactive "p")
+ (message (if (te-toggle 'terminal-scrolling arg)
+ "Scroll at end of page" "Wrap at end of page")))
+
+(defun te-enable-more-processing ()
+ "Enable ** MORE ** processing"
+ (interactive)
+ (te-toggle-more-processing t))
+
+(defun te-disable-more-processing ()
+ "Disable ** MORE ** processing"
+ (interactive)
+ (te-toggle-more-processing nil))
+
+(defun te-do-scrolling ()
+ "Scroll at end of page (yuck)"
+ (interactive)
+ (te-toggle-scrolling t))
+
+(defun te-do-wrapping ()
+ "Wrap to top of window at end of page"
+ (interactive)
+ (te-toggle-scrolling nil))
+
+
+(defun te-set-redisplay-interval (arg)
+ "Set the maximum interval (in output characters) between screen updates.
+Set this number to large value for greater throughput,
+set it smaller for more frequent updates (but overall slower performance."
+ (interactive "NMax number of output chars between redisplay updates: ")
+ (setq arg (max arg 1))
+ (setq terminal-redisplay-interval arg
+ te-redisplay-count 0))
+\f
+;;;; more map
+
+;; every command -must- call te-more-break-unwind
+;; or grave lossage will result
+
+(put 'te-more-break-unread 'suppress-keymap t)
+(defun te-more-break-unread ()
+ (interactive)
+ (if (eq last-input-event terminal-escape-char)
+ (call-interactively 'te-escape)
+ (message "Continuing from more break (\"%s\" typed, %d chars output pending...)"
+ (single-key-description last-input-event)
+ (te-pending-output-length))
+ (setq te-more-count 259259)
+ (te-more-break-unwind)
+ (let ((terminal-more-processing nil))
+ (te-pass-through))))
+
+(defun te-more-break-resume ()
+ "Proceed past the **MORE** break,
+allowing the next page of output to appear"
+ (interactive)
+ (message "Continuing from more break")
+ (te-more-break-unwind))
+
+(defun te-more-break-help ()
+ "Provide help on commands available in a terminal-emulator **MORE** break"
+ (interactive)
+ (message "Terminal-emulator more break help...")
+ (sit-for 0)
+ (with-electric-help
+ (function (lambda ()
+ (princ "Terminal-emulator more break.\n\n")
+ (princ (format "Type \"%s\" (te-more-break-resume)\n%s\n"
+ (where-is-internal 'te-more-break-resume
+ terminal-more-break-map t)
+ (documentation 'te-more-break-resume)))
+ (princ (substitute-command-keys "\\{terminal-more-break-map}\n"))
+ (princ "Any other key is passed through to the program
+running under the terminal emulator and disables more processing until
+all pending output has been dealt with.")
+ nil))))
+
+
+(defun te-more-break-advance-one-line ()
+ "Allow one more line of text to be output before doing another more break."
+ (interactive)
+ (setq te-more-count 1)
+ (te-more-break-unwind))
+
+(defun te-more-break-flush-pending-output ()
+ "Discard any output which has been received by the terminal emulator but
+not yet processed and then proceed from the more break."
+ (interactive)
+ (te-more-break-unwind)
+ (te-flush-pending-output))
+
+(defun te-flush-pending-output ()
+ "Discard any as-yet-unprocessed output which has been received by
+the terminal emulator."
+ (interactive)
+ ;; this could conceivably be confusing in the presence of
+ ;; escape-sequences spanning process-output chunks
+ (if (null (cdr te-pending-output))
+ (message "(There is no output pending)")
+ (let ((length (te-pending-output-length)))
+ (message "Flushing %d chars of pending output" length)
+ (setq te-pending-output
+ (list 0 (format "\n*** %d chars of pending output flushed ***\n"
+ length)))
+ (te-update-pending-output-display)
+ (te-process-output nil)
+ (sit-for 0))))
+
+\f
+(defun te-pass-through ()
+ "Character is passed to the program running under the terminal emulator.
+One characters is treated specially:
+the terminal escape character (normally C-^)
+lets you type a terminal emulator command."
+ (interactive)
+ (cond ((eq last-input-event terminal-escape-char)
+ (call-interactively 'te-escape))
+ (t
+ ;; Convert `return' to C-m, etc.
+ (if (and (symbolp last-input-event)
+ (get last-input-event 'ascii-character))
+ (setq last-input-event (get last-input-event 'ascii-character)))
+ ;; Convert meta characters to 8-bit form for transmission.
+ (if (and (integerp last-input-event)
+ (not (zerop (logand last-input-event ?\M-\^@))))
+ (setq last-input-event (+ 128 (logand last-input-event 127))))
+ ;; Now ignore all but actual characters.
+ ;; (It ought to be possible to send through function
+ ;; keys as character sequences if we add a description
+ ;; to our termcap entry of what they should look like.)
+ (if (integerp last-input-event)
+ (progn
+ (and terminal-more-processing (null (cdr te-pending-output))
+ (te-set-more-count nil))
+ (process-send-string te-process (make-string 1 last-input-event))
+ (te-process-output t))
+ (message "Function key `%s' ignored"
+ (single-key-description last-input-event))))))
+
+
+(defun te-set-window-start ()
+ (let* ((w (get-buffer-window (current-buffer)))
+ (h (if w (window-height w))))
+ (cond ((not w)) ; buffer not displayed
+ ((>= h (/ (- (point) (point-min)) (1+ te-width)))
+ ;; this is the normal case
+ (set-window-start w (point-min)))
+ ;; this happens if some vandal shrinks our window.
+ ((>= h (/ (- (point-max) (point)) (1+ te-width)))
+ (set-window-start w (- (point-max) (* h (1+ te-width)) -1)))
+ ;; I give up.
+ (t nil))))
+
+(defun te-pending-output-length ()
+ (let ((length (car te-pending-output))
+ (tem (cdr te-pending-output)))
+ (while tem
+ (setq length (+ length (length (car tem))) tem (cdr tem)))
+ length))
+\f
+;;>> What use is this terminal-edit stuff anyway?
+;;>> If nothing else, it was written by somebody who didn't
+;;>> competently understand the terminal-emulator...
+
+(defvar terminal-edit-map nil)
+(if terminal-edit-map
+ nil
+ (setq terminal-edit-map (make-sparse-keymap))
+ (define-key terminal-edit-map "\C-c\C-c" 'terminal-cease-edit))
+
+;; Terminal Edit mode is suitable only for specially formatted data.
+(put 'terminal-edit-mode 'mode-class 'special)
+
+(defun terminal-edit-mode ()
+ "Major mode for editing the contents of a terminal-emulator buffer.
+The editing commands are the same as in Fundamental mode,
+together with a command \\<terminal-edit-map>to return to terminal emulation: \\[terminal-cease-edit]."
+ (use-local-map terminal-edit-map)
+ (setq major-mode 'terminal-edit-mode)
+ (setq mode-name "Terminal Edit")
+ (setq mode-line-modified (default-value 'mode-line-modified))
+ (setq mode-line-process nil)
+ (run-mode-hooks 'terminal-edit-mode-hook))
+
+(defun te-edit ()
+ "Start editing the terminal emulator buffer with ordinary Emacs commands."
+ (interactive)
+ (terminal-edit-mode)
+ (force-mode-line-update)
+ ;; Make mode line update.
+ (if (eq (key-binding "\C-c\C-c") 'terminal-cease-edit)
+ (message "Editing: Type C-c C-c to return to Terminal")
+ (message "%s"
+ (substitute-command-keys
+ "Editing: Type \\[terminal-cease-edit] to return to Terminal"))))
+
+(defun terminal-cease-edit ()
+ "Finish editing message; switch back to Terminal proper."
+ (interactive)
+
+ ;;>> emulator will blow out if buffer isn't exactly te-width x te-height
+ (let ((buffer-read-only nil))
+ (widen)
+ (let ((opoint (point-marker))
+ (width te-width)
+ (h (1- te-height)))
+ (goto-char (point-min))
+ (while (>= h 0)
+ (let ((p (point)))
+ (cond ((search-forward "\n" (+ p width) 'move)
+ (forward-char -1)
+ (insert-char ?\s (- width (- (point) p)))
+ (forward-char 1))
+ ((eobp)
+ (insert-char ?\s (- width (- (point) p))))
+ ((= (following-char) ?\n)
+ (forward-char 1))
+ (t
+ (setq p (point))
+ (if (search-forward "\n" nil t)
+ (delete-region p (1- (point)))
+ (delete-region p (point-max))))))
+ (if (= h 0)
+ (if (not (eobp)) (delete-region (point) (point-max)))
+ (if (eobp) (insert ?\n)))
+ (setq h (1- h)))
+ (goto-char opoint)
+ (set-marker opoint nil nil)
+ (setq te-saved-point (point))
+ (setq te-redisplay-count 0)
+ (setq te-more-count -1)))
+
+ (setq mode-line-modified (default-value 'mode-line-modified))
+ (use-local-map terminal-map)
+ (setq major-mode 'terminal-mode)
+ (setq mode-name "terminal")
+ (setq mode-line-process '(":%s")))
+\f
+;;;; more break hair
+
+(defun te-more-break ()
+ (te-set-more-count t)
+ (make-local-variable 'te-more-old-point)
+ (setq te-more-old-point (point))
+ (make-local-variable 'te-more-old-local-map)
+ (setq te-more-old-local-map (current-local-map))
+ (use-local-map terminal-more-break-map)
+ (make-local-variable 'te-more-old-filter)
+ (setq te-more-old-filter (process-filter te-process))
+ (make-local-variable 'te-more-old-mode-line-format)
+ (setq te-more-old-mode-line-format mode-line-format
+ mode-line-format (list "-- **MORE** "
+ mode-line-buffer-identification
+ "%-"))
+ (set-process-filter te-process
+ (function (lambda (process string)
+ (with-current-buffer (process-buffer process)
+ (setq te-pending-output (nconc te-pending-output
+ (list string))))
+ (te-update-pending-output-display))))
+ (te-update-pending-output-display)
+ (if (eq (window-buffer (selected-window)) (current-buffer))
+ (message "More break "))
+ (or (eobp)
+ (null terminal-more-break-insertion)
+ (save-excursion
+ (forward-char 1)
+ (delete-region (point) (+ (point) te-width))
+ (insert terminal-more-break-insertion)))
+ (run-hooks 'terminal-more-break-hook)
+ (sit-for 0) ;get display to update
+ (throw 'te-process-output t))
+
+(defun te-more-break-unwind ()
+ (use-local-map te-more-old-local-map)
+ (set-process-filter te-process te-more-old-filter)
+ (goto-char te-more-old-point)
+ (setq mode-line-format te-more-old-mode-line-format)
+ (force-mode-line-update)
+ (let ((buffer-read-only nil))
+ (cond ((eobp))
+ (terminal-more-break-insertion
+ (forward-char 1)
+ (delete-region (point)
+ (+ (point) (length terminal-more-break-insertion)))
+ (insert-char ?\s te-width)
+ (goto-char te-more-old-point)))
+ (setq te-more-old-point nil)
+ (let ((te-more-count 259259))
+ (te-newline)))
+ ;(sit-for 0)
+ (te-process-output t))
+
+(defun te-set-more-count (newline)
+ (let ((line (/ (- (point) (point-min)) (1+ te-width))))
+ (if newline (setq line (1+ line)))
+ (cond ((= line te-height)
+ (setq te-more-count te-height))
+ ;>>>> something is strange. Investigate this!
+ ((= line (1- te-height))
+ (setq te-more-count te-height))
+ ((or (< line (/ te-height 2))
+ (> (- te-height line) 10))
+ ;; break at end of this page
+ (setq te-more-count (- te-height line)))
+ (t
+ ;; migrate back towards top (ie bottom) of screen.
+ (setq te-more-count (- te-height
+ (if (> te-height 10) 2 1)))))))
+
+\f
+;;;; More or less straight-forward terminal escapes
+
+;; ^j, meaning `newline' to non-display programs.
+;; (Who would think of ever writing a system which doesn't understand
+;; display terminals natively? Un*x: The Operating System of the Future.)
+(defun te-newline ()
+ "Move down a line, optionally do more processing, perhaps wrap/scroll,
+move to start of new line, clear to end of line."
+ (end-of-line)
+ (cond ((not terminal-more-processing))
+ ((< (setq te-more-count (1- te-more-count)) 0)
+ (te-set-more-count t))
+ ((eq te-more-count 0)
+ ;; this doesn't return
+ (te-more-break)))
+ (if (eobp)
+ (progn
+ (delete-region (point-min) (+ (point-min) te-width))
+ (goto-char (point-min))
+ (if terminal-scrolling
+ (progn (delete-char 1)
+ (goto-char (point-max))
+ (insert ?\n))))
+ (forward-char 1)
+ (delete-region (point) (+ (point) te-width)))
+ (insert-char ?\s te-width)
+ (beginning-of-line)
+ (te-set-window-start))
+
+; ^p = x+32 y+32
+(defun te-move-to-position ()
+ ;; must offset by #o40 since cretinous unix won't send a 004 char through
+ (let ((y (- (te-get-char) 32))
+ (x (- (te-get-char) 32)))
+ (if (or (> x te-width)
+ (> y te-height))
+ ()
+ (goto-char (+ (point-min) x (* y (1+ te-width))))
+ ;(te-set-window-start?)
+ ))
+ (setq te-more-count -1))
+
+
+
+;; ^p c
+(defun te-clear-rest-of-line ()
+ (save-excursion
+ (let ((n (- (point) (progn (end-of-line) (point)))))
+ (delete-region (point) (+ (point) n))
+ (insert-char ?\s (- n)))))
+
+
+;; ^p C
+(defun te-clear-rest-of-screen ()
+ (save-excursion
+ (te-clear-rest-of-line)
+ (while (progn (end-of-line) (not (eobp)))
+ (forward-char 1) (end-of-line)
+ (delete-region (- (point) te-width) (point))
+ (insert-char ?\s te-width))))
+
+
+;; ^p ^l
+(defun te-clear-screen ()
+ ;; regenerate buffer to compensate for (nonexistent!!) bugs.
+ (erase-buffer)
+ (let ((i 0))
+ (while (< i te-height)
+ (setq i (1+ i))
+ (insert-char ?\s te-width)
+ (insert ?\n)))
+ (delete-region (1- (point-max)) (point-max))
+ (goto-char (point-min))
+ (setq te-more-count -1))
+
+
+;; ^p ^o count+32
+(defun te-insert-lines ()
+ (if (not (bolp))
+ ();(error "fooI")
+ (save-excursion
+ (let* ((line (- te-height (/ (- (point) (point-min)) (1+ te-width)) -1))
+ (n (min (- (te-get-char) ?\s) line))
+ (i 0))
+ (delete-region (- (point-max) (* n (1+ te-width))) (point-max))
+ (if (eq (point) (point-max)) (insert ?\n))
+ (while (< i n)
+ (setq i (1+ i))
+ (insert-char ?\s te-width)
+ (or (eq i line) (insert ?\n))))))
+ (setq te-more-count -1))
+
+
+;; ^p ^k count+32
+(defun te-delete-lines ()
+ (if (not (bolp))
+ ();(error "fooD")
+ (let* ((line (- te-height (/ (- (point) (point-min)) (1+ te-width)) -1))
+ (n (min (- (te-get-char) ?\s) line))
+ (i 0))
+ (delete-region (point)
+ (min (+ (point) (* n (1+ te-width))) (point-max)))
+ (save-excursion
+ (goto-char (point-max))
+ (while (< i n)
+ (setq i (1+ i))
+ (insert-char ?\s te-width)
+ (or (eq i line) (insert ?\n))))))
+ (setq te-more-count -1))
+
+;; ^p ^a
+(defun te-beginning-of-line ()
+ (beginning-of-line))
+
+;; ^p ^b
+(defun te-backward-char ()
+ (if (not (bolp))
+ (backward-char 1)))
+
+;; ^p ^f
+(defun te-forward-char ()
+ (if (not (eolp))
+ (forward-char 1)))
+
+\f
+;; 0177
+(defun te-delete ()
+ (if (bolp)
+ ()
+ (delete-region (1- (point)) (point))
+ (insert ?\s)
+ (forward-char -1)))
+
+;; ^p ^g
+(defun te-beep ()
+ (beep))
+
+
+;; ^p _ count+32
+(defun te-insert-spaces ()
+ (let* ((p (point))
+ (n (min (- (te-get-char) 32)
+ (- (progn (end-of-line) (point)) p))))
+ (if (<= n 0)
+ nil
+ (delete-char (- n))
+ (goto-char p)
+ (insert-char ?\s n))
+ (goto-char p)))
+
+;; ^p d count+32 (should be ^p ^d but cretinous un*x won't send ^d chars!!!)
+(defun te-delete-char ()
+ (let* ((p (point))
+ (n (min (- (te-get-char) 32)
+ (- (progn (end-of-line) (point)) p))))
+ (if (<= n 0)
+ nil
+ (insert-char ?\s n)
+ (goto-char p)
+ (delete-char n))
+ (goto-char p)))
+
+
+\f
+;; disgusting unix-required excrement
+;; Are we living twenty years in the past yet?
+
+(defun te-losing-unix ()
+ nil)
+
+;; ^i
+(defun te-output-tab ()
+ (let* ((p (point))
+ (x (- p (progn (beginning-of-line) (point))))
+ (l (min (- 8 (logand x 7))
+ (progn (end-of-line) (- (point) p)))))
+ (goto-char (+ p l))))
+
+;; ^p ^j
+;; Handle the `do' or `nl' termcap capability.
+;;>> I am not sure why this broken, obsolete, capability is here.
+;;>> Perhaps it is for VIle. No comment was made about why it
+;;>> was added (in "Sun Dec 6 01:22:27 1987 Richard Stallman")
+(defun te-down-vertically-or-scroll ()
+ "Move down a line vertically, or scroll at bottom."
+ (let ((column (current-column)))
+ (end-of-line)
+ (if (eobp)
+ (progn
+ (delete-region (point-min) (+ (point-min) te-width))
+ (goto-char (point-min))
+ (delete-char 1)
+ (goto-char (point-max))
+ (insert ?\n)
+ (insert-char ?\s te-width)
+ (beginning-of-line))
+ (forward-line 1))
+ (move-to-column column))
+ (te-set-window-start))
+
+;; Also:
+;; ^m => beginning-of-line (for which it -should- be using ^p ^a, right?!!)
+;; ^g => te-beep (for which it should use ^p ^g)
+;; ^h => te-backward-char (for which it should use ^p ^b)
+
+\f
+
+(defun te-filter (process string)
+ (with-current-buffer (process-buffer process)
+ (goto-char te-saved-point)
+ (and (bufferp te-log-buffer)
+ (if (null (buffer-name te-log-buffer))
+ ;; killed
+ (setq te-log-buffer nil)
+ (set-buffer te-log-buffer)
+ (goto-char (point-max))
+ (insert-before-markers string)
+ (set-buffer (process-buffer process))))
+ (setq te-pending-output (nconc te-pending-output (list string)))
+ (te-update-pending-output-display)
+ (te-process-output (eq (current-buffer)
+ (window-buffer (selected-window))))
+ (set-buffer (process-buffer process))
+ (setq te-saved-point (point))))
+
+;; (A version of the following comment which might be distractingly offensive
+;; to some readers has been moved to term-nasty.el.)
+;; unix lacks ITS-style tty control...
+(defun te-process-output (preemptible)
+ ;;>> There seems no good reason to ever disallow preemption
+ (setq preemptible t)
+ (catch 'te-process-output
+ (let ((buffer-read-only nil)
+ (string nil) ostring start char (matchpos nil))
+ (while (cdr te-pending-output)
+ (setq ostring string
+ start (car te-pending-output)
+ string (car (cdr te-pending-output))
+ char (aref string start))
+ (if (eq (setq start (1+ start)) (length string))
+ (progn (setq te-pending-output
+ (cons 0 (cdr (cdr te-pending-output)))
+ start 0
+ string (car (cdr te-pending-output)))
+ (te-update-pending-output-display))
+ (setcar te-pending-output start))
+ (if (and (> char ?\037) (< char ?\377))
+ (cond ((eolp)
+ ;; unread char
+ (if (eq start 0)
+ (setq te-pending-output
+ (cons 0 (cons (make-string 1 char)
+ (cdr te-pending-output))))
+ (setcar te-pending-output (1- start)))
+ (te-newline))
+ ((null string)
+ (delete-char 1) (insert char)
+ (te-redisplay-if-necessary 1))
+ (t
+ (let ((end (or (and (eq ostring string) matchpos)
+ (setq matchpos (string-match
+ "[\000-\037\177-\377]"
+ string start))
+ (length string))))
+ (delete-char 1) (insert char)
+ (setq char (point)) (end-of-line)
+ (setq end (min end (+ start (- (point) char))))
+ (goto-char char)
+ (if (eq end matchpos) (setq matchpos nil))
+ (delete-region (point) (+ (point) (- end start)))
+ (insert (if (and (eq start 0)
+ (eq end (length string)))
+ string
+ (substring string start end)))
+ (if (eq end (length string))
+ (setq te-pending-output
+ (cons 0 (cdr (cdr te-pending-output))))
+ (setcar te-pending-output end))
+ (te-redisplay-if-necessary (1+ (- end start))))))
+ ;; I suppose if I split the guts of this out into a separate
+ ;; function we could trivially emulate different terminals
+ ;; Who cares in any case? (Apart from stupid losers using rlogin)
+ (funcall
+ (if (eq char ?\^p)
+ (or (cdr (assq (te-get-char)
+ '((?= . te-move-to-position)
+ (?c . te-clear-rest-of-line)
+ (?C . te-clear-rest-of-screen)
+ (?\C-o . te-insert-lines)
+ (?\C-k . te-delete-lines)
+ ;; not necessary, but help sometimes.
+ (?\C-a . te-beginning-of-line)
+ (?\C-b . te-backward-char)
+ ;; should be C-d, but un*x
+ ;; pty's won't send \004 through!
+ ;; Can you believe this?
+ (?d . te-delete-char)
+ (?_ . te-insert-spaces)
+ ;; random
+ (?\C-f . te-forward-char)
+ (?\C-g . te-beep)
+ (?\C-j . te-down-vertically-or-scroll)
+ (?\C-l . te-clear-screen)
+ )))
+ 'te-losing-unix)
+ (or (cdr (assq char
+ '((?\C-j . te-newline)
+ (?\177 . te-delete)
+ ;; Did I ask to be sent these characters?
+ ;; I don't remember doing so, either.
+ ;; (Perhaps some operating system or
+ ;; other is completely incompetent...)
+ (?\C-m . te-beginning-of-line)
+ (?\C-g . te-beep)
+ (?\C-h . te-backward-char)
+ (?\C-i . te-output-tab))))
+ 'te-losing-unix)))
+ (te-redisplay-if-necessary 1))
+ (and preemptible
+ (input-pending-p)
+ ;; preemptible output! Oh my!!
+ (throw 'te-process-output t)))))
+ ;; We must update window-point in every window displaying our buffer
+ (walk-windows (lambda (w)
+ (when (and (not (eq w (selected-window)))
+ (eq (window-buffer w) (current-buffer)))
+ (set-window-point w (point))))))
+
+(defun te-get-char ()
+ (if (cdr te-pending-output)
+ (let ((start (car te-pending-output))
+ (string (car (cdr te-pending-output))))
+ (prog1 (aref string start)
+ (if (eq (setq start (1+ start)) (length string))
+ (setq te-pending-output (cons 0 (cdr (cdr te-pending-output))))
+ (setcar te-pending-output start))))
+ (catch 'char
+ (let ((filter (process-filter te-process)))
+ (unwind-protect
+ (progn
+ (set-process-filter te-process
+ (function (lambda (_p s)
+ (or (eq (length s) 1)
+ (setq te-pending-output (list 1 s)))
+ (throw 'char (aref s 0)))))
+ (accept-process-output te-process))
+ (set-process-filter te-process filter))))))
+
+
+(defun te-redisplay-if-necessary (length)
+ (and (<= (setq te-redisplay-count (- te-redisplay-count length)) 0)
+ (eq (current-buffer) (window-buffer (selected-window)))
+ (waiting-for-user-input-p)
+ (progn (te-update-pending-output-display)
+ (sit-for 0)
+ (setq te-redisplay-count terminal-redisplay-interval))))
+
+(defun te-update-pending-output-display ()
+ (if (null (cdr te-pending-output))
+ (setq te-pending-output-info "")
+ (let ((length (te-pending-output-length)))
+ (if (< length 1500)
+ (setq te-pending-output-info "")
+ (setq te-pending-output-info (format "(%dK chars output pending) "
+ (/ (+ length 512) 1024))))))
+ (force-mode-line-update))
+
+\f
+(defun te-sentinel (process message)
+ (cond ((eq (process-status process) 'run))
+ ((null (buffer-name (process-buffer process)))) ;deleted
+ (t (let ((b (current-buffer)))
+ (with-current-buffer (process-buffer process)
+ (setq buffer-read-only nil)
+ (fundamental-mode)
+ (goto-char (point-max))
+ (delete-blank-lines)
+ (delete-horizontal-space)
+ (insert "\n*******\n" message "*******\n"))
+ (if (and (eq b (process-buffer process))
+ (waiting-for-user-input-p))
+ (progn (goto-char (point-max))
+ (recenter -1)))))))
+\f
+(defvar te-stty-string "stty -nl erase '^?' kill '^u' intr '^c' echo pass8"
+ "Shell command to set terminal modes for terminal emulator.")
+;; This used to have `new' in it, but that loses outside BSD
+;; and it's apparently not needed in BSD.
+
+(defcustom explicit-shell-file-name nil
+ "If non-nil, is file name to use for explicitly requested inferior shell."
+ :type '(choice (const :tag "None" nil)
+ file)
+ :group 'terminal)
+
+;;;###autoload
+(defun terminal-emulator (buffer program args &optional width height)
+ "Under a display-terminal emulator in BUFFER, run PROGRAM on arguments ARGS.
+ARGS is a list of argument-strings. Remaining arguments are WIDTH and HEIGHT.
+BUFFER's contents are made an image of the display generated by that program,
+and any input typed when BUFFER is the current Emacs buffer is sent to that
+program as keyboard input.
+
+Interactively, BUFFER defaults to \"*terminal*\" and PROGRAM and ARGS
+are parsed from an input-string using your usual shell.
+WIDTH and HEIGHT are determined from the size of the current window
+-- WIDTH will be one less than the window's width, HEIGHT will be its height.
+
+To switch buffers and leave the emulator, or to give commands
+to the emulator itself (as opposed to the program running under it),
+type Control-^. The following character is an emulator command.
+Type Control-^ twice to send it to the subprogram.
+This escape character may be changed using the variable `terminal-escape-char'.
+
+`Meta' characters may not currently be sent through the terminal emulator.
+
+Here is a list of some of the variables which control the behavior
+of the emulator -- see their documentation for more information:
+terminal-escape-char, terminal-scrolling, terminal-more-processing,
+terminal-redisplay-interval.
+
+This function calls the value of terminal-mode-hook if that exists
+and is non-nil after the terminal buffer has been set up and the
+subprocess started."
+ (interactive
+ (cons (with-current-buffer (get-buffer-create "*terminal*")
+ (buffer-name (if (or (not (boundp 'te-process))
+ (null te-process)
+ (not (eq (process-status te-process)
+ 'run)))
+ (current-buffer)
+ (generate-new-buffer "*terminal*"))))
+ (append
+ (let* ((default-s
+ ;; Default shell is same thing M-x shell uses.
+ (or explicit-shell-file-name
+ (getenv "ESHELL")
+ (getenv "SHELL")
+ "/bin/sh"))
+ (s (read-string
+ (format "Run program in emulator (default %s): "
+ default-s))))
+ (if (equal s "")
+ (list default-s '())
+ (te-parse-program-and-args s))))))
+ (switch-to-buffer buffer)
+ (if (null width) (setq width (- (window-width (selected-window)) 1)))
+ (if (null height) (setq height (- (window-height (selected-window)) 1)))
+ (terminal-mode)
+ (setq te-width width te-height height)
+ (setq te-terminal-name (concat te-terminal-name-prefix
+ (number-to-string te-width)
+ (number-to-string te-height)))
+ (setq mode-line-buffer-identification
+ (list (format "Emacs terminal %dx%d: %%b " te-width te-height)
+ 'te-pending-output-info))
+ (let ((buffer-read-only nil))
+ (te-clear-screen))
+ (let (process)
+ (while (setq process (get-buffer-process (current-buffer)))
+ (if (y-or-n-p (format "Kill process %s? " (process-name process)))
+ (delete-process process)
+ (error "Process %s not killed" (process-name process)))))
+ (condition-case err
+ (let ((process-environment
+ (cons (concat "TERM=" te-terminal-name)
+ (cons (concat "TERMCAP=" (te-create-termcap))
+ (cons (concat "TERMINFO=" (te-create-terminfo))
+ process-environment)))))
+ (setq te-process
+ (start-process "terminal-emulator" (current-buffer)
+ "/bin/sh" "-c"
+ ;; Yuck!!! Start a shell to set some terminal
+ ;; control characteristics. Then start the
+ ;; "env" program to setup the terminal type
+ ;; Then finally start the program we wanted.
+ (format "%s; exec %s"
+ te-stty-string
+ (mapconcat 'te-quote-arg-for-sh
+ (cons program args) " "))))
+ (set-process-filter te-process 'te-filter)
+ (set-process-sentinel te-process 'te-sentinel))
+ (error (fundamental-mode)
+ (signal (car err) (cdr err))))
+ (setq inhibit-quit t) ;sport death
+ (use-local-map terminal-map)
+ (run-hooks 'terminal-mode-hook)
+ (message "Entering Emacs terminal-emulator... Type %s %s for help"
+ (single-key-description terminal-escape-char)
+ (mapconcat 'single-key-description
+ (where-is-internal 'te-escape-help terminal-escape-map t)
+ " ")))
+
+
+(defun te-parse-program-and-args (s)
+ (cond ((string-match "\\`\\([-a-zA-Z0-9+=_.@/:]+[ \t]*\\)+\\'" s)
+ (let ((l ()) (p 0))
+ (while p
+ (setq l (cons (if (string-match
+ "\\([-a-zA-Z0-9+=_.@/:]+\\)\\([ \t]+\\)*"
+ s p)
+ (prog1 (substring s p (match-end 1))
+ (setq p (match-end 0))
+ (if (eq p (length s)) (setq p nil)))
+ (prog1 (substring s p)
+ (setq p nil)))
+ l)))
+ (setq l (nreverse l))
+ (list (car l) (cdr l))))
+ ((and (string-match "[ \t]" s) (not (file-exists-p s)))
+ (list shell-file-name (list "-c" (concat "exec " s))))
+ (t (list s ()))))
+
+(put 'terminal-mode 'mode-class 'special)
+;; This is only separated out from function terminal-emulator
+;; to keep the latter a little more manageable.
+(defun terminal-mode ()
+ "Set up variables for use with the terminal-emulator.
+One should not call this -- it is an internal function
+of the terminal-emulator"
+ (kill-all-local-variables)
+ (buffer-disable-undo (current-buffer))
+ (setq major-mode 'terminal-mode)
+ (setq mode-name "terminal")
+; (make-local-variable 'Helper-return-blurb)
+; (setq Helper-return-blurb "return to terminal simulator")
+ (setq mode-line-process '(":%s"))
+ (setq buffer-read-only t)
+ (setq truncate-lines t)
+ (make-local-variable 'terminal-escape-char)
+ (setq terminal-escape-char (default-value 'terminal-escape-char))
+ (make-local-variable 'terminal-scrolling)
+ (setq terminal-scrolling (default-value 'terminal-scrolling))
+ (make-local-variable 'terminal-more-processing)
+ (setq terminal-more-processing (default-value 'terminal-more-processing))
+ (make-local-variable 'terminal-redisplay-interval)
+ (setq terminal-redisplay-interval (default-value 'terminal-redisplay-interval))
+ (make-local-variable 'te-width)
+ (make-local-variable 'te-height)
+ (make-local-variable 'te-process)
+ (make-local-variable 'te-pending-output)
+ (setq te-pending-output (list 0))
+ (make-local-variable 'te-saved-point)
+ (setq te-saved-point (point-min))
+ (make-local-variable 'te-pending-output-info) ;for the mode line
+ (setq te-pending-output-info "")
+ (make-local-variable 'inhibit-quit)
+ ;(setq inhibit-quit t)
+ (make-local-variable 'te-log-buffer)
+ (setq te-log-buffer nil)
+ (make-local-variable 'te-more-count)
+ (setq te-more-count -1)
+ (make-local-variable 'te-redisplay-count)
+ (setq te-redisplay-count terminal-redisplay-interval)
+ ;(use-local-map terminal-mode-map)
+ ;; terminal-mode-hook is called above in function terminal-emulator
+ )
+\f
+;;;; what a complete loss
+
+(defun te-quote-arg-for-sh (string)
+ (cond ((string-match "\\`[-a-zA-Z0-9+=_.@/:]+\\'"
+ string)
+ string)
+ ((not (string-match "[$]" string))
+ ;; "[\"\\]" are special to sh and the lisp reader in the same way
+ (prin1-to-string string))
+ (t
+ (let ((harder "")
+ (start 0)
+ (end 0))
+ (while (cond ((>= start (length string))
+ nil)
+ ;; this is the set of chars magic with "..." in `sh'
+ ((setq end (string-match "[\"\\$]"
+ string start))
+ t)
+ (t (setq harder (concat harder
+ (substring string start)))
+ nil))
+ (setq harder (concat harder (substring string start end)
+ ;; Can't use ?\\ since `concat'
+ ;; unfortunately does prin1-to-string
+ ;; on fixna. Amazing.
+ "\\"
+ (substring string
+ end
+ (1+ end)))
+ start (1+ end)))
+ (concat "\"" harder "\"")))))
+
+(defun te-create-terminfo ()
+ "Create and compile a terminfo entry for the virtual terminal. This is kept
+in the directory specified by `te-terminfo-directory'."
+ (when (and system-uses-terminfo
+ (not (file-exists-p (concat te-terminfo-directory
+ (substring te-terminal-name-prefix 0 1)
+ "/" te-terminal-name))))
+ (let ( (terminfo
+ (concat
+ ;; The first newline avoids trouble with ncurses.
+ (format "%s,\n\tmir, xon,cols#%d, lines#%d,"
+ te-terminal-name te-width te-height)
+ "bel=^P^G, clear=^P\\f, cr=^P^A, cub1=^P^B, cud1=^P\\n,"
+ "cuf1=^P^F, cup=^P=%p1%'\\s'%+%c%p2%'\\s'%+%c,"
+ "dch=^Pd%p1%'\\s'%+%c, dch1=^Pd!, dl=^P^K%p1%'\\s'%+%c,"
+ "dl1=^P^K!, ed=^PC, el=^Pc, home=^P=\\s\\s,"
+ "ich=^P_%p1%'\\s'%+%c, ich1=^P_!, il=^P^O%p1%'\\s'%+%c,"
+ ;; The last newline avoids trouble with ncurses.
+ "il1=^P^O!, ind=^P\\n, nel=\\n,\n"))
+ ;; This is the desired name for the source file.
+ (file-name (concat te-terminfo-directory te-terminal-name ".tif")) )
+ (make-directory te-terminfo-directory t)
+ (let ((temp-file
+ (make-temp-file (expand-file-name "tif" te-terminfo-directory))))
+ ;; Store the source file under a random temp name.
+ (with-temp-file temp-file
+ (insert terminfo))
+ ;; Rename it to the desired name.
+ ;; We use this roundabout approach
+ ;; to avoid any risk of writing a name that
+ ;; was mischievously set up as a symlink.
+ (rename-file temp-file file-name))
+ ;; Now compile that source to make the binary that the
+ ;; programs actually use.
+ (let ((process-environment
+ (cons (concat "TERMINFO="
+ (directory-file-name te-terminfo-directory))
+ process-environment)))
+ (set-process-sentinel (start-process "tic" nil "tic" file-name)
+ 'te-tic-sentinel))))
+ (directory-file-name te-terminfo-directory))
+
+(defun te-create-termcap ()
+ "Create a termcap entry for the virtual terminal"
+ ;; Because of Unix Brain Death(tm), we can't change
+ ;; the terminal type of a running process, and so
+ ;; terminal size and scrollability are wired-down
+ ;; at this point. ("Detach? What's that?")
+ (concat (format "%s:co#%d:li#%d:%s"
+ ;; Sigh. These can't be dynamically changed.
+ te-terminal-name te-width te-height (if terminal-scrolling
+ "" "ns:"))
+ ;;-- Basic things
+ ;; cursor-motion, bol, forward/backward char
+ "cm=^p=%+ %+ :cr=^p^a:le=^p^b:nd=^p^f:"
+ ;; newline, clear eof/eof, audible bell
+ "nw=^j:ce=^pc:cd=^pC:cl=^p^l:bl=^p^g:"
+ ;; insert/delete char/line
+ "IC=^p_%+ :DC=^pd%+ :AL=^p^o%+ :DL=^p^k%+ :"
+ ;;-- Not-widely-known (ie nonstandard) flags, which mean
+ ;; o writing in the last column of the last line
+ ;; doesn't cause idiotic scrolling, and
+ ;; o don't use idiotische c-s/c-q sogenannte
+ ;; ``flow control'' auf keinen Fall.
+ "LP:NF:"
+ ;;-- For stupid or obsolete programs
+ "ic=^p_!:dc=^pd!:al=^p^o!:dl=^p^k!:ho=^p= :"
+ ;;-- For disgusting programs.
+ ;; (VI? What losers need these, I wonder?)
+ "im=:ei=:dm=:ed=:mi:do=^p^j:nl=^p^j:bs:")
+)
+
+(defun te-tic-sentinel (_proc state-change)
+ "If tic has finished, delete the .tif file"
+ (if (equal state-change "finished
+")
+ (delete-file (concat te-terminfo-directory te-terminal-name ".tif"))))
+
+(provide 'terminal)
+
+;;; terminal.el ends here
+++ /dev/null
-;;; terminal.el --- terminal emulator for GNU Emacs
-
-;; Copyright (C) 1986-1989, 1993-1994, 2001-2012
-;; Free Software Foundation, Inc.
-
-;; Author: Richard Mlynarik <mly@eddie.mit.edu>
-;; Maintainer: FSF
-;; Keywords: comm, terminals
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;;; This file has been censored by the Communications Decency Act.
-;;; That law was passed under the guise of a ban on pornography, but
-;;; it bans far more than that. This file did not contain pornography,
-;;; but it was censored nonetheless.
-
-;;; For information on US government censorship of the Internet, and
-;;; what you can do to bring back freedom of the press, see the web
-;;; site http://www.vtw.org/
-
-;;; Code:
-
-;;>>TODO
-;;>> ** Nothing can be done about emacs' meta-lossage **
-;;>> (without redoing keymaps `sanely' -- ask Mly for details)
-
-;;>> One probably wants to do setenv MORE -c when running with
-;;>> more-processing enabled.
-
-(require 'ehelp)
-
-(defgroup terminal nil
- "Terminal emulator for Emacs."
- :group 'terminals)
-
-
-(defcustom terminal-escape-char ?\C-^
- "All characters except for this are passed verbatim through the
-terminal-emulator. This character acts as a prefix for commands
-to the emulator program itself. Type this character twice to send
-it through the emulator. Type ? after typing it for a list of
-possible commands.
-This variable is local to each terminal-emulator buffer."
- :type 'character
- :group 'terminal)
-
-(defcustom terminal-scrolling t ;;>> Setting this to t sort-of defeats my whole aim in writing this package...
- "If non-nil, the terminal-emulator will losingly `scroll' when output occurs
-past the bottom of the screen. If nil, output will win and `wrap' to the top
-of the screen.
-This variable is local to each terminal-emulator buffer."
- :type 'boolean
- :group 'terminal)
-
-(defcustom terminal-more-processing t
- "If non-nil, do more-processing.
-This variable is local to each terminal-emulator buffer."
- :type 'boolean
- :group 'terminal)
-
-;; If you are the sort of loser who uses scrolling without more breaks
-;; and expects to actually see anything, you should probably set this to
-;; around 400
-(defcustom terminal-redisplay-interval 5000
- "Maximum number of characters which will be processed by the
-terminal-emulator before a screen redisplay is forced.
-Set this to a large value for greater throughput,
-set it smaller for more frequent updates but overall slower
-performance."
- :type 'integer
- :group 'terminal)
-
-(defvar terminal-more-break-insertion
- "*** More break -- Press space to continue ***")
-
-(defvar terminal-meta-map nil)
-(if terminal-meta-map
- nil
- (let ((map (make-sparse-keymap)))
- (define-key map [t] 'te-pass-through)
- (setq terminal-meta-map map)))
-
-(defvar terminal-map nil)
-(if terminal-map
- nil
- (let ((map (make-sparse-keymap)))
- ;; Prevent defining [menu-bar] as te-pass-through
- ;; so we allow the global menu bar to be visible.
- (define-key map [menu-bar] (make-sparse-keymap))
- (define-key map [t] 'te-pass-through)
- (define-key map [switch-frame] 'handle-switch-frame)
- (define-key map "\e" terminal-meta-map)
- ;;(define-key map "\C-l"
- ;; (lambda () (interactive) (te-pass-through) (redraw-display)))
- (setq terminal-map map)))
-
-(defvar terminal-escape-map nil)
-(if terminal-escape-map
- nil
- (let ((map (make-sparse-keymap)))
- (define-key map [t] 'undefined)
- (let ((s "0"))
- (while (<= (aref s 0) ?9)
- (define-key map s 'digit-argument)
- (aset s 0 (1+ (aref s 0)))))
- (define-key map "b" 'switch-to-buffer)
- (define-key map "o" 'other-window)
- (define-key map "e" 'te-set-escape-char)
- (define-key map "\C-l" 'redraw-display)
- (define-key map "\C-o" 'te-flush-pending-output)
- (define-key map "m" 'te-toggle-more-processing)
- (define-key map "x" 'te-escape-extended-command)
- ;;>> What use is this? Why is it in the default terminal-emulator map?
- (define-key map "w" 'te-edit)
- (define-key map "?" 'te-escape-help)
- (define-key map (char-to-string help-char) 'te-escape-help)
- (setq terminal-escape-map map)))
-
-(defvar te-escape-command-alist nil)
-(if te-escape-command-alist
- nil
- (setq te-escape-command-alist
- '(("Set Escape Character" . te-set-escape-char)
- ;;>> What use is this? Why is it in the default terminal-emulator map?
- ("Edit" . te-edit)
- ("Refresh" . redraw-display)
- ("Record Output" . te-set-output-log)
- ("Photo" . te-set-output-log)
- ("Tofu" . te-tofu) ;; confuse the uninitiated
- ("Stuff Input" . te-stuff-string)
- ("Flush Pending Output" . te-flush-pending-output)
- ("Enable More Processing" . te-enable-more-processing)
- ("Disable More Processing" . te-disable-more-processing)
- ("Scroll at end of page" . te-do-scrolling)
- ("Wrap at end of page" . te-do-wrapping)
- ("Switch To Buffer" . switch-to-buffer)
- ("Other Window" . other-window)
- ("Kill Buffer" . kill-buffer)
- ("Help" . te-escape-help)
- ("Set Redisplay Interval" . te-set-redisplay-interval)
- )))
-
-(defvar terminal-more-break-map nil)
-(if terminal-more-break-map
- nil
- (let ((map (make-sparse-keymap)))
- (define-key map [t] 'te-more-break-unread)
- (define-key map (char-to-string help-char) 'te-more-break-help)
- (define-key map " " 'te-more-break-resume)
- (define-key map "\C-l" 'redraw-display)
- (define-key map "\C-o" 'te-more-break-flush-pending-output)
- ;;>>> this isn't right
- ;(define-key map "\^?" 'te-more-break-flush-pending-output) ;DEL
- (define-key map "\r" 'te-more-break-advance-one-line)
-
- (setq terminal-more-break-map map)))
-
-\f
-;;; Pacify the byte compiler
-(defvar te-process nil)
-(defvar te-log-buffer nil)
-(defvar te-height nil)
-(defvar te-width nil)
-(defvar te-more-count nil)
-(defvar te-redisplay-count nil)
-(defvar te-pending-output nil)
-(defvar te-saved-point)
-(defvar te-more-old-point nil)
-(defvar te-more-old-local-map nil)
-(defvar te-more-old-filter nil)
-(defvar te-more-old-mode-line-format nil)
-(defvar te-pending-output-info nil)
-
-;; Required to support terminfo systems
-(defconst te-terminal-name-prefix "emacs-em"
- "Prefix used for terminal type names for Terminfo.")
-(defconst te-terminfo-directory
- (file-name-as-directory
- (expand-file-name "emacs-terminfo" temporary-file-directory))
- "Directory used for run-time terminal definition files for Terminfo.")
-(defvar te-terminal-name nil)
-\f
-;;;; escape map
-
-(defun te-escape ()
- (interactive)
- (let (s
- (local (current-local-map))
- (global (current-global-map)))
- (unwind-protect
- (progn
- (use-global-map terminal-escape-map)
- (use-local-map terminal-escape-map)
- (setq s (read-key-sequence
- (if current-prefix-arg
- (format "Emacs Terminal escape[%s for help]> %d "
- (substitute-command-keys
- "\\<terminal-escape-map>\\[te-escape-help]")
- (prefix-numeric-value current-prefix-arg))
- (format "Emacs Terminal escape[%s for help]> "
- (substitute-command-keys
- "\\<terminal-escape-map>\\[te-escape-help]"))))))
- (use-global-map global)
- (use-local-map local))
-
- (message "")
-
- (cond
- ;; Certain keys give vector notation, like [escape] when
- ;; you hit esc key...
- ((and (stringp s)
- (string= s (make-string 1 terminal-escape-char)))
- (setq last-command-event terminal-escape-char)
- (let ((terminal-escape-char -259))
- (te-pass-through)))
-
- ((setq s (lookup-key terminal-escape-map s))
- (call-interactively s)))
-
- ))
-
-
-(defun te-escape-help ()
- "Provide help on commands available after terminal-escape-char is typed."
- (interactive)
- (message "Terminal emulator escape help...")
- (let ((char (single-key-description terminal-escape-char)))
- (with-electric-help
- (function (lambda ()
- (princ (format "Terminal-emulator escape, invoked by \"%s\"
-Type \"%s\" twice to send a single \"%s\" through.
-
-Other chars following \"%s\" are interpreted as follows:\n"
- char char char char))
-
- (princ (substitute-command-keys "\\{terminal-escape-map}\n"))
- (princ (format "\nSubcommands of \"%s\" (%s)\n"
- (where-is-internal 'te-escape-extended-command
- terminal-escape-map t)
- 'te-escape-extended-command))
- (let ((l (sort (copy-sequence te-escape-command-alist)
- (function (lambda (a b)
- (string< (car a) (car b)))))))
- (while l
- (let ((doc (or (documentation (cdr (car l)))
- "Not documented")))
- (if (string-match "\n" doc)
- ;; just use first line of documentation
- (setq doc (substring doc 0 (match-beginning 0))))
- (princ " \"")
- (princ (car (car l)))
- (princ "\":\n ")
- (princ doc)
- (write-char ?\n))
- (setq l (cdr l))))
- nil)))))
-
-
-
-(defun te-escape-extended-command ()
- (interactive)
- (let ((c (let ((completion-ignore-case t))
- (completing-read "terminal command: "
- te-escape-command-alist
- nil t))))
- (if c
- (catch 'foo
- (setq c (downcase c))
- (let ((l te-escape-command-alist))
- (while l
- (if (string= c (downcase (car (car l))))
- (throw 'foo (call-interactively (cdr (car l))))
- (setq l (cdr l)))))))))
-
-;; not used.
-(defun te-escape-extended-command-unread ()
- (interactive)
- (setq unread-command-events (listify-key-sequence (this-command-keys)))
- (te-escape-extended-command))
-
-(defun te-set-escape-char (c)
- "Change the terminal-emulator escape character."
- (interactive "cSet escape character to: ")
- (let ((o terminal-escape-char))
- (message (if (= o c)
- "\"%s\" is the escape char"
- "\"%s\" is now the escape; \"%s\" passes through")
- (single-key-description c)
- (single-key-description o))
- (setq terminal-escape-char c)))
-
-
-(defun te-stuff-string (string)
- "Read a string to send to through the terminal emulator
-as though that string had been typed on the keyboard.
-
-Very poor man's file transfer protocol."
- (interactive "sStuff string: ")
- (process-send-string te-process string))
-
-(defun te-set-output-log (name)
- "Record output from the terminal emulator in a buffer."
- (interactive (list (if te-log-buffer
- nil
- (read-buffer "Record output in buffer: "
- (format "%s output-log"
- (buffer-name (current-buffer)))
- nil))))
- (if (or (null name) (equal name ""))
- (progn (setq te-log-buffer nil)
- (message "Output logging off."))
- (if (get-buffer name)
- nil
- (with-current-buffer (get-buffer-create name)
- (fundamental-mode)
- (buffer-disable-undo (current-buffer))
- (erase-buffer)))
- (setq te-log-buffer (get-buffer name))
- (message "Recording terminal emulator output into buffer \"%s\""
- (buffer-name te-log-buffer))))
-
-(defun te-tofu ()
- "Discontinue output log."
- (interactive)
- (te-set-output-log nil))
-
-
-(defun te-toggle (sym arg)
- (set sym (cond ((not (numberp arg)) arg)
- ((= arg 1) (not (symbol-value sym)))
- ((< arg 0) nil)
- (t t))))
-
-(defun te-toggle-more-processing (arg)
- (interactive "p")
- (message (if (te-toggle 'terminal-more-processing arg)
- "More processing on" "More processing off"))
- (if terminal-more-processing (setq te-more-count -1)))
-
-(defun te-toggle-scrolling (arg)
- (interactive "p")
- (message (if (te-toggle 'terminal-scrolling arg)
- "Scroll at end of page" "Wrap at end of page")))
-
-(defun te-enable-more-processing ()
- "Enable ** MORE ** processing"
- (interactive)
- (te-toggle-more-processing t))
-
-(defun te-disable-more-processing ()
- "Disable ** MORE ** processing"
- (interactive)
- (te-toggle-more-processing nil))
-
-(defun te-do-scrolling ()
- "Scroll at end of page (yuck)"
- (interactive)
- (te-toggle-scrolling t))
-
-(defun te-do-wrapping ()
- "Wrap to top of window at end of page"
- (interactive)
- (te-toggle-scrolling nil))
-
-
-(defun te-set-redisplay-interval (arg)
- "Set the maximum interval (in output characters) between screen updates.
-Set this number to large value for greater throughput,
-set it smaller for more frequent updates (but overall slower performance."
- (interactive "NMax number of output chars between redisplay updates: ")
- (setq arg (max arg 1))
- (setq terminal-redisplay-interval arg
- te-redisplay-count 0))
-\f
-;;;; more map
-
-;; every command -must- call te-more-break-unwind
-;; or grave lossage will result
-
-(put 'te-more-break-unread 'suppress-keymap t)
-(defun te-more-break-unread ()
- (interactive)
- (if (eq last-input-event terminal-escape-char)
- (call-interactively 'te-escape)
- (message "Continuing from more break (\"%s\" typed, %d chars output pending...)"
- (single-key-description last-input-event)
- (te-pending-output-length))
- (setq te-more-count 259259)
- (te-more-break-unwind)
- (let ((terminal-more-processing nil))
- (te-pass-through))))
-
-(defun te-more-break-resume ()
- "Proceed past the **MORE** break,
-allowing the next page of output to appear"
- (interactive)
- (message "Continuing from more break")
- (te-more-break-unwind))
-
-(defun te-more-break-help ()
- "Provide help on commands available in a terminal-emulator **MORE** break"
- (interactive)
- (message "Terminal-emulator more break help...")
- (sit-for 0)
- (with-electric-help
- (function (lambda ()
- (princ "Terminal-emulator more break.\n\n")
- (princ (format "Type \"%s\" (te-more-break-resume)\n%s\n"
- (where-is-internal 'te-more-break-resume
- terminal-more-break-map t)
- (documentation 'te-more-break-resume)))
- (princ (substitute-command-keys "\\{terminal-more-break-map}\n"))
- (princ "Any other key is passed through to the program
-running under the terminal emulator and disables more processing until
-all pending output has been dealt with.")
- nil))))
-
-
-(defun te-more-break-advance-one-line ()
- "Allow one more line of text to be output before doing another more break."
- (interactive)
- (setq te-more-count 1)
- (te-more-break-unwind))
-
-(defun te-more-break-flush-pending-output ()
- "Discard any output which has been received by the terminal emulator but
-not yet processed and then proceed from the more break."
- (interactive)
- (te-more-break-unwind)
- (te-flush-pending-output))
-
-(defun te-flush-pending-output ()
- "Discard any as-yet-unprocessed output which has been received by
-the terminal emulator."
- (interactive)
- ;; this could conceivably be confusing in the presence of
- ;; escape-sequences spanning process-output chunks
- (if (null (cdr te-pending-output))
- (message "(There is no output pending)")
- (let ((length (te-pending-output-length)))
- (message "Flushing %d chars of pending output" length)
- (setq te-pending-output
- (list 0 (format "\n*** %d chars of pending output flushed ***\n"
- length)))
- (te-update-pending-output-display)
- (te-process-output nil)
- (sit-for 0))))
-
-\f
-(defun te-pass-through ()
- "Character is passed to the program running under the terminal emulator.
-One characters is treated specially:
-the terminal escape character (normally C-^)
-lets you type a terminal emulator command."
- (interactive)
- (cond ((eq last-input-event terminal-escape-char)
- (call-interactively 'te-escape))
- (t
- ;; Convert `return' to C-m, etc.
- (if (and (symbolp last-input-event)
- (get last-input-event 'ascii-character))
- (setq last-input-event (get last-input-event 'ascii-character)))
- ;; Convert meta characters to 8-bit form for transmission.
- (if (and (integerp last-input-event)
- (not (zerop (logand last-input-event ?\M-\^@))))
- (setq last-input-event (+ 128 (logand last-input-event 127))))
- ;; Now ignore all but actual characters.
- ;; (It ought to be possible to send through function
- ;; keys as character sequences if we add a description
- ;; to our termcap entry of what they should look like.)
- (if (integerp last-input-event)
- (progn
- (and terminal-more-processing (null (cdr te-pending-output))
- (te-set-more-count nil))
- (process-send-string te-process (make-string 1 last-input-event))
- (te-process-output t))
- (message "Function key `%s' ignored"
- (single-key-description last-input-event))))))
-
-
-(defun te-set-window-start ()
- (let* ((w (get-buffer-window (current-buffer)))
- (h (if w (window-height w))))
- (cond ((not w)) ; buffer not displayed
- ((>= h (/ (- (point) (point-min)) (1+ te-width)))
- ;; this is the normal case
- (set-window-start w (point-min)))
- ;; this happens if some vandal shrinks our window.
- ((>= h (/ (- (point-max) (point)) (1+ te-width)))
- (set-window-start w (- (point-max) (* h (1+ te-width)) -1)))
- ;; I give up.
- (t nil))))
-
-(defun te-pending-output-length ()
- (let ((length (car te-pending-output))
- (tem (cdr te-pending-output)))
- (while tem
- (setq length (+ length (length (car tem))) tem (cdr tem)))
- length))
-\f
-;;>> What use is this terminal-edit stuff anyway?
-;;>> If nothing else, it was written by somebody who didn't
-;;>> competently understand the terminal-emulator...
-
-(defvar terminal-edit-map nil)
-(if terminal-edit-map
- nil
- (setq terminal-edit-map (make-sparse-keymap))
- (define-key terminal-edit-map "\C-c\C-c" 'terminal-cease-edit))
-
-;; Terminal Edit mode is suitable only for specially formatted data.
-(put 'terminal-edit-mode 'mode-class 'special)
-
-(defun terminal-edit-mode ()
- "Major mode for editing the contents of a terminal-emulator buffer.
-The editing commands are the same as in Fundamental mode,
-together with a command \\<terminal-edit-map>to return to terminal emulation: \\[terminal-cease-edit]."
- (use-local-map terminal-edit-map)
- (setq major-mode 'terminal-edit-mode)
- (setq mode-name "Terminal Edit")
- (setq mode-line-modified (default-value 'mode-line-modified))
- (setq mode-line-process nil)
- (run-mode-hooks 'terminal-edit-mode-hook))
-
-(defun te-edit ()
- "Start editing the terminal emulator buffer with ordinary Emacs commands."
- (interactive)
- (terminal-edit-mode)
- (force-mode-line-update)
- ;; Make mode line update.
- (if (eq (key-binding "\C-c\C-c") 'terminal-cease-edit)
- (message "Editing: Type C-c C-c to return to Terminal")
- (message "%s"
- (substitute-command-keys
- "Editing: Type \\[terminal-cease-edit] to return to Terminal"))))
-
-(defun terminal-cease-edit ()
- "Finish editing message; switch back to Terminal proper."
- (interactive)
-
- ;;>> emulator will blow out if buffer isn't exactly te-width x te-height
- (let ((buffer-read-only nil))
- (widen)
- (let ((opoint (point-marker))
- (width te-width)
- (h (1- te-height)))
- (goto-char (point-min))
- (while (>= h 0)
- (let ((p (point)))
- (cond ((search-forward "\n" (+ p width) 'move)
- (forward-char -1)
- (insert-char ?\s (- width (- (point) p)))
- (forward-char 1))
- ((eobp)
- (insert-char ?\s (- width (- (point) p))))
- ((= (following-char) ?\n)
- (forward-char 1))
- (t
- (setq p (point))
- (if (search-forward "\n" nil t)
- (delete-region p (1- (point)))
- (delete-region p (point-max))))))
- (if (= h 0)
- (if (not (eobp)) (delete-region (point) (point-max)))
- (if (eobp) (insert ?\n)))
- (setq h (1- h)))
- (goto-char opoint)
- (set-marker opoint nil nil)
- (setq te-saved-point (point))
- (setq te-redisplay-count 0)
- (setq te-more-count -1)))
-
- (setq mode-line-modified (default-value 'mode-line-modified))
- (use-local-map terminal-map)
- (setq major-mode 'terminal-mode)
- (setq mode-name "terminal")
- (setq mode-line-process '(":%s")))
-\f
-;;;; more break hair
-
-(defun te-more-break ()
- (te-set-more-count t)
- (make-local-variable 'te-more-old-point)
- (setq te-more-old-point (point))
- (make-local-variable 'te-more-old-local-map)
- (setq te-more-old-local-map (current-local-map))
- (use-local-map terminal-more-break-map)
- (make-local-variable 'te-more-old-filter)
- (setq te-more-old-filter (process-filter te-process))
- (make-local-variable 'te-more-old-mode-line-format)
- (setq te-more-old-mode-line-format mode-line-format
- mode-line-format (list "-- **MORE** "
- mode-line-buffer-identification
- "%-"))
- (set-process-filter te-process
- (function (lambda (process string)
- (with-current-buffer (process-buffer process)
- (setq te-pending-output (nconc te-pending-output
- (list string))))
- (te-update-pending-output-display))))
- (te-update-pending-output-display)
- (if (eq (window-buffer (selected-window)) (current-buffer))
- (message "More break "))
- (or (eobp)
- (null terminal-more-break-insertion)
- (save-excursion
- (forward-char 1)
- (delete-region (point) (+ (point) te-width))
- (insert terminal-more-break-insertion)))
- (run-hooks 'terminal-more-break-hook)
- (sit-for 0) ;get display to update
- (throw 'te-process-output t))
-
-(defun te-more-break-unwind ()
- (use-local-map te-more-old-local-map)
- (set-process-filter te-process te-more-old-filter)
- (goto-char te-more-old-point)
- (setq mode-line-format te-more-old-mode-line-format)
- (force-mode-line-update)
- (let ((buffer-read-only nil))
- (cond ((eobp))
- (terminal-more-break-insertion
- (forward-char 1)
- (delete-region (point)
- (+ (point) (length terminal-more-break-insertion)))
- (insert-char ?\s te-width)
- (goto-char te-more-old-point)))
- (setq te-more-old-point nil)
- (let ((te-more-count 259259))
- (te-newline)))
- ;(sit-for 0)
- (te-process-output t))
-
-(defun te-set-more-count (newline)
- (let ((line (/ (- (point) (point-min)) (1+ te-width))))
- (if newline (setq line (1+ line)))
- (cond ((= line te-height)
- (setq te-more-count te-height))
- ;>>>> something is strange. Investigate this!
- ((= line (1- te-height))
- (setq te-more-count te-height))
- ((or (< line (/ te-height 2))
- (> (- te-height line) 10))
- ;; break at end of this page
- (setq te-more-count (- te-height line)))
- (t
- ;; migrate back towards top (ie bottom) of screen.
- (setq te-more-count (- te-height
- (if (> te-height 10) 2 1)))))))
-
-\f
-;;;; More or less straight-forward terminal escapes
-
-;; ^j, meaning `newline' to non-display programs.
-;; (Who would think of ever writing a system which doesn't understand
-;; display terminals natively? Un*x: The Operating System of the Future.)
-(defun te-newline ()
- "Move down a line, optionally do more processing, perhaps wrap/scroll,
-move to start of new line, clear to end of line."
- (end-of-line)
- (cond ((not terminal-more-processing))
- ((< (setq te-more-count (1- te-more-count)) 0)
- (te-set-more-count t))
- ((eq te-more-count 0)
- ;; this doesn't return
- (te-more-break)))
- (if (eobp)
- (progn
- (delete-region (point-min) (+ (point-min) te-width))
- (goto-char (point-min))
- (if terminal-scrolling
- (progn (delete-char 1)
- (goto-char (point-max))
- (insert ?\n))))
- (forward-char 1)
- (delete-region (point) (+ (point) te-width)))
- (insert-char ?\s te-width)
- (beginning-of-line)
- (te-set-window-start))
-
-; ^p = x+32 y+32
-(defun te-move-to-position ()
- ;; must offset by #o40 since cretinous unix won't send a 004 char through
- (let ((y (- (te-get-char) 32))
- (x (- (te-get-char) 32)))
- (if (or (> x te-width)
- (> y te-height))
- ()
- (goto-char (+ (point-min) x (* y (1+ te-width))))
- ;(te-set-window-start?)
- ))
- (setq te-more-count -1))
-
-
-
-;; ^p c
-(defun te-clear-rest-of-line ()
- (save-excursion
- (let ((n (- (point) (progn (end-of-line) (point)))))
- (delete-region (point) (+ (point) n))
- (insert-char ?\s (- n)))))
-
-
-;; ^p C
-(defun te-clear-rest-of-screen ()
- (save-excursion
- (te-clear-rest-of-line)
- (while (progn (end-of-line) (not (eobp)))
- (forward-char 1) (end-of-line)
- (delete-region (- (point) te-width) (point))
- (insert-char ?\s te-width))))
-
-
-;; ^p ^l
-(defun te-clear-screen ()
- ;; regenerate buffer to compensate for (nonexistent!!) bugs.
- (erase-buffer)
- (let ((i 0))
- (while (< i te-height)
- (setq i (1+ i))
- (insert-char ?\s te-width)
- (insert ?\n)))
- (delete-region (1- (point-max)) (point-max))
- (goto-char (point-min))
- (setq te-more-count -1))
-
-
-;; ^p ^o count+32
-(defun te-insert-lines ()
- (if (not (bolp))
- ();(error "fooI")
- (save-excursion
- (let* ((line (- te-height (/ (- (point) (point-min)) (1+ te-width)) -1))
- (n (min (- (te-get-char) ?\s) line))
- (i 0))
- (delete-region (- (point-max) (* n (1+ te-width))) (point-max))
- (if (eq (point) (point-max)) (insert ?\n))
- (while (< i n)
- (setq i (1+ i))
- (insert-char ?\s te-width)
- (or (eq i line) (insert ?\n))))))
- (setq te-more-count -1))
-
-
-;; ^p ^k count+32
-(defun te-delete-lines ()
- (if (not (bolp))
- ();(error "fooD")
- (let* ((line (- te-height (/ (- (point) (point-min)) (1+ te-width)) -1))
- (n (min (- (te-get-char) ?\s) line))
- (i 0))
- (delete-region (point)
- (min (+ (point) (* n (1+ te-width))) (point-max)))
- (save-excursion
- (goto-char (point-max))
- (while (< i n)
- (setq i (1+ i))
- (insert-char ?\s te-width)
- (or (eq i line) (insert ?\n))))))
- (setq te-more-count -1))
-
-;; ^p ^a
-(defun te-beginning-of-line ()
- (beginning-of-line))
-
-;; ^p ^b
-(defun te-backward-char ()
- (if (not (bolp))
- (backward-char 1)))
-
-;; ^p ^f
-(defun te-forward-char ()
- (if (not (eolp))
- (forward-char 1)))
-
-\f
-;; 0177
-(defun te-delete ()
- (if (bolp)
- ()
- (delete-region (1- (point)) (point))
- (insert ?\s)
- (forward-char -1)))
-
-;; ^p ^g
-(defun te-beep ()
- (beep))
-
-
-;; ^p _ count+32
-(defun te-insert-spaces ()
- (let* ((p (point))
- (n (min (- (te-get-char) 32)
- (- (progn (end-of-line) (point)) p))))
- (if (<= n 0)
- nil
- (delete-char (- n))
- (goto-char p)
- (insert-char ?\s n))
- (goto-char p)))
-
-;; ^p d count+32 (should be ^p ^d but cretinous un*x won't send ^d chars!!!)
-(defun te-delete-char ()
- (let* ((p (point))
- (n (min (- (te-get-char) 32)
- (- (progn (end-of-line) (point)) p))))
- (if (<= n 0)
- nil
- (insert-char ?\s n)
- (goto-char p)
- (delete-char n))
- (goto-char p)))
-
-
-\f
-;; disgusting unix-required excrement
-;; Are we living twenty years in the past yet?
-
-(defun te-losing-unix ()
- nil)
-
-;; ^i
-(defun te-output-tab ()
- (let* ((p (point))
- (x (- p (progn (beginning-of-line) (point))))
- (l (min (- 8 (logand x 7))
- (progn (end-of-line) (- (point) p)))))
- (goto-char (+ p l))))
-
-;; ^p ^j
-;; Handle the `do' or `nl' termcap capability.
-;;>> I am not sure why this broken, obsolete, capability is here.
-;;>> Perhaps it is for VIle. No comment was made about why it
-;;>> was added (in "Sun Dec 6 01:22:27 1987 Richard Stallman")
-(defun te-down-vertically-or-scroll ()
- "Move down a line vertically, or scroll at bottom."
- (let ((column (current-column)))
- (end-of-line)
- (if (eobp)
- (progn
- (delete-region (point-min) (+ (point-min) te-width))
- (goto-char (point-min))
- (delete-char 1)
- (goto-char (point-max))
- (insert ?\n)
- (insert-char ?\s te-width)
- (beginning-of-line))
- (forward-line 1))
- (move-to-column column))
- (te-set-window-start))
-
-;; Also:
-;; ^m => beginning-of-line (for which it -should- be using ^p ^a, right?!!)
-;; ^g => te-beep (for which it should use ^p ^g)
-;; ^h => te-backward-char (for which it should use ^p ^b)
-
-\f
-
-(defun te-filter (process string)
- (with-current-buffer (process-buffer process)
- (goto-char te-saved-point)
- (and (bufferp te-log-buffer)
- (if (null (buffer-name te-log-buffer))
- ;; killed
- (setq te-log-buffer nil)
- (set-buffer te-log-buffer)
- (goto-char (point-max))
- (insert-before-markers string)
- (set-buffer (process-buffer process))))
- (setq te-pending-output (nconc te-pending-output (list string)))
- (te-update-pending-output-display)
- (te-process-output (eq (current-buffer)
- (window-buffer (selected-window))))
- (set-buffer (process-buffer process))
- (setq te-saved-point (point))))
-
-;; (A version of the following comment which might be distractingly offensive
-;; to some readers has been moved to term-nasty.el.)
-;; unix lacks ITS-style tty control...
-(defun te-process-output (preemptible)
- ;;>> There seems no good reason to ever disallow preemption
- (setq preemptible t)
- (catch 'te-process-output
- (let ((buffer-read-only nil)
- (string nil) ostring start char (matchpos nil))
- (while (cdr te-pending-output)
- (setq ostring string
- start (car te-pending-output)
- string (car (cdr te-pending-output))
- char (aref string start))
- (if (eq (setq start (1+ start)) (length string))
- (progn (setq te-pending-output
- (cons 0 (cdr (cdr te-pending-output)))
- start 0
- string (car (cdr te-pending-output)))
- (te-update-pending-output-display))
- (setcar te-pending-output start))
- (if (and (> char ?\037) (< char ?\377))
- (cond ((eolp)
- ;; unread char
- (if (eq start 0)
- (setq te-pending-output
- (cons 0 (cons (make-string 1 char)
- (cdr te-pending-output))))
- (setcar te-pending-output (1- start)))
- (te-newline))
- ((null string)
- (delete-char 1) (insert char)
- (te-redisplay-if-necessary 1))
- (t
- (let ((end (or (and (eq ostring string) matchpos)
- (setq matchpos (string-match
- "[\000-\037\177-\377]"
- string start))
- (length string))))
- (delete-char 1) (insert char)
- (setq char (point)) (end-of-line)
- (setq end (min end (+ start (- (point) char))))
- (goto-char char)
- (if (eq end matchpos) (setq matchpos nil))
- (delete-region (point) (+ (point) (- end start)))
- (insert (if (and (eq start 0)
- (eq end (length string)))
- string
- (substring string start end)))
- (if (eq end (length string))
- (setq te-pending-output
- (cons 0 (cdr (cdr te-pending-output))))
- (setcar te-pending-output end))
- (te-redisplay-if-necessary (1+ (- end start))))))
- ;; I suppose if I split the guts of this out into a separate
- ;; function we could trivially emulate different terminals
- ;; Who cares in any case? (Apart from stupid losers using rlogin)
- (funcall
- (if (eq char ?\^p)
- (or (cdr (assq (te-get-char)
- '((?= . te-move-to-position)
- (?c . te-clear-rest-of-line)
- (?C . te-clear-rest-of-screen)
- (?\C-o . te-insert-lines)
- (?\C-k . te-delete-lines)
- ;; not necessary, but help sometimes.
- (?\C-a . te-beginning-of-line)
- (?\C-b . te-backward-char)
- ;; should be C-d, but un*x
- ;; pty's won't send \004 through!
- ;; Can you believe this?
- (?d . te-delete-char)
- (?_ . te-insert-spaces)
- ;; random
- (?\C-f . te-forward-char)
- (?\C-g . te-beep)
- (?\C-j . te-down-vertically-or-scroll)
- (?\C-l . te-clear-screen)
- )))
- 'te-losing-unix)
- (or (cdr (assq char
- '((?\C-j . te-newline)
- (?\177 . te-delete)
- ;; Did I ask to be sent these characters?
- ;; I don't remember doing so, either.
- ;; (Perhaps some operating system or
- ;; other is completely incompetent...)
- (?\C-m . te-beginning-of-line)
- (?\C-g . te-beep)
- (?\C-h . te-backward-char)
- (?\C-i . te-output-tab))))
- 'te-losing-unix)))
- (te-redisplay-if-necessary 1))
- (and preemptible
- (input-pending-p)
- ;; preemptible output! Oh my!!
- (throw 'te-process-output t)))))
- ;; We must update window-point in every window displaying our buffer
- (walk-windows (lambda (w)
- (when (and (not (eq w (selected-window)))
- (eq (window-buffer w) (current-buffer)))
- (set-window-point w (point))))))
-
-(defun te-get-char ()
- (if (cdr te-pending-output)
- (let ((start (car te-pending-output))
- (string (car (cdr te-pending-output))))
- (prog1 (aref string start)
- (if (eq (setq start (1+ start)) (length string))
- (setq te-pending-output (cons 0 (cdr (cdr te-pending-output))))
- (setcar te-pending-output start))))
- (catch 'char
- (let ((filter (process-filter te-process)))
- (unwind-protect
- (progn
- (set-process-filter te-process
- (function (lambda (_p s)
- (or (eq (length s) 1)
- (setq te-pending-output (list 1 s)))
- (throw 'char (aref s 0)))))
- (accept-process-output te-process))
- (set-process-filter te-process filter))))))
-
-
-(defun te-redisplay-if-necessary (length)
- (and (<= (setq te-redisplay-count (- te-redisplay-count length)) 0)
- (eq (current-buffer) (window-buffer (selected-window)))
- (waiting-for-user-input-p)
- (progn (te-update-pending-output-display)
- (sit-for 0)
- (setq te-redisplay-count terminal-redisplay-interval))))
-
-(defun te-update-pending-output-display ()
- (if (null (cdr te-pending-output))
- (setq te-pending-output-info "")
- (let ((length (te-pending-output-length)))
- (if (< length 1500)
- (setq te-pending-output-info "")
- (setq te-pending-output-info (format "(%dK chars output pending) "
- (/ (+ length 512) 1024))))))
- (force-mode-line-update))
-
-\f
-(defun te-sentinel (process message)
- (cond ((eq (process-status process) 'run))
- ((null (buffer-name (process-buffer process)))) ;deleted
- (t (let ((b (current-buffer)))
- (with-current-buffer (process-buffer process)
- (setq buffer-read-only nil)
- (fundamental-mode)
- (goto-char (point-max))
- (delete-blank-lines)
- (delete-horizontal-space)
- (insert "\n*******\n" message "*******\n"))
- (if (and (eq b (process-buffer process))
- (waiting-for-user-input-p))
- (progn (goto-char (point-max))
- (recenter -1)))))))
-\f
-(defvar te-stty-string "stty -nl erase '^?' kill '^u' intr '^c' echo pass8"
- "Shell command to set terminal modes for terminal emulator.")
-;; This used to have `new' in it, but that loses outside BSD
-;; and it's apparently not needed in BSD.
-
-(defcustom explicit-shell-file-name nil
- "If non-nil, is file name to use for explicitly requested inferior shell."
- :type '(choice (const :tag "None" nil)
- file)
- :group 'terminal)
-
-;;;###autoload
-(defun terminal-emulator (buffer program args &optional width height)
- "Under a display-terminal emulator in BUFFER, run PROGRAM on arguments ARGS.
-ARGS is a list of argument-strings. Remaining arguments are WIDTH and HEIGHT.
-BUFFER's contents are made an image of the display generated by that program,
-and any input typed when BUFFER is the current Emacs buffer is sent to that
-program as keyboard input.
-
-Interactively, BUFFER defaults to \"*terminal*\" and PROGRAM and ARGS
-are parsed from an input-string using your usual shell.
-WIDTH and HEIGHT are determined from the size of the current window
--- WIDTH will be one less than the window's width, HEIGHT will be its height.
-
-To switch buffers and leave the emulator, or to give commands
-to the emulator itself (as opposed to the program running under it),
-type Control-^. The following character is an emulator command.
-Type Control-^ twice to send it to the subprogram.
-This escape character may be changed using the variable `terminal-escape-char'.
-
-`Meta' characters may not currently be sent through the terminal emulator.
-
-Here is a list of some of the variables which control the behavior
-of the emulator -- see their documentation for more information:
-terminal-escape-char, terminal-scrolling, terminal-more-processing,
-terminal-redisplay-interval.
-
-This function calls the value of terminal-mode-hook if that exists
-and is non-nil after the terminal buffer has been set up and the
-subprocess started."
- (interactive
- (cons (with-current-buffer (get-buffer-create "*terminal*")
- (buffer-name (if (or (not (boundp 'te-process))
- (null te-process)
- (not (eq (process-status te-process)
- 'run)))
- (current-buffer)
- (generate-new-buffer "*terminal*"))))
- (append
- (let* ((default-s
- ;; Default shell is same thing M-x shell uses.
- (or explicit-shell-file-name
- (getenv "ESHELL")
- (getenv "SHELL")
- "/bin/sh"))
- (s (read-string
- (format "Run program in emulator (default %s): "
- default-s))))
- (if (equal s "")
- (list default-s '())
- (te-parse-program-and-args s))))))
- (switch-to-buffer buffer)
- (if (null width) (setq width (- (window-width (selected-window)) 1)))
- (if (null height) (setq height (- (window-height (selected-window)) 1)))
- (terminal-mode)
- (setq te-width width te-height height)
- (setq te-terminal-name (concat te-terminal-name-prefix
- (number-to-string te-width)
- (number-to-string te-height)))
- (setq mode-line-buffer-identification
- (list (format "Emacs terminal %dx%d: %%b " te-width te-height)
- 'te-pending-output-info))
- (let ((buffer-read-only nil))
- (te-clear-screen))
- (let (process)
- (while (setq process (get-buffer-process (current-buffer)))
- (if (y-or-n-p (format "Kill process %s? " (process-name process)))
- (delete-process process)
- (error "Process %s not killed" (process-name process)))))
- (condition-case err
- (let ((process-environment
- (cons (concat "TERM=" te-terminal-name)
- (cons (concat "TERMCAP=" (te-create-termcap))
- (cons (concat "TERMINFO=" (te-create-terminfo))
- process-environment)))))
- (setq te-process
- (start-process "terminal-emulator" (current-buffer)
- "/bin/sh" "-c"
- ;; Yuck!!! Start a shell to set some terminal
- ;; control characteristics. Then start the
- ;; "env" program to setup the terminal type
- ;; Then finally start the program we wanted.
- (format "%s; exec %s"
- te-stty-string
- (mapconcat 'te-quote-arg-for-sh
- (cons program args) " "))))
- (set-process-filter te-process 'te-filter)
- (set-process-sentinel te-process 'te-sentinel))
- (error (fundamental-mode)
- (signal (car err) (cdr err))))
- (setq inhibit-quit t) ;sport death
- (use-local-map terminal-map)
- (run-hooks 'terminal-mode-hook)
- (message "Entering Emacs terminal-emulator... Type %s %s for help"
- (single-key-description terminal-escape-char)
- (mapconcat 'single-key-description
- (where-is-internal 'te-escape-help terminal-escape-map t)
- " ")))
-
-
-(defun te-parse-program-and-args (s)
- (cond ((string-match "\\`\\([-a-zA-Z0-9+=_.@/:]+[ \t]*\\)+\\'" s)
- (let ((l ()) (p 0))
- (while p
- (setq l (cons (if (string-match
- "\\([-a-zA-Z0-9+=_.@/:]+\\)\\([ \t]+\\)*"
- s p)
- (prog1 (substring s p (match-end 1))
- (setq p (match-end 0))
- (if (eq p (length s)) (setq p nil)))
- (prog1 (substring s p)
- (setq p nil)))
- l)))
- (setq l (nreverse l))
- (list (car l) (cdr l))))
- ((and (string-match "[ \t]" s) (not (file-exists-p s)))
- (list shell-file-name (list "-c" (concat "exec " s))))
- (t (list s ()))))
-
-(put 'terminal-mode 'mode-class 'special)
-;; This is only separated out from function terminal-emulator
-;; to keep the latter a little more manageable.
-(defun terminal-mode ()
- "Set up variables for use with the terminal-emulator.
-One should not call this -- it is an internal function
-of the terminal-emulator"
- (kill-all-local-variables)
- (buffer-disable-undo (current-buffer))
- (setq major-mode 'terminal-mode)
- (setq mode-name "terminal")
-; (make-local-variable 'Helper-return-blurb)
-; (setq Helper-return-blurb "return to terminal simulator")
- (setq mode-line-process '(":%s"))
- (setq buffer-read-only t)
- (setq truncate-lines t)
- (make-local-variable 'terminal-escape-char)
- (setq terminal-escape-char (default-value 'terminal-escape-char))
- (make-local-variable 'terminal-scrolling)
- (setq terminal-scrolling (default-value 'terminal-scrolling))
- (make-local-variable 'terminal-more-processing)
- (setq terminal-more-processing (default-value 'terminal-more-processing))
- (make-local-variable 'terminal-redisplay-interval)
- (setq terminal-redisplay-interval (default-value 'terminal-redisplay-interval))
- (make-local-variable 'te-width)
- (make-local-variable 'te-height)
- (make-local-variable 'te-process)
- (make-local-variable 'te-pending-output)
- (setq te-pending-output (list 0))
- (make-local-variable 'te-saved-point)
- (setq te-saved-point (point-min))
- (make-local-variable 'te-pending-output-info) ;for the mode line
- (setq te-pending-output-info "")
- (make-local-variable 'inhibit-quit)
- ;(setq inhibit-quit t)
- (make-local-variable 'te-log-buffer)
- (setq te-log-buffer nil)
- (make-local-variable 'te-more-count)
- (setq te-more-count -1)
- (make-local-variable 'te-redisplay-count)
- (setq te-redisplay-count terminal-redisplay-interval)
- ;(use-local-map terminal-mode-map)
- ;; terminal-mode-hook is called above in function terminal-emulator
- )
-\f
-;;;; what a complete loss
-
-(defun te-quote-arg-for-sh (string)
- (cond ((string-match "\\`[-a-zA-Z0-9+=_.@/:]+\\'"
- string)
- string)
- ((not (string-match "[$]" string))
- ;; "[\"\\]" are special to sh and the lisp reader in the same way
- (prin1-to-string string))
- (t
- (let ((harder "")
- (start 0)
- (end 0))
- (while (cond ((>= start (length string))
- nil)
- ;; this is the set of chars magic with "..." in `sh'
- ((setq end (string-match "[\"\\$]"
- string start))
- t)
- (t (setq harder (concat harder
- (substring string start)))
- nil))
- (setq harder (concat harder (substring string start end)
- ;; Can't use ?\\ since `concat'
- ;; unfortunately does prin1-to-string
- ;; on fixna. Amazing.
- "\\"
- (substring string
- end
- (1+ end)))
- start (1+ end)))
- (concat "\"" harder "\"")))))
-
-(defun te-create-terminfo ()
- "Create and compile a terminfo entry for the virtual terminal. This is kept
-in the directory specified by `te-terminfo-directory'."
- (when (and system-uses-terminfo
- (not (file-exists-p (concat te-terminfo-directory
- (substring te-terminal-name-prefix 0 1)
- "/" te-terminal-name))))
- (let ( (terminfo
- (concat
- ;; The first newline avoids trouble with ncurses.
- (format "%s,\n\tmir, xon,cols#%d, lines#%d,"
- te-terminal-name te-width te-height)
- "bel=^P^G, clear=^P\\f, cr=^P^A, cub1=^P^B, cud1=^P\\n,"
- "cuf1=^P^F, cup=^P=%p1%'\\s'%+%c%p2%'\\s'%+%c,"
- "dch=^Pd%p1%'\\s'%+%c, dch1=^Pd!, dl=^P^K%p1%'\\s'%+%c,"
- "dl1=^P^K!, ed=^PC, el=^Pc, home=^P=\\s\\s,"
- "ich=^P_%p1%'\\s'%+%c, ich1=^P_!, il=^P^O%p1%'\\s'%+%c,"
- ;; The last newline avoids trouble with ncurses.
- "il1=^P^O!, ind=^P\\n, nel=\\n,\n"))
- ;; This is the desired name for the source file.
- (file-name (concat te-terminfo-directory te-terminal-name ".tif")) )
- (make-directory te-terminfo-directory t)
- (let ((temp-file
- (make-temp-file (expand-file-name "tif" te-terminfo-directory))))
- ;; Store the source file under a random temp name.
- (with-temp-file temp-file
- (insert terminfo))
- ;; Rename it to the desired name.
- ;; We use this roundabout approach
- ;; to avoid any risk of writing a name that
- ;; was mischievously set up as a symlink.
- (rename-file temp-file file-name))
- ;; Now compile that source to make the binary that the
- ;; programs actually use.
- (let ((process-environment
- (cons (concat "TERMINFO="
- (directory-file-name te-terminfo-directory))
- process-environment)))
- (set-process-sentinel (start-process "tic" nil "tic" file-name)
- 'te-tic-sentinel))))
- (directory-file-name te-terminfo-directory))
-
-(defun te-create-termcap ()
- "Create a termcap entry for the virtual terminal"
- ;; Because of Unix Brain Death(tm), we can't change
- ;; the terminal type of a running process, and so
- ;; terminal size and scrollability are wired-down
- ;; at this point. ("Detach? What's that?")
- (concat (format "%s:co#%d:li#%d:%s"
- ;; Sigh. These can't be dynamically changed.
- te-terminal-name te-width te-height (if terminal-scrolling
- "" "ns:"))
- ;;-- Basic things
- ;; cursor-motion, bol, forward/backward char
- "cm=^p=%+ %+ :cr=^p^a:le=^p^b:nd=^p^f:"
- ;; newline, clear eof/eof, audible bell
- "nw=^j:ce=^pc:cd=^pC:cl=^p^l:bl=^p^g:"
- ;; insert/delete char/line
- "IC=^p_%+ :DC=^pd%+ :AL=^p^o%+ :DL=^p^k%+ :"
- ;;-- Not-widely-known (ie nonstandard) flags, which mean
- ;; o writing in the last column of the last line
- ;; doesn't cause idiotic scrolling, and
- ;; o don't use idiotische c-s/c-q sogenannte
- ;; ``flow control'' auf keinen Fall.
- "LP:NF:"
- ;;-- For stupid or obsolete programs
- "ic=^p_!:dc=^pd!:al=^p^o!:dl=^p^k!:ho=^p= :"
- ;;-- For disgusting programs.
- ;; (VI? What losers need these, I wonder?)
- "im=:ei=:dm=:ed=:mi:do=^p^j:nl=^p^j:bs:")
-)
-
-(defun te-tic-sentinel (_proc state-change)
- "If tic has finished, delete the .tif file"
- (if (equal state-change "finished
-")
- (delete-file (concat te-terminfo-directory te-terminal-name ".tif"))))
-
-(provide 'terminal)
-
-;;; terminal.el ends here