Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!aramis.rutgers.edu!topaz.rutgers.edu!steiner From: steiner@topaz.rutgers.edu (Dave Steiner) Newsgroups: gnu.emacs Subject: Re: Better error handling for .emacs Message-ID: Date: 17 May 89 19:43:12 GMT References: <822@pcsbst.UUCP> Organization: Rutgers Univ., New Brunswick, N.J. Lines: 31 To: meepmeep!jkh@pcsbst.UUCP Cc: steiner Here's what I'm using at Rutgers: *** 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