aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1994-04-11 21:44:58 +0000
committerRichard M. Stallman1994-04-11 21:44:58 +0000
commitc8fcf4f8db77982f3f31fecbcdbdf5dcd4c0a1ec (patch)
tree18fd24e1b75fa719c31abf183baee16f235562ba
parent77ddeda4bc019cdcb24cc59b038a6cbbd021826b (diff)
downloademacs-c8fcf4f8db77982f3f31fecbcdbdf5dcd4c0a1ec.tar.gz
emacs-c8fcf4f8db77982f3f31fecbcdbdf5dcd4c0a1ec.zip
Renamed from eval-region.el. Fix the `provide' call.
Doc fixes.
-rw-r--r--lisp/emacs-lisp/eval-reg.el22
1 files changed, 11 insertions, 11 deletions
diff --git a/lisp/emacs-lisp/eval-reg.el b/lisp/emacs-lisp/eval-reg.el
index 0623e845226..6d22fa22aa5 100644
--- a/lisp/emacs-lisp/eval-reg.el
+++ b/lisp/emacs-lisp/eval-reg.el
@@ -1,4 +1,4 @@
1;;; eval-region.el --- Redefine eval-region, and subrs that use it, in Lisp 1;;; eval-reg.el --- Redefine eval-region, and subrs that use it, in Lisp
2 2
3;; Copyright (C) 1994 Daniel LaLiberte 3;; Copyright (C) 1994 Daniel LaLiberte
4 4
@@ -69,9 +69,9 @@
69 (symbol-function 'eval-current-buffer))) 69 (symbol-function 'eval-current-buffer)))
70 70
71(defvar elisp-eval-region-level 0 71(defvar elisp-eval-region-level 0
72 "If the value is 0, use the original version of elisp-eval-region. 72 "If the value is 0, use the original version of `elisp-eval-region'.
73Callers of elisp-eval-region should increment elisp-eval-region-level 73Callers of `elisp-eval-region' should increment `elisp-eval-region-level'
74while the Lisp version should be used. Installing elisp-eval-region 74while the Lisp version should be used. Installing `elisp-eval-region'
75increments it once, and uninstalling decrements it.") 75increments it once, and uninstalling decrements it.")
76 76
77;; Installing and uninstalling should always be used in pairs, 77;; Installing and uninstalling should always be used in pairs,
@@ -99,13 +99,13 @@ increments it once, and uninstalling decrements it.")
99(put 'with-elisp-eval-region 'edebug-form-spec t) 99(put 'with-elisp-eval-region 'edebug-form-spec t)
100 100
101(defmacro with-elisp-eval-region (flag &rest body) 101(defmacro with-elisp-eval-region (flag &rest body)
102 "If FLAG is nil, decrement eval-region-level while executing BODY. 102 "If FLAG is nil, decrement `eval-region-level' while executing BODY.
103The effect of decrementing all the way to zero is that `eval-region' 103The effect of decrementing all the way to zero is that `eval-region'
104will use the original eval-region, which may be the Emacs subr or some 104will use the original `eval-region', which may be the Emacs subr or some
105previous redefinition. Before calling this macro, this package should 105previous redefinition. Before calling this macro, this package should
106already have been installed, using `elisp-eval-region-install', which 106already have been installed, using `elisp-eval-region-install', which
107increments the count once. So if another package still requires the 107increments the count once. So if another package still requires the
108elisp version of the code, the count will still be non-zero. 108Lisp version of the code, the count will still be non-zero.
109 109
110The count is not bound locally by this macro, so changes by BODY to 110The count is not bound locally by this macro, so changes by BODY to
111its value will not be lost." 111its value will not be lost."
@@ -127,7 +127,7 @@ of the text to be executed.
127Programs can pass third argument PRINTFLAG which controls printing of output: 127Programs can pass third argument PRINTFLAG which controls printing of output:
128nil means discard it; anything else is stream for print. 128nil means discard it; anything else is stream for print.
129 129
130This version, from eval-region, allows Lisp customization of read, 130This version, from `eval-reg.el', allows Lisp customization of read,
131eval, and the printer." 131eval, and the printer."
132 132
133 ;; Because this doesnt narrow to the region, one other difference 133 ;; Because this doesnt narrow to the region, one other difference
@@ -190,7 +190,7 @@ eval, and the printer."
190Programs can pass argument PRINTFLAG which controls printing of output: 190Programs can pass argument PRINTFLAG which controls printing of output:
191nil means discard it; anything else is stream for print. 191nil means discard it; anything else is stream for print.
192 192
193This version from eval-region calls `eval-region' on the whole buffer." 193This version calls `eval-region' on the whole buffer."
194 ;; The standard eval-current-buffer doesn't use eval-region. 194 ;; The standard eval-current-buffer doesn't use eval-region.
195 (interactive) 195 (interactive)
196 (eval-region (point-min) (point-max) elisp-output)) 196 (eval-region (point-min) (point-max) elisp-output))
@@ -201,7 +201,7 @@ This version from eval-region calls `eval-region' on the whole buffer."
201Programs can pass argument PRINTFLAG which controls printing of 201Programs can pass argument PRINTFLAG which controls printing of
202output: nil means discard it; anything else is stream for print. 202output: nil means discard it; anything else is stream for print.
203 203
204This version from eval-region calls `eval-region' on the whole buffer." 204This version calls `eval-region' on the whole buffer."
205 (interactive) 205 (interactive)
206 (if (null elisp-bufname) 206 (if (null elisp-bufname)
207 (setq elisp-bufname (current-buffer))) 207 (setq elisp-bufname (current-buffer)))
@@ -211,5 +211,5 @@ This version from eval-region calls `eval-region' on the whole buffer."
211 (eval-region (point-min) (point-max) elisp-printflag))) 211 (eval-region (point-min) (point-max) elisp-printflag)))
212 212
213 213
214(provide 'elisp-eval-region) 214(provide 'eval-reg)
215 215