* misc/ruby-mode.el (ruby-font-lock-maybe-here-docs): should not
search delimiter forward if found in backward. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4510 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
c492b9b085
commit
8d4d2e4323
|
@ -1,3 +1,8 @@
|
||||||
|
Fri Sep 5 15:32:04 2003 Nobuyoshi Nakada <nobu@ruby-lang.org>
|
||||||
|
|
||||||
|
* 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 <nobu@ruby-lang.org>
|
Fri Sep 5 13:32:48 2003 Nobuyoshi Nakada <nobu@ruby-lang.org>
|
||||||
|
|
||||||
* test/runner.rb: arguments should be keys.
|
* test/runner.rb: arguments should be keys.
|
||||||
|
|
|
@ -1085,8 +1085,8 @@ balanced expression is found."
|
||||||
(setq beg (point)))))
|
(setq beg (point)))))
|
||||||
(if (and beg
|
(if (and beg
|
||||||
(let ((end-match (ruby-here-doc-end-match)))
|
(let ((end-match (ruby-here-doc-end-match)))
|
||||||
(not (re-search-backward end-match beg t))
|
(and (not (re-search-backward end-match beg t))
|
||||||
(re-search-forward end-match nil t)))
|
(re-search-forward end-match nil t))))
|
||||||
(progn
|
(progn
|
||||||
(set-match-data (list beg (point)))
|
(set-match-data (list beg (point)))
|
||||||
t)
|
t)
|
||||||
|
|
Loading…
Reference in New Issue