Emacs Lispのファイルのヘッダ、フッタ情報が全く無い場合に挿入する関数。CheckDocでヘッダ、フッタがないと指摘されるので作ってみた。関連:http://aka-cs-blog.blogspot.jp/2009/12/emacs.html

insert-elisp-file-info.el

(defun insert-elisp-file-info ()
  "Insert Emacs Lisp header info."
  (interactive)
  (goto-char (point-min))
  (let ((f (file-name-nondirectory (buffer-file-name)))
        (f-noext (file-name-base)))
    (insert (format ";;; %s --- %s\n" f f))
    (insert (format ";; Author: %s\n" user-full-name))
    (insert ";; Version: \n")
    (insert ";; Package-Requires: ()\n")
    (insert ";;; Commentary:\n")
    (insert ";; This program is free software\n")
    (insert ";;; Code:\n\n")
    (goto-char (point-max))
    (save-excursion
      (insert (format "\n(provide '%s)\n" f-noext))
      (insert (format ";;; %s ends here\n" f))
    )))

myfile.el

;;; myfile.el --- myfile.el
;; Author: pogin503
;; Version: 
;; Package-Requires: ()
;;; Commentary:
;; This program is free software
;;; Code:



(provide 'myfile)
;;; myfile.el ends here