Using saved parent location: http://bzr.savannah.gnu.org/r/emacs/trunk/ Now on revision 104475. ------------------------------------------------------------ revno: 104475 committer: Stefan Monnier branch nick: trunk timestamp: Thu 2011-06-02 00:48:23 -0300 message: * lisp/net/tramp.el (tramp-with-progress-reporter): Rename from with-progress-reporter. Use `declare'. * lisp/net/tramp-smb.el: * lisp/net/tramp-sh.el: * lisp/net/tramp-gvfs.el: Update all uses. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2011-06-02 00:09:42 +0000 +++ lisp/ChangeLog 2011-06-02 03:48:23 +0000 @@ -1,3 +1,11 @@ +2011-06-02 Stefan Monnier + + * net/tramp.el (tramp-with-progress-reporter): Rename from + with-progress-reporter. Use `declare'. + * net/tramp-smb.el: + * net/tramp-sh.el: + * net/tramp-gvfs.el: Update all uses. + 2011-06-02 Jay Belanger * calc/calc.el (calc-kill-stack-buffer): Make sure that the trail === modified file 'lisp/net/tramp-gvfs.el' --- lisp/net/tramp-gvfs.el 2011-02-28 01:07:29 +0000 +++ lisp/net/tramp-gvfs.el 2011-06-02 03:48:23 +0000 @@ -541,7 +541,7 @@ "Like `copy-file' for Tramp files." (with-parsed-tramp-file-name (if (tramp-tramp-file-p filename) filename newname) nil - (with-progress-reporter + (tramp-with-progress-reporter v 0 (format "Copying %s to %s" filename newname) (condition-case err (let ((args @@ -745,7 +745,7 @@ "Like `rename-file' for Tramp files." (with-parsed-tramp-file-name (if (tramp-tramp-file-p filename) filename newname) nil - (with-progress-reporter + (tramp-with-progress-reporter v 0 (format "Renaming %s to %s" filename newname) (condition-case err (rename-file @@ -1203,7 +1203,7 @@ (tramp-gvfs-object-path (tramp-make-tramp-file-name method user host "")))) - (with-progress-reporter + (tramp-with-progress-reporter vec 3 (if (zerop (length user)) (format "Opening connection for %s using %s" host method) === modified file 'lisp/net/tramp-sh.el' --- lisp/net/tramp-sh.el 2011-05-05 09:48:43 +0000 +++ lisp/net/tramp-sh.el 2011-06-02 03:48:23 +0000 @@ -1945,7 +1945,7 @@ (tramp-error v 'file-already-exists "File %s already exists" newname)) - (with-progress-reporter + (tramp-with-progress-reporter v 0 (format "%s %s to %s" (if (eq op 'copy) "Copying" "Renaming") filename newname) @@ -2454,7 +2454,8 @@ nil) ((and suffix (nth 2 suffix)) ;; We found an uncompression rule. - (with-progress-reporter v 0 (format "Uncompressing %s" file) + (tramp-with-progress-reporter + v 0 (format "Uncompressing %s" file) (when (tramp-send-command-and-check v (concat (nth 2 suffix) " " (tramp-shell-quote-argument localname))) @@ -2465,7 +2466,7 @@ (t ;; We don't recognize the file as compressed, so compress it. ;; Try gzip. - (with-progress-reporter v 0 (format "Compressing %s" file) + (tramp-with-progress-reporter v 0 (format "Compressing %s" file) (when (tramp-send-command-and-check v (concat "gzip -f " (tramp-shell-quote-argument localname))) @@ -2948,7 +2949,7 @@ ;; Use inline encoding for file transfer. (rem-enc (save-excursion - (with-progress-reporter + (tramp-with-progress-reporter v 3 (format "Encoding remote file %s" filename) (tramp-barf-unless-okay v (format rem-enc (tramp-shell-quote-argument localname)) @@ -2962,7 +2963,7 @@ (with-temp-buffer (set-buffer-multibyte nil) (insert-buffer-substring (tramp-get-buffer v)) - (with-progress-reporter + (tramp-with-progress-reporter v 3 (format "Decoding remote file %s with function %s" filename loc-dec) (funcall loc-dec (point-min) (point-max)) @@ -2980,7 +2981,7 @@ (let (file-name-handler-alist (coding-system-for-write 'binary)) (write-region (point-min) (point-max) tmpfile2)) - (with-progress-reporter + (tramp-with-progress-reporter v 3 (format "Decoding remote file %s with command %s" filename loc-dec) (unwind-protect @@ -3205,7 +3206,7 @@ (set-buffer-multibyte nil) ;; Use encoding function or command. (if (functionp loc-enc) - (with-progress-reporter + (tramp-with-progress-reporter v 3 (format "Encoding region using function `%s'" loc-enc) (let ((coding-system-for-read 'binary)) @@ -3223,7 +3224,7 @@ (tramp-compat-temporary-file-directory))) (funcall loc-enc (point-min) (point-max)))) - (with-progress-reporter + (tramp-with-progress-reporter v 3 (format "Encoding region using command `%s'" loc-enc) (unless (zerop (tramp-call-local-coding-command @@ -3237,7 +3238,7 @@ ;; Send buffer into remote decoding command which ;; writes to remote file. Because this happens on ;; the remote host, we cannot use the function. - (with-progress-reporter + (tramp-with-progress-reporter v 3 (format "Decoding region into remote file %s" filename) (goto-char (point-max)) @@ -3337,7 +3338,7 @@ "Like `vc-registered' for Tramp files." (tramp-compat-with-temp-message "" (with-parsed-tramp-file-name file nil - (with-progress-reporter + (tramp-with-progress-reporter v 3 (format "Checking `vc-registered' for %s" file) ;; There could be new files, created by the vc backend. We @@ -3431,7 +3432,7 @@ (let* ((p (tramp-get-connection-process vec)) (scripts (tramp-get-connection-property p "scripts" nil))) (unless (member name scripts) - (with-progress-reporter vec 5 (format "Sending script `%s'" name) + (tramp-with-progress-reporter vec 5 (format "Sending script `%s'" name) ;; The script could contain a call of Perl. This is masked with `%s'. (tramp-barf-unless-okay vec @@ -3595,7 +3596,8 @@ (defun tramp-open-shell (vec shell) "Opens shell SHELL." - (with-progress-reporter vec 5 (format "Opening remote shell `%s'" shell) + (tramp-with-progress-reporter + vec 5 (format "Opening remote shell `%s'" shell) ;; Find arguments for this shell. (let ((tramp-end-of-output tramp-initial-end-of-output) (alist tramp-sh-extra-args) @@ -4247,7 +4249,7 @@ ;; We call `tramp-get-buffer' in order to get a debug buffer for ;; messages from the beginning. (tramp-get-buffer vec) - (with-progress-reporter + (tramp-with-progress-reporter vec 3 (if (zerop (length (tramp-file-name-user vec))) (format "Opening connection for %s using %s" === modified file 'lisp/net/tramp-smb.el' --- lisp/net/tramp-smb.el 2011-05-05 04:00:38 +0000 +++ lisp/net/tramp-smb.el 2011-06-02 03:48:23 +0000 @@ -342,7 +342,7 @@ PRESERVE-UID-GID and PRESERVE-SELINUX-CONTEXT are completely ignored." (setq filename (expand-file-name filename) newname (expand-file-name newname)) - (with-progress-reporter + (tramp-with-progress-reporter (tramp-dissect-file-name (if (file-remote-p filename) filename newname)) 0 (format "Copying %s to %s" filename newname) @@ -600,7 +600,7 @@ v 'file-error "Cannot make local copy of non-existing file `%s'" filename)) (let ((tmpfile (tramp-compat-make-temp-file filename))) - (with-progress-reporter + (tramp-with-progress-reporter v 3 (format "Fetching %s to tmp file %s" filename tmpfile) (unless (tramp-smb-send-command v (format "get \"%s\" \"%s\"" @@ -837,7 +837,7 @@ "Like `rename-file' for Tramp files." (setq filename (expand-file-name filename) newname (expand-file-name newname)) - (with-progress-reporter + (tramp-with-progress-reporter (tramp-dissect-file-name (if (file-remote-p filename) filename newname)) 0 (format "Renaming %s to %s" filename newname) @@ -926,7 +926,7 @@ (list start end tmpfile append 'no-message lockname confirm) (list start end tmpfile append 'no-message lockname))) - (with-progress-reporter + (tramp-with-progress-reporter v 3 (format "Moving tmp file %s to %s" tmpfile filename) (unwind-protect (unless (tramp-smb-send-command @@ -1289,7 +1289,7 @@ (setq args (append args (list "-s" tramp-smb-conf)))) ;; OK, let's go. - (with-progress-reporter + (tramp-with-progress-reporter vec 3 (format "Opening connection for //%s%s/%s" (if (not (zerop (length user))) (concat user "@") "") === modified file 'lisp/net/tramp.el' --- lisp/net/tramp.el 2011-05-18 12:59:25 +0000 +++ lisp/net/tramp.el 2011-06-02 03:48:23 +0000 @@ -1452,11 +1452,12 @@ (when (string-match message (or (current-message) "")) (tramp-compat-funcall 'progress-reporter-update reporter value)))) -(defmacro with-progress-reporter (vec level message &rest body) +(defmacro tramp-with-progress-reporter (vec level message &rest body) "Executes BODY, spinning a progress reporter with MESSAGE. If LEVEL does not fit for visible messages, or if this is a nested call of the macro, there are only traces without a visible progress reporter." + (declare (indent 3) (debug t)) `(let (pr tm) (tramp-message ,vec ,level "%s..." ,message) ;; We start a pulsing progress reporter after 3 seconds. Feature @@ -1479,10 +1480,8 @@ (if tm (tramp-compat-funcall 'cancel-timer tm)) (tramp-message ,vec ,level "%s...done" ,message)))) -(put 'with-progress-reporter 'lisp-indent-function 3) -(put 'with-progress-reporter 'edebug-form-spec t) (tramp-compat-font-lock-add-keywords - 'emacs-lisp-mode '("\\")) + 'emacs-lisp-mode '("\\")) (eval-and-compile ;; Silence compiler. (if (memq system-type '(cygwin windows-nt)) @@ -2881,7 +2880,7 @@ ;; useful for "rsync". (setq tramp-temp-buffer-file-name local-copy)) - (with-progress-reporter + (tramp-with-progress-reporter v 3 (format "Inserting local temp file `%s'" local-copy) ;; We must ensure that `file-coding-system-alist' ;; matches `local-copy'. @@ -2932,7 +2931,7 @@ (if (not (file-exists-p file)) nil (let ((tramp-message-show-message (not nomessage))) - (with-progress-reporter v 0 (format "Loading %s" file) + (tramp-with-progress-reporter v 0 (format "Loading %s" file) (let ((local-copy (file-local-copy file))) ;; MUST-SUFFIX doesn't exist on XEmacs, so let it default to nil. (unwind-protect ------------------------------------------------------------ revno: 104474 committer: Jay Belanger branch nick: trunk timestamp: Wed 2011-06-01 19:09:42 -0500 message: * calc/calc.el (calc-kill-stack-buffer): Make sure that the trail buffer isn't killed before making it current. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2011-06-01 19:32:04 +0000 +++ lisp/ChangeLog 2011-06-02 00:09:42 +0000 @@ -1,3 +1,8 @@ +2011-06-02 Jay Belanger + + * calc/calc.el (calc-kill-stack-buffer): Make sure that the trail + buffer isn't killed before making it current. + 2011-06-01 Stefan Monnier Silence various byte-compiler warnings. === modified file 'lisp/calc/calc.el' --- lisp/calc/calc.el 2011-03-17 01:30:08 +0000 +++ lisp/calc/calc.el 2011-06-02 00:09:42 +0000 @@ -1293,19 +1293,20 @@ (if (not info-list) (progn (setq calc-buffer-list (delete cb calc-buffer-list)) - (with-current-buffer calc-trail-buffer - (if (eq cb calc-main-buffer) - ;; If there are other Calc stacks, make another one - ;; the calc-main-buffer ... - (if calc-buffer-list - (setq calc-main-buffer (car calc-buffer-list)) - ;; ... otherwise kill the trail and its windows. - (let ((wl (get-buffer-window-list calc-trail-buffer))) - (while wl - (delete-window (car wl)) - (setq wl (cdr wl)))) - (kill-buffer calc-trail-buffer) - (setq calc-trail-buffer nil)))) + (if (buffer-live-p calc-trail-buffer) + (with-current-buffer calc-trail-buffer + (if (eq cb calc-main-buffer) + ;; If there are other Calc stacks, make another one + ;; the calc-main-buffer ... + (if calc-buffer-list + (setq calc-main-buffer (car calc-buffer-list)) + ;; ... otherwise kill the trail and its windows. + (let ((wl (get-buffer-window-list calc-trail-buffer))) + (while wl + (delete-window (car wl)) + (setq wl (cdr wl)))) + (kill-buffer calc-trail-buffer))))) + (setq calc-trail-buffer nil) t)))) (defun calc-mode () ------------------------------------------------------------ revno: 104473 author: Teodor Zlatanov committer: Katsumi Yamaoka branch nick: trunk timestamp: Wed 2011-06-01 22:35:26 +0000 message: gnus-registry.el (gnus-registry-remove-ignored): New function to remove entries with groups we ignore. diff: === modified file 'lisp/gnus/ChangeLog' --- lisp/gnus/ChangeLog 2011-06-01 00:22:55 +0000 +++ lisp/gnus/ChangeLog 2011-06-01 22:35:26 +0000 @@ -1,3 +1,8 @@ +2011-06-01 Teodor Zlatanov + + * gnus-registry.el (gnus-registry-remove-ignored): New function to + remove entries with groups we ignore. + 2011-05-31 Lars Magne Ingebrigtsen * shr.el (shr-rescale-image): Add an :ascent of 100 to images so that === modified file 'lisp/gnus/gnus-registry.el' --- lisp/gnus/gnus-registry.el 2011-05-31 22:08:51 +0000 +++ lisp/gnus/gnus-registry.el 2011-06-01 22:35:26 +0000 @@ -321,6 +321,20 @@ (gnus-message 5 "Saving Gnus registry (size %d) to %s...done" (registry-size db) file))) +(defun gnus-registry-remove-ignored () + (interactive) + (let* ((db gnus-registry-db) + (grouphashtb (registry-lookup-secondary db 'group)) + (old-size (registry-size db))) + (registry-reindex db) + (loop for k being the hash-keys of grouphashtb + using (hash-values v) + when (gnus-registry-ignore-group-p k) + do (registry-delete db v nil)) + (registry-reindex db) + (gnus-message 4 "Removed %d ignored entries from the Gnus registry" + (- old-size (registry-size db))))) + ;; article move/copy/spool/delete actions (defun gnus-registry-action (action data-header from &optional to method) (let* ((id (mail-header-id data-header)) ------------------------------------------------------------ revno: 104472 committer: Dan Nicolaescu branch nick: trunk timestamp: Wed 2011-06-01 14:54:35 -0700 message: Make it possible to build with GCC-4.6+ -O2 -flto. * src/emacs.c (__malloc_initialize_hook): Mark as EXTERNALLY_VISIBLE. diff: === modified file 'src/ChangeLog' --- src/ChangeLog 2011-06-01 15:34:41 +0000 +++ src/ChangeLog 2011-06-01 21:54:35 +0000 @@ -1,3 +1,9 @@ +2011-06-01 Dan Nicolaescu + + Make it possible to build with GCC-4.6+ -O2 -flto. + + * emacs.c (__malloc_initialize_hook): Mark as EXTERNALLY_VISIBLE. + 2011-06-01 Stefan Monnier * minibuf.c (get_minibuffer, read_minibuf_unwind): === modified file 'src/emacs.c' --- src/emacs.c 2011-05-31 05:12:19 +0000 +++ src/emacs.c 2011-06-01 21:54:35 +0000 @@ -678,7 +678,7 @@ } } -void (*__malloc_initialize_hook) (void) = malloc_initialize_hook; +void (*__malloc_initialize_hook) (void) EXTERNALLY_VISIBLE = malloc_initialize_hook; #endif /* DOUG_LEA_MALLOC */ ------------------------------------------------------------ revno: 104471 committer: Stefan Monnier branch nick: trunk timestamp: Wed 2011-06-01 16:32:04 -0300 message: Silence various byte-compiler warnings. * lisp/emacs-lisp/byte-run.el (make-obsolete-variable): New argument `access-type' and new obsolescence format. * lisp/emacs-lisp/bytecomp.el (byte-compile-warn-obsolete): Adjust to new format. (byte-compile-check-variable): New `access-type' argument. Only warn if the access-type is obsolete. (byte-compile-dynamic-variable-bind, byte-compile-variable-ref) (byte-compile-variable-set): Adjust callers. * lisp/help-fns.el (describe-variable): Adjust to new obsolescence format. * lisp/mail/sendmail.el (mail-mailer-swallows-blank-line): Only mark setting it as obsolete. * lisp/simple.el (minibuffer-completing-symbol): * lisp/font-lock.el (font-lock-beginning-of-syntax-function): Only mark read access as obsolete. * lisp/minibuffer.el (minibuffer-completing-file-name): Don't make it obsolete yet. * lisp/international/quail.el (quail-mouse-choose-completion): Remove unused code referring to obsolete var. (quail-choose-completion-string): Remove. * lisp/server.el (server-clients-with, server-kill-buffer-query-function) (server-kill-emacs-query-function): Silence "unused `proc'" warnings. * lisp/proced.el (proced-send-signal): * lisp/emacs-lisp/lisp.el (lisp-complete-symbol): Replace completion-annotate-function with completion-extra-properties. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2011-06-01 15:52:35 +0000 +++ lisp/ChangeLog 2011-06-01 19:32:04 +0000 @@ -1,5 +1,33 @@ 2011-06-01 Stefan Monnier + Silence various byte-compiler warnings. + * emacs-lisp/byte-run.el (make-obsolete-variable): New argument + `access-type' and new obsolescence format. + * emacs-lisp/bytecomp.el (byte-compile-warn-obsolete): Adjust to + new format. + (byte-compile-check-variable): New `access-type' argument. + Only warn if the access-type is obsolete. + (byte-compile-dynamic-variable-bind, byte-compile-variable-ref) + (byte-compile-variable-set): Adjust callers. + * help-fns.el (describe-variable): Adjust to new obsolescence format. + * mail/sendmail.el (mail-mailer-swallows-blank-line): Only mark + setting it as obsolete. + * simple.el (minibuffer-completing-symbol): + * font-lock.el (font-lock-beginning-of-syntax-function): Only mark read + access as obsolete. + * minibuffer.el (minibuffer-completing-file-name): Don't make it + obsolete yet. + * international/quail.el (quail-mouse-choose-completion): Remove unused + code referring to obsolete var. + (quail-choose-completion-string): Remove. + * server.el (server-clients-with, server-kill-buffer-query-function) + (server-kill-emacs-query-function): Silence "unused `proc'" warnings. + * proced.el (proced-send-signal): + * emacs-lisp/lisp.el (lisp-complete-symbol): + Replace completion-annotate-function with completion-extra-properties. + +2011-06-01 Stefan Monnier + * simple.el (goto-line): Use read-number. (overriding-map-is-bound): Remove. (saved-overriding-map): Change default. === modified file 'lisp/emacs-lisp/byte-run.el' --- lisp/emacs-lisp/byte-run.el 2011-06-01 14:19:45 +0000 +++ lisp/emacs-lisp/byte-run.el 2011-06-01 19:32:04 +0000 @@ -153,24 +153,21 @@ 'define-obsolete-function-alias '(obsolete-name current-name when &optional docstring) "23.1") -(defun make-obsolete-variable (obsolete-name current-name &optional when) +(defun make-obsolete-variable (obsolete-name current-name &optional when access-type) "Make the byte-compiler warn that OBSOLETE-NAME is obsolete. The warning will say that CURRENT-NAME should be used instead. If CURRENT-NAME is a string, that is the `use instead' message. -If provided, WHEN should be a string indicating when the variable -was first made obsolete, for example a date or a release number." - (interactive - (list - (let ((str (completing-read "Make variable obsolete: " obarray 'boundp t))) - (if (equal str "") (error "")) - (intern str)) - (car (read-from-string (read-string "Obsoletion replacement: "))))) +WHEN should be a string indicating when the variable +was first made obsolete, for example a date or a release number. +ACCESS-TYPE if non-nil should specify the kind of access that will trigger + obsolescence warnings; it can be either `get' or `set'." (put obsolete-name 'byte-obsolete-variable - (purecopy (cons current-name when))) + (purecopy (list current-name access-type when))) obsolete-name) (set-advertised-calling-convention ;; New code should always provide the `when' argument. - 'make-obsolete-variable '(obsolete-name current-name when) "23.1") + 'make-obsolete-variable + '(obsolete-name current-name when &optional access-type) "23.1") (defmacro define-obsolete-variable-alias (obsolete-name current-name &optional when docstring) === modified file 'lisp/emacs-lisp/bytecomp.el' --- lisp/emacs-lisp/bytecomp.el 2011-06-01 14:19:45 +0000 +++ lisp/emacs-lisp/bytecomp.el 2011-06-01 19:32:04 +0000 @@ -1109,7 +1109,7 @@ (let* ((funcp (get symbol 'byte-obsolete-info)) (obsolete (or funcp (get symbol 'byte-obsolete-variable))) (instead (car obsolete)) - (asof (if funcp (nth 2 obsolete) (cdr obsolete)))) + (asof (nth 2 obsolete))) (unless (and funcp (memq symbol byte-compile-not-obsolete-funcs)) (byte-compile-warn "`%s' is an obsolete %s%s%s" symbol (if funcp "function" "variable") @@ -3016,20 +3016,24 @@ (assert (eq byte-compile-depth (1+ start-depth)) nil "Wrong depth start=%s end=%s" start-depth byte-compile-depth))) -(defun byte-compile-check-variable (var &optional binding) - "Do various error checks before a use of the variable VAR. -If BINDING is non-nil, VAR is being bound." +(defun byte-compile-check-variable (var access-type) + "Do various error checks before a use of the variable VAR." (when (symbolp var) (byte-compile-set-symbol-position var)) (cond ((or (not (symbolp var)) (byte-compile-const-symbol-p var)) (when (byte-compile-warning-enabled-p 'constants) - (byte-compile-warn (if binding + (byte-compile-warn (if (eq access-type 'let-bind) "attempt to let-bind %s `%s`" "variable reference to %s `%s'") (if (symbolp var) "constant" "nonvariable") (prin1-to-string var)))) - ((and (get var 'byte-obsolete-variable) - (not (memq var byte-compile-not-obsolete-vars))) + ((let ((od (get var 'byte-obsolete-variable))) + (and od + (not (memq var byte-compile-not-obsolete-vars)) + (or (case (nth 1 od) + (set (not (eq access-type 'reference))) + (get (eq access-type 'reference)) + (t t))))) (byte-compile-warn-obsolete var)))) (defsubst byte-compile-dynamic-variable-op (base-op var) @@ -3041,13 +3045,13 @@ (defun byte-compile-dynamic-variable-bind (var) "Generate code to bind the lexical variable VAR to the top-of-stack value." - (byte-compile-check-variable var t) + (byte-compile-check-variable var 'let-bind) (push var byte-compile-bound-variables) (byte-compile-dynamic-variable-op 'byte-varbind var)) (defun byte-compile-variable-ref (var) "Generate code to push the value of the variable VAR on the stack." - (byte-compile-check-variable var) + (byte-compile-check-variable var 'reference) (let ((lex-binding (assq var byte-compile--lexical-environment))) (if lex-binding ;; VAR is lexically bound @@ -3063,7 +3067,7 @@ (defun byte-compile-variable-set (var) "Generate code to set the variable VAR from the top-of-stack value." - (byte-compile-check-variable var) + (byte-compile-check-variable var 'assign) (let ((lex-binding (assq var byte-compile--lexical-environment))) (if lex-binding ;; VAR is lexically bound === modified file 'lisp/emacs-lisp/lisp.el' --- lisp/emacs-lisp/lisp.el 2011-05-23 16:40:16 +0000 +++ lisp/emacs-lisp/lisp.el 2011-06-01 19:32:04 +0000 @@ -636,9 +636,8 @@ (plist (nthcdr 3 data))) (if (null data) (minibuffer-message "Nothing to complete") - (let ((completion-annotate-function - (plist-get plist :annotation-function))) - (completion-in-region (nth 0 data) (nth 1 data) (nth 2 data) + (let ((completion-extra-properties plist)) + (completion-in-region (nth 0 data) (nth 1 data) (nth 2 data) (plist-get plist :predicate)))))) === modified file 'lisp/font-lock.el' --- lisp/font-lock.el 2011-04-05 15:20:21 +0000 +++ lisp/font-lock.el 2011-06-01 19:32:04 +0000 @@ -563,7 +563,7 @@ This is normally set via `font-lock-defaults'.") (make-obsolete-variable 'font-lock-beginning-of-syntax-function - 'syntax-begin-function "23.3") + 'syntax-begin-function "23.3" 'set) (defvar font-lock-mark-block-function nil "*Non-nil means use this function to mark a block of text. === modified file 'lisp/help-fns.el' --- lisp/help-fns.el 2011-06-01 14:19:45 +0000 +++ lisp/help-fns.el 2011-06-01 19:32:04 +0000 @@ -805,7 +805,8 @@ (when obsolete (setq extra-line t) (princ " This variable is obsolete") - (if (cdr obsolete) (princ (format " since %s" (cdr obsolete)))) + (if (nth 2 obsolete) + (princ (format " since %s" (nth 2 obsolete)))) (princ (cond ((stringp use) (concat ";\n " use)) (use (format ";\n use `%s' instead." (car obsolete))) (t "."))) === modified file 'lisp/international/quail.el' --- lisp/international/quail.el 2011-05-23 17:57:17 +0000 +++ lisp/international/quail.el 2011-06-01 19:32:04 +0000 @@ -2253,12 +2253,10 @@ ;; Give temporary modes such as isearch a chance to turn off. (run-hooks 'mouse-leave-buffer-hook) (let ((buffer (window-buffer)) - choice - base-size) + choice) (with-current-buffer (window-buffer (posn-window (event-start event))) (if completion-reference-buffer (setq buffer completion-reference-buffer)) - (setq base-size completion-base-size) (save-excursion (goto-char (posn-point (event-start event))) (let (beg end) @@ -2272,26 +2270,23 @@ (setq end (or (next-single-property-change end 'mouse-face) (point-max))) (setq choice (buffer-substring beg end))))) -; (let ((owindow (selected-window))) -; (select-window (posn-window (event-start event))) -; (if (and (one-window-p t 'selected-frame) -; (window-dedicated-p (selected-window))) -; ;; This is a special buffer's frame -; (iconify-frame (selected-frame)) -; (or (window-dedicated-p (selected-window)) -; (bury-buffer))) -; (select-window owindow)) + ;; (let ((owindow (selected-window))) + ;; (select-window (posn-window (event-start event))) + ;; (if (and (one-window-p t 'selected-frame) + ;; (window-dedicated-p (selected-window))) + ;; ;; This is a special buffer's frame + ;; (iconify-frame (selected-frame)) + ;; (or (window-dedicated-p (selected-window)) + ;; (bury-buffer))) + ;; (select-window owindow)) (quail-delete-region) - (quail-choose-completion-string choice buffer base-size) + (setq quail-current-str choice) + ;; FIXME: We need to pass `base-position' here. + ;; FIXME: why do we need choose-completion-string with all its + ;; completion-specific logic? + (choose-completion-string choice buffer) (quail-terminate-translation))) -;; BASE-SIZE here is for compatibility with an (unused) arg of a -;; previous implementation. -(defun quail-choose-completion-string (choice &optional buffer base-size) - (setq quail-current-str choice) - ;; FIXME: We need to pass `base-position' here. - (choose-completion-string choice buffer)) - (defun quail-build-decode-map (map-list key decode-map num &optional maxnum ignores) "Build a decoding map. === modified file 'lisp/mail/sendmail.el' --- lisp/mail/sendmail.el 2011-05-27 07:18:15 +0000 +++ lisp/mail/sendmail.el 2011-06-01 19:32:04 +0000 @@ -470,7 +470,8 @@ (put 'mail-mailer-swallows-blank-line 'risky-local-variable t) ; gets evalled (make-obsolete-variable 'mail-mailer-swallows-blank-line - "no need to set this on any modern system." "24.1") + "no need to set this on any modern system." + "24.1" 'set) (defvar mail-mode-syntax-table ;; define-derived-mode will make it inherit from text-mode-syntax-table. === modified file 'lisp/minibuffer.el' --- lisp/minibuffer.el 2011-06-01 15:34:41 +0000 +++ lisp/minibuffer.el 2011-06-01 19:32:04 +0000 @@ -1974,7 +1974,11 @@ ;; minibuffer-completing-file-name is a variable used internally in minibuf.c ;; to determine whether to use minibuffer-local-filename-completion-map or ;; minibuffer-local-completion-map. It shouldn't be exported to Elisp. -(make-obsolete-variable 'minibuffer-completing-file-name nil "24.1") +;; FIXME: Actually, it is also used in rfn-eshadow.el we'd otherwise have to +;; use (eq minibuffer-completion-table #'read-file-name-internal), which is +;; probably even worse. Maybe We should add some read-file-name-setup-hook +;; instead, but for now, let's keep this non-obsolete. +;;(make-obsolete-variable 'minibuffer-completing-file-name nil "24.1" 'get) (defun read-file-name-default (prompt &optional dir default-filename mustmatch initial predicate) "Default method for reading file names. === modified file 'lisp/proced.el' --- lisp/proced.el 2011-04-19 13:44:55 +0000 +++ lisp/proced.el 2011-06-01 19:32:04 +0000 @@ -1735,8 +1735,9 @@ (pnum (if (= 1 (length process-alist)) "1 process" (format "%d processes" (length process-alist)))) - (completion-annotate-function - (lambda (s) (cdr (assoc s proced-signal-list))))) + (completion-extra-properties + '(:annotation-function + (lambda (s) (cdr (assoc s proced-signal-list)))))) (setq signal (completing-read (concat "Send signal [" pnum "] (default TERM): ") === modified file 'lisp/server.el' --- lisp/server.el 2011-05-02 02:33:11 +0000 +++ lisp/server.el 2011-06-01 19:32:04 +0000 @@ -235,9 +235,10 @@ (defun server-clients-with (property value) "Return a list of clients with PROPERTY set to VALUE." (let (result) - (dolist (proc server-clients result) + (dolist (proc server-clients) (when (equal value (process-get proc property)) - (push proc result))))) + (push proc result))) + result)) (defun server-add-client (proc) "Create a client for process PROC, if it doesn't already have one. @@ -1322,10 +1323,11 @@ "Ask before killing a server buffer." (or (not server-buffer-clients) (let ((res t)) - (dolist (proc server-buffer-clients res) + (dolist (proc server-buffer-clients) (when (and (memq proc server-clients) (eq (process-status proc) 'open)) - (setq res nil)))) + (setq res nil))) + res) (yes-or-no-p (format "Buffer `%s' still has clients; kill it? " (buffer-name (current-buffer)))))) @@ -1333,10 +1335,11 @@ "Ask before exiting Emacs if it has live clients." (or (not server-clients) (let (live-client) - (dolist (proc server-clients live-client) + (dolist (proc server-clients) (when (memq t (mapcar 'buffer-live-p (process-get proc 'buffers))) - (setq live-client t)))) + (setq live-client t))) + live-client) (yes-or-no-p "This Emacs session has clients; exit anyway? "))) (defun server-kill-buffer () === modified file 'lisp/simple.el' --- lisp/simple.el 2011-06-01 15:52:35 +0000 +++ lisp/simple.el 2011-06-01 19:32:04 +0000 @@ -1156,7 +1156,7 @@ (defvar minibuffer-completing-symbol nil "Non-nil means completing a Lisp symbol in the minibuffer.") -(make-obsolete-variable 'minibuffer-completing-symbol nil "24.1") +(make-obsolete-variable 'minibuffer-completing-symbol nil "24.1" 'get) (defvar minibuffer-default nil "The current default value or list of default values in the minibuffer. ------------------------------------------------------------ revno: 104470 committer: Glenn Morris branch nick: trunk timestamp: Wed 2011-06-01 10:34:24 -0700 message: Add :version tags for url-queue.el. * lisp/url/url-queue.el (url-queue-parallel-processes, url-queue-timeout): Add :version tag for options that will be new in 24.1. diff: === modified file 'lisp/url/ChangeLog' --- lisp/url/ChangeLog 2011-05-31 20:58:01 +0000 +++ lisp/url/ChangeLog 2011-06-01 17:34:24 +0000 @@ -1,3 +1,8 @@ +2011-06-01 Glenn Morris + + * url-queue.el (url-queue-parallel-processes, url-queue-timeout): + Add :version tag for options that will be new in 24.1. + 2011-05-31 Lars Magne Ingebrigtsen * url-queue.el (url-queue-parallel-processes): Increase the === modified file 'lisp/url/url-queue.el' --- lisp/url/url-queue.el 2011-05-31 20:58:01 +0000 +++ lisp/url/url-queue.el 2011-06-01 17:34:24 +0000 @@ -33,11 +33,13 @@ (defcustom url-queue-parallel-processes 6 "The number of concurrent processes." + :version "24.1" :type 'integer :group 'url) (defcustom url-queue-timeout 5 "How long to let a job live once it's started (in seconds)." + :version "24.1" :type 'integer :group 'url) ------------------------------------------------------------ revno: 104469 committer: Dan Nicolaescu branch nick: trunk timestamp: Wed 2011-06-01 10:15:27 -0700 message: * lib-src/emacsclient.c (socket_status): Use constant pointer. diff: === modified file 'lib-src/ChangeLog' --- lib-src/ChangeLog 2011-05-28 22:39:39 +0000 +++ lib-src/ChangeLog 2011-06-01 17:15:27 +0000 @@ -1,3 +1,7 @@ +2011-06-01 Dan Nicolaescu + + * emacsclient.c (socket_status): Use constant pointer. + 2011-05-28 Paul Eggert Use 'inline', not 'INLINE'. === modified file 'lib-src/emacsclient.c' --- lib-src/emacsclient.c 2011-04-16 21:11:28 +0000 +++ lib-src/emacsclient.c 2011-06-01 17:15:27 +0000 @@ -1098,7 +1098,7 @@ 0 - success: none of the above */ static int -socket_status (char *name) +socket_status (const char *name) { struct stat statbfr; ------------------------------------------------------------ revno: 104468 committer: Stefan Monnier branch nick: trunk timestamp: Wed 2011-06-01 12:52:35 -0300 message: * lisp/simple.el (goto-line): Use read-number. (overriding-map-is-bound): Remove. (saved-overriding-map): Change default. (save&set-overriding-map): Rename from ensure-overriding-map-is-bound; Take the map as argument. (universal-argument, negative-argument, digit-argument): Use it. (restore-overriding-map): Adjust. (do-auto-fill): Use fill-forward-paragraph. (keyboard-quit): Don't signal an error when debug-on-quit is non-nil. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2011-06-01 15:34:41 +0000 +++ lisp/ChangeLog 2011-06-01 15:52:35 +0000 @@ -1,5 +1,15 @@ 2011-06-01 Stefan Monnier + * simple.el (goto-line): Use read-number. + (overriding-map-is-bound): Remove. + (saved-overriding-map): Change default. + (save&set-overriding-map): Rename from ensure-overriding-map-is-bound; + Take the map as argument. + (universal-argument, negative-argument, digit-argument): Use it. + (restore-overriding-map): Adjust. + (do-auto-fill): Use fill-forward-paragraph. + (keyboard-quit): Don't signal an error when debug-on-quit is non-nil. + * minibuffer.el (minibuffer-inactive-mode-map): New var. (minibuffer-inactive-mode): New major mode. * mouse.el (mouse-drag-region): Remove the "mouse-1 pops up === modified file 'lisp/simple.el' --- lisp/simple.el 2011-05-31 03:03:38 +0000 +++ lisp/simple.el 2011-06-01 15:52:35 +0000 @@ -967,13 +967,11 @@ (concat " in " (buffer-name buffer)) ""))) ;; Read the argument, offering that number (if any) as default. - (list (read-from-minibuffer (format (if default "Goto line%s (%s): " - "Goto line%s: ") - buffer-prompt - default) - nil nil t - 'minibuffer-history - default) + (list (read-number (format (if default "Goto line%s (%s): " + "Goto line%s: ") + buffer-prompt + default) + default) buffer)))) ;; Switch to the desired buffer, one way or another. (if buffer @@ -2815,25 +2813,21 @@ `universal-argument-other-key' uses this to discard those events from (this-command-keys), and reread only the final command.") -(defvar overriding-map-is-bound nil - "Non-nil when `overriding-terminal-local-map' is `universal-argument-map'.") - -(defvar saved-overriding-map nil +(defvar saved-overriding-map t "The saved value of `overriding-terminal-local-map'. That variable gets restored to this value on exiting \"universal argument mode\".") -(defun ensure-overriding-map-is-bound () - "Check `overriding-terminal-local-map' is `universal-argument-map'." - (unless overriding-map-is-bound +(defun save&set-overriding-map (map) + "Set `overriding-terminal-local-map' to MAP." + (when (eq saved-overriding-map t) (setq saved-overriding-map overriding-terminal-local-map) - (setq overriding-terminal-local-map universal-argument-map) - (setq overriding-map-is-bound t))) + (setq overriding-terminal-local-map map))) (defun restore-overriding-map () "Restore `overriding-terminal-local-map' to its saved value." (setq overriding-terminal-local-map saved-overriding-map) - (setq overriding-map-is-bound nil)) + (setq saved-overriding-map t)) (defun universal-argument () "Begin a numeric argument for the following command. @@ -2848,7 +2842,7 @@ (interactive) (setq prefix-arg (list 4)) (setq universal-argument-num-events (length (this-command-keys))) - (ensure-overriding-map-is-bound)) + (save&set-overriding-map universal-argument-map)) ;; A subsequent C-u means to multiply the factor by 4 if we've typed ;; nothing but C-u's; otherwise it means to terminate the prefix arg. @@ -2873,7 +2867,7 @@ (t (setq prefix-arg '-))) (setq universal-argument-num-events (length (this-command-keys))) - (ensure-overriding-map-is-bound)) + (save&set-overriding-map universal-argument-map)) (defun digit-argument (arg) "Part of the numeric argument for the next command. @@ -2892,7 +2886,7 @@ (t (setq prefix-arg digit)))) (setq universal-argument-num-events (length (this-command-keys))) - (ensure-overriding-map-is-bound)) + (save&set-overriding-map universal-argument-map)) ;; For backward compatibility, minus with no modifiers is an ordinary ;; command if digits have already been entered. @@ -5177,8 +5171,8 @@ (or (null fill-prefix) (string= fill-prefix ""))) (let ((prefix (fill-context-prefix - (save-excursion (backward-paragraph 1) (point)) - (save-excursion (forward-paragraph 1) (point))))) + (save-excursion (fill-forward-paragraph -1) (point)) + (save-excursion (fill-forward-paragraph 1) (point))))) (and prefix (not (equal prefix "")) ;; Use auto-indentation rather than a guessed empty prefix. (not (and fill-indent-according-to-mode @@ -5660,7 +5654,8 @@ (if (fboundp 'kmacro-keyboard-quit) (kmacro-keyboard-quit)) (setq defining-kbd-macro nil) - (signal 'quit nil)) + (let ((debug-on-quit nil)) + (signal 'quit nil))) (defvar buffer-quit-function nil "Function to call to \"quit\" the current buffer, or nil if none. ------------------------------------------------------------ revno: 104467 committer: Stefan Monnier branch nick: trunk timestamp: Wed 2011-06-01 12:34:41 -0300 message: * lisp/minibuffer.el (minibuffer-inactive-mode-map): New var. (minibuffer-inactive-mode): New major mode. * src/minibuf.c (get_minibuffer, read_minibuf_unwind): Call it. * lisp/mouse.el (mouse-drag-region): Remove the "mouse-1 pops up the *Messages* buffer" hack. (mouse-popup-menubar): Don't burp if the event is a normal key. diff: === modified file 'etc/NEWS' --- etc/NEWS 2011-05-31 03:03:38 +0000 +++ etc/NEWS 2011-06-01 15:34:41 +0000 @@ -68,6 +68,10 @@ * Changes in Emacs 24.1 +** The inactive minibuffer has its own major mode `minibuffer-inactive-mode'. +This is handy for minibuffer-only frames, and is also used for the "mouse-1 +pops up *Messages*" feature, which can now easily be changed. + ** emacsclient changes *** New emacsclient argument --parent-id ID can be used to open a === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2011-06-01 14:19:45 +0000 +++ lisp/ChangeLog 2011-06-01 15:34:41 +0000 @@ -1,5 +1,11 @@ 2011-06-01 Stefan Monnier + * minibuffer.el (minibuffer-inactive-mode-map): New var. + (minibuffer-inactive-mode): New major mode. + * mouse.el (mouse-drag-region): Remove the "mouse-1 pops up + the *Messages* buffer" hack. + (mouse-popup-menubar): Don't burp if the event is a normal key. + Miscellaneous tweaks. * emacs-lisp/cl-macs.el (dolist, dotimes): Use the same strategy for lexical scoping as in subr.el's dolist and dotimes. === modified file 'lisp/minibuffer.el' --- lisp/minibuffer.el 2011-05-31 21:40:30 +0000 +++ lisp/minibuffer.el 2011-06-01 15:34:41 +0000 @@ -1657,6 +1657,34 @@ (define-key map "\t" 'exit-minibuffer) (define-key map "?" 'self-insert-and-exit)) +(defvar minibuffer-inactive-mode-map + (let ((map (make-keymap))) + (suppress-keymap map) + (define-key map "e" 'find-file-other-frame) + (define-key map "f" 'find-file-other-frame) + (define-key map "b" 'switch-to-buffer-other-frame) + (define-key map "i" 'info) + (define-key map "m" 'mail) + (define-key map "n" 'make-frame) + (define-key map [mouse-1] (lambda () (interactive) + (with-current-buffer "*Messages*" + (goto-char (point-max)) + (display-buffer (current-buffer))))) + ;; So the global down-mouse-1 binding doesn't clutter the execution of the + ;; above mouse-1 binding. + (define-key map [down-mouse-1] #'ignore) + map) + "Keymap for use in the minibuffer when it is not active. +The non-mouse bindings in this keymap can only be used in minibuffer-only +frames, since the minibuffer can normally not be selected when it is +not active.") + +(define-derived-mode minibuffer-inactive-mode nil "InactiveMinibuffer" + :abbrev-table nil ;abbrev.el is not loaded yet during dump. + ;; Note: this major mode is called from minibuf.c. + "Major mode to use in the minibuffer when it is not active. +This is only used when the minibuffer area has no active minibuffer.") + ;;; Completion tables. (defun minibuffer--double-dollars (str) === modified file 'lisp/mouse.el' --- lisp/mouse.el 2011-04-23 03:07:16 +0000 +++ lisp/mouse.el 2011-06-01 15:34:41 +0000 @@ -278,7 +278,7 @@ not it is actually displayed." (interactive "@e \nP") (run-hooks 'activate-menubar-hook 'menu-bar-update-hook) - (popup-menu (mouse-menu-bar-map) event prefix)) + (popup-menu (mouse-menu-bar-map) (unless (integerp event) event) prefix)) (make-obsolete 'mouse-popup-menubar 'mouse-menu-bar-map "23.1") (defun mouse-popup-menubar-stuff (event prefix) @@ -790,18 +790,9 @@ If the click is in the echo area, display the `*Messages*' buffer." (interactive "e") - (let ((w (posn-window (event-start start-event)))) - (if (and (window-minibuffer-p w) - (not (minibuffer-window-active-p w))) - (save-excursion - ;; Swallow the up-event. - (read-event) - (set-buffer (get-buffer-create "*Messages*")) - (goto-char (point-max)) - (display-buffer (current-buffer))) - ;; Give temporary modes such as isearch a chance to turn off. - (run-hooks 'mouse-leave-buffer-hook) - (mouse-drag-track start-event t)))) + ;; Give temporary modes such as isearch a chance to turn off. + (run-hooks 'mouse-leave-buffer-hook) + (mouse-drag-track start-event t)) (defun mouse-posn-property (pos property) === modified file 'src/ChangeLog' --- src/ChangeLog 2011-05-31 17:03:24 +0000 +++ src/ChangeLog 2011-06-01 15:34:41 +0000 @@ -1,3 +1,8 @@ +2011-06-01 Stefan Monnier + + * minibuf.c (get_minibuffer, read_minibuf_unwind): + Call minibuffer-inactive-mode. + 2011-05-31 Juanma Barranquero * makefile.w32-in ($(BLD)/data.$(O), $(BLD)/editfns.$(O)): @@ -181,7 +186,7 @@ merge count_size_as_multibyte, parse_str_to_multibyte * character.c, character.h (count_size_as_multibyte): - Renamed from parse_str_to_multibyte; all uses changed. + Rename from parse_str_to_multibyte; all uses changed. Check for integer overflow. * insdel.c, lisp.h (count_size_as_multibyte): Remove, since it's now a duplicate of the other. This is more of === modified file 'src/minibuf.c' --- src/minibuf.c 2011-05-31 03:03:38 +0000 +++ src/minibuf.c 2011-06-01 15:34:41 +0000 @@ -160,7 +160,7 @@ } -/* Actual minibuffer invocation. */ +/* Actual minibuffer invocation. */ static Lisp_Object read_minibuf_unwind (Lisp_Object); static Lisp_Object run_exit_minibuf_hook (Lisp_Object); @@ -266,7 +266,7 @@ error ("Error reading from stdin"); } - /* If Lisp form desired instead of string, parse it. */ + /* If Lisp form desired instead of string, parse it. */ if (expflag) val = string_to_object (val, CONSP (defalt) ? XCAR (defalt) : defalt); @@ -743,7 +743,7 @@ } } - /* If Lisp form desired instead of string, parse it. */ + /* If Lisp form desired instead of string, parse it. */ if (expflag) val = string_to_object (val, defalt); @@ -755,7 +755,7 @@ /* Return a buffer to be used as the minibuffer at depth `depth'. depth = 0 is the lowest allowed argument, and that is the value - used for nonrecursive minibuffer invocations */ + used for nonrecursive minibuffer invocations. */ Lisp_Object get_minibuffer (int depth) @@ -793,7 +793,10 @@ reset_buffer (XBUFFER (buf)); record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); Fset_buffer (buf); - Fkill_all_local_variables (); + if (!NILP (Ffboundp (intern ("minibuffer-inactive-mode")))) + call0 (intern ("minibuffer-inactive-mode")); + else + Fkill_all_local_variables (); unbind_to (count, Qnil); } @@ -808,7 +811,7 @@ } /* This function is called on exiting minibuffer, whether normally or - not, and it restores the current window, buffer, etc. */ + not, and it restores the current window, buffer, etc. */ static Lisp_Object read_minibuf_unwind (Lisp_Object data) @@ -868,6 +871,12 @@ windows_or_buffers_changed++; XSETFASTINT (XWINDOW (window)->last_modified, 0); XSETFASTINT (XWINDOW (window)->last_overlay_modified, 0); + + /* In case the previous minibuffer displayed in this miniwindow is + dead, we may keep displaying this buffer (tho it's inactive), so reset it, + to make sure we don't leave around bindings and stuff which only + made sense during the read_minibuf invocation. */ + call0 (intern ("minibuffer-inactive-mode")); return Qnil; } @@ -978,7 +987,7 @@ Qnil); } -/* Functions that use the minibuffer to read various things. */ +/* Functions that use the minibuffer to read various things. */ DEFUN ("read-string", Fread_string, Sread_string, 1, 5, 0, doc: /* Read a string from the minibuffer, prompting with string PROMPT. @@ -1146,7 +1155,7 @@ args[1] = prompt; args[2] = def; args[3] = require_match; - result = Ffuncall(4, args); + result = Ffuncall (4, args); } return unbind_to (count, result); } @@ -1233,10 +1242,10 @@ while (1) { - /* Get the next element of the alist, obarray, or hash-table. */ - /* Exit the loop if the elements are all used up. */ + /* Get the next element of the alist, obarray, or hash-table. */ + /* Exit the loop if the elements are all used up. */ /* elt gets the alist element or symbol. - eltstring gets the name to check as a completion. */ + eltstring gets the name to check as a completion. */ if (type == list_table) { @@ -1278,7 +1287,7 @@ elt = eltstring = HASH_KEY (XHASH_TABLE (collection), idx++); } - /* Is this element a possible completion? */ + /* Is this element a possible completion? */ if (SYMBOLP (eltstring)) eltstring = Fsymbol_name (eltstring); @@ -1291,7 +1300,7 @@ completion_ignore_case ? Qt : Qnil), EQ (Qt, tem))) { - /* Yes. */ + /* Yes. */ Lisp_Object regexps; /* Ignore this element if it fails to match all the regexps. */ @@ -1313,7 +1322,7 @@ } /* Ignore this element if there is a predicate - and the predicate doesn't like it. */ + and the predicate doesn't like it. */ if (!NILP (predicate)) { @@ -1415,7 +1424,7 @@ } if (NILP (bestmatch)) - return Qnil; /* No completions found */ + return Qnil; /* No completions found. */ /* If we are ignoring case, and there is no exact match, and no additional text was supplied, don't change the case of what the user typed. */ @@ -1429,7 +1438,7 @@ return Qt; XSETFASTINT (zero, 0); /* Else extract the part in which */ - XSETFASTINT (end, bestmatchsize); /* all completions agree */ + XSETFASTINT (end, bestmatchsize); /* all completions agree. */ return Fsubstring (bestmatch, zero, end); } @@ -1496,10 +1505,10 @@ while (1) { - /* Get the next element of the alist, obarray, or hash-table. */ - /* Exit the loop if the elements are all used up. */ + /* Get the next element of the alist, obarray, or hash-table. */ + /* Exit the loop if the elements are all used up. */ /* elt gets the alist element or symbol. - eltstring gets the name to check as a completion. */ + eltstring gets the name to check as a completion. */ if (type == 1) { @@ -1541,7 +1550,7 @@ elt = eltstring = HASH_KEY (XHASH_TABLE (collection), idx++); } - /* Is this element a possible completion? */ + /* Is this element a possible completion? */ if (SYMBOLP (eltstring)) eltstring = Fsymbol_name (eltstring); @@ -1561,7 +1570,7 @@ completion_ignore_case ? Qt : Qnil), EQ (Qt, tem))) { - /* Yes. */ + /* Yes. */ Lisp_Object regexps; /* Ignore this element if it fails to match all the regexps. */ @@ -1583,7 +1592,7 @@ } /* Ignore this element if there is a predicate - and the predicate doesn't like it. */ + and the predicate doesn't like it. */ if (!NILP (predicate)) { @@ -1604,7 +1613,7 @@ } if (NILP (tem)) continue; } - /* Ok => put it on the list. */ + /* Ok => put it on the list. */ allmatches = Fcons (eltstring, allmatches); } } @@ -1810,9 +1819,9 @@ if (SYMBOLP (tail)) while (1) { - if (EQ((Fcompare_strings (string, make_number (0), Qnil, + if (EQ (Fcompare_strings (string, make_number (0), Qnil, Fsymbol_name (tail), - make_number (0) , Qnil, Qt)), + make_number (0) , Qnil, Qt), Qt)) { tem = tail; @@ -1836,11 +1845,11 @@ tem = HASH_KEY (h, i); else for (i = 0; i < HASH_TABLE_SIZE (h); ++i) - if (!NILP (HASH_HASH (h, i)) && - EQ (Fcompare_strings (string, make_number (0), Qnil, - HASH_KEY (h, i), make_number (0) , Qnil, - completion_ignore_case ? Qt : Qnil), - Qt)) + if (!NILP (HASH_HASH (h, i)) + && EQ (Fcompare_strings (string, make_number (0), Qnil, + HASH_KEY (h, i), make_number (0) , Qnil, + completion_ignore_case ? Qt : Qnil), + Qt)) { tem = HASH_KEY (h, i); break; @@ -1887,7 +1896,7 @@ `all-completions', otherwise invoke `test-completion'. The arguments STRING and PREDICATE are as in `try-completion', -`all-completions', and `test-completion'. */) +`all-completions', and `test-completion'. */) (Lisp_Object string, Lisp_Object predicate, Lisp_Object flag) { if (NILP (flag)) ------------------------------------------------------------ revno: 104466 committer: Stefan Monnier branch nick: trunk timestamp: Wed 2011-06-01 11:28:54 -0300 message: * lisp/thingatpt.el (forward-whitespace): Typo. diff: === modified file 'lisp/thingatpt.el' --- lisp/thingatpt.el 2011-06-01 14:19:45 +0000 +++ lisp/thingatpt.el 2011-06-01 14:28:54 +0000 @@ -402,7 +402,7 @@ (re-search-forward "[ \t]+\\|\n" nil 'move arg) (while (< arg 0) (if (re-search-backward "[ \t]+\\|\n" nil 'move) - (or (eq (char-after (match-beginning 0)) \n) + (or (eq (char-after (match-beginning 0)) ?\n) (skip-chars-backward " \t"))) (setq arg (1+ arg))))) ------------------------------------------------------------ revno: 104465 committer: Stefan Monnier branch nick: trunk timestamp: Wed 2011-06-01 11:19:45 -0300 message: Miscellaneous tweaks. * lisp/emacs-lisp/cl-macs.el (dolist, dotimes): Use the same strategy for lexical scoping as in subr.el's dolist and dotimes. * lisp/emacs-lisp/bytecomp.el (byte-compile-unfold-bcf): Silence compiler warning. * lisp/thingatpt.el (forward-whitespace): Trivial coding style fix. * lisp/subr.el (with-output-to-temp-buffer): Provide an edebug spec. * lisp/international/ccl.el (ccl-compile): Trivial simplification. * lisp/help-fns.el (help-do-arg-highlight): Silence compiler warning. * lisp/emacs-lisp/testcover.el (testcover-end): Remove spurious `printflag' argument. * lisp/emacs-lisp/byte-run.el (make-obsolete, make-obsolete-variable): Purecopy the whole obsolescence data. diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2011-06-01 08:10:42 +0000 +++ lisp/ChangeLog 2011-06-01 14:19:45 +0000 @@ -1,3 +1,19 @@ +2011-06-01 Stefan Monnier + + Miscellaneous tweaks. + * emacs-lisp/cl-macs.el (dolist, dotimes): Use the same strategy for + lexical scoping as in subr.el's dolist and dotimes. + * emacs-lisp/bytecomp.el (byte-compile-unfold-bcf): + Silence compiler warning. + * thingatpt.el (forward-whitespace): Trivial coding style fix. + * subr.el (with-output-to-temp-buffer): Provide an edebug spec. + * international/ccl.el (ccl-compile): Trivial simplification. + * help-fns.el (help-do-arg-highlight): Silence compiler warning. + * emacs-lisp/testcover.el (testcover-end): Remove spurious + `printflag' argument. + * emacs-lisp/byte-run.el (make-obsolete, make-obsolete-variable): + Purecopy the whole obsolescence data. + 2011-06-01 Leo Liu * net/rcirc.el (rcirc-decode-coding-system): Revert last change; === modified file 'lisp/emacs-lisp/byte-run.el' --- lisp/emacs-lisp/byte-run.el 2011-05-23 17:57:17 +0000 +++ lisp/emacs-lisp/byte-run.el 2011-06-01 14:19:45 +0000 @@ -120,13 +120,13 @@ The warning will say that CURRENT-NAME should be used instead. If CURRENT-NAME is a string, that is the `use instead' message \(it should end with a period, and not start with a capital). -If provided, WHEN should be a string indicating when the function +WHEN should be a string indicating when the function was first made obsolete, for example a date or a release number." (interactive "aMake function obsolete: \nxObsoletion replacement: ") (put obsolete-name 'byte-obsolete-info ;; The second entry used to hold the `byte-compile' handler, but ;; is not used any more nowadays. - (list (purecopy current-name) nil (purecopy when))) + (purecopy (list current-name nil when))) obsolete-name) (set-advertised-calling-convention ;; New code should always provide the `when' argument. @@ -166,10 +166,7 @@ (intern str)) (car (read-from-string (read-string "Obsoletion replacement: "))))) (put obsolete-name 'byte-obsolete-variable - (cons - (if (stringp current-name) - (purecopy current-name) - current-name) (purecopy when))) + (purecopy (cons current-name when))) obsolete-name) (set-advertised-calling-convention ;; New code should always provide the `when' argument. === modified file 'lisp/emacs-lisp/bytecomp.el' --- lisp/emacs-lisp/bytecomp.el 2011-05-30 17:14:19 +0000 +++ lisp/emacs-lisp/bytecomp.el 2011-06-01 14:19:45 +0000 @@ -2991,7 +2991,7 @@ (cond ((<= (+ alen alen) fmax2) ;; Add missing &optional (or &rest) arguments. - (dotimes (i (- (/ (1+ fmax2) 2) alen)) + (dotimes (_ (- (/ (1+ fmax2) 2) alen)) (byte-compile-push-constant nil))) ((zerop (logand fmax2 1)) (byte-compile-log-warning "Too many arguments for inlined function" === modified file 'lisp/emacs-lisp/cconv.el' --- lisp/emacs-lisp/cconv.el 2011-04-06 21:55:08 +0000 +++ lisp/emacs-lisp/cconv.el 2011-06-01 14:19:45 +0000 @@ -112,16 +112,6 @@ ;; ,@(mapcar (lambda (binder) (if (consp binder) (cadr binder))) ;; binders))) -;; (defmacro letrec (binders &rest body) -;; ;; Only useful in lexical-binding mode. -;; ;; As a special-form, we could implement it more efficiently (and cleanly, -;; ;; making the vars actually unbound during evaluation of the binders). -;; `(let ,(mapcar (lambda (binder) (if (consp binder) (car binder) binder)) -;; binders) -;; ,@(delq nil (mapcar (lambda (binder) (if (consp binder) `(setq ,@binder))) -;; binders)) -;; ,@body)) - (eval-when-compile (require 'cl)) (defconst cconv-liftwhen 6 === modified file 'lisp/emacs-lisp/cl-macs.el' --- lisp/emacs-lisp/cl-macs.el 2011-04-01 15:16:50 +0000 +++ lisp/emacs-lisp/cl-macs.el 2011-06-01 14:19:45 +0000 @@ -1236,14 +1236,29 @@ \(fn (VAR LIST [RESULT]) BODY...)" (let ((temp (make-symbol "--cl-dolist-temp--"))) - (list 'block nil - (list* 'let (list (list temp (nth 1 spec)) (car spec)) - (list* 'while temp (list 'setq (car spec) (list 'car temp)) - (append body (list (list 'setq temp - (list 'cdr temp))))) - (if (cdr (cdr spec)) - (cons (list 'setq (car spec) nil) (cdr (cdr spec))) - '(nil)))))) + ;; FIXME: Copy&pasted from subr.el. + `(block nil + ;; This is not a reliable test, but it does not matter because both + ;; semantics are acceptable, tho one is slightly faster with dynamic + ;; scoping and the other is slightly faster (and has cleaner semantics) + ;; with lexical scoping. + ,(if lexical-binding + `(let ((,temp ,(nth 1 spec))) + (while ,temp + (let ((,(car spec) (car ,temp))) + ,@body + (setq ,temp (cdr ,temp)))) + ,@(if (cdr (cdr spec)) + ;; FIXME: This let often leads to "unused var" warnings. + `((let ((,(car spec) nil)) ,@(cdr (cdr spec)))))) + `(let ((,temp ,(nth 1 spec)) + ,(car spec)) + (while ,temp + (setq ,(car spec) (car ,temp)) + ,@body + (setq ,temp (cdr ,temp))) + ,@(if (cdr (cdr spec)) + `((setq ,(car spec) nil) ,@(cddr spec)))))))) ;;;###autoload (defmacro dotimes (spec &rest body) @@ -1253,12 +1268,30 @@ nil. \(fn (VAR COUNT [RESULT]) BODY...)" - (let ((temp (make-symbol "--cl-dotimes-temp--"))) - (list 'block nil - (list* 'let (list (list temp (nth 1 spec)) (list (car spec) 0)) - (list* 'while (list '< (car spec) temp) - (append body (list (list 'incf (car spec))))) - (or (cdr (cdr spec)) '(nil)))))) + (let ((temp (make-symbol "--cl-dotimes-temp--")) + (end (nth 1 spec))) + ;; FIXME: Copy&pasted from subr.el. + `(block nil + ;; This is not a reliable test, but it does not matter because both + ;; semantics are acceptable, tho one is slightly faster with dynamic + ;; scoping and the other has cleaner semantics. + ,(if lexical-binding + (let ((counter '--dotimes-counter--)) + `(let ((,temp ,end) + (,counter 0)) + (while (< ,counter ,temp) + (let ((,(car spec) ,counter)) + ,@body) + (setq ,counter (1+ ,counter))) + ,@(if (cddr spec) + ;; FIXME: This let often leads to "unused var" warnings. + `((let ((,(car spec) ,counter)) ,@(cddr spec)))))) + `(let ((,temp ,end) + (,(car spec) 0)) + (while (< ,(car spec) ,temp) + ,@body + (incf ,(car spec))) + ,@(cdr (cdr spec))))))) ;;;###autoload (defmacro do-symbols (spec &rest body) === modified file 'lisp/emacs-lisp/testcover.el' --- lisp/emacs-lisp/testcover.el 2011-01-25 04:08:28 +0000 +++ lisp/emacs-lisp/testcover.el 2011-06-01 14:19:45 +0000 @@ -430,7 +430,7 @@ "Turn off instrumentation of all macros and functions in FILENAME." (interactive "fStop covering file: ") (let ((buf (find-file-noselect filename))) - (eval-buffer buf t))) + (eval-buffer buf))) ;;;========================================================================= === modified file 'lisp/help-fns.el' --- lisp/help-fns.el 2011-05-28 17:40:37 +0000 +++ lisp/help-fns.el 2011-06-01 14:19:45 +0000 @@ -222,7 +222,7 @@ (defun help-do-arg-highlight (doc args) (with-syntax-table (make-syntax-table emacs-lisp-mode-syntax-table) (modify-syntax-entry ?\- "w") - (dolist (arg args doc) + (dolist (arg args) (setq doc (replace-regexp-in-string ;; This is heuristic, but covers all common cases ;; except ARG1-ARG2 @@ -236,7 +236,8 @@ "\\(?:-[{([<`\"].*?\\)?"; for ARG-{x}, (x), , [x], `x' "\\>") ; end of word (help-highlight-arg arg) - doc t t 1))))) + doc t t 1))) + doc)) (defun help-highlight-arguments (usage doc &rest args) (when (and usage (string-match "^(" usage)) === modified file 'lisp/international/ccl.el' --- lisp/international/ccl.el 2011-01-25 04:08:28 +0000 +++ lisp/international/ccl.el 2011-06-01 14:19:45 +0000 @@ -280,10 +280,10 @@ ;;;###autoload (defun ccl-compile (ccl-program) "Return the compiled code of CCL-PROGRAM as a vector of integers." - (if (or (null (consp ccl-program)) - (null (integerp (car ccl-program))) - (null (listp (car (cdr ccl-program))))) - (error "CCL: Invalid CCL program: %s" ccl-program)) + (unless (and (consp ccl-program) + (integerp (car ccl-program)) + (listp (car (cdr ccl-program)))) + (error "CCL: Invalid CCL program: %s" ccl-program)) (if (null (vectorp ccl-program-vector)) (setq ccl-program-vector (make-vector 8192 0))) (setq ccl-loop-head nil ccl-breaks nil) === modified file 'lisp/subr.el' --- lisp/subr.el 2011-05-31 18:40:00 +0000 +++ lisp/subr.el 2011-06-01 14:19:45 +0000 @@ -2926,6 +2926,7 @@ buffer temporarily current, and the window that was used to display it temporarily selected. But it doesn't run `temp-buffer-show-hook' if it uses `temp-buffer-show-function'." + (declare (debug t)) (let ((old-dir (make-symbol "old-dir")) (buf (make-symbol "buf"))) `(let* ((,old-dir default-directory) === modified file 'lisp/thingatpt.el' --- lisp/thingatpt.el 2011-05-13 17:02:56 +0000 +++ lisp/thingatpt.el 2011-06-01 14:19:45 +0000 @@ -402,7 +402,7 @@ (re-search-forward "[ \t]+\\|\n" nil 'move arg) (while (< arg 0) (if (re-search-backward "[ \t]+\\|\n" nil 'move) - (or (eq (char-after (match-beginning 0)) 10) + (or (eq (char-after (match-beginning 0)) \n) (skip-chars-backward " \t"))) (setq arg (1+ arg))))) === modified file 'src/bytecode.c' --- src/bytecode.c 2011-05-12 07:07:06 +0000 +++ src/bytecode.c 2011-06-01 14:19:45 +0000 @@ -144,7 +144,7 @@ #define Bcurrent_column 0151 #define Bindent_to 0152 #ifdef BYTE_CODE_SAFE -#define Bscan_buffer 0153 /* No longer generated as of v18 */ +#define Bscan_buffer 0153 /* No longer generated as of v18. */ #endif #define Beolp 0154 #define Beobp 0155 @@ -956,7 +956,7 @@ save_restriction_save ()); break; - case Bcatch: /* FIXME: ill-suited for lexbind */ + case Bcatch: /* FIXME: ill-suited for lexbind. */ { Lisp_Object v1; BEFORE_POTENTIAL_GC (); @@ -966,11 +966,11 @@ break; } - case Bunwind_protect: /* FIXME: avoid closure for lexbind */ + case Bunwind_protect: /* FIXME: avoid closure for lexbind. */ record_unwind_protect (Fprogn, POP); break; - case Bcondition_case: /* FIXME: ill-suited for lexbind */ + case Bcondition_case: /* FIXME: ill-suited for lexbind. */ { Lisp_Object handlers, body; handlers = POP; @@ -1779,8 +1779,8 @@ PUSH (*ptr); break; } + case Bstack_set: /* stack-set-0 = discard; stack-set-1 = discard-1-preserve-tos. */ - case Bstack_set: { Lisp_Object *ptr = top - (FETCH); *ptr = POP; ------------------------------------------------------------ revno: 104464 committer: Glenn Morris branch nick: trunk timestamp: Wed 2011-06-01 06:19:26 -0400 message: Auto-commit of loaddefs files. diff: === modified file 'lisp/ldefs-boot.el' --- lisp/ldefs-boot.el 2011-05-01 10:23:07 +0000 +++ lisp/ldefs-boot.el 2011-06-01 10:19:26 +0000 @@ -5,7 +5,7 @@ ;;;### (autoloads (5x5-crack 5x5-crack-xor-mutate 5x5-crack-mutating-best ;;;;;; 5x5-crack-mutating-current 5x5-crack-randomly 5x5) "5x5" -;;;;;; "play/5x5.el" (19889 21967)) +;;;;;; "play/5x5.el" (19932 573)) ;;; Generated autoloads from play/5x5.el (autoload '5x5 "5x5" "\ @@ -111,7 +111,7 @@ ;;;;;; 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" -;;;;;; (19885 24894)) +;;;;;; (19931 11784)) ;;; Generated autoloads from vc/add-log.el (put 'change-log-default-name 'safe-local-variable 'string-or-null-p) @@ -250,7 +250,7 @@ ;;;### (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" (19878 51661)) +;;;;;; "advice" "emacs-lisp/advice.el" (19931 11784)) ;;; Generated autoloads from emacs-lisp/advice.el (defvar ad-redefinition-action 'warn "\ @@ -486,7 +486,7 @@ ;;;### (autoloads (outlineify-sticky allout-mode allout-mode-p allout-auto-activation ;;;;;; allout-setup allout-auto-activation-helper) "allout" "allout.el" -;;;;;; (19859 11635)) +;;;;;; (19931 11784)) ;;; Generated autoloads from allout.el (autoload 'allout-auto-activation-helper "allout" "\ @@ -528,11 +528,11 @@ (custom-autoload 'allout-auto-activation "allout" nil) -(put 'allout-use-hanging-indents 'safe-local-variable (if (fboundp 'booleanp) 'booleanp '(lambda (x) (member x '(t nil))))) - -(put 'allout-reindent-bodies 'safe-local-variable '(lambda (x) (memq x '(nil t text force)))) - -(put 'allout-show-bodies 'safe-local-variable (if (fboundp 'booleanp) 'booleanp '(lambda (x) (member x '(t nil))))) +(put 'allout-use-hanging-indents 'safe-local-variable (if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil))))) + +(put 'allout-reindent-bodies 'safe-local-variable (lambda (x) (memq x '(nil t text force)))) + +(put 'allout-show-bodies 'safe-local-variable (if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil))))) (put 'allout-header-prefix 'safe-local-variable 'stringp) @@ -542,19 +542,19 @@ (put 'allout-distinctive-bullets-string 'safe-local-variable 'stringp) -(put 'allout-use-mode-specific-leader 'safe-local-variable '(lambda (x) (or (memq x '(t nil allout-mode-leaders comment-start)) (stringp x)))) - -(put 'allout-old-style-prefixes 'safe-local-variable (if (fboundp 'booleanp) 'booleanp '(lambda (x) (member x '(t nil))))) - -(put 'allout-stylish-prefixes 'safe-local-variable (if (fboundp 'booleanp) 'booleanp '(lambda (x) (member x '(t nil))))) - -(put 'allout-numbered-bullet 'safe-local-variable (if (fboundp 'string-or-null-p) 'string-or-null-p '(lambda (x) (or (stringp x) (null x))))) - -(put 'allout-file-xref-bullet 'safe-local-variable (if (fboundp 'string-or-null-p) 'string-or-null-p '(lambda (x) (or (stringp x) (null x))))) +(put 'allout-use-mode-specific-leader 'safe-local-variable (lambda (x) (or (memq x '(t nil allout-mode-leaders comment-start)) (stringp x)))) + +(put 'allout-old-style-prefixes 'safe-local-variable (if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil))))) + +(put 'allout-stylish-prefixes 'safe-local-variable (if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil))))) + +(put 'allout-numbered-bullet 'safe-local-variable (if (fboundp 'string-or-null-p) 'string-or-null-p (lambda (x) (or (stringp x) (null x))))) + +(put 'allout-file-xref-bullet 'safe-local-variable (if (fboundp 'string-or-null-p) 'string-or-null-p (lambda (x) (or (stringp x) (null x))))) (put 'allout-presentation-padding 'safe-local-variable 'integerp) -(put 'allout-layout 'safe-local-variable '(lambda (x) (or (numberp x) (listp x) (memq x '(: * + -))))) +(put 'allout-layout 'safe-local-variable (lambda (x) (or (numberp x) (listp x) (memq x '(: * + -))))) (put 'allout-passphrase-verifier-string 'safe-local-variable 'stringp) @@ -844,7 +844,7 @@ ;;;### (autoloads (allout-widgets-mode allout-widgets-auto-activation ;;;;;; allout-widgets-setup allout-widgets) "allout-widgets" "allout-widgets.el" -;;;;;; (19859 11635)) +;;;;;; (19931 11784)) ;;; 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)))) @@ -873,7 +873,7 @@ (custom-autoload 'allout-widgets-auto-activation "allout-widgets" nil) -(put 'allout-widgets-mode-inhibit 'safe-local-variable (if (fboundp 'booleanp) 'booleanp '(lambda (x) (member x '(t nil))))) +(put 'allout-widgets-mode-inhibit 'safe-local-variable (if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil))))) (autoload 'allout-widgets-mode "allout-widgets" "\ Allout-mode extension, providing graphical decoration of outline structure. @@ -903,7 +903,7 @@ ;;;*** ;;;### (autoloads (ange-ftp-hook-function ange-ftp-reread-dir) "ange-ftp" -;;;;;; "net/ange-ftp.el" (19845 45374)) +;;;;;; "net/ange-ftp.el" (19931 11784)) ;;; Generated autoloads from net/ange-ftp.el (defalias 'ange-ftp-re-read-dir 'ange-ftp-reread-dir) @@ -1015,7 +1015,7 @@ ;;;*** ;;;### (autoloads (appt-activate appt-add) "appt" "calendar/appt.el" -;;;;;; (19885 24894)) +;;;;;; (19922 19303)) ;;; Generated autoloads from calendar/appt.el (autoload 'appt-add "appt" "\ @@ -1038,7 +1038,7 @@ ;;;### (autoloads (apropos-documentation apropos-value apropos-library ;;;;;; apropos apropos-documentation-property apropos-command apropos-variable -;;;;;; apropos-read-pattern) "apropos" "apropos.el" (19891 63700)) +;;;;;; apropos-read-pattern) "apropos" "apropos.el" (19909 7240)) ;;; Generated autoloads from apropos.el (autoload 'apropos-read-pattern "apropos" "\ @@ -1233,8 +1233,8 @@ ;;;*** -;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (19845 -;;;;;; 45374)) +;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (19914 +;;;;;; 25180)) ;;; Generated autoloads from textmodes/artist.el (autoload 'artist-mode "artist" "\ @@ -1586,7 +1586,7 @@ ;;;### (autoloads (batch-update-autoloads update-directory-autoloads ;;;;;; update-file-autoloads) "autoload" "emacs-lisp/autoload.el" -;;;;;; (19863 8742)) +;;;;;; (19924 47209)) ;;; Generated autoloads from emacs-lisp/autoload.el (put 'generated-autoload-file 'safe-local-variable 'stringp) @@ -1594,30 +1594,42 @@ (put 'generated-autoload-load-name 'safe-local-variable 'stringp) (autoload 'update-file-autoloads "autoload" "\ -Update the autoloads for FILE in `generated-autoload-file' -\(which FILE might bind in its local variables). -If SAVE-AFTER is non-nil (which is always, when called interactively), -save the buffer too. +Update the autoloads for FILE. +If prefix arg SAVE-AFTER is non-nil, save the buffer too. + +If FILE binds `generated-autoload-file' as a file-local variable, +autoloads are written into that file. Otherwise, the autoloads +file is determined by OUTFILE. If called interactively, prompt +for OUTFILE; if called from Lisp with OUTFILE nil, use the +existing value of `generated-autoload-file'. Return FILE if there was no autoload cookie in it, else nil. -\(fn FILE &optional SAVE-AFTER)" t nil) +\(fn FILE &optional SAVE-AFTER OUTFILE)" t nil) (autoload 'update-directory-autoloads "autoload" "\ -Update loaddefs.el with all the current autoloads from DIRS, and no old ones. -This uses `update-file-autoloads' (which see) to do its work. -In an interactive call, you must give one argument, the name -of a single directory. In a call from Lisp, you can supply multiple +Update autoload definitions for Lisp files in the directories DIRS. +In an interactive call, you must give one argument, the name of a +single directory. In a call from Lisp, you can supply multiple directories as separate arguments, but this usage is discouraged. The function does NOT recursively descend into subdirectories of the directory or directories specified. +In an interactive call, prompt for a default output file for the +autoload definitions, and temporarily bind the variable +`generated-autoload-file' to this value. When called from Lisp, +use the existing value of `generated-autoload-file'. If any Lisp +file binds `generated-autoload-file' as a file-local variable, +write its autoloads into the specified file instead. + \(fn &rest DIRS)" t nil) (autoload 'batch-update-autoloads "autoload" "\ Update loaddefs.el autoloads in batch mode. Calls `update-directory-autoloads' on the command line arguments. +Definitions are written to `generated-autoload-file' (which +should be non-nil). \(fn)" nil nil) @@ -1812,7 +1824,7 @@ ;;;*** ;;;### (autoloads (bibtex-search-entry bibtex-mode bibtex-initialize) -;;;;;; "bibtex" "textmodes/bibtex.el" (19845 45374)) +;;;;;; "bibtex" "textmodes/bibtex.el" (19931 11784)) ;;; Generated autoloads from textmodes/bibtex.el (autoload 'bibtex-initialize "bibtex" "\ @@ -1840,7 +1852,7 @@ Some features of BibTeX mode are available only by setting the variable `bibtex-maintain-sorted-entries' to non-nil. However, then BibTeX mode -works only with buffers containing valid (syntactical correct) and sorted +works only with buffers containing valid (syntactically correct) and sorted entries. This is usually the case, if you have created a buffer completely with BibTeX mode and finished every new entry with \\[bibtex-clean-entry]. @@ -1862,7 +1874,7 @@ \\[bibtex-remove-delimiters] removes the double-quotes or braces around the text of the current field. \\[bibtex-empty-field] replaces the text of the current field with the default \"\" or {}. \\[bibtex-find-text] moves point to the end of the current field. -\\[bibtex-complete] completes word fragment before point according to context. +\\[completion-at-point] completes word fragment before point according to context. The command \\[bibtex-clean-entry] cleans the current entry, i.e. it removes OPT/ALT from the names of all non-empty optional or alternative fields, checks that @@ -2058,7 +2070,7 @@ ;;;;;; 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" (19845 45374)) +;;;;;; "bookmark.el" (19914 25180)) ;;; Generated autoloads from bookmark.el (define-key ctl-x-r-map "b" 'bookmark-jump) (define-key ctl-x-r-map "m" 'bookmark-set) @@ -2259,7 +2271,7 @@ ;;;;;; 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" -;;;;;; (19870 57559)) +;;;;;; (19911 48973)) ;;; Generated autoloads from net/browse-url.el (defvar browse-url-browser-function (cond ((memq system-type '(windows-nt ms-dos cygwin)) 'browse-url-default-windows-browser) ((memq system-type '(darwin)) 'browse-url-default-macosx-browser) (t 'browse-url-default-browser)) "\ @@ -2664,7 +2676,7 @@ ;;;;;; 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" (19881 27850)) +;;;;;; "bytecomp" "emacs-lisp/bytecomp.el" (19940 49234)) ;;; 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) @@ -2918,8 +2930,8 @@ ;;;*** -;;;### (autoloads (calculator) "calculator" "calculator.el" (19845 -;;;;;; 45374)) +;;;### (autoloads (calculator) "calculator" "calculator.el" (19931 +;;;;;; 11784)) ;;; Generated autoloads from calculator.el (autoload 'calculator "calculator" "\ @@ -2930,8 +2942,8 @@ ;;;*** -;;;### (autoloads (calendar) "calendar" "calendar/calendar.el" (19885 -;;;;;; 24894)) +;;;### (autoloads (calendar) "calendar" "calendar/calendar.el" (19923 +;;;;;; 40175)) ;;; Generated autoloads from calendar/calendar.el (autoload 'calendar "calendar" "\ @@ -3046,9 +3058,9 @@ ;;;*** -;;;### (autoloads (pike-mode idl-mode java-mode objc-mode c++-mode -;;;;;; c-mode c-initialize-cc-mode) "cc-mode" "progmodes/cc-mode.el" -;;;;;; (19845 45374)) +;;;### (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" +;;;;;; (19938 7518)) ;;; Generated autoloads from progmodes/cc-mode.el (autoload 'c-initialize-cc-mode "cc-mode" "\ @@ -3205,6 +3217,23 @@ (add-to-list 'interpreter-mode-alist '("gawk" . awk-mode)) (autoload 'awk-mode "cc-mode" "Major mode for editing AWK code." t) +(autoload 'awk-mode "cc-mode" "\ +Major mode for editing AWK code. +To submit a problem report, enter `\\[c-submit-bug-report]' from an +awk-mode buffer. This automatically sets up a mail buffer with version +information already added. You just need to add a description of the +problem, including a reproducible test case, and send the message. + +To see what version of CC Mode you are running, enter `\\[c-version]'. + +The hook `c-mode-common-hook' is run with no args at mode +initialization, then `awk-mode-hook'. + +Key bindings: +\\{awk-mode-map} + +\(fn)" t nil) + ;;;*** ;;;### (autoloads (c-set-offset c-add-style c-set-style) "cc-styles" @@ -3560,7 +3589,7 @@ ;;;*** ;;;### (autoloads (check-declare-directory check-declare-file) "check-declare" -;;;;;; "emacs-lisp/check-declare.el" (19845 45374)) +;;;;;; "emacs-lisp/check-declare.el" (19906 31087)) ;;; Generated autoloads from emacs-lisp/check-declare.el (autoload 'check-declare-file "check-declare" "\ @@ -3585,7 +3614,7 @@ ;;;;;; 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" (19845 45374)) +;;;;;; "checkdoc" "emacs-lisp/checkdoc.el" (19931 11784)) ;;; 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) @@ -3873,7 +3902,7 @@ ;;;*** ;;;### (autoloads (common-lisp-indent-function) "cl-indent" "emacs-lisp/cl-indent.el" -;;;;;; (19845 45374)) +;;;;;; (19918 22236)) ;;; Generated autoloads from emacs-lisp/cl-indent.el (autoload 'common-lisp-indent-function "cl-indent" "\ @@ -3886,7 +3915,7 @@ of this function. If the indentation point is in a call to a Lisp function, that -function's common-lisp-indent-function property specifies how +function's `common-lisp-indent-function' property specifies how this function should indent it. Possible values for this property are: @@ -4016,7 +4045,7 @@ ;;;### (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" -;;;;;; (19888 1100)) +;;;;;; (19931 11784)) ;;; Generated autoloads from comint.el (defvar comint-output-filter-functions '(comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt) "\ @@ -4148,8 +4177,8 @@ ;;;;;; 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" (19890 -;;;;;; 42850)) +;;;;;; compilation-mode-hook) "compile" "progmodes/compile.el" (19913 +;;;;;; 4309)) ;;; Generated autoloads from progmodes/compile.el (defvar compilation-mode-hook nil "\ @@ -4573,7 +4602,7 @@ ;;;*** ;;;### (autoloads (cperl-perldoc-at-point cperl-perldoc cperl-mode) -;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (19845 45374)) +;;;;;; "cperl-mode" "progmodes/cperl-mode.el" (19931 11784)) ;;; Generated autoloads from progmodes/cperl-mode.el (put 'cperl-indent-level 'safe-local-variable 'integerp) (put 'cperl-brace-offset 'safe-local-variable 'integerp) @@ -5401,8 +5430,8 @@ ;;;*** -;;;### (autoloads (dbus-handle-event) "dbus" "net/dbus.el" (19845 -;;;;;; 45374)) +;;;### (autoloads (dbus-handle-event) "dbus" "net/dbus.el" (19931 +;;;;;; 11784)) ;;; Generated autoloads from net/dbus.el (autoload 'dbus-handle-event "dbus" "\ @@ -5543,7 +5572,7 @@ ;;;*** ;;;### (autoloads (cancel-debug-on-entry debug-on-entry debug) "debug" -;;;;;; "emacs-lisp/debug.el" (19845 45374)) +;;;;;; "emacs-lisp/debug.el" (19942 4565)) ;;; Generated autoloads from emacs-lisp/debug.el (setq debugger 'debug) @@ -6035,7 +6064,7 @@ ;;;*** ;;;### (autoloads (diary-mode diary-mail-entries diary) "diary-lib" -;;;;;; "calendar/diary-lib.el" (19885 24894)) +;;;;;; "calendar/diary-lib.el" (19923 40175)) ;;; Generated autoloads from calendar/diary-lib.el (autoload 'diary "diary-lib" "\ @@ -6078,7 +6107,7 @@ ;;;*** ;;;### (autoloads (diff-buffer-with-file diff-backup diff diff-command -;;;;;; diff-switches) "diff" "vc/diff.el" (19845 45374)) +;;;;;; diff-switches) "diff" "vc/diff.el" (19903 54862)) ;;; Generated autoloads from vc/diff.el (defvar diff-switches (purecopy "-c") "\ @@ -6122,7 +6151,7 @@ ;;;*** ;;;### (autoloads (diff-minor-mode diff-mode) "diff-mode" "vc/diff-mode.el" -;;;;;; (19863 8742)) +;;;;;; (19930 13389)) ;;; Generated autoloads from vc/diff-mode.el (autoload 'diff-mode "diff-mode" "\ @@ -6162,7 +6191,7 @@ ;;;*** ;;;### (autoloads (dired-mode dired-noselect dired-other-frame dired-other-window -;;;;;; dired dired-listing-switches) "dired" "dired.el" (19886 46089)) +;;;;;; dired dired-listing-switches) "dired" "dired.el" (19927 37312)) ;;; Generated autoloads from dired.el (defvar dired-listing-switches (purecopy "-al") "\ @@ -6311,8 +6340,8 @@ ;;;*** -;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (19863 -;;;;;; 8742)) +;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (19931 +;;;;;; 11784)) ;;; Generated autoloads from emacs-lisp/disass.el (autoload 'disassemble "disass" "\ @@ -6514,8 +6543,8 @@ ;;;*** ;;;### (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" (19872 -;;;;;; 12877)) +;;;;;; doc-view-mode doc-view-mode-p) "doc-view" "doc-view.el" (19913 +;;;;;; 4309)) ;;; Generated autoloads from doc-view.el (autoload 'doc-view-mode-p "doc-view" "\ @@ -7331,7 +7360,7 @@ ;;;*** -;;;### (autoloads (global-ede-mode) "ede" "cedet/ede.el" (19845 45374)) +;;;### (autoloads (global-ede-mode) "ede" "cedet/ede.el" (19914 25180)) ;;; Generated autoloads from cedet/ede.el (defvar global-ede-mode nil "\ @@ -7686,7 +7715,7 @@ ;;;*** ;;;### (autoloads (ediff-toggle-use-toolbar ediff-toggle-multiframe) -;;;;;; "ediff-util" "vc/ediff-util.el" (19845 45374)) +;;;;;; "ediff-util" "vc/ediff-util.el" (19931 11784)) ;;; Generated autoloads from vc/ediff-util.el (autoload 'ediff-toggle-multiframe "ediff-util" "\ @@ -7996,7 +8025,7 @@ ;;;*** ;;;### (autoloads (report-emacs-bug) "emacsbug" "mail/emacsbug.el" -;;;;;; (19845 45374)) +;;;;;; (19942 4565)) ;;; Generated autoloads from mail/emacsbug.el (autoload 'report-emacs-bug "emacsbug" "\ @@ -8425,7 +8454,7 @@ ;;;*** ;;;### (autoloads (erc-handle-irc-url erc erc-select-read-args) "erc" -;;;;;; "erc/erc.el" (19895 48172)) +;;;;;; "erc/erc.el" (19903 54862)) ;;; Generated autoloads from erc/erc.el (autoload 'erc-select-read-args "erc" "\ @@ -8786,8 +8815,8 @@ ;;;*** -;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (19899 -;;;;;; 57784)) +;;;### (autoloads nil "erc-pcomplete" "erc/erc-pcomplete.el" (19936 +;;;;;; 52203)) ;;; Generated autoloads from erc/erc-pcomplete.el (autoload 'erc-completion-mode "erc-pcomplete" nil t) @@ -9048,7 +9077,7 @@ ;;;;;; 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" -;;;;;; (19893 19022)) +;;;;;; (19936 52203)) ;;; Generated autoloads from progmodes/etags.el (defvar tags-file-name nil "\ @@ -9532,7 +9561,7 @@ ;;;### (autoloads (eudc-load-eudc eudc-query-form eudc-expand-inline ;;;;;; eudc-get-phone eudc-get-email eudc-set-server) "eudc" "net/eudc.el" -;;;;;; (19845 45374)) +;;;;;; (19931 11784)) ;;; Generated autoloads from net/eudc.el (autoload 'eudc-set-server "eudc" "\ @@ -9624,7 +9653,7 @@ ;;;*** ;;;### (autoloads (eudc-try-bbdb-insert eudc-insert-record-at-point-into-bbdb) -;;;;;; "eudc-export" "net/eudc-export.el" (19845 45374)) +;;;;;; "eudc-export" "net/eudc-export.el" (19931 11784)) ;;; Generated autoloads from net/eudc-export.el (autoload 'eudc-insert-record-at-point-into-bbdb "eudc-export" "\ @@ -9641,7 +9670,7 @@ ;;;*** ;;;### (autoloads (eudc-edit-hotlist) "eudc-hotlist" "net/eudc-hotlist.el" -;;;;;; (19845 45374)) +;;;;;; (19931 11784)) ;;; Generated autoloads from net/eudc-hotlist.el (autoload 'eudc-edit-hotlist "eudc-hotlist" "\ @@ -9773,7 +9802,7 @@ ;;;*** -;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (19882 48702)) +;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (19931 11784)) ;;; Generated autoloads from progmodes/f90.el (autoload 'f90-mode "f90" "\ @@ -9980,7 +10009,7 @@ ;;;### (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" (19845 45374)) +;;;;;; feedmail-send-it) "feedmail" "mail/feedmail.el" (19931 11784)) ;;; Generated autoloads from mail/feedmail.el (autoload 'feedmail-send-it "feedmail" "\ @@ -10649,7 +10678,7 @@ ;;;### (autoloads (flyspell-buffer flyspell-region flyspell-mode-off ;;;;;; turn-off-flyspell turn-on-flyspell flyspell-mode flyspell-prog-mode) -;;;;;; "flyspell" "textmodes/flyspell.el" (19865 50420)) +;;;;;; "flyspell" "textmodes/flyspell.el" (19931 11784)) ;;; Generated autoloads from textmodes/flyspell.el (autoload 'flyspell-prog-mode "flyspell" "\ @@ -10792,8 +10821,8 @@ ;;;*** -;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (19845 -;;;;;; 45374)) +;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (19913 +;;;;;; 4309)) ;;; Generated autoloads from mail/footnote.el (autoload 'footnote-mode "footnote" "\ @@ -10844,7 +10873,7 @@ ;;;*** ;;;### (autoloads (fortran-mode) "fortran" "progmodes/fortran.el" -;;;;;; (19890 42850)) +;;;;;; (19905 10215)) ;;; Generated autoloads from progmodes/fortran.el (autoload 'fortran-mode "fortran" "\ @@ -10922,7 +10951,7 @@ ;;;*** ;;;### (autoloads (fortune fortune-to-signature fortune-compile fortune-from-region -;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (19889 21967)) +;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (19931 11784)) ;;; Generated autoloads from play/fortune.el (autoload 'fortune-add-fortune "fortune" "\ @@ -10971,7 +11000,7 @@ ;;;*** ;;;### (autoloads (gdb gdb-enable-debug) "gdb-mi" "progmodes/gdb-mi.el" -;;;;;; (19890 42850)) +;;;;;; (19931 11784)) ;;; Generated autoloads from progmodes/gdb-mi.el (defvar gdb-enable-debug nil "\ @@ -11110,7 +11139,7 @@ ;;;*** ;;;### (autoloads (glasses-mode) "glasses" "progmodes/glasses.el" -;;;;;; (19890 42850)) +;;;;;; (19906 31087)) ;;; Generated autoloads from progmodes/glasses.el (autoload 'glasses-mode "glasses" "\ @@ -11179,7 +11208,7 @@ ;;;*** ;;;### (autoloads (gnus gnus-other-frame gnus-slave gnus-no-server -;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (19889 21967)) +;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (19931 11784)) ;;; Generated autoloads from gnus/gnus.el (when (fboundp 'custom-autoload) (custom-autoload 'gnus-select-method "gnus")) @@ -11232,7 +11261,7 @@ ;;;;;; 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" (19860 32495)) +;;;;;; "gnus/gnus-agent.el" (19903 54862)) ;;; Generated autoloads from gnus/gnus-agent.el (autoload 'gnus-unplugged "gnus-agent" "\ @@ -11323,7 +11352,7 @@ ;;;*** ;;;### (autoloads (gnus-article-prepare-display) "gnus-art" "gnus/gnus-art.el" -;;;;;; (19874 54611)) +;;;;;; (19931 34253)) ;;; Generated autoloads from gnus/gnus-art.el (autoload 'gnus-article-prepare-display "gnus-art" "\ @@ -11402,7 +11431,7 @@ ;;;*** ;;;### (autoloads (gnus-delay-initialize gnus-delay-send-queue gnus-delay-article) -;;;;;; "gnus-delay" "gnus/gnus-delay.el" (19845 45374)) +;;;;;; "gnus-delay" "gnus/gnus-delay.el" (19931 11784)) ;;; Generated autoloads from gnus/gnus-delay.el (autoload 'gnus-delay-article "gnus-delay" "\ @@ -11541,7 +11570,7 @@ ;;;*** ;;;### (autoloads (gnus-fetch-group-other-frame gnus-fetch-group) -;;;;;; "gnus-group" "gnus/gnus-group.el" (19845 45374)) +;;;;;; "gnus-group" "gnus/gnus-group.el" (19940 49234)) ;;; Generated autoloads from gnus/gnus-group.el (autoload 'gnus-fetch-group "gnus-group" "\ @@ -11559,7 +11588,7 @@ ;;;*** ;;;### (autoloads (gnus-html-prefetch-images gnus-article-html) "gnus-html" -;;;;;; "gnus/gnus-html.el" (19845 45374)) +;;;;;; "gnus/gnus-html.el" (19917 1372)) ;;; Generated autoloads from gnus/gnus-html.el (autoload 'gnus-article-html "gnus-html" "\ @@ -11837,7 +11866,7 @@ ;;;*** ;;;### (autoloads (gnus-registry-install-hooks gnus-registry-initialize) -;;;;;; "gnus-registry" "gnus/gnus-registry.el" (19893 19022)) +;;;;;; "gnus-registry" "gnus/gnus-registry.el" (19942 4565)) ;;; Generated autoloads from gnus/gnus-registry.el (autoload 'gnus-registry-initialize "gnus-registry" "\ @@ -11893,7 +11922,7 @@ ;;;*** ;;;### (autoloads (gnus-declare-backend) "gnus-start" "gnus/gnus-start.el" -;;;;;; (19877 30798)) +;;;;;; (19906 31087)) ;;; Generated autoloads from gnus/gnus-start.el (autoload 'gnus-declare-backend "gnus-start" "\ @@ -11904,7 +11933,7 @@ ;;;*** ;;;### (autoloads (gnus-summary-bookmark-jump) "gnus-sum" "gnus/gnus-sum.el" -;;;;;; (19890 42850)) +;;;;;; (19942 4565)) ;;; Generated autoloads from gnus/gnus-sum.el (autoload 'gnus-summary-bookmark-jump "gnus-sum" "\ @@ -12027,7 +12056,7 @@ ;;;### (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" (19864 29553)) +;;;;;; grep-window-height) "grep" "progmodes/grep.el" (19930 13389)) ;;; Generated autoloads from progmodes/grep.el (defvar grep-window-height nil "\ @@ -12198,7 +12227,7 @@ ;;;*** ;;;### (autoloads (gud-tooltip-mode gdb-script-mode jdb pdb perldb -;;;;;; xdb dbx sdb gud-gdb) "gud" "progmodes/gud.el" (19890 42850)) +;;;;;; xdb dbx sdb gud-gdb) "gud" "progmodes/gud.el" (19931 11784)) ;;; Generated autoloads from progmodes/gud.el (autoload 'gud-gdb "gud" "\ @@ -12507,7 +12536,7 @@ ;;;### (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" (19878 51661)) +;;;;;; "help-fns" "help-fns.el" (19938 7518)) ;;; Generated autoloads from help-fns.el (autoload 'describe-function "help-fns" "\ @@ -12984,7 +13013,7 @@ ;;;*** ;;;### (autoloads (turn-off-hideshow hs-minor-mode) "hideshow" "progmodes/hideshow.el" -;;;;;; (19890 42850)) +;;;;;; (19938 7518)) ;;; 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))) "\ @@ -13046,8 +13075,8 @@ ;;;;;; 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" (19886 -;;;;;; 45771)) +;;;;;; highlight-changes-mode) "hilit-chg" "hilit-chg.el" (19931 +;;;;;; 11784)) ;;; Generated autoloads from hilit-chg.el (autoload 'highlight-changes-mode "hilit-chg" "\ @@ -13677,8 +13706,8 @@ ;;;*** -;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (19874 -;;;;;; 54611)) +;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (19940 +;;;;;; 49234)) ;;; Generated autoloads from icomplete.el (defvar icomplete-mode nil "\ @@ -13740,7 +13769,7 @@ ;;;*** ;;;### (autoloads (idlwave-shell) "idlw-shell" "progmodes/idlw-shell.el" -;;;;;; (19845 45374)) +;;;;;; (19931 11784)) ;;; Generated autoloads from progmodes/idlw-shell.el (autoload 'idlwave-shell "idlw-shell" "\ @@ -13900,8 +13929,8 @@ ;;;;;; ido-find-alternate-file ido-find-file-other-window ido-find-file ;;;;;; ido-find-file-in-dir ido-switch-buffer-other-frame ido-insert-buffer ;;;;;; ido-kill-buffer ido-display-buffer ido-switch-buffer-other-window -;;;;;; ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (19886 -;;;;;; 45771)) +;;;;;; ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (19931 +;;;;;; 11784)) ;;; Generated autoloads from ido.el (defvar ido-mode nil "\ @@ -14162,7 +14191,7 @@ ;;;*** -;;;### (autoloads (ielm) "ielm" "ielm.el" (19886 45771)) +;;;### (autoloads (ielm) "ielm" "ielm.el" (19931 11784)) ;;; Generated autoloads from ielm.el (add-hook 'same-window-buffer-names (purecopy "*ielm*")) @@ -14191,7 +14220,7 @@ ;;;;;; put-image 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" -;;;;;; (19849 29307)) +;;;;;; (19939 28373)) ;;; Generated autoloads from image.el (autoload 'image-type-from-data "image" "\ @@ -14368,7 +14397,7 @@ (put 'defimage 'doc-string-elt '3) (autoload 'create-animated-image "image" "\ -Create an animated image. +Create an animated image, and begin animating it. FILE-OR-DATA is an image file name or image data. Optional TYPE is a symbol describing the image type. If TYPE is omitted or nil, try to determine the image type from its first few bytes @@ -14384,7 +14413,13 @@ \(fn FILE-OR-DATA &optional TYPE DATA-P &rest PROPS)" nil nil) (autoload 'imagemagick-register-types "image" "\ -Register the file types that ImageMagick is able to handle. +Register file types that can be handled by ImageMagick. +This adds the file types returned by `imagemagick-types' +\(excluding the ones in `imagemagick-types-inhibit') to +`auto-mode-alist' and `image-type-file-name-regexps', so that +Emacs visits them in Image mode. + +If Emacs is compiled without ImageMagick support, do nothing. \(fn)" nil nil) @@ -14397,7 +14432,7 @@ ;;;;;; 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" (19886 45771)) +;;;;;; "image-dired" "image-dired.el" (19931 11784)) ;;; Generated autoloads from image-dired.el (autoload 'image-dired-dired-toggle-marked-thumbs "image-dired" "\ @@ -14597,7 +14632,7 @@ ;;;*** ;;;### (autoloads (image-bookmark-jump image-mode-as-text image-minor-mode -;;;;;; image-mode) "image-mode" "image-mode.el" (19890 42850)) +;;;;;; image-mode) "image-mode" "image-mode.el" (19939 28373)) ;;; Generated autoloads from image-mode.el (autoload 'image-mode "image-mode" "\ @@ -15042,7 +15077,7 @@ ;;;### (autoloads (info-complete-file info-complete-symbol info-lookup-file ;;;;;; info-lookup-symbol info-lookup-reset) "info-look" "info-look.el" -;;;;;; (19845 45374)) +;;;;;; (19936 52203)) ;;; Generated autoloads from info-look.el (autoload 'info-lookup-reset "info-look" "\ @@ -15361,7 +15396,7 @@ ;;;;;; ispell-complete-word ispell-continue 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" (19845 45374)) +;;;;;; "ispell" "textmodes/ispell.el" (19905 10215)) ;;; Generated autoloads from textmodes/ispell.el (put 'ispell-check-comments 'safe-local-variable (lambda (a) (memq a '(nil t exclusive)))) @@ -15581,8 +15616,8 @@ ;;;*** -;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (19886 -;;;;;; 45771)) +;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (19931 +;;;;;; 11784)) ;;; Generated autoloads from iswitchb.el (defvar iswitchb-mode nil "\ @@ -15708,7 +15743,7 @@ ;;;*** -;;;### (autoloads (js-mode) "js" "progmodes/js.el" (19890 42850)) +;;;### (autoloads (js-mode) "js" "progmodes/js.el" (19914 25180)) ;;; Generated autoloads from progmodes/js.el (autoload 'js-mode "js" "\ @@ -16096,7 +16131,7 @@ ;;;*** ;;;### (autoloads (ld-script-mode) "ld-script" "progmodes/ld-script.el" -;;;;;; (19845 45374)) +;;;;;; (19917 1372)) ;;; Generated autoloads from progmodes/ld-script.el (autoload 'ld-script-mode "ld-script" "\ @@ -16339,8 +16374,8 @@ ;;;*** ;;;### (autoloads (print-region lpr-region print-buffer lpr-buffer -;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (19845 -;;;;;; 45374)) +;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (19909 +;;;;;; 7240)) ;;; Generated autoloads from lpr.el (defvar lpr-windows-system (memq system-type '(ms-dos windows-nt))) @@ -16472,7 +16507,7 @@ ;;;*** ;;;### (autoloads (macroexpand-all) "macroexp" "emacs-lisp/macroexp.el" -;;;;;; (19863 8742)) +;;;;;; (19930 13389)) ;;; Generated autoloads from emacs-lisp/macroexp.el (autoload 'macroexpand-all "macroexp" "\ @@ -16639,7 +16674,7 @@ ;;;### (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" (19845 45374)) +;;;;;; "mail-utils" "mail/mail-utils.el" (19922 19303)) ;;; Generated autoloads from mail/mail-utils.el (defvar mail-use-rfc822 nil "\ @@ -17059,7 +17094,7 @@ ;;;;;; 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" (19881 27850)) +;;;;;; "gnus/message.el" (19940 49234)) ;;; 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) @@ -17377,7 +17412,7 @@ ;;;*** -;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (19898 36953)) +;;;### (autoloads (mh-version) "mh-e" "mh-e/mh-e.el" (19931 11784)) ;;; Generated autoloads from mh-e/mh-e.el (put 'mh-progs 'risky-local-variable t) @@ -17530,7 +17565,8 @@ ;;;*** -;;;### (autoloads (butterfly) "misc" "misc.el" (19845 45374)) +;;;### (autoloads (list-dynamic-libraries butterfly) "misc" "misc.el" +;;;;;; (19913 4309)) ;;; Generated autoloads from misc.el (autoload 'butterfly "misc" "\ @@ -17545,6 +17581,17 @@ \(fn)" t nil) +(autoload 'list-dynamic-libraries "misc" "\ +Display a list of all dynamic libraries known to Emacs. +\(These are the libraries listed in `dynamic-library-alist'.) +If optional argument LOADED-ONLY-P (interactively, prefix arg) +is non-nil, only libraries already loaded are listed. +Optional argument BUFFER specifies a buffer to use, instead of +\"*Dynamic Libraries*\". +The return value is always nil. + +\(fn &optional LOADED-ONLY-P BUFFER)" t nil) + ;;;*** ;;;### (autoloads (multi-isearch-files-regexp multi-isearch-files @@ -17631,7 +17678,7 @@ ;;;*** ;;;### (autoloads (mixal-mode) "mixal-mode" "progmodes/mixal-mode.el" -;;;;;; (19845 45374)) +;;;;;; (19931 11784)) ;;; Generated autoloads from progmodes/mixal-mode.el (autoload 'mixal-mode "mixal-mode" "\ @@ -17712,7 +17759,7 @@ ;;;*** ;;;### (autoloads (mml1991-sign mml1991-encrypt) "mml1991" "gnus/mml1991.el" -;;;;;; (19845 45374)) +;;;;;; (19940 49234)) ;;; Generated autoloads from gnus/mml1991.el (autoload 'mml1991-encrypt "mml1991" "\ @@ -17950,7 +17997,7 @@ ;;;*** -;;;### (autoloads (msb-mode) "msb" "msb.el" (19845 45374)) +;;;### (autoloads (msb-mode) "msb" "msb.el" (19931 11784)) ;;; Generated autoloads from msb.el (defvar msb-mode nil "\ @@ -18363,7 +18410,7 @@ ;;;*** ;;;### (autoloads (open-network-stream) "network-stream" "net/network-stream.el" -;;;;;; (19893 19022)) +;;;;;; (19906 31087)) ;;; Generated autoloads from net/network-stream.el (autoload 'open-network-stream "network-stream" "\ @@ -18427,6 +18474,9 @@ capability command, and should return the command to switch on STARTTLS if the server supports STARTTLS, and nil otherwise. +:nowait is a boolean that says the connection should be made +asynchronously, if possible. + \(fn NAME BUFFER HOST SERVICE &rest PARAMETERS)" nil nil) (defalias 'open-protocol-stream 'open-network-stream) @@ -18438,7 +18488,7 @@ ;;;;;; uncomment-region comment-kill comment-set-column comment-indent ;;;;;; comment-indent-default comment-normalize-vars comment-multi-line ;;;;;; comment-padding comment-style comment-column) "newcomment" -;;;;;; "newcomment.el" (19863 8742)) +;;;;;; "newcomment.el" (19938 7518)) ;;; Generated autoloads from newcomment.el (defalias 'indent-for-comment 'comment-indent) @@ -18477,7 +18527,7 @@ (put 'comment-start-skip 'safe-local-variable 'string-or-null-p) (defvar comment-end-skip nil "\ -Regexp to match the end of a comment plus everything up to its body.") +Regexp to match the end of a comment plus everything back to its body.") (put 'comment-end-skip 'safe-local-variable 'string-or-null-p) (defvar comment-end (purecopy "") "\ @@ -18638,7 +18688,7 @@ ;;;*** ;;;### (autoloads (newsticker-start newsticker-running-p) "newst-backend" -;;;;;; "net/newst-backend.el" (19845 45374)) +;;;;;; "net/newst-backend.el" (19918 22236)) ;;; Generated autoloads from net/newst-backend.el (autoload 'newsticker-running-p "newst-backend" "\ @@ -18660,7 +18710,7 @@ ;;;*** ;;;### (autoloads (newsticker-plainview) "newst-plainview" "net/newst-plainview.el" -;;;;;; (19845 45374)) +;;;;;; (19918 22236)) ;;; Generated autoloads from net/newst-plainview.el (autoload 'newsticker-plainview "newst-plainview" "\ @@ -18671,7 +18721,7 @@ ;;;*** ;;;### (autoloads (newsticker-show-news) "newst-reader" "net/newst-reader.el" -;;;;;; (19845 45374)) +;;;;;; (19918 22236)) ;;; Generated autoloads from net/newst-reader.el (autoload 'newsticker-show-news "newst-reader" "\ @@ -18703,7 +18753,7 @@ ;;;*** ;;;### (autoloads (newsticker-treeview) "newst-treeview" "net/newst-treeview.el" -;;;;;; (19845 45374)) +;;;;;; (19918 22236)) ;;; Generated autoloads from net/newst-treeview.el (autoload 'newsticker-treeview "newst-treeview" "\ @@ -18823,8 +18873,8 @@ ;;;*** -;;;### (autoloads (nxml-mode) "nxml-mode" "nxml/nxml-mode.el" (19845 -;;;;;; 45374)) +;;;### (autoloads (nxml-mode) "nxml-mode" "nxml/nxml-mode.el" (19927 +;;;;;; 37225)) ;;; Generated autoloads from nxml/nxml-mode.el (autoload 'nxml-mode "nxml-mode" "\ @@ -19279,7 +19329,7 @@ ;;;;;; org-insert-link-global org-store-link org-run-like-in-org-mode ;;;;;; turn-on-orgstruct++ turn-on-orgstruct orgstruct-mode org-global-cycle ;;;;;; org-mode org-babel-do-load-languages) "org" "org/org.el" -;;;;;; (19845 45374)) +;;;;;; (19931 11784)) ;;; Generated autoloads from org/org.el (autoload 'org-babel-do-load-languages "org" "\ @@ -19502,7 +19552,7 @@ ;;;;;; org-diary org-agenda-list-stuck-projects org-tags-view org-todo-list ;;;;;; org-search-view org-agenda-list org-batch-store-agenda-views ;;;;;; org-store-agenda-views org-batch-agenda-csv org-batch-agenda -;;;;;; org-agenda) "org-agenda" "org/org-agenda.el" (19845 45374)) +;;;;;; org-agenda) "org-agenda" "org/org-agenda.el" (19914 25180)) ;;; Generated autoloads from org/org-agenda.el (autoload 'org-agenda "org-agenda" "\ @@ -19772,8 +19822,8 @@ ;;;### (autoloads (org-export-as-ascii org-export-region-as-ascii ;;;;;; org-replace-region-by-ascii org-export-as-ascii-to-buffer ;;;;;; org-export-as-utf8-to-buffer org-export-as-utf8 org-export-as-latin1-to-buffer -;;;;;; org-export-as-latin1) "org-ascii" "org/org-ascii.el" (19845 -;;;;;; 45374)) +;;;;;; org-export-as-latin1) "org-ascii" "org/org-ascii.el" (19931 +;;;;;; 11784)) ;;; Generated autoloads from org/org-ascii.el (autoload 'org-export-as-latin1 "org-ascii" "\ @@ -19846,8 +19896,8 @@ ;;;*** -;;;### (autoloads (org-attach) "org-attach" "org/org-attach.el" (19845 -;;;;;; 45374)) +;;;### (autoloads (org-attach) "org-attach" "org/org-attach.el" (19931 +;;;;;; 11784)) ;;; Generated autoloads from org/org-attach.el (autoload 'org-attach "org-attach" "\ @@ -20019,7 +20069,7 @@ ;;;### (autoloads (org-insert-export-options-template org-export-as-org ;;;;;; org-export-visible org-export) "org-exp" "org/org-exp.el" -;;;;;; (19845 45374)) +;;;;;; (19931 11784)) ;;; Generated autoloads from org/org-exp.el (autoload 'org-export "org-exp" "\ @@ -20193,7 +20243,7 @@ ;;;### (autoloads (org-export-htmlize-generate-css org-export-as-html ;;;;;; org-export-region-as-html org-replace-region-by-html org-export-as-html-to-buffer ;;;;;; org-export-as-html-batch org-export-as-html-and-open) "org-html" -;;;;;; "org/org-html.el" (19845 45374)) +;;;;;; "org/org-html.el" (19931 11784)) ;;; Generated autoloads from org/org-html.el (put 'org-export-html-style-include-default 'safe-local-variable 'booleanp) @@ -20642,7 +20692,7 @@ ;;;*** ;;;### (autoloads (org-table-to-lisp orgtbl-mode turn-on-orgtbl) -;;;;;; "org-table" "org/org-table.el" (19845 45374)) +;;;;;; "org-table" "org/org-table.el" (19914 25180)) ;;; Generated autoloads from org/org-table.el (autoload 'turn-on-orgtbl "org-table" "\ @@ -21194,8 +21244,8 @@ ;;;### (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" (19899 -;;;;;; 57784)) +;;;;;; pcomplete-reverse pcomplete) "pcomplete" "pcomplete.el" (19931 +;;;;;; 11784)) ;;; Generated autoloads from pcomplete.el (autoload 'pcomplete "pcomplete" "\ @@ -21337,7 +21387,7 @@ ;;;*** ;;;### (autoloads (perl-mode) "perl-mode" "progmodes/perl-mode.el" -;;;;;; (19890 42850)) +;;;;;; (19911 48973)) ;;; Generated autoloads from progmodes/perl-mode.el (put 'perl-indent-level 'safe-local-variable 'integerp) (put 'perl-continued-statement-offset 'safe-local-variable 'integerp) @@ -21507,7 +21557,7 @@ ;;;*** -;;;### (autoloads (pop3-movemail) "pop3" "gnus/pop3.el" (19845 45374)) +;;;### (autoloads (pop3-movemail) "pop3" "gnus/pop3.el" (19940 49234)) ;;; Generated autoloads from gnus/pop3.el (autoload 'pop3-movemail "pop3" "\ @@ -22290,8 +22340,8 @@ ;;;;;; ps-spool-region ps-spool-buffer-with-faces ps-spool-buffer ;;;;;; ps-print-region-with-faces ps-print-region ps-print-buffer-with-faces ;;;;;; ps-print-buffer ps-print-customize ps-print-color-p ps-paper-type -;;;;;; ps-page-dimensions-database) "ps-print" "ps-print.el" (19886 -;;;;;; 45771)) +;;;;;; ps-page-dimensions-database) "ps-print" "ps-print.el" (19931 +;;;;;; 11784)) ;;; 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"))) "\ @@ -22488,7 +22538,7 @@ ;;;*** ;;;### (autoloads (jython-mode python-mode run-python) "python" "progmodes/python.el" -;;;;;; (19890 42850)) +;;;;;; (19931 11784)) ;;; Generated autoloads from progmodes/python.el (add-to-list 'interpreter-mode-alist (cons (purecopy "jython") 'jython-mode)) @@ -22591,7 +22641,7 @@ ;;;;;; 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" (19845 45374)) +;;;;;; "international/quail.el" (19931 11784)) ;;; Generated autoloads from international/quail.el (autoload 'quail-title "quail" "\ @@ -22895,7 +22945,7 @@ ;;;*** ;;;### (autoloads (rcirc-track-minor-mode rcirc-connect rcirc) "rcirc" -;;;;;; "net/rcirc.el" (19898 36953)) +;;;;;; "net/rcirc.el" (19942 4565)) ;;; Generated autoloads from net/rcirc.el (autoload 'rcirc "rcirc" "\ @@ -22912,7 +22962,7 @@ (autoload 'rcirc-connect "rcirc" "\ -\(fn SERVER &optional PORT NICK USER-NAME FULL-NAME STARTUP-CHANNELS PASSWORD)" nil nil) +\(fn SERVER &optional PORT NICK USER-NAME FULL-NAME STARTUP-CHANNELS PASSWORD ENCRYPTION)" nil nil) (defvar rcirc-track-minor-mode nil "\ Non-nil if Rcirc-Track minor mode is enabled. @@ -22943,13 +22993,19 @@ ;;;*** ;;;### (autoloads (re-builder) "re-builder" "emacs-lisp/re-builder.el" -;;;;;; (19865 50420)) +;;;;;; (19938 7518)) ;;; Generated autoloads from emacs-lisp/re-builder.el (defalias 'regexp-builder 're-builder) (autoload 're-builder "re-builder" "\ Construct a regexp interactively. +This command makes the current buffer the \"target\" buffer of +the regexp builder. It displays a buffer named \"*RE-Builder*\" +in another window, initially containing an empty regexp. + +As you edit the regexp in the \"*RE-Builder*\" buffer, the +matching parts of the target buffer will be highlighted. \(fn)" t nil) @@ -23837,8 +23893,8 @@ ;;;*** -;;;### (autoloads (rng-xsd-compile) "rng-xsd" "nxml/rng-xsd.el" (19845 -;;;;;; 45374)) +;;;### (autoloads (rng-xsd-compile) "rng-xsd" "nxml/rng-xsd.el" (19930 +;;;;;; 13389)) ;;; Generated autoloads from nxml/rng-xsd.el (put 'http://www\.w3\.org/2001/XMLSchema-datatypes 'rng-dt-compile 'rng-xsd-compile) @@ -23937,7 +23993,7 @@ ;;;*** ;;;### (autoloads (rst-minor-mode rst-mode) "rst" "textmodes/rst.el" -;;;;;; (19845 45374)) +;;;;;; (19932 55155)) ;;; Generated autoloads from textmodes/rst.el (add-to-list 'auto-mode-alist (purecopy '("\\.re?st\\'" . rst-mode))) @@ -24500,7 +24556,7 @@ ;;;;;; mail-yank-prefix mail-setup-hook mail-personal-alias-file ;;;;;; mail-default-reply-to mail-archive-file-name mail-header-separator ;;;;;; send-mail-function mail-interactive mail-self-blind mail-specify-envelope-from -;;;;;; mail-from-style) "sendmail" "mail/sendmail.el" (19881 27850)) +;;;;;; mail-from-style) "sendmail" "mail/sendmail.el" (19935 31309)) ;;; Generated autoloads from mail/sendmail.el (defvar mail-from-style 'default "\ @@ -24543,9 +24599,9 @@ (custom-autoload 'mail-interactive "sendmail" t) -(put 'send-mail-function 'standard-value '((if (and window-system (memq system-type '(darwin windows-nt))) 'mailclient-send-it 'sendmail-send-it))) +(put 'send-mail-function 'standard-value '((if (or (and window-system (eq system-type 'darwin)) (eq system-type 'windows-nt)) 'mailclient-send-it 'sendmail-send-it))) -(defvar send-mail-function (if (and window-system (memq system-type '(darwin windows-nt))) 'mailclient-send-it 'sendmail-send-it) "\ +(defvar send-mail-function (if (or (and window-system (eq system-type 'darwin)) (eq system-type 'windows-nt)) 'mailclient-send-it 'sendmail-send-it) "\ Function to call to send the current buffer as mail. The headers should be delimited by a line which is not a valid RFC822 header or continuation line, @@ -24779,8 +24835,8 @@ ;;;*** ;;;### (autoloads (server-save-buffers-kill-terminal server-mode -;;;;;; server-force-delete server-start) "server" "server.el" (19863 -;;;;;; 8742)) +;;;;;; server-force-delete server-start) "server" "server.el" (19902 +;;;;;; 34006)) ;;; Generated autoloads from server.el (put 'server-host 'risky-local-variable t) @@ -24992,20 +25048,6 @@ ;;;*** -;;;### (autoloads (sha1) "sha1" "sha1.el" (19845 45374)) -;;; Generated autoloads from sha1.el - -(autoload 'sha1 "sha1" "\ -Return the SHA1 (Secure Hash Algorithm) of an object. -OBJECT is either a string or a buffer. -Optional arguments BEG and END denote buffer positions for computing the -hash of a portion of OBJECT. -If BINARY is non-nil, return a string in binary form. - -\(fn OBJECT &optional BEG END BINARY)" nil nil) - -;;;*** - ;;;### (autoloads (list-load-path-shadows) "shadow" "emacs-lisp/shadow.el" ;;;;;; (19845 45374)) ;;; Generated autoloads from emacs-lisp/shadow.el @@ -25097,7 +25139,7 @@ ;;;*** ;;;### (autoloads (shell shell-dumb-shell-regexp) "shell" "shell.el" -;;;;;; (19888 1100)) +;;;;;; (19935 983)) ;;; Generated autoloads from shell.el (defvar shell-dumb-shell-regexp (purecopy "cmd\\(proxy\\)?\\.exe") "\ @@ -25146,8 +25188,8 @@ ;;;*** -;;;### (autoloads (shr-insert-document) "shr" "gnus/shr.el" (19899 -;;;;;; 57784)) +;;;### (autoloads (shr-insert-document) "shr" "gnus/shr.el" (19942 +;;;;;; 4565)) ;;; Generated autoloads from gnus/shr.el (autoload 'shr-insert-document "shr" "\ @@ -25354,7 +25396,7 @@ ;;;*** ;;;### (autoloads (smerge-start-session smerge-mode smerge-ediff) -;;;;;; "smerge-mode" "vc/smerge-mode.el" (19863 8742)) +;;;;;; "smerge-mode" "vc/smerge-mode.el" (19931 11784)) ;;; Generated autoloads from vc/smerge-mode.el (autoload 'smerge-ediff "smerge-mode" "\ @@ -25379,7 +25421,7 @@ ;;;*** ;;;### (autoloads (smiley-buffer smiley-region) "smiley" "gnus/smiley.el" -;;;;;; (19845 45374)) +;;;;;; (19939 28373)) ;;; Generated autoloads from gnus/smiley.el (autoload 'smiley-region "smiley" "\ @@ -25397,7 +25439,7 @@ ;;;*** ;;;### (autoloads (smtpmail-send-queued-mail smtpmail-send-it) "smtpmail" -;;;;;; "mail/smtpmail.el" (19845 45374)) +;;;;;; "mail/smtpmail.el" (19940 49234)) ;;; Generated autoloads from mail/smtpmail.el (autoload 'smtpmail-send-it "smtpmail" "\ @@ -25807,7 +25849,7 @@ ;;;;;; sql-ms sql-ingres sql-solid sql-mysql sql-sqlite sql-informix ;;;;;; sql-sybase sql-oracle sql-product-interactive sql-connect ;;;;;; sql-mode sql-help sql-add-product-keywords) "sql" "progmodes/sql.el" -;;;;;; (19890 42850)) +;;;;;; (19931 11784)) ;;; Generated autoloads from progmodes/sql.el (autoload 'sql-add-product-keywords "sql" "\ @@ -26523,7 +26565,7 @@ ;;;*** ;;;### (autoloads (sc-cite-original) "supercite" "mail/supercite.el" -;;;;;; (19845 45374)) +;;;;;; (19931 11784)) ;;; Generated autoloads from mail/supercite.el (autoload 'sc-cite-original "supercite" "\ @@ -27364,7 +27406,7 @@ ;;;*** ;;;### (autoloads (serial-term ansi-term term make-term) "term" "term.el" -;;;;;; (19845 45374)) +;;;;;; (19931 11784)) ;;; Generated autoloads from term.el (autoload 'make-term "term" "\ @@ -27406,8 +27448,8 @@ ;;;*** -;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (19886 -;;;;;; 45771)) +;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (19931 +;;;;;; 11784)) ;;; Generated autoloads from terminal.el (autoload 'terminal-emulator "terminal" "\ @@ -27942,7 +27984,7 @@ ;;;### (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" (19852 16697)) +;;;;;; "thingatpt" "thingatpt.el" (19918 22236)) ;;; Generated autoloads from thingatpt.el (autoload 'forward-thing "thingatpt" "\ @@ -27999,7 +28041,7 @@ ;;;### (autoloads (thumbs-dired-setroot thumbs-dired-show thumbs-dired-show-marked ;;;;;; thumbs-show-from-dir thumbs-find-thumb) "thumbs" "thumbs.el" -;;;;;; (19845 45374)) +;;;;;; (19931 11784)) ;;; Generated autoloads from thumbs.el (autoload 'thumbs-find-thumb "thumbs" "\ @@ -28360,7 +28402,7 @@ ;;;;;; timeclock-workday-remaining-string timeclock-reread-log timeclock-query-out ;;;;;; timeclock-change timeclock-status-string timeclock-out timeclock-in ;;;;;; timeclock-modeline-display) "timeclock" "calendar/timeclock.el" -;;;;;; (19845 45374)) +;;;;;; (19909 7240)) ;;; Generated autoloads from calendar/timeclock.el (autoload 'timeclock-modeline-display "timeclock" "\ @@ -28654,7 +28696,7 @@ ;;;*** ;;;### (autoloads (tpu-edt-on tpu-edt-mode) "tpu-edt" "emulation/tpu-edt.el" -;;;;;; (19845 45374)) +;;;;;; (19931 11784)) ;;; Generated autoloads from emulation/tpu-edt.el (defvar tpu-edt-mode nil "\ @@ -28766,7 +28808,7 @@ ;;;### (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" (19894 39890)) +;;;;;; "net/tramp.el" (19924 47209)) ;;; Generated autoloads from net/tramp.el (defvar tramp-mode t "\ @@ -28904,7 +28946,7 @@ ;;;*** ;;;### (autoloads (tramp-ftp-enable-ange-ftp) "tramp-ftp" "net/tramp-ftp.el" -;;;;;; (19845 45374)) +;;;;;; (19931 11784)) ;;; Generated autoloads from net/tramp-ftp.el (autoload 'tramp-ftp-enable-ange-ftp "tramp-ftp" "\ @@ -29002,7 +29044,7 @@ ;;;;;; type-break type-break-mode type-break-keystroke-threshold ;;;;;; type-break-good-break-interval type-break-good-rest-interval ;;;;;; type-break-interval type-break-mode) "type-break" "type-break.el" -;;;;;; (19886 45771)) +;;;;;; (19919 43103)) ;;; Generated autoloads from type-break.el (defvar type-break-mode nil "\ @@ -29762,6 +29804,20 @@ ;;;*** +;;;### (autoloads (url-queue-retrieve) "url-queue" "url/url-queue.el" +;;;;;; (19942 4565)) +;;; Generated autoloads from url/url-queue.el + +(autoload 'url-queue-retrieve "url-queue" "\ +Retrieve URL asynchronously and call CALLBACK with CBARGS when finished. +Like `url-retrieve' (which see for details of the arguments), but +controls the level of parallelism via the +`url-queue-parallel-processes' variable. + +\(fn URL CALLBACK &optional CBARGS SILENT)" nil nil) + +;;;*** + ;;;### (autoloads (url-view-url url-truncate-url-for-viewing url-file-extension ;;;;;; url-hexify-string url-unhex-string url-parse-query-string ;;;;;; url-file-nondirectory url-file-directory url-percentage url-display-percentage @@ -30285,7 +30341,7 @@ ;;;*** ;;;### (autoloads (vc-annotate) "vc-annotate" "vc/vc-annotate.el" -;;;;;; (19893 19022)) +;;;;;; (19920 63959)) ;;; Generated autoloads from vc/vc-annotate.el (autoload 'vc-annotate "vc-annotate" "\ @@ -30332,7 +30388,7 @@ ;;;*** -;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (19845 45374)) +;;;### (autoloads nil "vc-bzr" "vc/vc-bzr.el" (19931 34253)) ;;; Generated autoloads from vc/vc-bzr.el (defconst vc-bzr-admin-dirname ".bzr" "\ @@ -30357,7 +30413,7 @@ ;;;*** -;;;### (autoloads (vc-dir) "vc-dir" "vc/vc-dir.el" (19845 45374)) +;;;### (autoloads (vc-dir) "vc-dir" "vc/vc-dir.el" (19930 13389)) ;;; Generated autoloads from vc/vc-dir.el (autoload 'vc-dir "vc-dir" "\ @@ -30545,7 +30601,7 @@ ;;;*** ;;;### (autoloads (verilog-mode) "verilog-mode" "progmodes/verilog-mode.el" -;;;;;; (19845 45374)) +;;;;;; (19931 11784)) ;;; Generated autoloads from progmodes/verilog-mode.el (autoload 'verilog-mode "verilog-mode" "\ @@ -30682,7 +30738,7 @@ ;;;*** ;;;### (autoloads (vhdl-mode) "vhdl-mode" "progmodes/vhdl-mode.el" -;;;;;; (19845 45374)) +;;;;;; (19914 25180)) ;;; Generated autoloads from progmodes/vhdl-mode.el (autoload 'vhdl-mode "vhdl-mode" "\ @@ -31589,7 +31645,7 @@ ;;;*** ;;;### (autoloads (viper-mode toggle-viper-mode) "viper" "emulation/viper.el" -;;;;;; (19845 45374)) +;;;;;; (19931 11784)) ;;; Generated autoloads from emulation/viper.el (autoload 'toggle-viper-mode "viper" "\ @@ -31606,7 +31662,7 @@ ;;;*** ;;;### (autoloads (warn lwarn display-warning) "warnings" "emacs-lisp/warnings.el" -;;;;;; (19845 45374)) +;;;;;; (19906 31087)) ;;; Generated autoloads from emacs-lisp/warnings.el (defvar warning-prefix-function nil "\ @@ -31623,7 +31679,7 @@ A marker indicates a position in the warnings buffer which is the start of the current series; it means that additional warnings in the same buffer should not move point. -t means the next warning begins a series (and stores a marker here). +If t, the next warning begins a series (and stores a marker here). A symbol with a function definition is like t, except also call that function before the next warning.") @@ -31696,7 +31752,7 @@ ;;;*** ;;;### (autoloads (wdired-change-to-wdired-mode) "wdired" "wdired.el" -;;;;;; (19886 45771)) +;;;;;; (19913 4309)) ;;; Generated autoloads from wdired.el (autoload 'wdired-change-to-wdired-mode "wdired" "\ @@ -31712,7 +31768,7 @@ ;;;*** -;;;### (autoloads (webjump) "webjump" "net/webjump.el" (19845 45374)) +;;;### (autoloads (webjump) "webjump" "net/webjump.el" (19931 11784)) ;;; Generated autoloads from net/webjump.el (autoload 'webjump "webjump" "\ @@ -31729,7 +31785,7 @@ ;;;*** ;;;### (autoloads (which-function-mode) "which-func" "progmodes/which-func.el" -;;;;;; (19845 45374)) +;;;;;; (19915 46047)) ;;; Generated autoloads from progmodes/which-func.el (put 'which-func-format 'risky-local-variable t) (put 'which-func-current 'risky-local-variable t) @@ -31760,7 +31816,7 @@ ;;;### (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" (19901 13134)) +;;;;;; whitespace-mode) "whitespace" "whitespace.el" (19905 10215)) ;;; Generated autoloads from whitespace.el (autoload 'whitespace-mode "whitespace" "\ @@ -32190,8 +32246,8 @@ ;;;*** ;;;### (autoloads (widget-setup widget-insert widget-delete widget-create -;;;;;; widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (19886 -;;;;;; 45771)) +;;;;;; widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (19927 +;;;;;; 37225)) ;;; Generated autoloads from wid-edit.el (autoload 'widgetp "wid-edit" "\ @@ -32620,46 +32676,47 @@ ;;;;;; "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-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/inversion.el" -;;;;;; "cedet/mode-local.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-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/inversion.el" "cedet/mode-local.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" @@ -32667,13 +32724,13 @@ ;;;;;; "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/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/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/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" @@ -32685,32 +32742,33 @@ ;;;;;; "cedet/srecode/el.el" "cedet/srecode/expandproto.el" "cedet/srecode/extract.el" ;;;;;; "cedet/srecode/fields.el" "cedet/srecode/filters.el" "cedet/srecode/find.el" ;;;;;; "cedet/srecode/getset.el" "cedet/srecode/insert.el" "cedet/srecode/java.el" -;;;;;; "cedet/srecode/map.el" "cedet/srecode/mode.el" "cedet/srecode/semantic.el" -;;;;;; "cedet/srecode/srt-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/assoc.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-specs.el" -;;;;;; "emacs-lisp/cust-print.el" "emacs-lisp/eieio-base.el" "emacs-lisp/eieio-custom.el" -;;;;;; "emacs-lisp/eieio-datadebug.el" "emacs-lisp/eieio-opt.el" -;;;;;; "emacs-lisp/eieio-speedbar.el" "emacs-lisp/eieio.el" "emacs-lisp/find-gc.el" -;;;;;; "emacs-lisp/gulp.el" "emacs-lisp/lisp-mnt.el" "emacs-lisp/package-x.el" -;;;;;; "emacs-lisp/regi.el" "emacs-lisp/smie.el" "emacs-lisp/tcover-ses.el" -;;;;;; "emacs-lisp/tcover-unsafep.el" "emacs-lock.el" "emulation/cua-gmrk.el" -;;;;;; "emulation/cua-rect.el" "emulation/edt-lk201.el" "emulation/edt-mapper.el" -;;;;;; "emulation/edt-pc.el" "emulation/edt-vt100.el" "emulation/tpu-extras.el" -;;;;;; "emulation/viper-cmd.el" "emulation/viper-ex.el" "emulation/viper-init.el" -;;;;;; "emulation/viper-keym.el" "emulation/viper-macs.el" "emulation/viper-mous.el" -;;;;;; "emulation/viper-util.el" "erc/erc-backend.el" "erc/erc-goodies.el" -;;;;;; "erc/erc-ibuffer.el" "erc/erc-lang.el" "eshell/em-alias.el" -;;;;;; "eshell/em-banner.el" "eshell/em-basic.el" "eshell/em-cmpl.el" -;;;;;; "eshell/em-dirs.el" "eshell/em-glob.el" "eshell/em-hist.el" -;;;;;; "eshell/em-ls.el" "eshell/em-pred.el" "eshell/em-prompt.el" -;;;;;; "eshell/em-rebind.el" "eshell/em-script.el" "eshell/em-smart.el" -;;;;;; "eshell/em-term.el" "eshell/em-unix.el" "eshell/em-xtra.el" -;;;;;; "eshell/esh-arg.el" "eshell/esh-cmd.el" "eshell/esh-ext.el" +;;;;;; "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/assoc.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-specs.el" "emacs-lisp/cust-print.el" "emacs-lisp/eieio-base.el" +;;;;;; "emacs-lisp/eieio-custom.el" "emacs-lisp/eieio-datadebug.el" +;;;;;; "emacs-lisp/eieio-opt.el" "emacs-lisp/eieio-speedbar.el" +;;;;;; "emacs-lisp/eieio.el" "emacs-lisp/find-gc.el" "emacs-lisp/gulp.el" +;;;;;; "emacs-lisp/lisp-mnt.el" "emacs-lisp/package-x.el" "emacs-lisp/regi.el" +;;;;;; "emacs-lisp/smie.el" "emacs-lisp/tcover-ses.el" "emacs-lisp/tcover-unsafep.el" +;;;;;; "emacs-lock.el" "emulation/cua-gmrk.el" "emulation/cua-rect.el" +;;;;;; "emulation/edt-lk201.el" "emulation/edt-mapper.el" "emulation/edt-pc.el" +;;;;;; "emulation/edt-vt100.el" "emulation/tpu-extras.el" "emulation/viper-cmd.el" +;;;;;; "emulation/viper-ex.el" "emulation/viper-init.el" "emulation/viper-keym.el" +;;;;;; "emulation/viper-macs.el" "emulation/viper-mous.el" "emulation/viper-util.el" +;;;;;; "erc/erc-backend.el" "erc/erc-goodies.el" "erc/erc-ibuffer.el" +;;;;;; "erc/erc-lang.el" "eshell/em-alias.el" "eshell/em-banner.el" +;;;;;; "eshell/em-basic.el" "eshell/em-cmpl.el" "eshell/em-dirs.el" +;;;;;; "eshell/em-glob.el" "eshell/em-hist.el" "eshell/em-ls.el" +;;;;;; "eshell/em-pred.el" "eshell/em-prompt.el" "eshell/em-rebind.el" +;;;;;; "eshell/em-script.el" "eshell/em-smart.el" "eshell/em-term.el" +;;;;;; "eshell/em-unix.el" "eshell/em-xtra.el" "eshell/esh-arg.el" +;;;;;; "eshell/esh-cmd.el" "eshell/esh-ext.el" "eshell/esh-groups.el" ;;;;;; "eshell/esh-io.el" "eshell/esh-module.el" "eshell/esh-opt.el" ;;;;;; "eshell/esh-proc.el" "eshell/esh-util.el" "eshell/esh-var.el" ;;;;;; "ezimage.el" "foldout.el" "format-spec.el" "forms-d2.el" @@ -32736,8 +32794,8 @@ ;;;;;; "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/charprop.el" "international/cp51932.el" "international/eucjp-ms.el" -;;;;;; "international/fontset.el" "international/iso-ascii.el" "international/ja-dic-cnv.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" @@ -32746,7 +32804,7 @@ ;;;;;; "international/uni-name.el" "international/uni-numeric.el" ;;;;;; "international/uni-old-name.el" "international/uni-titlecase.el" ;;;;;; "international/uni-uppercase.el" "json.el" "kermit.el" "language/hanja-util.el" -;;;;;; "language/thai-word.el" "ldefs-boot.el" "mail/blessmail.el" +;;;;;; "language/thai-word.el" "ldefs-boot.el" "loadup.el" "mail/blessmail.el" ;;;;;; "mail/mailheader.el" "mail/mailpost.el" "mail/mspools.el" ;;;;;; "mail/rfc2368.el" "mail/rfc822.el" "mail/rmail-spam-filter.el" ;;;;;; "mail/rmailedit.el" "mail/rmailkwd.el" "mail/rmailmm.el" @@ -32808,13 +32866,13 @@ ;;;;;; "textmodes/reftex-toc.el" "textmodes/texnfo-upd.el" "timezone.el" ;;;;;; "tooltip.el" "tree-widget.el" "uniquify.el" "url/url-about.el" ;;;;;; "url/url-cookie.el" "url/url-dired.el" "url/url-expand.el" -;;;;;; "url/url-ftp.el" "url/url-history.el" "url/url-imap.el" "url/url-methods.el" -;;;;;; "url/url-nfs.el" "url/url-proxy.el" "url/url-vars.el" "vc/ediff-diff.el" -;;;;;; "vc/ediff-init.el" "vc/ediff-merg.el" "vc/ediff-ptch.el" -;;;;;; "vc/ediff-vers.el" "vc/ediff-wind.el" "vc/pcvs-info.el" "vc/pcvs-parse.el" -;;;;;; "vc/pcvs-util.el" "vc/vc-dav.el" "vcursor.el" "vt-control.el" -;;;;;; "vt100-led.el" "w32-fns.el" "w32-vars.el" "x-dnd.el") (19901 -;;;;;; 13383 538856)) +;;;;;; "url/url-ftp.el" "url/url-future.el" "url/url-history.el" +;;;;;; "url/url-imap.el" "url/url-methods.el" "url/url-nfs.el" "url/url-proxy.el" +;;;;;; "url/url-vars.el" "vc/ediff-diff.el" "vc/ediff-init.el" "vc/ediff-merg.el" +;;;;;; "vc/ediff-ptch.el" "vc/ediff-vers.el" "vc/ediff-wind.el" +;;;;;; "vc/pcvs-info.el" "vc/pcvs-parse.el" "vc/pcvs-util.el" "vc/vc-dav.el" +;;;;;; "vcursor.el" "vt-control.el" "vt100-led.el" "w32-fns.el" +;;;;;; "w32-vars.el" "x-dnd.el") (19942 4644 183664)) ;;;*** ------------------------------------------------------------ revno: 104463 committer: Leo Liu branch nick: trunk timestamp: Wed 2011-06-01 16:10:42 +0800 message: Fix last change on rcirc-print and rcirc-decode-coding-system diff: === modified file 'lisp/ChangeLog' --- lisp/ChangeLog 2011-06-01 03:35:49 +0000 +++ lisp/ChangeLog 2011-06-01 08:10:42 +0000 @@ -1,3 +1,10 @@ +2011-06-01 Leo Liu + + * net/rcirc.el (rcirc-decode-coding-system): Revert last change; + improve doc-string as suggested by Marco Pessotto + . + (rcirc-print): Fix last change. + 2011-05-31 Stefan Monnier * minibuffer.el (complete-with-action): Return nil for the metadata and === modified file 'lisp/net/rcirc.el' --- lisp/net/rcirc.el 2011-05-30 12:23:56 +0000 +++ lisp/net/rcirc.el 2011-06-01 08:10:42 +0000 @@ -314,11 +314,11 @@ :type 'boolean :group 'rcirc) -(defcustom rcirc-decode-coding-system nil +(defcustom rcirc-decode-coding-system 'utf-8 "Coding system used to decode incoming irc messages. -If nil automatically detect the coding system." +Set to 'undecided if you want the encoding of the incoming +messages autodetected." :type 'coding-system - :version "24.1" :group 'rcirc) (defcustom rcirc-encode-coding-system 'utf-8 @@ -1482,8 +1482,7 @@ (old-point (point-marker)) (fill-start (marker-position rcirc-prompt-start-marker))) - (setq text (decode-coding-string text (or rcirc-decode-coding-system - (detect-coding-string text t)))) + (setq text (decode-coding-string text rcirc-decode-coding-system)) (unless (string= sender (rcirc-nick process)) ;; mark the line with overlay arrow (unless (or (marker-position overlay-arrow-position) ------------------------------------------------------------ revno: 104462 committer: Glenn Morris branch nick: trunk timestamp: Tue 2011-05-31 20:50:20 -0700 message: Use derived-mode-p in previous change. diff: === modified file 'lisp/mail/emacsbug.el' --- lisp/mail/emacsbug.el 2011-06-01 03:35:49 +0000 +++ lisp/mail/emacsbug.el 2011-06-01 03:50:20 +0000 @@ -345,7 +345,7 @@ (error "No text entered in bug report")) (or report-emacs-bug-no-confirmation ;; mailclient.el does not handle From (at present). - (if (eq major-mode 'message-mode) + (if (derived-mode-p 'message-mode) (eq message-send-mail-function 'message-send-mail-with-mailclient) (eq send-mail-function 'mailclient-send-it)) ;; Not narrowing to the headers, but that's OK.