RE: [Ilisp-help] Re: bug in xemacs ilisp module

In cvs, reposition-window-lisp is bound to C-M-r and not bound to C-r.
This doesn't overwrite the C-r binding. The M-. and M-, bindings
implement functionality comparable to the tag functionality normally
bound to those keys and it is consistent to have the bindings on those
keys. The following paragraph was taken from the Emacs Elisp manual
under the "Coding Conventions" section:

"It is reasonable for a major mode to rebind a key sequence with a
standard meaning, if it implements a command that does "the same job" in
a way that fits the major mode better. For example, a major mode for
editing a programming language might redefine `C-M-a' to "move to the
beginning of a function" in a way that works better for that language."

--
Bill Clementson

> -----Original Message-----
> From: Gerd Moellmann [mailto:[email protected]] 
> Sent: Tuesday, August 12, 2003 9:57 AM
> To: Clementson, Bill
> Cc: Marco Antoniotti; [email protected]; 
> [email protected]; [email protected]
> Subject: Re: [Ilisp-help] Re: bug in xemacs ilisp module
> 
> 
> "Clementson, Bill" <[email protected]> writes:
> 
> > > BTW, unrelated, do I remember right that ILISP rebinds C-r
> > > (reverse incremental search) with fsf-compliant-keybindings?  
> > 
> > No, it doesn not rebind C-r with fsf-compliant-keybindings
> 
> Well, I see that I frobbed this to not bind C-r, and it 
> doesn't seem to have changed in CVS since then.  And I found 
> that M-. and M-, also overwrite useful standard Emacs bindings.
> 
> --- ilisp-key.el.~1.9.~	Mon Jun 23 19:11:53 2003
> +++ ilisp-key.el	Fri Jun 27 21:02:39 2003
> @@ -121,7 +121,7 @@
>  
>    (define-key   keymap "\M-\C-a"  'beginning-of-defun-lisp)
>    (define-key   keymap "\M-\C-e"  'end-of-defun-lisp)
> -  (ilisp-safe-define-key keymap "\C-\M-r" 
> 'reposition-window-lisp "\C-r")
> +  (ilisp-safe-define-key keymap "\C-\M-r" 'reposition-window-lisp)
>  
>    ;; This series of bindings was very non-FSF-compliant, but was also
>    ;; hard to fit into any consistent binding scheme.  I 
> saved them for @@ -133,8 +133,8 @@
>    (ilisp-bind-ilisp-key-for-map keymap "m" 
> 'macroexpand-1-lisp "\C-bk")
>    (ilisp-bind-ilisp-key-for-map keymap "M" 'macroexpand-lisp 
>   "\C-b\C-k")
>  
> -  (ilisp-safe-define-key keymap "\M-," 'next-definition-lisp "\M-,")
> -  (ilisp-safe-define-key keymap "\M-." 'edit-definitions-lisp "\M-.")
> +  (ilisp-safe-define-key keymap "\M-," 'next-definition-lisp 
> "\C-c,")  
> + (ilisp-safe-define-key keymap "\M-." 'edit-definitions-lisp "\C-c.")
>    (ilisp-safe-define-key keymap "\M-?" 'search-lisp "\C-c\C-v\C-s")
>    (ilisp-safe-define-key keymap "\M-\"" 'replace-lisp "\C-c\C-v\C-r")
>    (ilisp-bind-ilisp-key-for-map keymap "^" 
> 'edit-callers-lisp "\C-v\C-e")
>