Commit 872faefb authored by Glenn Morris's avatar Glenn Morris
Browse files

Merge from emacs-24; up to 2012-12-20T16:09:05Z!

parents 8ca4f1e0 2af3b9c1
2013-02-19 Glenn Morris <>
* text.texi (Change Hooks): Fix typo.
2013-02-15 Glenn Morris <>
* modes.texi (Basic Major Modes): 'z' no longer bound in special-mode.
......@@ -4344,7 +4344,7 @@ This variable holds a list of functions to call after any buffer
modification. Each function receives three arguments: the beginning
and end of the region just changed, and the length of the text that
existed before the change. All three arguments are integers. The
buffer has been changed is always the current buffer.
buffer that has been changed is always the current buffer.
The length of the old text is the difference between the buffer
positions before and after that text as it was before the change. As
......@@ -41,9 +41,6 @@ a web search is often the best way to find results.
The Emacs Wiki has an area for storing elisp files
* WikEmacs
<URL:> is an alternative wiki for Emacs.
* Emacs slides and tutorials can be found here:
......@@ -55,16 +52,8 @@ so you will find the latest version in Emacs.
* Ada-mode: <URL:>
* Battery and Info Look: <URL:>
* CC mode: <URL:>
* CPerl: <URL:>
* Ediff and Viper: <URL:>
* ERC: <URL:>
* Gnus: <URL:>
* MH-E: <URL:>
......@@ -73,25 +62,11 @@ so you will find the latest version in Emacs.
* Org mode: <URL:>
* RefTeX: <URL:>
* Remember: <URL:>
* Tramp: Remote file access via rsh/ssh
* Auxiliary files
* (Tex)info files for use with Info-look that don't come from GNU
* Scheme: <URL:>
* LaTeX: <URL:
latex2e.texi> (or CTAN mirrors)
* Perl: <URL:>
(or CPAN mirrors)
* GNU Zile: <URL:>
A lightweight Emacs clone, for when you don't have room for Emacs proper.
......@@ -108,6 +83,7 @@ packages that you can install.
* AUCTeX: <URL:>
An extensible package that supports writing and formatting TeX
files (including AMS-TeX, LaTeX, Texinfo, ConTeXt, and docTeX).
Includes Preview LaTeX: embed preview LaTeX images in source buffer.
Available from GNU ELPA.
* BBDB: personal Info Rolodex integrated with mail/news:
......@@ -134,6 +110,7 @@ packages that you can install.
* Emacs Muse: <URL:>
An authoring and publishing environment for Emacs.
Available from GNU ELPA.
* Emacs speaks statistics (ESS): statistical programming within Emacs
......@@ -170,9 +147,6 @@ packages that you can install.
* Planner Mode: <URL:>
Planner is an organizer and day planner for Emacs.
* Preview LaTeX: embed preview LaTeX images in source buffer.
* Quack: <URL:>
Quack enhances Emacs support for Scheme.
2013-02-19 Fabián Ezequiel Gallina <fgallina@cuca>
* progmodes/python.el (python-indent-context):
Fix python-info-line-ends-backslash-p call.
(python-info-beginning-of-backslash): Respect line-number argument.
Fix behavior when not at beginning-of-line.
(python-util-position): Remove function.
(python-util-goto-line): New function.
2013-02-19 Michael Albinus <>
* eshell/em-unix.el (eshell/su): Require tramp.
(eshell/sudo): Require tramp. Remove now unnecessary check.
* net/tramp-sh.el (tramp-sh-handle-start-file-process): Let-bind
`tramp-current-connection' in order to avoid an error when several
commands are invoked in a short time in eshell and friends.
2013-02-19 Stefan Monnier <>
Cleanup some of EIEIO's namespace.
......@@ -1040,6 +1040,7 @@ Show wall-clock time elapsed during execution of COMMAND.")
(defun eshell/su (&rest args)
"Alias \"su\" to call Tramp."
(require 'tramp)
(setq args (eshell-stringify-list (eshell-flatten-list args)))
(let ((orig-args (copy-tree args)))
......@@ -1077,6 +1078,7 @@ Become another USER during a login session.")
(defun eshell/sudo (&rest args)
"Alias \"sudo\" to call Tramp."
(require 'tramp)
(setq args (eshell-stringify-list (eshell-flatten-list args)))
(let ((orig-args (copy-tree args)))
......@@ -1111,8 +1113,6 @@ Execute a COMMAND as the superuser or another USER.")
(format "%s|sudo:%s@%s:%s"
(substring prefix 0 -1) user host dir)
(format "/sudo:%s@%s:%s" user host dir))))
;; Ensure, that Tramp has connected to that construct already.
(ignore (file-exists-p default-directory))
(eshell-named-command (car orig-args) (cdr orig-args))))))))
(put 'eshell/sudo 'eshell-no-numeric-conversions t)
......@@ -27,6 +27,14 @@
;; Really cool code to lookup info indexes.
;; Try especially info-lookup-symbol (aka C-h S).
;; Some additional sources of (Tex)info files for non-GNU packages:
;; Scheme: <URL:>
;; LaTeX:
;; <URL:>
;; (or CTAN mirrors)
;; Perl: <URL:> (or CPAN mirrors)
;;; Code:
(require 'info)
......@@ -2784,7 +2784,11 @@ the result will be a local, non-Tramp, filename."
(or (null program) tramp-process-connection-type))
(bmp (and (buffer-live-p buffer) (buffer-modified-p buffer)))
(name1 name)
(i 0))
(i 0)
;; We do not want to raise an error when
;; `start-file-process' has been started several time in
;; `eshell' and friends.
(tramp-current-connection nil))
(unless buffer
;; BUFFER can be nil. We use a temporary buffer.
......@@ -708,10 +708,9 @@ START is the buffer position where the sexp starts."
;; After backslash
((setq start (when (not (or (python-syntax-context 'string ppss)
(python-syntax-context 'comment ppss)))
(let ((line-beg-pos (line-beginning-position)))
(when (python-info-line-ends-backslash-p
(1- line-beg-pos))
(- line-beg-pos 2)))))
(let ((line-beg-pos (line-number-at-pos)))
(1- line-beg-pos)))))
;; After beginning of block
((setq start (save-excursion
......@@ -3115,7 +3114,7 @@ With optional argument LINE-NUMBER, check that line instead."
(when line-number
(goto-char line-number))
(python-util-goto-line line-number))
(while (and (not (eobp))
(goto-char (line-end-position))
(python-syntax-context 'paren)
......@@ -3131,7 +3130,7 @@ Optional argument LINE-NUMBER forces the line number to check against."
(when line-number
(goto-char line-number))
(python-util-goto-line line-number))
(when (python-info-line-ends-backslash-p)
(while (save-excursion
(goto-char (line-beginning-position))
......@@ -3210,7 +3209,9 @@ operator."
(defun python-info-current-line-comment-p ()
"Check if current line is a comment line."
(char-equal (or (char-after (+ (point) (current-indentation))) ?_) ?#))
(or (char-after (+ (line-beginning-position) (current-indentation))) ?_)
(defun python-info-current-line-empty-p ()
"Check if current line is empty, ignoring whitespace."
......@@ -3225,12 +3226,10 @@ operator."
;;; Utility functions
(defun python-util-position (item seq)
"Find the first occurrence of ITEM in SEQ.
Return the index of the matching item, or nil if not found."
(let ((member-result (member item seq)))
(when member-result
(- (length seq) (length member-result)))))
(defun python-util-goto-line (line-number)
"Move point to LINE-NUMBER."
(goto-char (point-min))
(forward-line (1- line-number)))
;; Stolen from org-mode
(defun python-util-clone-local-variables (from-buffer &optional regexp)
2013-02-19 Eli Zaretskii <>
* w32proc.c (new_child): Avoid leaking handles if the subprocess
resources were not orderly released.
2013-02-17 Eli Zaretskii <>
* xdisp.c (x_draw_vertical_border): For a window that is neither
......@@ -849,6 +849,12 @@ new_child (void)
cp = &child_procs[child_proc_count++];
/* Last opportunity to avoid leaking handles before we forget them
for good. */
if (cp->procinfo.hProcess)
CloseHandle (cp->procinfo.hProcess);
if (cp->procinfo.hThread)
CloseHandle (cp->procinfo.hThread);
memset (cp, 0, sizeof (*cp));
cp->fd = -1;
cp->pid = -1;
......@@ -28244,7 +28244,7 @@ x_draw_vertical_border (struct window *w)
/* Note: It is necessary to redraw bot the left and the right
/* Note: It is necessary to redraw both the left and the right
borders, for when only this single window W is being
redisplayed. */
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