From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 24 Mar 2022 09:19:19 +0000 (-0400)
Subject: * lisp/autoinsert.el (auto-insert-alist): Expose lambdas as code
X-Git-Tag: emacs-29.0.90~1931^2~940
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f7a90cc85b470578133d6b143d2740995ad4496b;p=emacs.git

* lisp/autoinsert.el (auto-insert-alist): Expose lambdas as code
---

diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el
index f60aa9be6fa..879dc630c6b 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