From f864e0ea838f8f5e1a27b2ac612d0072c1606507 Mon Sep 17 00:00:00 2001 From: "Andrew W. Nosenko" Date: Fri, 1 Feb 2013 22:10:08 +0100 Subject: [PATCH] * 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. --- lisp/ChangeLog | 6 ++++++ lisp/net/tramp.el | 4 +++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 88fdf7ac1ac..df19277bb3a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2013-02-01 Andrew W. Nosenko (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 * textmodes/remember.el (remember-clipboard): Doc fix. diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index c29879691d7..6710c8a5211 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -3359,7 +3359,9 @@ Erase echoed commands if exists." 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 -- 2.39.2