diff options
| author | Richard M. Stallman | 1994-04-11 21:44:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-04-11 21:44:58 +0000 |
| commit | c8fcf4f8db77982f3f31fecbcdbdf5dcd4c0a1ec (patch) | |
| tree | 18fd24e1b75fa719c31abf183baee16f235562ba | |
| parent | 77ddeda4bc019cdcb24cc59b038a6cbbd021826b (diff) | |
| download | emacs-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.el | 22 |
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'. |
| 73 | Callers of elisp-eval-region should increment elisp-eval-region-level | 73 | Callers of `elisp-eval-region' should increment `elisp-eval-region-level' |
| 74 | while the Lisp version should be used. Installing elisp-eval-region | 74 | while the Lisp version should be used. Installing `elisp-eval-region' |
| 75 | increments it once, and uninstalling decrements it.") | 75 | increments 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. |
| 103 | The effect of decrementing all the way to zero is that `eval-region' | 103 | The effect of decrementing all the way to zero is that `eval-region' |
| 104 | will use the original eval-region, which may be the Emacs subr or some | 104 | will use the original `eval-region', which may be the Emacs subr or some |
| 105 | previous redefinition. Before calling this macro, this package should | 105 | previous redefinition. Before calling this macro, this package should |
| 106 | already have been installed, using `elisp-eval-region-install', which | 106 | already have been installed, using `elisp-eval-region-install', which |
| 107 | increments the count once. So if another package still requires the | 107 | increments the count once. So if another package still requires the |
| 108 | elisp version of the code, the count will still be non-zero. | 108 | Lisp version of the code, the count will still be non-zero. |
| 109 | 109 | ||
| 110 | The count is not bound locally by this macro, so changes by BODY to | 110 | The count is not bound locally by this macro, so changes by BODY to |
| 111 | its value will not be lost." | 111 | its value will not be lost." |
| @@ -127,7 +127,7 @@ of the text to be executed. | |||
| 127 | Programs can pass third argument PRINTFLAG which controls printing of output: | 127 | Programs can pass third argument PRINTFLAG which controls printing of output: |
| 128 | nil means discard it; anything else is stream for print. | 128 | nil means discard it; anything else is stream for print. |
| 129 | 129 | ||
| 130 | This version, from eval-region, allows Lisp customization of read, | 130 | This version, from `eval-reg.el', allows Lisp customization of read, |
| 131 | eval, and the printer." | 131 | eval, 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." | |||
| 190 | Programs can pass argument PRINTFLAG which controls printing of output: | 190 | Programs can pass argument PRINTFLAG which controls printing of output: |
| 191 | nil means discard it; anything else is stream for print. | 191 | nil means discard it; anything else is stream for print. |
| 192 | 192 | ||
| 193 | This version from eval-region calls `eval-region' on the whole buffer." | 193 | This 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." | |||
| 201 | Programs can pass argument PRINTFLAG which controls printing of | 201 | Programs can pass argument PRINTFLAG which controls printing of |
| 202 | output: nil means discard it; anything else is stream for print. | 202 | output: nil means discard it; anything else is stream for print. |
| 203 | 203 | ||
| 204 | This version from eval-region calls `eval-region' on the whole buffer." | 204 | This 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 | ||