branch: externals/smalltalk-mode
commit 90f07e67240d927097000e53b492fc94704e902b
Author: Wilfred Hughes <[email protected]>
Commit: Holger Hans Peter Freyther <[email protected]>
Move smalltalk-mode autoloads to smalltalk-mode
This makes smalltalk-mode.el self-contained and useful as a standalone
file.
---
smalltalk-mode-init.el.in | 3 ---
smalltalk-mode.el | 4 ++++
2 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/smalltalk-mode-init.el.in b/smalltalk-mode-init.el.in
index 0fc6321..a2dbef9 100644
--- a/smalltalk-mode-init.el.in
+++ b/smalltalk-mode-init.el.in
@@ -11,12 +11,9 @@
(throw 'archive-mode (cdr mode-assoc))))))
auto-mode-alist)
-(push '("\\.st\\'" . smalltalk-mode) auto-mode-alist)
-
(if (boundp 'inhibit-local-variables-regexps)
(push "\\.star\\'" inhibit-local-variables-regexps)
(push "\\.star\\'" inhibit-first-line-modes-regexp))
-(autoload 'smalltalk-mode "@lispdir@/smalltalk-mode.elc" "" t)
@WITH_EMACS_COMINT_TRUE@(autoload 'gst "@lispdir@/gst-mode.elc" "" t)
diff --git a/smalltalk-mode.el b/smalltalk-mode.el
index c44c7a1..d8a1d02 100644
--- a/smalltalk-mode.el
+++ b/smalltalk-mode.el
@@ -179,6 +179,7 @@
;; ---[ Interactive functions ]---------------------------------------
+;;;###autoload
(defun smalltalk-mode ()
"Major mode for editing Smalltalk code.
@@ -227,6 +228,9 @@ Commands:
;; Run hooks, must be last
(run-hooks 'smalltalk-mode-hook))
+;;;###autoload
+(add-to-list 'auto-mode-alist '("\\.st\\'" . smalltalk-mode))
+
(defun smalltalk-tab ()
(interactive)
(let (col)
