* misc/ruby-mode.el (ruby-forward-string): fixed void variable

error.

* misc/ruby-mode.el (ruby-font-lock-keywords): method name can
  be delimited by tab.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3464 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ChangeLog

@@ -1,3 +1,11 @@
+Sat Feb 08 18:35:30 2003  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
+
+	* misc/ruby-mode.el (ruby-forward-string): fixed void variable
+	  error.
+
+	* misc/ruby-mode.el (ruby-font-lock-keywords): method name can
+	  be delimited by tab.
+
 Sat Feb  8 03:57:32 2003  Akinori MUSHA  <knu@iDaemons.org>
 
 	* lib/irb/workspace.rb, lib/irb/ext/math-mode.rb,

misc/ruby-mode.el

@@ -132,7 +132,7 @@ Also ignores spaces after parenthesis when 'space.")
 
 (eval-when-compile (require 'cl))
 (defun ruby-imenu-create-index-in-block (prefix beg end)
-  (let ((index-alist '()) (nest '()) (case-fold-search nil)
+  (let ((index-alist '()) (case-fold-search nil)
 	name next pos decl sing)
     (goto-char beg)
     (while (re-search-forward "^\\s *\\(\\(class\\>\\(\\s *<<\\)?\\|module\\>\\)\\s *\\([^\(<\n ]+\\)\\|\\(def\\|alias\\)\\>\\s *\\([^\(\n ]+\\)\\)" end t)
@@ -306,7 +306,7 @@ The variable ruby-indent-level controls the amount of indentation.
       (forward-char -1))
     (cond ((zerop n))
 	  (no-error nil)
-	  (error "unterminated string"))))
+	  ((error "unterminated string")))))
 
 (defun ruby-parse-partial (&optional end in-string nest depth pcol indent)
   (or depth (setq depth 0))
@@ -508,7 +508,7 @@ The variable ruby-indent-level controls the amount of indentation.
 	  )))
 
 (defun ruby-indent-size (pos nest)
-  (+ pos (* (if nest nest 1) ruby-indent-level)))
+  (+ pos (* (or nest 1) ruby-indent-level)))
 
 (defun ruby-calculate-indent (&optional parse-start)
   (save-excursion
@@ -860,7 +860,7 @@ An end of a defun is found by moving forward from the beginning of one."
   (defvar ruby-font-lock-keywords
     (list
      ;; functions
-     '("^\\s *def\\s +\\([^( ]+\\)"
+     '("^\\s *def\\s +\\([^( \t\n]+\\)"
        1 font-lock-function-name-face)
      ;; keywords
      (cons (concat