From 09bc9531d918220dabff9d1f2ffddd0df81e08b6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 15 May 1995 23:01:17 +0000 Subject: [PATCH] (byte-compile-insert-header): Cope if user-mail-address is unbound. --- lisp/emacs-lisp/bytecomp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 333fde26491..b368f40e3bf 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1376,7 +1376,7 @@ With argument, insert value in current buffer after the form." "\000\000\000\n" ) (insert ";;; compiled by " - (or user-mail-address + (or (and (boundp 'user-mail-address) user-mail-address) (concat (user-login-name) "@" (system-name))) " on " (current-time-string) "\n;;; from file " filename "\n") -- 2.39.2