[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/startup.el
From: |
Kim F. Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/startup.el |
Date: |
Fri, 21 Feb 2003 07:43:31 -0500 |
Index: emacs/lisp/startup.el
diff -c emacs/lisp/startup.el:1.312 emacs/lisp/startup.el:1.313
*** emacs/lisp/startup.el:1.312 Tue Feb 4 07:06:14 2003
--- emacs/lisp/startup.el Fri Feb 21 07:43:31 2003
***************
*** 982,998 ****
(format "%s%s%s"
(get (car error) 'error-message)
(if (cdr error) ": " "")
! (mapconcat 'prin1-to-string (cdr error) ", "))
"\n\n"
! "To ensure normal operation, you should investigate
the cause\n"
! "of the error in your initialization file and remove
it. Start\n"
! "Emacs with the `--debug-init' option to view a
complete error\n"
! "backtrace\n"))
(message "Error in init file: %s%s%s"
(get (car error) 'error-message)
(if (cdr error) ": " "")
(mapconcat 'prin1-to-string (cdr error) ", "))
! (pop-to-buffer "*Messages*")
(setq init-file-had-error t)))))
;; If the user has a file of abbrevs, read it.
--- 982,998 ----
(format "%s%s%s"
(get (car error) 'error-message)
(if (cdr error) ": " "")
! (mapconcat (lambda (s) (prin1-to-string s t))
(cdr error) ", "))
"\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"))
(message "Error in init file: %s%s%s"
(get (car error) 'error-message)
(if (cdr error) ": " "")
(mapconcat 'prin1-to-string (cdr error) ", "))
! (let ((pop-up-windows nil))
! (pop-to-buffer "*Messages*"))
(setq init-file-had-error t)))))
;; If the user has a file of abbrevs, read it.