dot/emacs: Cope if `warning-suppress-types' is unbound at startup.

This happens in Emacs 26.  I have no idea why.

diff --git a/dot/emacs b/dot/emacs
index 978cf3a..79d7438 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -134,7 +134,9 @@
                  edit-server-new-frame nil
                  gnuserv-frame t)
            (trap (let ((warning-suppress-types
-                        (cons '(server) warning-suppress-types)))
+                        (cons '(server)
+                              (and (boundp 'warning-suppress-types)
+                                   warning-suppress-types))))
                    (server-start)))
            (trap (progn
                    (require 'edit-server)