From: Leo Liu <sdl.web@gmail.com>
Date: Fri, 5 Jul 2013 02:37:39 +0000 (+0800)
Subject: * autoinsert.el (auto-insert-alist): Default to lexical-binding.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1925
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=96eb829aa781926a66524237b266de44c564bf60;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7bdd21bc3e4..d0c53d4d023 100644
--- 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 c45d64e1cd9..daa654889b6 100644
--- 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) "