[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.149 
emacs/lisp/emacs-lisp/lisp-mode.el:1.150
*** emacs/lisp/emacs-lisp/lisp-mode.el:1.149    Mon Jul 21 05:58:06 2003
--- emacs/lisp/emacs-lisp/lisp-mode.el  Sat Aug 16 20:18:15 2003
***************
*** 512,538 ****
                                                      expr
                                                      'args)))))
                         expr)))))))
!       (let ((unabbreviated (let ((print-length nil) (print-level nil))
!                            (prin1-to-string value)))
!           (print-length eval-expression-print-length)
!           (print-level eval-expression-print-level)
!           (char-string (prin1-char value))
!           (beg (point))
!           end)
!       (prog1
!           (prin1 value)
!         (if (and (eq standard-output t) char-string)
!             (princ (concat " = " char-string)))
!         (setq end (point))
!         (when (and (bufferp standard-output)
!                    (or (not (null print-length))
!                        (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))
!           ))))))
  
  
  (defun eval-last-sexp (eval-last-sexp-arg-internal)
--- 512,541 ----
                                                      expr
                                                      'args)))))
                         expr)))))))
!       (eval-last-sexp-print-value value))))
! 
! (defun eval-last-sexp-print-value (value)
!   (let ((unabbreviated (let ((print-length nil) (print-level nil))
!                        (prin1-to-string value)))
!       (print-length eval-expression-print-length)
!       (print-level eval-expression-print-level)
!       (char-string (prin1-char value))
!       (beg (point))
!       end)
!     (prog1
!       (prin1 value)
!       (if (and (eq standard-output t) char-string)
!         (princ (concat " = " char-string)))
!       (setq end (point))
!       (when (and (bufferp standard-output)
!                (or (not (null print-length))
!                    (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))
!       ))))
  
  
  (defun eval-last-sexp (eval-last-sexp-arg-internal)