Mercurial > emacs
changeset 6687:30c38858c0d0
Change install- and uninstall- to -install and -uninstall.
author | Daniel LaLiberte <liberte@gnu.org> |
---|---|
date | Tue, 05 Apr 1994 21:05:09 +0000 |
parents | a817a0ed7f42 |
children | 1102eac526d8 |
files | lisp/emacs-lisp/cust-print.el |
diffstat | 1 files changed, 19 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cust-print.el Tue Apr 05 20:52:43 1994 +0000 +++ b/lisp/emacs-lisp/cust-print.el Tue Apr 05 21:05:09 1994 +0000 @@ -9,7 +9,12 @@ ;; LCD Archive Entry: ;; cust-print|Daniel LaLiberte|liberte@cs.uiuc.edu ;; |Handle print-level, print-circle and more. -;; |$Date: 1994/03/23 20:34:29 $|$Revision: 1.4 $| +;; |$Date: 1994/03/24 20:26:05 $|1.5| + +;; Version 1.5 ($Revision: 1.13 $ from Emacs 19) + +;; Emacs maintainers: please inform me of any changes to this code. +;; Better yet, ask me first. ;; This file is part of GNU Emacs. @@ -28,8 +33,13 @@ ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; =============================== -;;; $Header: /import/kaplan/kaplan/liberte/Edebug/RCS/cust-print.el,v 1.4 1994/03/23 20:34:29 liberte Exp liberte $ ;;; $Log: cust-print.el,v $ +;;; Revision 1.13 1994/03/24 20:26:05 liberte +;;; Change "internal" to "original" throughout. +;;; (add-custom-printer, delete-custom-printer) replace customizers. +;;; (with-custom-print) new +;;; (custom-prin1-to-string) Made it more robust. +;;; ;;; Revision 1.4 1994/03/23 20:34:29 liberte ;;; * Change "emacs" to "original" - I just can't decide. ;;; @@ -129,8 +139,8 @@ print-level print-circle - install-custom-print - uninstall-custom-print + custom-print-install + custom-print-uninstall custom-print-installed-p with-custom-print @@ -281,11 +291,10 @@ (cust-print-original-error error)))) -(defalias 'install-custom-print-funcs 'install-custom-print) -(defun install-custom-print () +(defun custom-print-install () "Replace print functions with general, customizable, Lisp versions. The emacs subroutines are saved away, and you can reinstall them -by running `uninstall-custom-print'." +by running `custom-print-uninstall'." (interactive) (mapcar 'cust-print-set-function-cell '((prin1 custom-prin1) @@ -298,8 +307,7 @@ )) t) -(defalias 'uninstall-custom-print-funcs 'uninstall-custom-print) -(defun uninstall-custom-print () +(defun custom-print-uninstall () "Reset print functions to their emacs subroutines." (interactive) (mapcar 'cust-print-set-function-cell @@ -326,9 +334,9 @@ "Temporarily install the custom print package while executing BODY." (` (unwind-protect (progn - (install-custom-print) + (custom-print-install) (,@ body)) - (uninstall-custom-print)))) + (custom-print-uninstall)))) ;; Lisp replacements for prin1 and princ, and for some subrs that use them