[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el

[Juanma Barranquero]

Index: emacs/lisp/emacs-lisp/lisp-mode.el
diff -c emacs/lisp/emacs-lisp/lisp-mode.el:1.138 
emacs/lisp/emacs-lisp/lisp-mode.el:1.139
*** emacs/lisp/emacs-lisp/lisp-mode.el:1.138    Wed Jan 29 16:45:07 2003
--- emacs/lisp/emacs-lisp/lisp-mode.el  Tue Feb  4 07:53:34 2003
***************
*** 403,418 ****
  (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
--- 403,418 ----
  (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
***************
*** 430,436 ****
            (point (point)))
        (delete-region beg end)
        (insert (nth 1 value))
!       (last-sexp-setup-props beg (point) 
                               (nth 0 value)
                               (nth 2 value)
                               (nth 1 value))
--- 430,436 ----
            (point (point)))
        (delete-region beg end)
        (insert (nth 1 value))
!       (last-sexp-setup-props beg (point)
                               (nth 0 value)
                               (nth 2 value)
                               (nth 1 value))
***************
*** 508,514 ****
                         (not (null print-level)))
                     (not (string= unabbreviated
                                   (buffer-substring-no-properties beg end))))
!           (last-sexp-setup-props beg end value 
                                   unabbreviated
                                   (buffer-substring-no-properties beg end))
            ))))))
--- 508,514 ----
                         (not (null print-level)))
                     (not (string= unabbreviated
                                   (buffer-substring-no-properties beg end))))
!           (last-sexp-setup-props beg end value
                                   unabbreviated
                                   (buffer-substring-no-properties beg end))
            ))))))