[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: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el |
Date: |
Sun, 06 Apr 2003 16:17:01 -0400 |
Index: emacs/lisp/emacs-lisp/lisp-mode.el
diff -c emacs/lisp/emacs-lisp/lisp-mode.el:1.140
emacs/lisp/emacs-lisp/lisp-mode.el:1.141
*** emacs/lisp/emacs-lisp/lisp-mode.el:1.140 Sun Mar 2 11:18:36 2003
--- emacs/lisp/emacs-lisp/lisp-mode.el Sun Apr 6 16:17:01 2003
***************
*** 424,430 ****
(interactive)
(let ((value (get-text-property (point) 'printed-value)))
(when value
! (let ((beg (or (previous-single-property-change (point) 'printed-value)
(point)))
(end (or (next-single-char-property-change (point) 'printed-value)
(point)))
(standard-output (current-buffer))
(point (point)))
--- 424,432 ----
(interactive)
(let ((value (get-text-property (point) 'printed-value)))
(when value
! (let ((beg (or (previous-single-property-change (min (point-max) (1+
(point)))
! 'printed-value)
! (point)))
(end (or (next-single-char-property-change (point) 'printed-value)
(point)))
(standard-output (current-buffer))
(point (point)))
***************
*** 435,441 ****
(nth 2 value)
(nth 1 value))
(goto-char (min (point-max) point))))))
-
(defun eval-last-sexp-1 (eval-last-sexp-arg-internal)
"Evaluate sexp before point; print value in minibuffer.
--- 437,442 ----