1;; Autoload file for smalltalk-mode
2
3;; duplicate zip files' setup for star files or fall back on
4;; archive-mode, which scans file contents to determine type so is
5;; safe to use
6(push (cons "\\.star\\'"
7	    (catch 'archive-mode
8	      (dolist (mode-assoc auto-mode-alist 'archive-mode)
9		(and (string-match (car mode-assoc) "Starfile.zip")
10		     (functionp (cdr mode-assoc))
11		     (throw 'archive-mode (cdr mode-assoc))))))
12      auto-mode-alist)
13
14(push '("\\.st\\'" . smalltalk-mode) auto-mode-alist)
15
16(push "\\.star\\'" inhibit-first-line-modes-regexps)
17
18(autoload 'smalltalk-mode "@lispdir@/smalltalk-mode.elc" "" t)
19@WITH_EMACS_COMINT_TRUE@(autoload 'gst "@lispdir@/gst-mode.elc" "" t)
20
21