[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: |
Sat, 16 Aug 2003 20:18:15 -0400 |
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)
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,
Richard M. Stallman <=