diff options
| -rw-r--r-- | lisp/progmodes/scheme.el | 6 |
1 files changed, 4 insertions, 2 deletions
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]*(?" |