1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00

* misc/ruby-mode.el (ruby-accurate-end-of-block): incomplete block

caused infinite loop.

* misc/ruby-mode.el (ruby-parse-partial): returns nil unless
  delimiters found.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2669 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nobu 2002-07-30 08:23:31 +00:00
parent 7f2348488f
commit e1b56ea429
2 changed files with 13 additions and 4 deletions

View file

@ -1,3 +1,11 @@
Tue Jul 30 17:21:13 2002 Nobuyoshi Nakada <nobu.nokada@softhome.net>
* misc/ruby-mode.el (ruby-accurate-end-of-block): incomplete block
caused infinite loop.
* misc/ruby-mode.el (ruby-parse-partial): returns nil unless
delimiters found.
Tue Jul 30 15:24:07 2002 WATANABE Hirofumi <eban@ruby-lang.org>
* ext/tcltklib/stubs.c (ruby_tcltk_stubs): win32_getenv returns

View file

@ -171,9 +171,10 @@ Also ignores spaces after parenthesis when 'space.")
(defun ruby-imenu-create-index ()
(nreverse (ruby-imenu-create-index-in-block nil (point-min) nil)))
(defun ruby-accurate-end-of-block ()
(defun ruby-accurate-end-of-block (&optional end)
(let (state)
(while (>= (nth 2 (setq state (apply 'ruby-parse-partial end state))) 0))))
(while (and (setq state (apply 'ruby-parse-partial end state))
(>= (nth 2 state) 0)))))
(defun ruby-mode-variables ()
(set-syntax-table ruby-mode-syntax-table)
@ -482,8 +483,8 @@ The variable ruby-indent-level controls the amount of indentation.
(t
(error (format "bad string %s"
(buffer-substring (point) pnt)
))))))
(list in-string nest depth pcol))
)))))
(list in-string nest depth pcol)))
(defun ruby-parse-region (start end)
(let (state)