[Emacs-diffs] /srv/bzr/emacs/emacs-24 r111215: * net/tramp.el (tramp-check-for-regexp): Avoid "Args out of range"

[Michael Albinus]

------------------------------------------------------------
revno: 111215
author: Andrew W. Nosenko <address@hidden>
committer: Michael Albinus <address@hidden>
branch nick: emacs-24
timestamp: Fri 2013-02-01 22:10:08 +0100
message:
  * net/tramp.el (tramp-check-for-regexp): Avoid "Args out of range"
  error when buffer in question is narrowed so position 1 is out of
  visible part.
modified:
  lisp/ChangeLog
  lisp/net/tramp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-01-31 17:03:53 +0000
+++ b/lisp/ChangeLog    2013-02-01 21:10:08 +0000
@@ -1,3 +1,9 @@
+2013-02-01  Andrew W. Nosenko  <address@hidden>  (tiny change)
+
+       * net/tramp.el (tramp-check-for-regexp): Avoid "Args out of range"
+       error when buffer in question is narrowed so position 1 is out of
+       visible part.
+
 2013-01-31  Glenn Morris  <address@hidden>
 
        * textmodes/remember.el (remember-clipboard): Doc fix.

=== modified file 'lisp/net/tramp.el'
--- a/lisp/net/tramp.el 2013-01-01 09:11:05 +0000
+++ b/lisp/net/tramp.el 2013-02-01 21:10:08 +0000
@@ -3359,7 +3359,9 @@
                     0 (min tramp-echo-mark-marker-length (1- (point-max))))
                    (tramp-compat-funcall
                     'buffer-substring-no-properties
-                    1 (min (1+ tramp-echo-mark-marker-length) (point-max))))))
+                    (point-min)
+                    (min (+ (point-min) tramp-echo-mark-marker-length)
+                         (point-max))))))
       ;; No echo to be handled, now we can look for the regexp.
       ;; Sometimes, lines are much to long, and we run into a "Stack
       ;; overflow in regexp matcher".  For example, //DIRED// lines of