From 3efc6bfe4d1af9d124b330aa44f271d03ea29a16 Mon Sep 17 00:00:00 2001 From: nobu Date: Fri, 5 Sep 2003 06:32:07 +0000 Subject: * misc/ruby-mode.el (ruby-font-lock-maybe-here-docs): should not search delimiter forward if found in backward. git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@4510 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 5 +++++ misc/ruby-mode.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 4060c239d..24e36db5e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +Fri Sep 5 15:32:04 2003 Nobuyoshi Nakada + + * misc/ruby-mode.el (ruby-font-lock-maybe-here-docs): should not + search delimiter forward if found in backward. + Fri Sep 5 13:32:48 2003 Nobuyoshi Nakada * test/runner.rb: arguments should be keys. diff --git a/misc/ruby-mode.el b/misc/ruby-mode.el index f538714f4..8d9df41a4 100644 --- a/misc/ruby-mode.el +++ b/misc/ruby-mode.el @@ -1085,8 +1085,8 @@ balanced expression is found." (setq beg (point))))) (if (and beg (let ((end-match (ruby-here-doc-end-match))) - (not (re-search-backward end-match beg t)) - (re-search-forward end-match nil t))) + (and (not (re-search-backward end-match beg t)) + (re-search-forward end-match nil t)))) (progn (set-match-data (list beg (point))) t) -- cgit