[skel] / skelrc.script

;;; -*-emacs-lisp-*-

(skel-include "skelrc.shelly")
(setq skel-alist
      (append
       '((first-line . "#! [[shebang-line]]"))
       skel-alist))

(let ((alist interpreter-mode-alist)
      (interp (skel-lookup "shebang-line")))
  (catch 'found
    (save-match-data
      (while alist
	(if (string-match (caar alist) interp)
	    (progn
	      (skelrc-force-mode (cdar alist))
	      (throw 'found nil)))
	(setq alist (cdr alist))))))
Commit	Line	Data
aaadf1ff MW	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))))))