Commit a622127f authored by Kenichi Handa's avatar Kenichi Handa
Browse files

from trunk

parents fa6ea913 dc4d6273
2010-02-16 Glenn Morris <rgm@gnu.org>
* emacs-lisp-intro.texi: Fix typo in name of `find-tag' command.
2010-02-01 Stefan Monnier <monnier@iro.umontreal.ca> 2010-02-01 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp-intro.texi (Text and Auto-fill, Mode Line): * emacs-lisp-intro.texi (Text and Auto-fill, Mode Line):
......
...@@ -229,7 +229,8 @@ people who are not programmers. ...@@ -229,7 +229,8 @@ people who are not programmers.
Edition @value{edition-number}, @value{update-date} Edition @value{edition-number}, @value{update-date}
@sp 1 @sp 1
Copyright @copyright{} 1990, 1991, 1992, 1993, 1994, 1995, 1997, 2001, 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 @sp 1
   
@iftex @iftex
...@@ -4732,16 +4733,16 @@ definition. ...@@ -4732,16 +4733,16 @@ definition.
@end ignore @end ignore
   
More generally, if you want to see a function in its original source 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. file, you can use the @code{find-tag} function to jump to it.
@code{find-tags} works with a wide variety of languages, not just @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 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. 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 the locations of the functions, variables, and other items to which
@code{find-tags} jumps. @code{find-tag} jumps.
   
To use the @code{find-tags} command, type @kbd{M-.} (i.e., press the 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 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, @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, type in the name of the function whose source code you want to see,
...@@ -4753,7 +4754,7 @@ screen. To switch back to your current buffer, type @kbd{C-x b ...@@ -4753,7 +4754,7 @@ screen. To switch back to your current buffer, type @kbd{C-x b
   
@c !!! 22.1.1 tags table location in this paragraph @c !!! 22.1.1 tags table location in this paragraph
@cindex TAGS table, specifying @cindex TAGS table, specifying
@findex find-tags @findex find-tag
Depending on how the initial default values of your copy of Emacs are 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', 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 which is a file called @file{TAGS}. For example, if you are
...@@ -4778,7 +4779,7 @@ M-x compile RET etags *.el RET ...@@ -4778,7 +4779,7 @@ M-x compile RET etags *.el RET
For more information, see @ref{etags, , Create Your Own @file{TAGS} File}. 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 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. and you will create your own @file{TAGS} tables.
   
@cindex Library, as term for `file' @cindex Library, as term for `file'
...@@ -18961,7 +18962,7 @@ introduction, it comes as a Texinfo source file, so you can read it ...@@ -18961,7 +18962,7 @@ introduction, it comes as a Texinfo source file, so you can read it
on-line and as a typeset, printed book.) on-line and as a typeset, printed book.)
   
Go to the other on-line help that is part of GNU Emacs: the on-line 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. the program that takes you to sources.
   
Here is an example of how I explore the sources. Because of its name, Here is an example of how I explore the sources. Because of its name,
......
2010-02-16 Glenn Morris <rgm@gnu.org>
* nxml-mode.texi (Commands for locating a schema): Fix keybinding.
2010-02-05 Mark A. Hershberger <mah@everybody.org> 2010-02-05 Mark A. Hershberger <mah@everybody.org>
* ede.texi, eieio.texi, semantic.texi: Use standard direntry format. * ede.texi, eieio.texi, semantic.texi: Use standard direntry format.
......
...@@ -512,7 +512,7 @@ The rules for locating a schema are applied automatically when ...@@ -512,7 +512,7 @@ The rules for locating a schema are applied automatically when
you visit a file in nXML mode. However, if you have just created a new 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 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 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 C-a}, which reapplies the rules based on the current content of
the document. It is usually not necessary to insert the complete the document. It is usually not necessary to insert the complete
start-tag; often just @samp{<@var{name}} is start-tag; often just @samp{<@var{name}} is
......
...@@ -4,6 +4,27 @@ ...@@ -4,6 +4,27 @@
(skkdic-convert-okuri-ari): Ignore lines starting with '>'. (skkdic-convert-okuri-ari): Ignore lines starting with '>'.
(skkdic-convert): Use `euc-japan' coding system for writing. (skkdic-convert): Use `euc-japan' coding system for writing.
2010-02-16 Glenn Morris <rgm@gnu.org>
* textmodes/tex-mode.el (tex-bibtex-file): Expand the result of
tex-main-file before using it. (Bug#5562)
2010-02-15 Stefan Monnier <monnier@iro.umontreal.ca>
* 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 <michael.albinus@gmx.de>
* 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 <lekktu@gmail.com> 2010-02-14 Juanma Barranquero <lekktu@gmail.com>
* outline.el (outline-head-from-level): * outline.el (outline-head-from-level):
......
...@@ -2685,7 +2685,9 @@ For that it has to be fbound with a non-autoload definition." ...@@ -2685,7 +2685,9 @@ For that it has to be fbound with a non-autoload definition."
(ad-with-auto-activation-disabled (ad-with-auto-activation-disabled
(require 'bytecomp) (require 'bytecomp)
(let ((symbol (make-symbol "advice-compilation")) (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) (if (featurep 'cl)
(byte-compile-disable-warning 'cl-functions)) (byte-compile-disable-warning 'cl-functions))
(fset symbol (symbol-function function)) (fset symbol (symbol-function function))
......
2010-02-16 Glenn Morris <rgm@gnu.org>
* 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 <cyd@stupidchicken.com> 2010-01-17 Chong Yidong <cyd@stupidchicken.com>
* message.el (message-mail): Just pass yank-action on to message-setup. * message.el (message-mail): Just pass yank-action on to message-setup.
......
...@@ -1178,8 +1178,22 @@ these lines." ...@@ -1178,8 +1178,22 @@ these lines."
:link '(custom-manual "(message)Message Headers") :link '(custom-manual "(message)Message Headers")
:type 'message-header-lines) :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." "*A string of header lines to be inserted in outgoing mails."
:version "23.2"
:group 'message-headers :group 'message-headers
:group 'message-mail :group 'message-mail
:link '(custom-manual "(message)Mail Headers") :link '(custom-manual "(message)Mail Headers")
...@@ -2768,7 +2782,7 @@ PGG manual, depending on the value of `mml2015-use'." ...@@ -2768,7 +2782,7 @@ PGG manual, depending on the value of `mml2015-use'."
;;; Forbidden properties ;;; Forbidden properties
;; ;;
;; We use `after-change-functions' to keep special text 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. ;; buffer.
(defcustom message-strip-special-text-properties t (defcustom message-strip-special-text-properties t
......
;;; tramp-cache.el --- file information caching for Tramp ;;; tramp-cache.el --- file information caching for Tramp
;; Copyright (C) 2000, 2005, 2006, 2007, 2008, ;; Copyright (C) 2000, 2005, 2006, 2007, 2008, 2009,
;; 2009, 2010 Free Software Foundation, Inc. ;; 2010 Free Software Foundation, Inc.
;; Author: Daniel Pittman <daniel@inanna.danann.net> ;; Author: Daniel Pittman <daniel@inanna.danann.net>
;; Michael Albinus <michael.albinus@gmx.de> ;; Michael Albinus <michael.albinus@gmx.de>
...@@ -295,7 +295,8 @@ KEY identifies the connection, it is either a process or a vector." ...@@ -295,7 +295,8 @@ KEY identifies the connection, it is either a process or a vector."
(if (and (vectorp key) (not (tramp-file-name-localname key))) (if (and (vectorp key) (not (tramp-file-name-localname key)))
(progn (progn
(remhash "process-name" value) (remhash "process-name" value)
(remhash "process-buffer" value)) (remhash "process-buffer" value)
(remhash "first-password-request" value))
(remhash key cache))) (remhash key cache)))
cache) cache)
;; Dump it. ;; Dump it.
......
...@@ -1057,8 +1057,7 @@ connection if a previous connection has died for some reason." ...@@ -1057,8 +1057,7 @@ connection if a previous connection has died for some reason."
vec 3 "Opening connection for %s@%s using %s..." user host method)) vec 3 "Opening connection for %s@%s using %s..." user host method))
;; Enable auth-sorce and password-cache. ;; Enable auth-sorce and password-cache.
(tramp-set-connection-property (tramp-set-connection-property vec "first-password-request" t)
(tramp-get-connection-process vec) "first-password-request" t)
;; There will be a callback of "askPassword", when a password is ;; There will be a callback of "askPassword", when a password is
;; needed. ;; needed.
......
...@@ -6539,7 +6539,7 @@ The terminal type can be configured with `tramp-terminal-type'." ...@@ -6539,7 +6539,7 @@ The terminal type can be configured with `tramp-terminal-type'."
(defun tramp-process-actions (proc vec actions &optional timeout) (defun tramp-process-actions (proc vec actions &optional timeout)
"Perform actions until success or TIMEOUT." "Perform actions until success or TIMEOUT."
;; Enable auth-source and password-cache. ;; 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) (let (exit)
(while (not exit) (while (not exit)
(tramp-message proc 3 "Waiting for prompts from remote shell") (tramp-message proc 3 "Waiting for prompts from remote shell")
...@@ -8320,26 +8320,27 @@ Invokes `password-read' if available, `read-passwd' else." ...@@ -8320,26 +8320,27 @@ Invokes `password-read' if available, `read-passwd' else."
(with-current-buffer (process-buffer proc) (with-current-buffer (process-buffer proc)
(tramp-check-for-regexp proc tramp-password-prompt-regexp) (tramp-check-for-regexp proc tramp-password-prompt-regexp)
(format "%s for %s " (capitalize (match-string 1)) key))))) (format "%s for %s " (capitalize (match-string 1)) key)))))
(prog1 (with-parsed-tramp-file-name key nil
(or (prog1
;; See if auth-sources contains something useful, if it's bound. (or
(and (boundp 'auth-sources) ;; See if auth-sources contains something useful, if it's bound.
(tramp-get-connection-property proc "first-password-request" nil) (and (boundp 'auth-sources)
;; Try with Tramp's current method. (tramp-get-connection-property v "first-password-request" nil)
(funcall (symbol-function 'auth-source-user-or-password) ;; Try with Tramp's current method.
"password" tramp-current-host tramp-current-method)) (funcall (symbol-function 'auth-source-user-or-password)
;; Try the password cache. "password" tramp-current-host tramp-current-method))
(when (functionp 'password-read) ;; Try the password cache.
(unless (tramp-get-connection-property (when (functionp 'password-read)
proc "first-password-request" nil) (unless (tramp-get-connection-property
(funcall (symbol-function 'password-cache-remove) key)) v "first-password-request" nil)
(let ((password (funcall (symbol-function 'password-cache-remove) key))
(funcall (symbol-function 'password-read) pw-prompt key))) (let ((password
(funcall (symbol-function 'password-cache-add) key password) (funcall (symbol-function 'password-read) pw-prompt key)))
password)) (funcall (symbol-function 'password-cache-add) key password)
;; Else, get the password interactively. password))
(read-passwd pw-prompt)) ;; Else, get the password interactively.
(tramp-set-connection-property proc "first-password-request" nil)))) (read-passwd pw-prompt))
(tramp-set-connection-property v "first-password-request" nil)))))
(defun tramp-clear-passwd (vec) (defun tramp-clear-passwd (vec)
"Clear password cache for connection related to VEC." "Clear password cache for connection related to VEC."
...@@ -8585,7 +8586,7 @@ Only works for Bourne-like shells." ...@@ -8585,7 +8586,7 @@ Only works for Bourne-like shells."
;; rsync). ;; rsync).
;; * Keep a second connection open for out-of-band methods like scp or ;; * Keep a second connection open for out-of-band methods like scp or
;; rsync. ;; 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 ;; * IMHO, it's a drawback that currently Tramp doesn't support
;; Unicode in Dired file names by default. Is it possible to ;; Unicode in Dired file names by default. Is it possible to
;; improve Tramp to set LC_ALL to "C" only for commands where Tramp ;; improve Tramp to set LC_ALL to "C" only for commands where Tramp
...@@ -8596,6 +8597,9 @@ Only works for Bourne-like shells." ...@@ -8596,6 +8597,9 @@ Only works for Bourne-like shells."
;; * Load Tramp subpackages only when needed. (Bug#1529, Bug#5448) ;; * Load Tramp subpackages only when needed. (Bug#1529, Bug#5448)
;; * Try telnet+curl as new method. It might be useful for busybox, ;; * Try telnet+curl as new method. It might be useful for busybox,
;; without built-in uuencode/uudecode. ;; 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: ;; Functions for file-name-handler-alist:
;; diff-latest-backup-file -- in diff.el ;; diff-latest-backup-file -- in diff.el
......
...@@ -921,8 +921,8 @@ Inherits `shell-mode-map' with a few additions.") ...@@ -921,8 +921,8 @@ Inherits `shell-mode-map' with a few additions.")
;; remaining warning from byte-compiling all of Emacs... ;; remaining warning from byte-compiling all of Emacs...
(eval-when-compile (eval-when-compile
(setq byte-compile-function-environment (setq byte-compile-function-environment
(delq (assq 'tex-mode byte-compile-function-environment) (delq (assq 'tex-mode byte-compile-function-environment)
byte-compile-function-environment))) byte-compile-function-environment)))
;;;###autoload ;;;###autoload
(defun tex-mode () (defun tex-mode ()
...@@ -2643,7 +2643,7 @@ Runs the shell command defined by `tex-show-queue-command'." ...@@ -2643,7 +2643,7 @@ Runs the shell command defined by `tex-show-queue-command'."
(tex-kill-job) (tex-kill-job)
(tex-start-shell)) (tex-start-shell))
(let* (shell-dirtrack-verbose (let* (shell-dirtrack-verbose
(source-file (tex-main-file)) (source-file (expand-file-name (tex-main-file)))
(tex-out-file (tex-out-file
(tex-append (file-name-nondirectory source-file) "")) (tex-append (file-name-nondirectory source-file) ""))
(file-dir (file-name-directory source-file))) (file-dir (file-name-directory source-file)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment