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