From a6ed0e289873ac982d7a9b0215d17a4626375b43 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 3 Jul 2010 01:35:09 +0300 Subject: [PATCH] * lisp/autoinsert.el (auto-insert-alist): Fix readability by using dotted pair notation for lambda. --- lisp/ChangeLog | 5 +++++ lisp/autoinsert.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index de4671ec509..98ea609aa82 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-07-02 Juri Linkov + + * autoinsert.el (auto-insert-alist): Fix readability + by using dotted pair notation for lambda. + 2010-07-02 Juri Linkov * faces.el (read-face-name): Rename arg `string-describing-default' diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el index b3a594d31d4..9a8001875e0 100644 --- a/lisp/autoinsert.el +++ b/lisp/autoinsert.el @@ -126,10 +126,10 @@ If this contains a %s, that will be replaced by the matching rule." _ "\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) -- 2.39.2