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

[Richard M. Stallman]

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 ----