From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 7 Jul 1998 19:27:40 +0000 (+0000)
Subject: (scheme-font-lock-keywords-1): Fontify SCWM/Guile
X-Git-Tag: emacs-20.3~370
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=405ff5eaab179ba3162f3506c0d5af0e0f6ff04f;p=emacs.git

(scheme-font-lock-keywords-1): Fontify SCWM/Guile
       keywords starting with `define'.
---

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index 2da6003a84e..cc7b0b62601 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -288,13 +288,15 @@ See `run-hooks'."
      ;;
      ;; Declarations.  Hannes Haug <hannes.haug@student.uni-tuebingen.de> says
      ;; this works for SOS, STklos, SCOOPS, Meroon and Tiny CLOS.
-     (list (concat "(\\(define\\("
+     (list (concat "(\\(define\\*?\\("
 		   ;; Function names.
-		   "\\(\\|-method\\|-generic\\(-procedure\\)?\\)\\|"
+		   "\\(\\|-public\\|-method\\|-generic\\(-procedure\\)?\\)\\|"
 		   ;; Macro names, as variable names.  A bit dubious, this.
 		   "\\(-syntax\\)\\|"
 		   ;; Class names.
 		   "-class"
+                   ;; Guile modules.
+                   "\\|-module"
 		   "\\)\\)\\>"
 		   ;; Any whitespace and declared object.
 		   "[ \t]*(?"