/[emacs]/emacs/lisp/emacs-lisp/lisp-mode.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/lisp-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.140 by swift, Sun Mar 2 16:18:36 2003 UTC revision 1.141 by rms, Sun Apr 6 20:17:01 2003 UTC
# Line 424  alternative printed representations that Line 424  alternative printed representations that
424    (interactive)    (interactive)
425    (let ((value (get-text-property (point) 'printed-value)))    (let ((value (get-text-property (point) 'printed-value)))
426      (when value      (when value
427        (let ((beg (or (previous-single-property-change (point) 'printed-value) (point)))        (let ((beg (or (previous-single-property-change (min (point-max) (1+ (point)))
428                                                          'printed-value)
429                         (point)))
430              (end (or (next-single-char-property-change (point) 'printed-value) (point)))              (end (or (next-single-char-property-change (point) 'printed-value) (point)))
431              (standard-output (current-buffer))              (standard-output (current-buffer))
432              (point (point)))              (point (point)))
# Line 436  alternative printed representations that Line 438  alternative printed representations that
438                                 (nth 1 value))                                 (nth 1 value))
439          (goto-char (min (point-max) point))))))          (goto-char (min (point-max) point))))))
440    
   
441  (defun eval-last-sexp-1 (eval-last-sexp-arg-internal)  (defun eval-last-sexp-1 (eval-last-sexp-arg-internal)
442    "Evaluate sexp before point; print value in minibuffer.    "Evaluate sexp before point; print value in minibuffer.
443  With argument, print output into current buffer."  With argument, print output into current buffer."

Legend:
Removed from v.1.140  
changed lines
  Added in v.1.141

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26