update packages

lisp/polymode/polymode-core.el

@@ -166,9 +166,18 @@ than the input file."
 (define-obsolete-variable-alias 'polymode-mode-name-override-alist 'polymode-mode-name-aliases "2018-08")
 (define-obsolete-variable-alias 'polymode-mode-name-alias-alist 'polymode-mode-name-aliases "2019-04")
 (defcustom polymode-mode-name-aliases
-  '((elisp . emacs-lisp)
-    (el . emacs-lisp)
-    (bash . sh-mode))
+  '(
+    (asymptote  . asy-mode)
+    (bash       . sh-mode)
+    (cpp        . c++-mode)
+    (ditaa      . artist-mode)
+    (el         . emacs-lisp)
+    (elisp      . emacs-lisp)
+    (ocaml      . tuareg)
+    (screen     . shell-script-mode)
+    (shell      . sh-mode)
+    (sqlite     . sql-mode)
+    )
   "An alist of inner mode overrides.
 When inner mode is automatically detected from the header of the
 inner chunk (such as in markdown mode), the detected symbol might
@@ -875,10 +884,10 @@ TYPE is either a symbol or a list of symbols of span types."
                 (set mm old-state))))
           (pm--collect-parent-slots pm/polymode '-minor-mode))))
 
-(defun pm--run-init-hooks (object type &optional emacs-hook)
+(defun pm--run-init-hooks (object type &optional global-hook)
   (unless pm-initialization-in-progress
-    (when emacs-hook
-      (run-hooks emacs-hook))
+    (when global-hook
+      (run-hooks global-hook))
     (pm--run-hooks object :init-functions (or type 'host))))
 
 (defun pm--collect-parent-slots (object slot &optional do-when inclusive)
@@ -2090,14 +2099,14 @@ Elements of LIST can be either strings or symbols."
                              (stringp pm--output-file)
                              (pm--file-mod-time pm--output-file)))
                    (imt (and omt (pm--file-mod-time pm--input-file)))
-                   (action (if is-exporter "exporting" "weaving"))
                    (ofile (if (and imt (time-less-p imt omt))
                               (progn
                                 (message "Not re-%s as input file '%s' hasn't changed"
-                                         (file-name-nondirectory ifile) action)
+                                         (if is-exporter "exporting" "weaving")
+                                         (file-name-nondirectory ifile))
                                 pm--output-file)
                             (message "%s '%s' with '%s' ..."
-                                     (capitalize action)
+                                     (if is-exporter "EXPORTING" "WEAVING")
                                      (file-name-nondirectory ifile)
                                      (eieio-object-name processor))
                             (let ((fn (with-no-warnings