[COMMIT] Correct ruby detection, func-menu.el

Hans just brought my attention to this in IRC, thanks Hans. APPROVE COMMIT NOTE: This patch has been committed. xemacs-packages/edit-utils/ChangeLog addition: 2011-05-11 Aidan Kehoe <kehoea(a)parhasard.net&gt; * func-menu.el (fume-function-name-regexp-ruby): * func-menu.el (fume-find-next-ruby-function-name): Handle the module concept for Ruby correctly in this file, as suggested by Hans de Graaff in tracker issue 355. XEmacs Packages source patch: Diff command: cvs -q diff -Nu Files affected: xemacs-packages/edit-utils/func-menu.el Index: xemacs-packages/edit-utils/func-menu.el =================================================================== RCS file: /cvsroot/xemacs/XEmacs/packages/xemacs-packages/edit-utils/func-menu.el,v retrieving revision 1.28 diff -u -u -r1.28 func-menu.el --- xemacs-packages/edit-utils/func-menu.el 22 Dec 2004 21:42:03 -0000 1.28 +++ xemacs-packages/edit-utils/func-menu.el 11 May 2011 11:45:45 -0000 ＠＠ -817,7 +817,7 ＠＠ ;; Albert Davidson Chou <Al_Chou(a)CyberDude.com&gt; ;; Claus Brunzema <mail(a)cbrunzema.de&gt; (defvar fume-function-name-regexp-ruby - "^\\s-*\\(class\\|def\\)+\\s-*\\([^(\n ]+\\)") + "^\\s-*\\(class\\|module\\|def\\)+\\s-*\\([^(\n ]+\\)") ;; Python support ;; Shuichi Koga <skoga(a)virginia.edu&gt; ＠＠ -1394,9 +1394,9 ＠＠ (goto-char (match-beginning 0)) (cond ((looking-at "^\\s-*def") (re-search-backward - "\n?\\s-*class\\s-*\\([A-Z][A-Za-z0-9_]*\\)\\s-*" nil t) + "\n?\\s-*\\(class\\|module\\)\\s-*\\([A-Z][A-Za-z0-9_]*\\)\\s-*" nil nil) (let* ((classname (buffer-substring - (match-beginning 1) (match-end 1)))) + (match-beginning 2) (match-end 2)))) (if (not (string-match (concat "^" classname "\\.") retname)) (setq retname (concat classname "." retname)))))) (cons retname retpnt))))) -- “Apart from the nine-banded armadillo, man is the only natural host of Mycobacterium leprae, although it can be grown in the footpads of mice.” -- Kumar & Clark, Clinical Medicine, summarising improbable leprosy research _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches