[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master f7a90cc85b: * lisp/autoinsert.el (auto-insert-alist): Expose lamb
From: |
Stefan Monnier |
Subject: |
master f7a90cc85b: * lisp/autoinsert.el (auto-insert-alist): Expose lambdas as code |
Date: |
Thu, 24 Mar 2022 05:19:29 -0400 (EDT) |
branch: master
commit f7a90cc85b470578133d6b143d2740995ad4496b
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* lisp/autoinsert.el (auto-insert-alist): Expose lambdas as code
---
lisp/autoinsert.el | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el
index f60aa9be6f..879dc630c6 100644
--- a/lisp/autoinsert.el
+++ b/lisp/autoinsert.el
@@ -91,7 +91,7 @@ If this contains a %s, that will be replaced by the matching
rule."
(defcustom auto-insert-alist
- '((("\\.\\([Hh]\\|hh\\|hpp\\|hxx\\|h\\+\\+\\)\\'" . "C / C++ header")
+ `((("\\.\\([Hh]\\|hh\\|hpp\\|hxx\\|h\\+\\+\\)\\'" . "C / C++ header")
(replace-regexp-in-string
"[^A-Z0-9]" "_"
(string-replace
@@ -113,7 +113,7 @@ If this contains a %s, that will be replaced by the
matching rule."
(("[Mm]akefile\\'" . "Makefile") . "makefile.inc")
- (html-mode . (lambda () (sgml-tag "html")))
+ (html-mode . ,(lambda () (sgml-tag "html")))
(plain-tex-mode . "tex-insert.tex")
(bibtex-mode . "tex-insert.tex")
@@ -128,9 +128,9 @@ If this contains a %s, that will be replaced by the
matching rule."
"\n\\end{document}")
(("/bin/.*[^/]\\'" . "Shell-Script mode magic number") .
- (lambda ()
- (if (eq major-mode (default-value 'major-mode))
- (sh-mode))))
+ ,(lambda ()
+ (if (eq major-mode (default-value 'major-mode))
+ (sh-mode))))
(ada-mode . ada-header)
@@ -171,7 +171,7 @@ If this contains a %s, that will be replaced by the
matching rule."
'(setq v1 (let (modes)
(mapatoms (lambda (mode)
(let ((name (symbol-name mode)))
- (when (string-match "-mode$" name)
+ (when (string-match "-mode\\'" name)
(push name modes)))))
(sort modes 'string<)))
(completing-read "Local variables for mode: " v1 nil t)
@@ -210,7 +210,8 @@ If this contains a %s, that will be replaced by the
matching rule."
"\n"))
((let ((minibuffer-help-form v2))
(completing-read "Keyword, C-h: " v1 nil t))
- str ", ") & -2 "
+ str ", ")
+ & -2 "
\;; This program is free software; you can redistribute it and/or modify
\;; it under the terms of the GNU General Public License as published by
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master f7a90cc85b: * lisp/autoinsert.el (auto-insert-alist): Expose lambdas as code,
Stefan Monnier <=