[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.141 
emacs/lisp/emacs-lisp/lisp-mode.el:1.142
*** emacs/lisp/emacs-lisp/lisp-mode.el:1.141    Sun Apr  6 16:17:01 2003
--- emacs/lisp/emacs-lisp/lisp-mode.el  Tue Apr  8 21:32:45 2003
***************
*** 419,442 ****
                                                printed-value)))))
  
  
! (defun last-sexp-toggle-display ()
    "Toggle between abbreviated and unabbreviated printed representations."
!   (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)))
!       (delete-region beg end)
!       (insert (nth 1 value))
!       (last-sexp-setup-props beg (point)
!                              (nth 0 value)
!                              (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.
--- 419,447 ----
                                                printed-value)))))
  
  
! (defun last-sexp-toggle-display (&optional arg)
    "Toggle between abbreviated and unabbreviated printed representations."
!   (interactive "P")
!   ;; Normally this command won't be called at end of line.
!   ;; But when the end of the line is also the end of the buffer,
!   ;; it does get called.  For consistency, pretend it was not called.
!   (if (eobp)
!       (newline arg)
!     (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)))
!         (delete-region beg end)
!         (insert (nth 1 value))
!         (last-sexp-setup-props beg (point)
!                                (nth 0 value)
!                                (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.
***************
*** 626,632 ****
             (unless (eq old-value new-value)
               (setq debug-on-error new-value))
             value)))))
! 
  
  (defun lisp-comment-indent ()
    (if (looking-at "\\s<\\s<\\s<")
--- 631,637 ----
             (unless (eq old-value new-value)
               (setq debug-on-error new-value))
             value)))))
! 
  
  (defun lisp-comment-indent ()
    (if (looking-at "\\s<\\s<\\s<")