X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/b717b0ee04ffdfd6c44c24cec77ef464fa8d4b95..fe623377defcfb3a80ce30b2b4c8f62d9999818f:/packages/auctex/style/beamer.el

diff --git a/packages/auctex/style/beamer.el b/packages/auctex/style/beamer.el
index 7b911cd4b..cd4fa0953 100644
--- a/packages/auctex/style/beamer.el
+++ b/packages/auctex/style/beamer.el
@@ -119,7 +119,9 @@
     '("actionenv")
     '("alertblock" 1)
     '("beamerboxesrounded" 1)
-    '("block" 1)
+    '("block" (lambda (env &rest ignore)
+		(LaTeX-insert-environment
+		 env (format "{%s}" (read-string "Title: ")))))
     '("column" "Width")
     "columns"
     "columnsonlytextwidth"