aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaniel LaLiberte1994-04-04 21:55:52 +0000
committerDaniel LaLiberte1994-04-04 21:55:52 +0000
commitef2b0b8983ac1a1137f1b073fefc04c88fd81edc (patch)
treeacfdc87c4deaa074f830e8fc9f9b20aaa8dc5442
parent8866814720825aed3c72381989119575b68a6d5e (diff)
downloademacs-ef2b0b8983ac1a1137f1b073fefc04c88fd81edc.tar.gz
emacs-ef2b0b8983ac1a1137f1b073fefc04c88fd81edc.zip
Change install- to ... to ...-install.
-rw-r--r--lisp/emacs-lisp/eval-reg.el18
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
70while the Lisp version should be used. Installing elisp-eval-region 70while the Lisp version should be used. Installing elisp-eval-region
71increments it once, and uninstalling decrements it.") 71increments 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.")
99The effect of decrementing all the way to zero is that `eval-region' 99The effect of decrementing all the way to zero is that `eval-region'
100will use the original eval-region, which may be the Emacs subr or some 100will use the original eval-region, which may be the Emacs subr or some
101previous redefinition. Before calling this macro, this package should 101previous redefinition. Before calling this macro, this package should
102already have been installed, using `install-elisp-eval-region', which 102already have been installed, using `elisp-eval-region-install', which
103increments the count once. So if another package still requires the 103increments the count once. So if another package still requires the
104elisp version of the code, the count will still be non-zero. 104elisp version of the code, the count will still be non-zero.
105 105