Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a622127f
Commit
a622127f
authored
Feb 16, 2010
by
Kenichi Handa
Browse files
from trunk
parents
fa6ea913
dc4d6273
Changes
12
Hide whitespace changes
Inline
Side-by-side
Showing
12 changed files
with
99 additions
and
44 deletions
+99
-44
doc/lispintro/ChangeLog
doc/lispintro/ChangeLog
+4
-0
doc/lispintro/emacs-lisp-intro.texi
doc/lispintro/emacs-lisp-intro.texi
+11
-10
doc/misc/ChangeLog
doc/misc/ChangeLog
+4
-0
doc/misc/nxml-mode.texi
doc/misc/nxml-mode.texi
+1
-1
lisp/ChangeLog
lisp/ChangeLog
+21
-0
lisp/emacs-lisp/advice.el
lisp/emacs-lisp/advice.el
+3
-1
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+5
-0
lisp/gnus/message.el
lisp/gnus/message.el
+16
-2
lisp/net/tramp-cache.el
lisp/net/tramp-cache.el
+4
-3
lisp/net/tramp-gvfs.el
lisp/net/tramp-gvfs.el
+1
-2
lisp/net/tramp.el
lisp/net/tramp.el
+26
-22
lisp/textmodes/tex-mode.el
lisp/textmodes/tex-mode.el
+3
-3
No files found.
doc/lispintro/ChangeLog
View file @
a622127f
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>
* emacs-lisp-intro.texi (Text and Auto-fill, Mode Line):
...
...
doc/lispintro/emacs-lisp-intro.texi
View file @
a622127f
...
...
@@ -229,7 +229,8 @@ people who are not programmers.
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 @@ definition.
@end ignore
More generally, if you want to see a function in its original source
file, you can use the @code{find-tag
s
} function to jump to it.
@code{find-tag
s
} 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-tag
s
} 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-tag
s
} 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-tag
s
} jumps.
@code{find-tag} jumps.
To use the @code{find-tag
s
} 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
@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 @@ screen. To switch back to your current buffer, type @kbd{C-x b
@c !!! 22.1.1 tags table location in this paragraph
@cindex TAGS table, specifying
@findex find-tag
s
@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 @@ M-x compile RET etags *.el RET
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-tag
s
} 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 @@ introduction, it comes as a Texinfo source file, so you can read it
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-tag
s
},
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,
...
...
doc/misc/ChangeLog
View file @
a622127f
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>
* ede.texi, eieio.texi, semantic.texi: Use standard direntry format.
...
...
doc/misc/nxml-mode.texi
View file @
a622127f
...
...
@@ -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
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
...
...
lisp/ChangeLog
View file @
a622127f
...
...
@@ -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 <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>
* outline.el (outline-head-from-level):
...
...
lisp/emacs-lisp/advice.el
View file @
a622127f
...
...
@@ -2685,7 +2685,9 @@ For that it has to be fbound with a non-autoload definition."
(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))
...
...
lisp/gnus/ChangeLog
View file @
a622127f
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>
* message.el (message-mail): Just pass yank-action on to message-setup.
...
...
lisp/gnus/message.el
View file @
a622127f
...
...
@@ -1178,8 +1178,22 @@ these lines."
: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 @@ PGG manual, depending on the value of `mml2015-use'."
;;; 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 interfer
e
with the normal function of message mode out of the
;; buffer.
(defcustom message-strip-special-text-properties t
...
...
lisp/net/tramp-cache.el
View file @
a622127f
;;; 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 <daniel@inanna.danann.net>
;; Michael Albinus <michael.albinus@gmx.de>
...
...
@@ -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
)))
(
progn
(
remhash
"process-name"
value
)
(
remhash
"process-buffer"
value
))
(
remhash
"process-buffer"
value
)
(
remhash
"first-password-request"
value
))
(
remhash
key
cache
)))
cache
)
;; Dump it.
...
...
lisp/net/tramp-gvfs.el
View file @
a622127f
...
...
@@ -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
))
;; 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.
...
...
lisp/net/tramp.el
View file @
a622127f
...
...
@@ -6539,7 +6539,7 @@ The terminal type can be configured with `tramp-terminal-type'."
(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
pro
c "first-password-request" t)
(tramp-set-connection-property
ve
c "first-password-request" t)
(let (exit)
(while (not exit)
(tramp-message proc 3 "Waiting for prompts from remote shell")
...
...
@@ -8320,26 +8320,27 @@ Invokes `password-read' if available, `read-passwd' else."
(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 @@ Only works for Bourne-like shells."
;; 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 @@ Only works for Bourne-like shells."
;; * 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
...
...
lisp/textmodes/tex-mode.el
View file @
a622127f
...
...
@@ -921,8 +921,8 @@ Inherits `shell-mode-map' with a few additions.")
;; 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 @@ Runs the shell command defined by `tex-show-queue-command'."
(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)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment