* autoinsert.el (auto-insert-alist): Default to lexical-binding.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7bdd21bc3e4811a5d51a5ced9073272d95964192..d0c53d4d0237b4ea4b34669d40f1675df608dc1b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-07-05  Leo Liu  <sdl.web@gmail.com>
+
+       * autoinsert.el (auto-insert-alist): Default to lexical-binding.
+
 2013-07-04  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
        * frame.el (display-pixel-height, display-pixel-width)

diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el
index c45d64e1cd9866e4b70bfb7398298f62b38a7e4b..daa654889b63fbbb5f6f7bb2153b21f18b3007fa 100644 (file)
--- a/lisp/autoinsert.el
+++ b/lisp/autoinsert.el
@@ -164,7 +164,10 @@ If this contains a %s, that will be replaced by the matching rule."
 
     (("\\.el\\'" . "Emacs Lisp header")
      "Short description: "
-     ";;; " (file-name-nondirectory (buffer-file-name)) " --- " str "
+     ";;; " (file-name-nondirectory (buffer-file-name)) " --- " str
+     (make-string (max 2 (- 80 (current-column) 27)) ?\s)
+     "-*- lexical-binding: t; -*-"
+     "
 
 ;; Copyright (C) " (format-time-string "%Y") "  "
  (getenv "ORGANIZATION") | (progn user-full-name) "