"SfR Fresh" - the SfR Freeware/Shareware Archive

Member "vil96w32/loaderrs.rc" of archive vile-w32.zip:

As a special service "SfR Fresh" has tried to format the requested source page into HTML format using source code syntax highlighting with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. That can be also achieved for any archive member file by clicking within an archive contents listing on the first character of the file(path) respectively on the according byte size field. 
    1 ; $Header: /usr/build/vile/vile/macros/RCS/loaderrs.rc,v 1.2 2007/08/07 00:32:16 tom Exp $
    2 ; A macro that prepends user's error-patterns to [Error Expressions].  The
    3 ; user-defined patterns are in a file ".vile-errs" or "vile-errs".  The macro
    4 ; binds ^X^X to LoadErrorExprs temporarily, then the first time it is run,
    5 ; ^X^X, it builds the combined list of patterns and resets the binding to the
    6 ; normal one.
    7 
    8 store-procedure LoadErrorExprs
    9 	~local $buffer-hook
   10 	unsetv $buffer-hook
   11 	~local %file
   12 	setv %file=&pquote &lookup r+home+startup '.vile-errs'
   13 	~if &seq %file ''
   14 		setv %file=&pquote &lookup r+startup 'vile-errs'
   15 	~endif
   16 	~if &not &seq %file ''
   17 		~local %oldbuffer %imply
   18 		setv %oldbuffer=$cbufname
   19 		setv %imply=$implybuffer
   20 		set noimplybuffer
   21 		; make sure it exists
   22 		compile-error-expressions
   23 		; kill the current contents
   24 		kill-buffer '[Error Expressions]'
   25 		; create it, so we can modify it
   26 		compile-error-expressions
   27 		edit-file '[Error Expressions]'
   28 		unsetl view
   29 		goto-beginning-of-file
   30 		0 insert-file %file
   31 		unmark
   32 		setl view
   33 		buffer %oldbuffer
   34 		compile-error-expressions
   35 		setv $implybuffer=%imply
   36 		bind-key find-next-error ^X-^X
   37 		~hidden find-next-error
   38 	~endif
   39 ~endm
   40 bind-key LoadErrorExprs ^X-^X