Commit | Line | Data |
---|---|---|
1 | ;;; -*-emacs-lisp-*- | |
2 | ||
3 | (skel-include "skelrc.shelly") | |
4 | (setq skel-alist | |
5 | (append | |
6 | '((first-line . "#! [[shebang-line]]")) | |
7 | skel-alist)) | |
8 | ||
9 | (let ((alist interpreter-mode-alist) | |
10 | (interp (skel-lookup "shebang-line"))) | |
11 | (catch 'found | |
12 | (save-match-data | |
13 | (while alist | |
14 | (if (string-match (caar alist) interp) | |
15 | (progn | |
16 | (skelrc-force-mode (cdar alist)) | |
17 | (throw 'found nil))) | |
18 | (setq alist (cdr alist)))))) |