🚀 go-pugleaf

In article <LEVITTE.93Jan23174528@elin.e.kth.se> LEVITTE@e.kth.se (Richard Levitte) writes:
>It is possible to make that error message a little more descriptive
>with the following patch on startup.el:
>
>*** ed:[orig.lisp]startup.el
>--- ed:[new.lisp]startup.el
>**************
>*** 124,130
>  			 ;; 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*")
>--- 124,130 -----
>  			 ;; Don't you dare turn this off for anyone
>  			 ;; except yourself.
>  			 (load "default" t t)))))
>!       (error (message (format "Error in init file: %s" error))))
>      (if (get-buffer "*scratch*")
>  	(save-excursion
>  	  (set-buffer "*scratch*")
>
>
>The message can be a little cryptic, but it helps to get the message:
>"Error in init file: (void-variable foo)"

Very nice idea!  But note that message takes format directives, so you
don't need to call format:

	(error (message "Error in init file: %s" error))
-- 
Kevin Rodgers				kevin@traffic.den.mmc.com
Martin Marietta MS A16401		(303) 790-3971
116 Inverness Dr. East
Englewood CO 80112 USA			GO BUFFS!