[ruby-dev:13515] [PATCH] ruby-mode.el

むらけんです.

現在の ruby-mode.el は, 埋め込みドキュメントをコメント色にする
ためには font-lock-fontify-buffer をする必要がありました.  ちょっ
と気になったので直してみました.

以下の patch です.  [ruby-dev:13296] のうえのさんの patch と併
せて使うと, =begin, =end の対応が変な場合に文字列色になるので
発見しやすくなるというオマケも附属します.

でわ.

-- 
Kenta MURATA <[e-mail]> "http://www.kondara.org/~muraken/"

--- ruby-mode.el.orig	Fri Jun  8 21:28:59 2001
+++ ruby-mode.el	Fri Jun  8 22:41:19 2001
@@ -688,6 +688,21 @@
 		(set-match-data (list beg (point)))
 		t)))))
 
+  (defun ruby-font-lock-maybe-docs (limit)
+    (let (beg)
+      (save-excursion
+	(if (and (re-search-backward "^=\\(begin\\|end\\)\\(\\s \\|$\\)" nil t)
+		 (string= (match-string-no-properties 1) "begin"))
+	    (progn
+	      (beginning-of-line)
+	      (setq beg (point)))))
+      (if (and beg (and (re-search-forward "^=\\(begin\\|end\\)\\(\\s \\|$\\)" nil t)
+			(string= (match-string-no-properties 1) "end")))
+	  (progn
+	    (set-match-data (list beg (point)))
+	    t)
+	nil)))
+
   (defvar ruby-font-lock-keywords
     (list
      (cons (concat
@@ -741,6 +756,8 @@
        0 font-lock-variable-name-face)
      ;; embedded document
      '(ruby-font-lock-docs
+       0 font-lock-comment-face t)
+     '(ruby-font-lock-maybe-docs
        0 font-lock-comment-face t)
      ;; constants
      '("\\(^\\|[^_]\\)\\b\\([A-Z]+\\(\\w\\|_\\)*\\)"