/[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.141 by rms, Sun Apr 6 20:17:01 2003 UTC revision 1.142 by rms, Wed Apr 9 01:32:45 2003 UTC
# Line 419  alternative printed representations that Line 419  alternative printed representations that
419                                                  printed-value)))))                                                  printed-value)))))
420    
421    
422  (defun last-sexp-toggle-display ()  (defun last-sexp-toggle-display (&optional arg)
423    "Toggle between abbreviated and unabbreviated printed representations."    "Toggle between abbreviated and unabbreviated printed representations."
424    (interactive)    (interactive "P")
425    (let ((value (get-text-property (point) 'printed-value)))    ;; Normally this command won't be called at end of line.
426      (when value    ;; But when the end of the line is also the end of the buffer,
427        (let ((beg (or (previous-single-property-change (min (point-max) (1+ (point)))    ;; it does get called.  For consistency, pretend it was not called.
428                                                        'printed-value)    (if (eobp)
429                       (point)))        (newline arg)
430              (end (or (next-single-char-property-change (point) 'printed-value) (point)))      (let ((value (get-text-property (point) 'printed-value)))
431              (standard-output (current-buffer))        (when value
432              (point (point)))          (let ((beg (or (previous-single-property-change (min (point-max) (1+ (point)))
433          (delete-region beg end)                                                          'printed-value)
434          (insert (nth 1 value))                         (point)))
435          (last-sexp-setup-props beg (point)                (end (or (next-single-char-property-change (point) 'printed-value) (point)))
436                                 (nth 0 value)                (standard-output (current-buffer))
437                                 (nth 2 value)                (point (point)))
438                                 (nth 1 value))            (delete-region beg end)
439          (goto-char (min (point-max) point))))))            (insert (nth 1 value))
440              (last-sexp-setup-props beg (point)
441                                     (nth 0 value)
442                                     (nth 2 value)
443                                     (nth 1 value))
444              (goto-char (min (point-max) point)))))))
445    
446  (defun eval-last-sexp-1 (eval-last-sexp-arg-internal)  (defun eval-last-sexp-1 (eval-last-sexp-arg-internal)
447    "Evaluate sexp before point; print value in minibuffer.    "Evaluate sexp before point; print value in minibuffer.
# Line 626  which see." Line 631  which see."
631               (unless (eq old-value new-value)               (unless (eq old-value new-value)
632                 (setq debug-on-error new-value))                 (setq debug-on-error new-value))
633               value)))))               value)))))
634    
635    
636  (defun lisp-comment-indent ()  (defun lisp-comment-indent ()
637    (if (looking-at "\\s<\\s<\\s<")    (if (looking-at "\\s<\\s<\\s<")

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

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