Path: utzoo!attcan!uunet!husc6!bloom-beacon!tut.cis.ohio-state.edu!rutgers!aramis.rutgers.edu!topaz.rutgers.edu!steiner From: steiner@topaz.rutgers.edu (Dave Steiner) Newsgroups: comp.emacs Subject: Re: Error in init file Message-ID: Date: 19 Mar 89 04:15:39 GMT References: <52705@yale-celray.yale.UUCP> <36761@bbn.COM> <2407@bucsb.UUCP> Organization: Rutgers Univ., New Brunswick, N.J. Lines: 39 Cc: steiner Ashwin Ram writes: >I also think that the "error in init file" situation is badly handled. >Firstly, the error message should reflect what the error was. Secondly, >Emacs should tell you where the error occurred, or better still visit the >offending file and position itself at the point where the error was >encountered. I sent the following code in to mit-prep a while ago but it was never added into the distribution; I don't know why. This is for v18.51. *** startup.el.ORIG Wed May 25 23:57:00 1988 --- startup.el Tue May 17 18:28:53 1988 *************** *** 119,125 ;; Don't you dare turn this off for anyone ;; except yourself. (load "default" t t))))) ! (error (message "Error in init file"))) (if (get-buffer "*scratch*") (save-excursion (set-buffer "*scratch*") --- 119,130 ----- ;; Don't you dare turn this off for anyone ;; except yourself. (load "default" t t))))) ! (error (if (> (length error) 1) ! (message "Error in init file [%s: %s]" ! (get (car error) 'error-message) ! (mapconcat 'prin1-to-string (cdr error) ", ")) ! (message "Error in init file [%s]" ! (get (car error) 'error-message))))) (if (get-buffer "*scratch*") (save-excursion (set-buffer "*scratch*") -- arpa: Steiner@TOPAZ.RUTGERS.EDU uucp: ...{ames, cbosgd, harvard, moss}!rutgers!topaz.rutgers.edu!steiner