[Gd-chatter] r11747 - trunk/gwydion/tools/elisp

[hannes at gwydiondylan.org]

Author: hannes
Date: Mon Mar 24 23:26:29 2008
New Revision: 11747

Modified:
   trunk/gwydion/tools/elisp/dylan-mode.el
Log:
Job: minor
fix module regular expression.


Modified: trunk/gwydion/tools/elisp/dylan-mode.el
==============================================================================
--- trunk/gwydion/tools/elisp/dylan-mode.el	(original)
+++ trunk/gwydion/tools/elisp/dylan-mode.el	Mon Mar 24 23:26:29 2008
@@ -1575,7 +1575,7 @@
 
 (defun dylan-find-slime-buffer-package ()
   (let ((case-fold-search t)
-        (regexp "^module: \\([^ \n\r\t]+\\)"))
+        (regexp "^[mM]odule:[ \t]+\\([^ \n\r\t]+\\)"))
     (save-excursion
       (when (or (re-search-backward regexp nil t)
                 (re-search-forward regexp nil t))