Don't mess with Scheme mode

--=-=-=


Hi there,

I use ILISP for Common Lisp, but not for Scheme.  I assumed,

(setq lisp-source-modes '(lisp-mode))

would prevent ILISP from messing with scheme-mode.  Unfortunately, it
doesn't prevent ILISP from changing the scheme-mode keymap.  I submit
that's wrong.  Here's a patch.

(Please cc me on any followups, as I'm not subscribed to ilisp-devel@.)


--=-=-=
Content-Disposition: inline

2003-12-17  Mike Sperber  <[email protected]>

	* ilisp-key.el (ilisp-bindings): Don't setup mode bindings if mode
	isn't in `lisp-source-modes.'

--=-=-=
Content-Disposition: inline

Index: ilisp-key.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ilisp/ilisp-key.el,v
retrieving revision 1.4
diff -u -r1.4 ilisp-key.el
--- ilisp-key.el	3 Jun 2002 23:37:01 -0000	1.4
+++ ilisp-key.el	17 Dec 2003 17:07:28 -0000
@@ -257,9 +257,11 @@
   (when (fboundp 'lisp-mode-commands)
     (lisp-mode-commands ilisp-mode-map))
   (lisp-bindings ilisp-mode-map t)
-  (when (boundp 'lisp-mode-map)
+  (when (and (memq 'lisp-mode lisp-source-modes)
+	     (boundp 'lisp-mode-map))
     (lisp-bindings lisp-mode-map))
-  (when (boundp 'scheme-mode-map) 
+  (when (and (memq 'scheme-mode lisp-source-modes)
+	     (boundp 'scheme-mode-map)) 
     (lisp-bindings scheme-mode-map))
   (ilisp-bind-ilisp-key-for-map emacs-lisp-mode-map ";" 'comment-region-lisp)

--=-=-=
Content-Type: text/plain; charset=iso-8859-1
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable


--=20
Cheers =3D8-} Mike
Friede, V=F6lkerverst=E4ndigung und =FCberhaupt blabla

--=-=-=--


-------------------------------------------------------
This SF.net email is sponsored by: IBM Linux Tutorials.
Become an expert in LINUX or just sharpen your skills.  Sign up for IBM's
Free Linux Tutorials.  Learn everything from the bash shell to sys admin.
Click now! http://ads.osdn.com/?ad_id=1278&alloc_id=3371&op=click