[Emacs-diffs] /srv/bzr/emacs/trunk r100694: * lisp/autoinsert.el (auto-insert-alist): Fix readability

[Juri Linkov]

------------------------------------------------------------
revno: 100694
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Sat 2010-07-03 01:35:09 +0300
message:
  * lisp/autoinsert.el (auto-insert-alist): Fix readability
  by using dotted pair notation for lambda.
modified:
  lisp/ChangeLog
  lisp/autoinsert.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-07-02 22:28:52 +0000
+++ b/lisp/ChangeLog    2010-07-02 22:35:09 +0000
@@ -1,5 +1,10 @@
 2010-07-02  Juri Linkov  <address@hidden>
 
+       * autoinsert.el (auto-insert-alist): Fix readability
+       by using dotted pair notation for lambda.
+
+2010-07-02  Juri Linkov  <address@hidden>
+
        * faces.el (read-face-name): Rename arg `string-describing-default'
        to `default'.  Doc fix.  Display the default value in quotes
        in the prompt.  With empty input, return the `default' arg,

=== modified file 'lisp/autoinsert.el'
--- a/lisp/autoinsert.el        2010-01-13 08:35:10 +0000
+++ b/lisp/autoinsert.el        2010-07-02 22:35:09 +0000
@@ -126,10 +126,10 @@
      _ "\n\\begin{document}\n" _
      "\n\\end{document}")
 
-    (("/bin/.*[^/]\\'" . "Shell-Script mode magic number")
-     lambda ()
+    (("/bin/.*[^/]\\'" . "Shell-Script mode magic number") .
+     (lambda ()
        (if (eq major-mode (default-value 'major-mode))
-        (sh-mode)))
+          (sh-mode))))
 
     (ada-mode . ada-header)