From 2b4dbe796aff0178d699a80e12ed44503090c434 Mon Sep 17 00:00:00 2001 From: David Reitter Date: Tue, 24 Jul 2018 15:00:34 -0500 Subject: [PATCH] Fix showing errors in Preferences.el Reported by Bob Harper --- aquamacs/src/site-lisp/macosx/osx_defaults.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/aquamacs/src/site-lisp/macosx/osx_defaults.el b/aquamacs/src/site-lisp/macosx/osx_defaults.el index 1e6fbf77e013..6677753bf160 100644 --- a/aquamacs/src/site-lisp/macosx/osx_defaults.el +++ b/aquamacs/src/site-lisp/macosx/osx_defaults.el @@ -106,7 +106,9 @@ from earlier versions of the distribution." (error ;; this code is from startup.el (let ((message-log-max nil)) (with-current-buffer (get-buffer-create "*Messages*") - (insert "\n\n" + (setq buffer-read-only nil) + (insert (propertize ;; unclear why propertize does not work. + (concat "\n\n" (format "An error has occurred while loading `%s.el (or .elc)':\n\n" user-init-file) (format "%s%s%s" @@ -116,7 +118,8 @@ from earlier versions of the distribution." "\n\n" "To ensure normal operation, you should investigate and remove the\n" "cause of the error in your initialization file. Start Emacs with\n" - "the `--debug-init' option to view a complete error backtrace.\n\n")) + "the `--debug-init' option to view a complete error backtrace.\n\n \n") + 'face 'font-lock-warning-face))) (message "Error in init file: %s%s%s" (get (car error) 'error-message) (if (cdr error) ": " "")