/[emacs]/emacs/lisp/startup.el
ViewVC logotype

Diff of /emacs/lisp/startup.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.312 by lektu, Tue Feb 4 12:06:14 2003 UTC revision 1.313 by kfstorm, Fri Feb 21 12:43:31 2003 UTC
# Line 982  or `CVS', and any subdirectory that cont Line 982  or `CVS', and any subdirectory that cont
982                           (format "%s%s%s"                           (format "%s%s%s"
983                                   (get (car error) 'error-message)                                   (get (car error) 'error-message)
984                                   (if (cdr error) ": " "")                                   (if (cdr error) ": " "")
985                                   (mapconcat 'prin1-to-string (cdr error) ", "))                                   (mapconcat (lambda (s) (prin1-to-string s t)) (cdr error) ", "))
986                           "\n\n"                           "\n\n"
987                           "To ensure normal operation, you should investigate the cause\n"                           "To ensure normal operation, you should investigate and remove the\n"
988                           "of the error in your initialization file and remove it.  Start\n"                           "cause of the error in your initialization file.  Start Emacs with\n"
989                           "Emacs with the `--debug-init' option to view a complete error\n"                           "the `--debug-init' option to view a complete error backtrace.\n\n"))
                          "backtrace\n"))  
990                 (message "Error in init file: %s%s%s"                 (message "Error in init file: %s%s%s"
991                          (get (car error) 'error-message)                          (get (car error) 'error-message)
992                          (if (cdr error) ": " "")                          (if (cdr error) ": " "")
993                          (mapconcat 'prin1-to-string (cdr error) ", "))                          (mapconcat 'prin1-to-string (cdr error) ", "))
994                 (pop-to-buffer "*Messages*")                 (let ((pop-up-windows nil))
995                     (pop-to-buffer "*Messages*"))
996                 (setq init-file-had-error t)))))                 (setq init-file-had-error t)))))
997    
998          ;; If the user has a file of abbrevs, read it.          ;; If the user has a file of abbrevs, read it.

Legend:
Removed from v.1.312  
changed lines
  Added in v.1.313

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26