# HG changeset patch # User Kenichi Handa # Date 1266303075 -32400 # Node ID b11a8bb7b8c81ba9d43ed0b90bed216936bb4fbd # Parent e8f730fcd1696a69ec6b620c5fa9bc805a38d518# Parent 6a11e3b311d842d1d1a6632b939299c06a20d697 from trunk diff -r e8f730fcd169 -r b11a8bb7b8c8 doc/lispintro/ChangeLog --- a/doc/lispintro/ChangeLog Tue Feb 16 15:49:23 2010 +0900 +++ b/doc/lispintro/ChangeLog Tue Feb 16 15:51:15 2010 +0900 @@ -1,3 +1,7 @@ +2010-02-16 Glenn Morris + + * emacs-lisp-intro.texi: Fix typo in name of `find-tag' command. + 2010-02-01 Stefan Monnier * emacs-lisp-intro.texi (Text and Auto-fill, Mode Line): diff -r e8f730fcd169 -r b11a8bb7b8c8 doc/lispintro/emacs-lisp-intro.texi --- a/doc/lispintro/emacs-lisp-intro.texi Tue Feb 16 15:49:23 2010 +0900 +++ b/doc/lispintro/emacs-lisp-intro.texi Tue Feb 16 15:51:15 2010 +0900 @@ -229,7 +229,8 @@ Edition @value{edition-number}, @value{update-date} @sp 1 Copyright @copyright{} 1990, 1991, 1992, 1993, 1994, 1995, 1997, 2001, - 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. + 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 + Free Software Foundation, Inc. @sp 1 @iftex @@ -4732,16 +4733,16 @@ @end ignore More generally, if you want to see a function in its original source -file, you can use the @code{find-tags} function to jump to it. -@code{find-tags} works with a wide variety of languages, not just +file, you can use the @code{find-tag} function to jump to it. +@code{find-tag} works with a wide variety of languages, not just Lisp, and C, and it works with non-programming text as well. For -example, @code{find-tags} will jump to the various nodes in the +example, @code{find-tag} will jump to the various nodes in the Texinfo source file of this document. -The @code{find-tags} function depends on `tags tables' that record +The @code{find-tag} function depends on `tags tables' that record the locations of the functions, variables, and other items to which -@code{find-tags} jumps. - -To use the @code{find-tags} command, type @kbd{M-.} (i.e., press the +@code{find-tag} jumps. + +To use the @code{find-tag} command, type @kbd{M-.} (i.e., press the period key while holding down the @key{META} key, or else type the @key{ESC} key and then type the period key), and then, at the prompt, type in the name of the function whose source code you want to see, @@ -4753,7 +4754,7 @@ @c !!! 22.1.1 tags table location in this paragraph @cindex TAGS table, specifying -@findex find-tags +@findex find-tag Depending on how the initial default values of your copy of Emacs are set, you may also need to specify the location of your `tags table', which is a file called @file{TAGS}. For example, if you are @@ -4778,7 +4779,7 @@ For more information, see @ref{etags, , Create Your Own @file{TAGS} File}. After you become more familiar with Emacs Lisp, you will find that you will -frequently use @code{find-tags} to navigate your way around source code; +frequently use @code{find-tag} to navigate your way around source code; and you will create your own @file{TAGS} tables. @cindex Library, as term for `file' @@ -18961,7 +18962,7 @@ on-line and as a typeset, printed book.) Go to the other on-line help that is part of GNU Emacs: the on-line -documentation for all functions and variables, and @code{find-tags}, +documentation for all functions and variables, and @code{find-tag}, the program that takes you to sources. Here is an example of how I explore the sources. Because of its name, diff -r e8f730fcd169 -r b11a8bb7b8c8 doc/misc/ChangeLog --- a/doc/misc/ChangeLog Tue Feb 16 15:49:23 2010 +0900 +++ b/doc/misc/ChangeLog Tue Feb 16 15:51:15 2010 +0900 @@ -1,3 +1,7 @@ +2010-02-16 Glenn Morris + + * nxml-mode.texi (Commands for locating a schema): Fix keybinding. + 2010-02-05 Mark A. Hershberger * ede.texi, eieio.texi, semantic.texi: Use standard direntry format. diff -r e8f730fcd169 -r b11a8bb7b8c8 doc/misc/nxml-mode.texi --- a/doc/misc/nxml-mode.texi Tue Feb 16 15:49:23 2010 +0900 +++ b/doc/misc/nxml-mode.texi Tue Feb 16 15:51:15 2010 +0900 @@ -512,7 +512,7 @@ you visit a file in nXML mode. However, if you have just created a new file and the schema cannot be inferred from the file-name, then this will not locate the right schema. In this case, you should insert the -start-tag of the root element and then use the command @kbd{C-c +start-tag of the root element and then use the command @kbd{C-c C-s C-a}, which reapplies the rules based on the current content of the document. It is usually not necessary to insert the complete start-tag; often just @samp{<@var{name}} is diff -r e8f730fcd169 -r b11a8bb7b8c8 lisp/ChangeLog --- a/lisp/ChangeLog Tue Feb 16 15:49:23 2010 +0900 +++ b/lisp/ChangeLog Tue Feb 16 15:51:15 2010 +0900 @@ -4,6 +4,27 @@ (skkdic-convert-okuri-ari): Ignore lines starting with '>'. (skkdic-convert): Use `euc-japan' coding system for writing. +2010-02-16 Glenn Morris + + * textmodes/tex-mode.el (tex-bibtex-file): Expand the result of + tex-main-file before using it. (Bug#5562) + +2010-02-15 Stefan Monnier + + * emacs-lisp/advice.el (ad-compile-function): Suppress byte-compiler + warnings, since it is annoying for the user to see them each time he + runs the code. + +2010-02-15 Michael Albinus + + * net/tramp.el (tramp-process-actions, tramp-read-passwd): + * net/tramp-gvfs.el (tramp-gvfs-maybe-open-connection): Use VEC + instead of PROC for caching "first-password-request". Otherwise, + new processes would not profit from passwords already entered. + + * net/tramp-cache.el (tramp-dump-connection-properties): + Don't save "first-password-request" property. + 2010-02-14 Juanma Barranquero * outline.el (outline-head-from-level): diff -r e8f730fcd169 -r b11a8bb7b8c8 lisp/emacs-lisp/advice.el --- a/lisp/emacs-lisp/advice.el Tue Feb 16 15:49:23 2010 +0900 +++ b/lisp/emacs-lisp/advice.el Tue Feb 16 15:51:15 2010 +0900 @@ -2685,7 +2685,9 @@ (ad-with-auto-activation-disabled (require 'bytecomp) (let ((symbol (make-symbol "advice-compilation")) - (byte-compile-warnings byte-compile-warnings)) + (byte-compile-warnings byte-compile-warnings) + ;; Don't pop up windows showing byte-compiler warnings. + (warning-suppress-types '((bytecomp)))) (if (featurep 'cl) (byte-compile-disable-warning 'cl-functions)) (fset symbol (symbol-function function)) diff -r e8f730fcd169 -r b11a8bb7b8c8 lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Tue Feb 16 15:49:23 2010 +0900 +++ b/lisp/gnus/ChangeLog Tue Feb 16 15:51:15 2010 +0900 @@ -1,3 +1,8 @@ +2010-02-16 Glenn Morris + + * message.el (message-default-mail-headers): Change the default value + to ease the transition from mail-mode to message-mode. (Bug#5555) + 2010-01-17 Chong Yidong * message.el (message-mail): Just pass yank-action on to message-setup. diff -r e8f730fcd169 -r b11a8bb7b8c8 lisp/gnus/message.el --- a/lisp/gnus/message.el Tue Feb 16 15:49:23 2010 +0900 +++ b/lisp/gnus/message.el Tue Feb 16 15:51:15 2010 +0900 @@ -1178,8 +1178,22 @@ :link '(custom-manual "(message)Message Headers") :type 'message-header-lines) -(defcustom message-default-mail-headers "" +(defcustom message-default-mail-headers + ;; Ease the transition from mail-mode to message-mode. See bugs#4431, 5555. + (concat (if (and (boundp 'mail-default-reply-to) + (stringp mail-default-reply-to)) + (format "Reply-to: %s\n" mail-default-reply-to) + "") + (if (and (boundp 'mail-self-blind) + mail-self-blind) + (format "BCC: %s\n" user-mail-address) + "") + (if (and (boundp 'mail-archive-file-name) + (stringp mail-archive-file-name)) + (format "FCC: %s\n" mail-archive-file-name) + "")) "*A string of header lines to be inserted in outgoing mails." + :version "23.2" :group 'message-headers :group 'message-mail :link '(custom-manual "(message)Mail Headers") @@ -2768,7 +2782,7 @@ ;;; Forbidden properties ;; ;; We use `after-change-functions' to keep special text properties -;; that interfer with the normal function of message mode out of the +;; that interfere with the normal function of message mode out of the ;; buffer. (defcustom message-strip-special-text-properties t diff -r e8f730fcd169 -r b11a8bb7b8c8 lisp/net/tramp-cache.el --- a/lisp/net/tramp-cache.el Tue Feb 16 15:49:23 2010 +0900 +++ b/lisp/net/tramp-cache.el Tue Feb 16 15:51:15 2010 +0900 @@ -1,7 +1,7 @@ ;;; tramp-cache.el --- file information caching for Tramp -;; Copyright (C) 2000, 2005, 2006, 2007, 2008, -;; 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2005, 2006, 2007, 2008, 2009, +;; 2010 Free Software Foundation, Inc. ;; Author: Daniel Pittman ;; Michael Albinus @@ -295,7 +295,8 @@ (if (and (vectorp key) (not (tramp-file-name-localname key))) (progn (remhash "process-name" value) - (remhash "process-buffer" value)) + (remhash "process-buffer" value) + (remhash "first-password-request" value)) (remhash key cache))) cache) ;; Dump it. diff -r e8f730fcd169 -r b11a8bb7b8c8 lisp/net/tramp-gvfs.el --- a/lisp/net/tramp-gvfs.el Tue Feb 16 15:49:23 2010 +0900 +++ b/lisp/net/tramp-gvfs.el Tue Feb 16 15:51:15 2010 +0900 @@ -1057,8 +1057,7 @@ vec 3 "Opening connection for %s@%s using %s..." user host method)) ;; Enable auth-sorce and password-cache. - (tramp-set-connection-property - (tramp-get-connection-process vec) "first-password-request" t) + (tramp-set-connection-property vec "first-password-request" t) ;; There will be a callback of "askPassword", when a password is ;; needed. diff -r e8f730fcd169 -r b11a8bb7b8c8 lisp/net/tramp.el --- a/lisp/net/tramp.el Tue Feb 16 15:49:23 2010 +0900 +++ b/lisp/net/tramp.el Tue Feb 16 15:51:15 2010 +0900 @@ -6539,7 +6539,7 @@ (defun tramp-process-actions (proc vec actions &optional timeout) "Perform actions until success or TIMEOUT." ;; Enable auth-source and password-cache. - (tramp-set-connection-property proc "first-password-request" t) + (tramp-set-connection-property vec "first-password-request" t) (let (exit) (while (not exit) (tramp-message proc 3 "Waiting for prompts from remote shell") @@ -8320,26 +8320,27 @@ (with-current-buffer (process-buffer proc) (tramp-check-for-regexp proc tramp-password-prompt-regexp) (format "%s for %s " (capitalize (match-string 1)) key))))) - (prog1 - (or - ;; See if auth-sources contains something useful, if it's bound. - (and (boundp 'auth-sources) - (tramp-get-connection-property proc "first-password-request" nil) - ;; Try with Tramp's current method. - (funcall (symbol-function 'auth-source-user-or-password) - "password" tramp-current-host tramp-current-method)) - ;; Try the password cache. - (when (functionp 'password-read) - (unless (tramp-get-connection-property - proc "first-password-request" nil) - (funcall (symbol-function 'password-cache-remove) key)) - (let ((password - (funcall (symbol-function 'password-read) pw-prompt key))) - (funcall (symbol-function 'password-cache-add) key password) - password)) - ;; Else, get the password interactively. - (read-passwd pw-prompt)) - (tramp-set-connection-property proc "first-password-request" nil)))) + (with-parsed-tramp-file-name key nil + (prog1 + (or + ;; See if auth-sources contains something useful, if it's bound. + (and (boundp 'auth-sources) + (tramp-get-connection-property v "first-password-request" nil) + ;; Try with Tramp's current method. + (funcall (symbol-function 'auth-source-user-or-password) + "password" tramp-current-host tramp-current-method)) + ;; Try the password cache. + (when (functionp 'password-read) + (unless (tramp-get-connection-property + v "first-password-request" nil) + (funcall (symbol-function 'password-cache-remove) key)) + (let ((password + (funcall (symbol-function 'password-read) pw-prompt key))) + (funcall (symbol-function 'password-cache-add) key password) + password)) + ;; Else, get the password interactively. + (read-passwd pw-prompt)) + (tramp-set-connection-property v "first-password-request" nil))))) (defun tramp-clear-passwd (vec) "Clear password cache for connection related to VEC." @@ -8585,7 +8586,7 @@ ;; rsync). ;; * Keep a second connection open for out-of-band methods like scp or ;; rsync. -;; * Support ptys in `tramp-handle-start-file-process'. +;; * Support ptys in `tramp-handle-start-file-process'. (Bug#4604) ;; * IMHO, it's a drawback that currently Tramp doesn't support ;; Unicode in Dired file names by default. Is it possible to ;; improve Tramp to set LC_ALL to "C" only for commands where Tramp @@ -8596,6 +8597,9 @@ ;; * Load Tramp subpackages only when needed. (Bug#1529, Bug#5448) ;; * Try telnet+curl as new method. It might be useful for busybox, ;; without built-in uuencode/uudecode. +;; * Let `shell-dynamic-complete-*' and `comint-dynamic-complete' work +;; on remote hosts. +;; * Use secrets.el for password handling. ;; Functions for file-name-handler-alist: ;; diff-latest-backup-file -- in diff.el diff -r e8f730fcd169 -r b11a8bb7b8c8 lisp/textmodes/tex-mode.el --- a/lisp/textmodes/tex-mode.el Tue Feb 16 15:49:23 2010 +0900 +++ b/lisp/textmodes/tex-mode.el Tue Feb 16 15:51:15 2010 +0900 @@ -921,8 +921,8 @@ ;; remaining warning from byte-compiling all of Emacs... (eval-when-compile (setq byte-compile-function-environment - (delq (assq 'tex-mode byte-compile-function-environment) - byte-compile-function-environment))) + (delq (assq 'tex-mode byte-compile-function-environment) + byte-compile-function-environment))) ;;;###autoload (defun tex-mode () @@ -2643,7 +2643,7 @@ (tex-kill-job) (tex-start-shell)) (let* (shell-dirtrack-verbose - (source-file (tex-main-file)) + (source-file (expand-file-name (tex-main-file))) (tex-out-file (tex-append (file-name-nondirectory source-file) "")) (file-dir (file-name-directory source-file)))