Mercurial > emacs
comparison lisp/emacs-lisp/elp.el @ 33095:ef9eb0f5f0b6
(elp-unload-hook): New function.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 31 Oct 2000 12:03:52 +0000 |
| parents | 5e197bc49066 |
| children | 64902dbf6ff9 |
comparison
equal
deleted
inserted
replaced
| 33094:51c874361c84 | 33095:ef9eb0f5f0b6 |
|---|---|
| 575 (if (or elp-use-standard-output noninteractive) | 575 (if (or elp-use-standard-output noninteractive) |
| 576 (princ (buffer-substring (point-min) (point-max)))) | 576 (princ (buffer-substring (point-min) (point-max)))) |
| 577 ;; reset profiling info if desired | 577 ;; reset profiling info if desired |
| 578 (and elp-reset-after-results | 578 (and elp-reset-after-results |
| 579 (elp-reset-all)))) | 579 (elp-reset-all)))) |
| 580 | |
| 581 (defun elp-unload-hook () | |
| 582 (elp-restore-all)) | |
| 580 | 583 |
| 581 (provide 'elp) | 584 (provide 'elp) |
| 582 | 585 |
| 583 ;; elp.el ends here | 586 ;; elp.el ends here |