[developers] LKB Runtime & Emacs 22.0.50.1

[Ben Waldron]

Allegro 7.0 comes with the following in fi-site-init.el.

(setq fi::emacs-type
  (let ((case-fold-search t))
    (cond ((or (string-match "xemacs" emacs-version)
           (string-match "lucid" emacs-version))
       (cond ((string-match "^2[01]\\." emacs-version) 'xemacs20)
         (t 'xemacs19)))
      ((boundp 'epoch::version) 'epoch) ;; remove?
      ((string-match "^18\\." emacs-version) 'emacs18)
      ((string-match "^19\\." emacs-version) 'emacs19)
      (t ;; assume emacs20 compatibility
       'emacs20))))

This takes emacs20 as the default (and does work with Emacs 22.0.50). 
Stephan, I guess one or other of these fixes should be incorporated into 
the delphin directory?

- Ben

Berthold Crysmann wrote:
> Dear all,
>
> the LKB runtime currently does not work out of the box in CVS versions 
> of GNU Emacs, owing to fi-site-init.el not knowing of any Emacsen 
> better than 21.
>
> The following patch solves the problem for me. Would it be possible to 
> incorporate this patch?
>
>
> Berthold
>
>
>------------------------------------------------------------------------
>
>*** fi-site-init.el.orig	2006-01-11 16:21:47.671337000 +0100
>--- fi-site-init.el	2006-01-11 16:21:58.211176000 +0100
>***************
>*** 21,26 ****
>--- 21,27 ----
>  		 (t 'xemacs19)))
>  	  ((string-match "^20\\." emacs-version) 'emacs20)
>  	  ((string-match "^21\\." emacs-version) 'emacs20)
>+ 	  ((string-match "^22\\." emacs-version) 'emacs20)
>  	  ((string-match "^19\\." emacs-version) 'emacs19)
>  	  ((string-match "^18\\." emacs-version) 'emacs18)
>  	  ((boundp 'epoch::version) 'epoch)
>