[Emacs-diffs] trunk r117385: Merge from emacs-24; up to r117290

[Glenn Morris]

------------------------------------------------------------
revno: 117385 [merge]
revision-id: address@hidden
parent: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2014-06-24 00:15:26 -0700
message:
  Merge from emacs-24; up to r117290
modified:
  doc/misc/ChangeLog             changelog-20091113204419-o5vbwnq5f7feedwu-6331
  doc/misc/autotype.texi         
autotype.texi-20091113204419-o5vbwnq5f7feedwu-6289
  doc/misc/dired-x.texi          
diredx.texi-20091113204419-o5vbwnq5f7feedwu-6293
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/align.el                  align.el-20091113204419-o5vbwnq5f7feedwu-1758
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/html2text.el         
html2text.el-20091113204419-o5vbwnq5f7feedwu-3253
  lisp/indent.el                 indent.el-20091113204419-o5vbwnq5f7feedwu-230
  lisp/net/tramp-adb.el          trampadb.el-20121204164216-03wyr5miam215d7f-1
  lisp/net/tramp-sh.el           trampsh.el-20100913133439-a1faifh29eqoi4nh-1
  lisp/net/tramp-smb.el          
trampsmb.el-20091113204419-o5vbwnq5f7feedwu-2515
  lisp/play/landmark.el          
landmark.el-20091113204419-o5vbwnq5f7feedwu-1175
  lisp/skeleton.el               skeleton.el-20091113204419-o5vbwnq5f7feedwu-728

=== modified file 'doc/misc/ChangeLog'
--- a/doc/misc/ChangeLog        2014-06-23 06:25:47 +0000
+++ b/doc/misc/ChangeLog        2014-06-24 07:15:26 +0000
@@ -1,3 +1,12 @@
+2014-06-24  Leo Liu  <address@hidden>
+
+       * dired-x.texi (Omitting Files in Dired, Omitting Variables):
+       Fix key binding to dired-omit-mode.  (Bug#16354)
+
+2014-06-24  Eli Zaretskii  <address@hidden>
+
+       * autotype.texi (Skeleton Language): Document the \n feature better.
+
 2014-06-23  Glenn Morris  <address@hidden>
 
        * Makefile.in (%.texi): Disable implicit rules.

=== modified file 'doc/misc/autotype.texi'
--- a/doc/misc/autotype.texi    2014-06-21 19:45:59 +0000
+++ b/doc/misc/autotype.texi    2014-06-24 07:15:26 +0000
@@ -234,9 +234,10 @@
 @c ??? something seems very wrong here.
 Insert a newline and align under current line, but not if this is the
 last element of a skeleton and the newline would be inserted at end of
-line.  Use newline character @code{?\n} to prevent alignment.  Use
address@hidden"\n"} as the last string element of a skeleton to insert a
-newline after the skeleton unconditionally.
+line, or this is the first element and the newline would be inserted
+at beginning of line.  Use newline character @code{?\n} to prevent
+alignment.  Use @code{"\n"} as the first or last string element of a
+skeleton to insert a newline unconditionally.
 @item @code{_}
 Interesting point.  When wrapping skeletons around successive regions, they are
 put at these places.  Point is left at first @code{_} where nothing is wrapped.

=== modified file 'doc/misc/dired-x.texi'
--- a/doc/misc/dired-x.texi     2014-06-10 02:20:31 +0000
+++ b/doc/misc/dired-x.texi     2014-06-24 07:15:26 +0000
@@ -283,8 +283,8 @@
 @end itemize
 
 @table @kbd
address@hidden M-o
address@hidden M-o
address@hidden C-x M-o
address@hidden C-x M-o
 @findex dired-omit-mode
 (@code{dired-omit-mode}) Toggle between displaying and omitting
 ``uninteresting'' files.
@@ -324,7 +324,7 @@
 If address@hidden, ``uninteresting'' files are not listed.
 Uninteresting files are those whose files whose names match regexp
 @code{dired-omit-files}, plus those ending with extensions in
address@hidden  @kbd{M-o} (@code{dired-omit-mode})
address@hidden  @kbd{C-x M-o} (@code{dired-omit-mode})
 toggles its value, which is buffer-local.  Put
 
 @example
@@ -333,8 +333,8 @@
 
 @noindent
 inside your @code{dired-mode-hook} to have omitting initially turned on in
address@hidden Dired buffer (@pxref{Installation}).  You can then use @kbd{M-o} 
to
-unomit in that buffer.
address@hidden Dired buffer (@pxref{Installation}).  You can then use
address@hidden M-o} to unomit in that buffer.
 
 To enable omitting automatically only in certain directories you can add
 a directory local setting

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-06-23 20:23:33 +0000
+++ b/lisp/ChangeLog    2014-06-24 07:15:26 +0000
@@ -1,3 +1,30 @@
+2014-06-24  Leo Liu  <address@hidden>
+
+       * align.el (align-adjust-col-for-rule): Unbreak due to defaulting
+       tab-stop-list to nil.  (Bug#16381)
+
+       * indent.el (indent-next-tab-stop): Rename from indent--next-tab-stop.
+       (indent-rigidly-left-to-tab-stop)
+       (indent-rigidly-right-to-tab-stop, tab-to-tab-stop)
+       (move-to-tab-stop): Change callers.
+
+2014-06-24  Eli Zaretskii  <address@hidden>
+
+       * skeleton.el (skeleton-insert): Yet another fix of the doc string
+       wrt behavior of \n as the first/last element of a skeleton.
+
+2014-06-24  Michael Albinus  <address@hidden>
+
+       * net/tramp-adb.el (tramp-adb-handle-process-file):
+       * net/tramp-sh.el (tramp-sh-handle-process-file):
+       * net/tramp-smb.el (tramp-smb-handle-process-file): Do not raise
+       the output buffer when DISPLAY is non-nil.  (Bug#17815)
+
+2014-06-24  Glenn Morris  <address@hidden>
+
+       * play/landmark.el (landmark-move-down, landmark-move-up):
+       Fix 2007-10-20 change - preserve horizontal position.
+
 2014-06-23  Sam Steingold  <address@hidden>
 
        * simple.el (kill-append): Remove undo boundary depending on ...

=== modified file 'lisp/align.el'
--- a/lisp/align.el     2014-03-24 16:54:24 +0000
+++ b/lisp/align.el     2014-06-23 23:09:20 +0000
@@ -1130,13 +1130,8 @@
       column
     (if (not tab-stop)
        (+ column spacing)
-      (let ((stops tab-stop-list))
-       (while stops
-         (if (and (> (car stops) column)
-                  (= (setq spacing (1- spacing)) 0))
-             (setq column (car stops)
-                   stops nil)
-           (setq stops (cdr stops)))))
+      (dotimes (_ spacing)
+       (setq column (indent-next-tab-stop column)))
       column)))
 
 (defsubst align-column (pos)

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2014-06-22 05:43:58 +0000
+++ b/lisp/gnus/ChangeLog       2014-06-24 07:15:26 +0000
@@ -1,3 +1,8 @@
+2014-06-24  Andreas Schwab  <address@hidden>
+
+       * html2text.el (html2text-get-attr): Rewrite to handle spaces in quoted
+       attribute values.  (Bug#17834)
+
 2013-06-22  Dmitry Antipov  <address@hidden>
 
        * gnus-sum.el (gnus-summary-edit-article-done):

=== modified file 'lisp/gnus/html2text.el'
--- a/lisp/gnus/html2text.el    2014-05-28 06:35:53 +0000
+++ b/lisp/gnus/html2text.el    2014-06-22 21:14:43 +0000
@@ -179,72 +179,20 @@
 
 (defun html2text-get-attr (p1 p2)
   (goto-char p1)
-  (re-search-forward " +[^ ]" p2 t)
-  (let* ((attr-string (buffer-substring-no-properties (1- (point)) (1- p2)))
-        (tmp-list (split-string attr-string))
-        (attr-list)
-        (counter 0)
-        (prev (car tmp-list))
-        (this (nth 1 tmp-list))
-        (next (nth 2 tmp-list))
-        (index 1))
-
-    (cond
-     ;; size=3
-     ((string-match "[^ ]=[^ ]" prev)
-      (let ((attr  (nth 0 (split-string prev "=")))
-           (value (substring prev (1+ (string-match "=" prev)))))
-       (setq attr-list (cons (list attr value) attr-list))))
-     ;; size= 3
-     ((string-match "[^ ]=\\'" prev)
-      (setq attr-list (cons (list (substring prev 0 -1) this) attr-list))))
-
-    (while (< index (length tmp-list))
-      (cond
-       ;; size=3
-       ((string-match "[^ ]=[^ ]" this)
-       (let ((attr  (nth 0 (split-string this "=")))
-             (value (substring this (1+ (string-match "=" this)))))
-         (setq attr-list (cons (list attr value) attr-list))))
-       ;; size =3
-       ((string-match "\\`=[^ ]" this)
-       (setq attr-list (cons (list prev (substring this 1)) attr-list)))
-       ;; size= 3
-       ((string-match "[^ ]=\\'" this)
-       (setq attr-list (cons (list (substring this 0 -1) next) attr-list)))
-       ;; size = 3
-       ((string= "=" this)
-       (setq attr-list (cons (list prev next) attr-list))))
-      (setq index (1+ index))
-      (setq prev this)
-      (setq this next)
-      (setq next (nth (1+ index) tmp-list)))
-    ;;
-    ;; Tags with no accompanying "=" i.e. value=nil
-    ;;
-    (setq prev (car tmp-list))
-    (setq this (nth 1 tmp-list))
-    (setq next (nth 2 tmp-list))
-    (setq index 1)
-
-    (when (and (not (string-match "=" prev))
-              (not (string= (substring this 0 1) "=")))
-      (setq attr-list (cons (list prev nil) attr-list)))
-    (while (< index (1- (length tmp-list)))
-      (when (and (not (string-match "=" this))
-                (not (or (string= (substring next 0 1) "=")
-                         (string= (substring prev -1) "="))))
-       (setq attr-list (cons (list this nil) attr-list)))
-      (setq index (1+ index))
-      (setq prev this)
-      (setq this next)
-      (setq next (nth (1+ index) tmp-list)))
-
-    (when (and this
-              (not (string-match "=" this))
-              (not (string= (substring prev -1) "=")))
-      (setq attr-list (cons (list this nil) attr-list)))
-    ;; return - value
+  (re-search-forward "\\s-+" p2 t)
+  (let (attr-list)
+    (while (re-search-forward "[-a-z0-9._]+" p2 t)
+      (setq attr-list
+           (cons
+            (list (match-string 0)
+                  (when (looking-at "\\s-*=")
+                    (goto-char (match-end 0))
+                    (skip-chars-forward "[:space:]")
+                    (when (or (looking-at "\"[^\"]*\"\\|'[^']*'")
+                              (looking-at "[-a-z0-9._:]+"))
+                      (goto-char (match-end 0))
+                      (match-string 0))))
+            attr-list)))
     attr-list))
 
 ;;

=== modified file 'lisp/indent.el'
--- a/lisp/indent.el    2014-02-10 01:34:22 +0000
+++ b/lisp/indent.el    2014-06-23 23:09:20 +0000
@@ -249,7 +249,7 @@
   (indent-rigidly--pop-undo)
   (let* ((current (indent-rigidly--current-indentation beg end))
         (rtl (eq (current-bidi-paragraph-direction) 'right-to-left))
-        (next (indent--next-tab-stop current (if rtl nil 'prev))))
+        (next (indent-next-tab-stop current (if rtl nil 'prev))))
     (indent-rigidly beg end (- next current))))
 
 (defun indent-rigidly-right-to-tab-stop (beg end)
@@ -258,7 +258,7 @@
   (indent-rigidly--pop-undo)
   (let* ((current (indent-rigidly--current-indentation beg end))
         (rtl (eq (current-bidi-paragraph-direction) 'right-to-left))
-        (next (indent--next-tab-stop current (if rtl 'prev))))
+        (next (indent-next-tab-stop current (if rtl 'prev))))
     (indent-rigidly beg end (- next current))))
 
 (defun indent-line-to (column)
@@ -654,7 +654,7 @@
       (setq tab-stop-list tabs))
   (message "Tab stops installed"))
 
-(defun indent--next-tab-stop (column &optional prev)
+(defun indent-next-tab-stop (column &optional prev)
   "Return the next tab stop after COLUMN.
 If PREV is non-nil, return the previous one instead."
   (let ((tabs tab-stop-list))
@@ -684,7 +684,7 @@
   (interactive)
   (and abbrev-mode (= (char-syntax (preceding-char)) ?w)
        (expand-abbrev))
-  (let ((nexttab (indent--next-tab-stop (current-column))))
+  (let ((nexttab (indent-next-tab-stop (current-column))))
     (delete-horizontal-space t)
     (indent-to nexttab)))
 
@@ -693,7 +693,7 @@
 The variable `tab-stop-list' is a list of columns at which there are tab stops.
 Use \\[edit-tab-stops] to edit them interactively."
   (interactive)
-  (let ((nexttab (indent--next-tab-stop (current-column))))
+  (let ((nexttab (indent-next-tab-stop (current-column))))
     (let ((before (point)))
       (move-to-column nexttab t)
       (save-excursion

=== modified file 'lisp/net/tramp-adb.el'
--- a/lisp/net/tramp-adb.el     2014-06-22 23:12:17 +0000
+++ b/lisp/net/tramp-adb.el     2014-06-24 07:15:26 +0000
@@ -801,11 +801,11 @@
             v (format "(cd %s; %s)"
                       (tramp-shell-quote-argument localname) command)
             "")
-           ;; We should show the output anyway.
+           ;; We should add the output anyway.
            (when outbuf
              (with-current-buffer outbuf
                (insert-buffer-substring (tramp-get-connection-buffer v)))
-             (when display (display-buffer outbuf))))
+             (when (and display (get-buffer-window outbuf t)) (redisplay))))
        ;; When the user did interrupt, we should do it also.  We use
        ;; return code -1 as marker.
        (quit

=== modified file 'lisp/net/tramp-sh.el'
--- a/lisp/net/tramp-sh.el      2014-06-15 15:47:35 +0000
+++ b/lisp/net/tramp-sh.el      2014-06-24 07:15:26 +0000
@@ -2994,13 +2994,13 @@
                                   command)
                         t t)
                        0 1))
-           ;; We should show the output anyway.
+           ;; We should add the output anyway.
            (when outbuf
              (with-current-buffer outbuf
                 (insert
                  (with-current-buffer (tramp-get-connection-buffer v)
                    (buffer-string))))
-             (when display (display-buffer outbuf))))
+             (when (and display (get-buffer-window outbuf t)) (redisplay))))
        ;; When the user did interrupt, we should do it also.  We use
        ;; return code -1 as marker.
        (quit

=== modified file 'lisp/net/tramp-smb.el'
--- a/lisp/net/tramp-smb.el     2014-06-15 15:47:35 +0000
+++ b/lisp/net/tramp-smb.el     2014-06-24 07:15:26 +0000
@@ -1225,8 +1225,8 @@
        (error
         (setq ret 1)))
 
-      ;; We should show the output anyway.
-      (when (and outbuf display) (display-buffer outbuf))
+      ;; We should redisplay the output.
+      (when (and display outbuf (get-buffer-window outbuf t)) (redisplay))
 
       ;; Cleanup.  We remove all file cache values for the connection,
       ;; because the remote process could have changed them.

=== modified file 'lisp/play/landmark.el'
--- a/lisp/play/landmark.el     2014-01-01 07:43:34 +0000
+++ b/lisp/play/landmark.el     2014-06-21 21:36:44 +0000
@@ -4,13 +4,7 @@
 
 ;; Author: Terrence Brannon (was: <address@hidden>)
 ;; Created: December 16, 1996 - first release to usenet
-;; Keywords: games, gomoku, neural network, adaptive search, chemotaxis
-
-;;;_* Usage
-;;; Just type
-;;;   M-x eval-buffer
-;;;   M-x landmark-test-run
-
+;; Keywords: games, neural network, adaptive search, chemotaxis
 
 ;; This file is part of GNU Emacs.
 
@@ -29,6 +23,9 @@
 
 
 ;;; Commentary:
+
+;; To try this, just type: M-x landmark-test-run
+
 ;; Landmark is a relatively non-participatory game in which a robot
 ;; attempts to maneuver towards a tree at the center of the window
 ;; based on unique olfactory cues from each of the 4 directions. If
@@ -1040,13 +1037,17 @@
   "Move point down one row on the Landmark board."
   (interactive)
   (if (< (landmark-point-y) landmark-board-height)
-      (forward-line 1)));;; landmark-square-height)))
+      (let ((col (current-column)))
+       (forward-line 1) ;;; landmark-square-height
+       (move-to-column col))))
 
 (defun landmark-move-up ()
   "Move point up one row on the Landmark board."
   (interactive)
   (if (> (landmark-point-y) 1)
-      (forward-line (- landmark-square-height))))
+      (let ((col (current-column)))
+       (forward-line (- landmark-square-height))
+       (move-to-column col))))
 
 (defun landmark-move-ne ()
   "Move point North East on the Landmark board."

=== modified file 'lisp/skeleton.el'
--- a/lisp/skeleton.el  2014-06-21 19:45:59 +0000
+++ b/lisp/skeleton.el  2014-06-24 07:15:26 +0000
@@ -197,8 +197,9 @@
 If ELEMENT is a string or a character it gets inserted (see also
 `skeleton-transformation-function').  Other possibilities are:
 
-       \\n     if not the last element of the skeleton, or not at eol,
-                go to next line and indent according to mode
+       \\n     go to next line and indent according to mode, unless
+                this is the first/last element of a skeleton and point
+                is at bol/eol
        _       interesting point, interregion here
        -       interesting point, no interregion interaction, overrides
                interesting point set by _
@@ -215,7 +216,8 @@
 
 Note that \\n as the last element of the skeleton only inserts a
 newline if not at eol.  If you want to unconditionally insert a newline
-at the end of the skeleton, use \"\\n\" instead.
+at the end of the skeleton, use \"\\n\" instead.  Likewise with \\n
+as the first element when at bol.
 
 Further elements can be defined via `skeleton-further-elements'.
 ELEMENT may itself be a SKELETON with an INTERACTOR.  The user is prompted