[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el |
Date: |
Tue, 04 Feb 2003 07:53:49 -0500 |
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))
))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,
Juanma Barranquero <=