# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 996154450 0
# Node ID c6a3a3a3c0dedb09b3346f6eef109fc6a04eba3a
# Parent  0b974a5d94605348f7448d56c7437d1372b3ffe5
(eval-last-sexp-1): Look for a `...'
before assigning text properties.  Make properties rear-nonsticky.

diff -r 0b974a5d9460 -r c6a3a3a3c0de lisp/emacs-lisp/lisp-mode.el
--- a/lisp/emacs-lisp/lisp-mode.el	Thu Jul 26 13:16:25 2001 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Thu Jul 26 13:34:10 2001 +0000
@@ -390,13 +390,17 @@
 		     (set-syntax-table stab))))))
       (let ((print-length eval-expression-print-length)
 	    (print-level eval-expression-print-level)
-	    (beg (point)))
+	    (beg (point))
+	    end)
 	(prin1 value)
+	(setq end (point))
 	(when (and (bufferp standard-output)
 		   (or (not (null print-length))
-		       (not (null print-level))))
-	  (let ((map (make-sparse-keymap))
-		(end (point)))
+		       (not (null print-level)))
+		   (save-excursion
+		     (goto-char beg)
+		     (search-forward "..." end t)))
+	  (let ((map (make-sparse-keymap)))
 	    (define-key map "\C-m" 'last-sexp-print)
 	    (define-key map [down-mouse-2] 'mouse-set-point)
 	    (define-key map [mouse-2] 'last-sexp-print)
@@ -405,7 +409,10 @@
 	     `(printed-value ,value 
 			     mouse-face highlight 
 			     keymap ,map
-			     help-echo "RET, mouse-2: print unabbreviated"))))))))
+			     help-echo "RET, mouse-2: print unabbreviated"
+			     read-nonsticky (mouse-face keymap help-echo
+							printed-value)
+			     ))))))))
 
 
 (defun eval-last-sexp (eval-last-sexp-arg-internal)