fix autoscratch triggers

.emacs

@@ -1,4 +1,4 @@
-;; Toms Emacs Config - portable - version (20170724.01)          -*-emacs-lisp-*-
+;; Toms Emacs Config - portable - version (20170725.01)          -*-emacs-lisp-*-
 ;; * Introduction
 
 ;; This  is my  emacs config,  it is  more than  twenty years  old. It
@@ -572,6 +572,8 @@
 ;; 20170724.01:
 ;;    - added ido completion for tramp hostnames
 
+;; 20170725.01:
+;;    - autoscratch lambda=>progn
 
 ;; ** TODO
 
@@ -601,7 +603,7 @@
 ;; My emacs  config has a  version (consisting  of a timestamp  with a
 ;; serial), which I display in the mode line. So I can clearly see, if
 ;; I'm using an outdated config somewhere.
-(defvar tvd-emacs-version "20170724.01")
+(defvar tvd-emacs-version "20170725.01")
 
 ;; --------------------------------------------------------------------------------
 
@@ -1078,10 +1080,10 @@ to next buffer otherwise."
 (setq initial-major-mode 'autoscratch-mode)
 (add-hook 'autoscratch-mode-hook '(lambda ()
                                     (setq autoscratch-triggers-alist
-                                          '(("[(;]"         . (lambda ()
+                                          '(("[(;]"         . (progn
                                                                 (emacs-lisp-mode)
                                                                 (electric-indent-local-mode t)))
-                                            ("#"            . (lambda ()
+                                            ("#"            . (progn
                                                                 (config-general-mode)
                                                                 (electric-indent-local-mode t)))
                                             ("[-a-zA-Z0-9]" . (text-mode))