chiark - git - mdw - skel/blob - skelrc.script

   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))))))