Re: lisp-interaction-mode binding RET

[Kevin Rodgers]

Peter Seibel wrote:

> So I just installed 21.3 (after having been using Xemacs for a while).
> I was immediately confused by the behavior of RET in
> lisp-interaction-mode. Sometimes it is bound to newline as I'd expect;
> other times it's bound to last-sexp-toggle-display...


Another odd thing is the way it's implemented.  Every region that binds
last-sexp-toggle-display via the keymap text property has its own copy
of an admittedly small sparse keymap.  If those regions shared a keymap,
the user could customize it with other bindings:

*** emacs-21.3/lisp/emacs-lisp/lisp-mode.el.orig        Wed Jul  3 05:45:47 2002
--- emacs-21.3/lisp/emacs-lisp/lisp-mode.el     Mon Aug  4 14:09:24 2003
***************
*** 320,339 ****
      (terpri)))


  (defun last-sexp-setup-props (beg end value alt1 alt2)
    "Set up text properties for the output of `eval-last-sexp-1'.
  BEG and END are the start and end of the output in current-buffer.
  VALUE is the Lisp value printed, ALT1 and ALT2 are strings for the
  alternative printed representations that can be displayed."
-   (let ((map (make-sparse-keymap)))
-     (define-key map "\C-m" 'last-sexp-toggle-display)
-     (define-key map [down-mouse-2] 'mouse-set-point)
-     (define-key map [mouse-2] 'last-sexp-toggle-display)
      (add-text-properties
       beg end
       `(printed-value (,value ,alt1 ,alt2)
                     mouse-face highlight
!                    keymap ,map
                     help-echo "RET, mouse-2: toggle abbreviated display"
                     rear-nonsticky (mouse-face keymap help-echo
  		 
			printed-value)))))
--- 320,343 ----
      (terpri)))


+ (defvar last-sexp-map
+   "The local keymap for the output of `eval-last-sexp-1'."
+   (let ((map (make-sparse-keymap)))
+     (define-key map "\C-m" 'last-sexp-toggle-display)
+     (define-key map [down-mouse-2] 'mouse-set-point)
+     (define-key map [mouse-2] 'last-sexp-toggle-display)
+     map))
+
  (defun last-sexp-setup-props (beg end value alt1 alt2)
    "Set up text properties for the output of `eval-last-sexp-1'.
  BEG and END are the start and end of the output in current-buffer.
  VALUE is the Lisp value printed, ALT1 and ALT2 are strings for the
  alternative printed representations that can be displayed."
      (add-text-properties
       beg end
       `(printed-value (,value ,alt1 ,alt2)
                     mouse-face highlight
!                    keymap ,last-sexp-map
                     help-echo "RET, mouse-2: toggle abbreviated display"
                     rear-nonsticky (mouse-face keymap help-echo
  		 
			printed-value)))))
--
Kevin Rodgers