diff options
| author | Daniel LaLiberte | 1994-04-04 21:55:52 +0000 |
|---|---|---|
| committer | Daniel LaLiberte | 1994-04-04 21:55:52 +0000 |
| commit | ef2b0b8983ac1a1137f1b073fefc04c88fd81edc (patch) | |
| tree | acfdc87c4deaa074f830e8fc9f9b20aaa8dc5442 | |
| parent | 8866814720825aed3c72381989119575b68a6d5e (diff) | |
| download | emacs-ef2b0b8983ac1a1137f1b073fefc04c88fd81edc.tar.gz emacs-ef2b0b8983ac1a1137f1b073fefc04c88fd81edc.zip | |
Change install- to ... to ...-install.
| -rw-r--r-- | lisp/emacs-lisp/eval-reg.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/emacs-lisp/eval-reg.el b/lisp/emacs-lisp/eval-reg.el index 81e01ab8a27..72c4437043f 100644 --- a/lisp/emacs-lisp/eval-reg.el +++ b/lisp/emacs-lisp/eval-reg.el | |||
| @@ -38,15 +38,15 @@ | |||
| 38 | ;;; ============= | 38 | ;;; ============= |
| 39 | 39 | ||
| 40 | ;;; Eval-region may be installed, after loading, by calling: | 40 | ;;; Eval-region may be installed, after loading, by calling: |
| 41 | ;;; (install-eval-region). Installation can be undone with: | 41 | ;;; (elisp-eval-region-install). Installation can be undone with: |
| 42 | ;;; (uninstall-eval-region). | 42 | ;;; (elisp-eval-region-uninstall). |
| 43 | 43 | ||
| 44 | '(defpackage "elisp-eval-region" | 44 | '(defpackage "elisp-eval-region" |
| 45 | (:nicknames "elisp") | 45 | (:nicknames "elisp") |
| 46 | (:use "elisp") | 46 | (:use "elisp") |
| 47 | (:export | 47 | (:export |
| 48 | install-elisp-eval-region | 48 | elisp-eval-region-install |
| 49 | uninstall-elisp-eval-region | 49 | elisp-eval-region-uninstall |
| 50 | elisp-eval-region-level | 50 | elisp-eval-region-level |
| 51 | with-elisp-eval-region | 51 | with-elisp-eval-region |
| 52 | )) | 52 | )) |
| @@ -70,16 +70,16 @@ Callers of elisp-eval-region should increment elisp-eval-region-level | |||
| 70 | while the Lisp version should be used. Installing elisp-eval-region | 70 | while the Lisp version should be used. Installing elisp-eval-region |
| 71 | increments it once, and uninstalling decrements it.") | 71 | increments it once, and uninstalling decrements it.") |
| 72 | 72 | ||
| 73 | ;; These two should always be used in pairs, or just install once and | 73 | ;; Installing and uninstalling should always be used in pairs, |
| 74 | ;; never uninstall. | 74 | ;; or just install once and never uninstall. |
| 75 | (defun install-elisp-eval-region () | 75 | (defun elisp-eval-region-install () |
| 76 | (interactive) | 76 | (interactive) |
| 77 | (defalias 'eval-region 'elisp-eval-region) | 77 | (defalias 'eval-region 'elisp-eval-region) |
| 78 | (defalias 'eval-buffer 'elisp-eval-buffer) | 78 | (defalias 'eval-buffer 'elisp-eval-buffer) |
| 79 | (defalias 'eval-current-buffer 'elisp-eval-current-buffer) | 79 | (defalias 'eval-current-buffer 'elisp-eval-current-buffer) |
| 80 | (setq elisp-eval-region-level (1+ elisp-eval-region-level))) | 80 | (setq elisp-eval-region-level (1+ elisp-eval-region-level))) |
| 81 | 81 | ||
| 82 | (defun uninstall-elisp-eval-region () | 82 | (defun elisp-eval-region-uninstall () |
| 83 | (interactive) | 83 | (interactive) |
| 84 | (if (> 1 elisp-eval-region-level) | 84 | (if (> 1 elisp-eval-region-level) |
| 85 | (setq elisp-eval-region-level (1- elisp-eval-region-level)) | 85 | (setq elisp-eval-region-level (1- elisp-eval-region-level)) |
| @@ -99,7 +99,7 @@ increments it once, and uninstalling decrements it.") | |||
| 99 | The effect of decrementing all the way to zero is that `eval-region' | 99 | The effect of decrementing all the way to zero is that `eval-region' |
| 100 | will use the original eval-region, which may be the Emacs subr or some | 100 | will use the original eval-region, which may be the Emacs subr or some |
| 101 | previous redefinition. Before calling this macro, this package should | 101 | previous redefinition. Before calling this macro, this package should |
| 102 | already have been installed, using `install-elisp-eval-region', which | 102 | already have been installed, using `elisp-eval-region-install', which |
| 103 | increments the count once. So if another package still requires the | 103 | increments the count once. So if another package still requires the |
| 104 | elisp version of the code, the count will still be non-zero. | 104 | elisp version of the code, the count will still be non-zero. |
| 105 | 105 | ||