From: Andrew W. Nosenko Date: Fri, 1 Feb 2013 21:10:08 +0000 (+0100) Subject: * net/tramp.el (tramp-check-for-regexp): Avoid "Args out of range" X-Git-Tag: emacs-24.2.93~16 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f864e0ea838f8f5e1a27b2ac612d0072c1606507;p=emacs.git * 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. --- 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