Mercurial > emacs
changeset 109110:25749a68f5ae
* lisp/autoinsert.el (auto-insert-alist): Fix readability
by using dotted pair notation for lambda.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sat, 03 Jul 2010 01:35:09 +0300 |
| parents | d5e4b1b34988 |
| children | 52b76722152a |
| files | lisp/ChangeLog lisp/autoinsert.el |
| diffstat | 2 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Jul 03 01:28:52 2010 +0300 +++ b/lisp/ChangeLog Sat Jul 03 01:35:09 2010 +0300 @@ -1,3 +1,8 @@ +2010-07-02 Juri Linkov <juri@jurta.org> + + * autoinsert.el (auto-insert-alist): Fix readability + by using dotted pair notation for lambda. + 2010-07-02 Juri Linkov <juri@jurta.org> * faces.el (read-face-name): Rename arg `string-describing-default'
--- a/lisp/autoinsert.el Sat Jul 03 01:28:52 2010 +0300 +++ b/lisp/autoinsert.el Sat Jul 03 01:35:09 2010 +0300 @@ -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)