[ruby-list:33415] add-log function for ruby-mode.el

M-x add-change-log-entry 向けの関数取得関数を書きました。
ruby-mode.el に merge していただけませんか。

以下、パッチです。add-log-current-defun-function に設定するコード
も含まれています。

-- 
TAKAHASHI "beatmaria" Kaoru (高橋 郁) <[e-mail]>
  "Remember, the source will be with you...always."


Index: ruby-mode.el
===================================================================
RCS file: /src/ruby/misc/ruby-mode.el,v
retrieving revision 1.42
diff -u -r1.42 ruby-mode.el
--- ruby-mode.el	2002/01/09 17:50:44	1.42
+++ ruby-mode.el	2002/01/17 09:43:05
@@ -189,6 +189,9 @@
   (make-local-variable 'imenu-create-index-function)
   (setq imenu-create-index-function 'ruby-imenu-create-index)
 
+  (make-local-variable 'add-log-current-defun-function)
+  (setq add-log-current-defun-function 'ruby-add-log-current-method)
+
   (run-hooks 'ruby-mode-hook))
 
 (defun ruby-current-indentation ()
@@ -681,6 +684,42 @@
   (push-mark (point) nil t)
   (ruby-beginning-of-defun)
   (re-search-backward "^\n" (- (point) 1) t))
+
+(defun ruby-add-log-current-method ()
+  "Return current method string."
+  (condition-case nil
+      (save-excursion
+	(let ((mlist nil) (indent 0))
+	  ;; get current method (or class/module)
+	  (if (re-search-backward
+	       (concat "^[ \t]*\\(def\\|class\\|module\\)[ \t]+"
+		       "\\(" ruby-symbol-re "+\\)")
+	       nil t)
+	      (progn
+		(setq mlist (list (buffer-substring
+				   (match-beginning 2) (match-end 2))))
+		(goto-char (match-beginning 1))
+		(setq indent (current-column))
+		(beginning-of-line)))
+	  ;; nest class/module
+	  (while (and (> indent 0)
+		      (re-search-backward
+		       (concat
+			"^[ \t]*\\(class\\|module\\)[ \t]+"
+			"\\([A-Z]" ruby-symbol-re "+\\)")
+		       nil t))
+	    (goto-char (match-beginning 1))
+	    (if (< (current-column) indent)
+		(progn
+		  (setq mlist
+			(cons (buffer-substring
+			       (match-beginning 2) (match-end 2)) mlist))
+		  (setq indent (current-column))
+		  (beginning-of-line))))
+	  ;; generate string
+	  (if (consp mlist)
+	      (mapconcat (function identity) mlist "::")
+	    nil)))))
 
 (cond
  ((featurep 'font-lock)