(debug): Fix arg to backtrace-debug for debug-on-entry.

[bpt/emacs.git] / lisp / emacs-lisp / eval-reg.el

diff --git a/lisp/emacs-lisp/eval-reg.el b/lisp/emacs-lisp/eval-reg.el
index 72c4437..6d22fa2 100644 (file)
--- a/lisp/emacs-lisp/eval-reg.el
+++ b/lisp/emacs-lisp/eval-reg.el
@@ -1,11 +1,15 @@
-;;;; Redefine eval-region, and subroutines that use it, in Lisp
+;;; eval-reg.el --- Redefine eval-region, and subrs that use it, in Lisp
+
 ;; Copyright (C) 1994 Daniel LaLiberte
 
-;; This file is not part of GNU Emacs.
+;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
+;; Keywords: lisp
+
+;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -34,9 +38,6 @@
 ;;; that replaces Emacs Lisp subroutines with Lisp versions of the
 ;;; same.
 
-;;;; Installation
-;;; =============
-
 ;;; Eval-region may be installed, after loading, by calling:
 ;;; (elisp-eval-region-install).  Installation can be undone with:
 ;;; (elisp-eval-region-uninstall).
@@ -49,6 +50,9 @@
     elisp-eval-region-uninstall
     elisp-eval-region-level
     with-elisp-eval-region
+    eval-region
+    eval-buffer
+    eval-current-buffer
     ))
 '(in-package elisp-eval-region)
 
@@ -65,9 +69,9 @@
          (symbol-function 'eval-current-buffer)))
 
 (defvar elisp-eval-region-level 0
-  "If the value is 0, use the original version of elisp-eval-region.
-Callers of elisp-eval-region should increment elisp-eval-region-level
-while the Lisp version should be used.  Installing elisp-eval-region
+  "If the value is 0, use the original version of `elisp-eval-region'.
+Callers of `elisp-eval-region' should increment `elisp-eval-region-level'
+while the Lisp version should be used.  Installing `elisp-eval-region'
 increments it once, and uninstalling decrements it.")
 
 ;; Installing and uninstalling should always be used in pairs, 
@@ -95,13 +99,13 @@ increments it once, and uninstalling decrements it.")
 (put 'with-elisp-eval-region 'edebug-form-spec t)
 
 (defmacro with-elisp-eval-region (flag &rest body)
-  "If FLAG is nil, decrement eval-region-level while executing BODY.
+  "If FLAG is nil, decrement `eval-region-level' while executing BODY.
 The effect of decrementing all the way to zero is that `eval-region'
-will use the original eval-region, which may be the Emacs subr or some
+will use the original `eval-region', which may be the Emacs subr or some
 previous redefinition.  Before calling this macro, this package should
 already have been installed, using `elisp-eval-region-install', which
 increments the count once.  So if another package still requires the
-elisp version of the code, the count will still be non-zero.
+Lisp version of the code, the count will still be non-zero.
 
 The count is not bound locally by this macro, so changes by BODY to
 its value will not be lost."
@@ -123,7 +127,7 @@ of the text to be executed.
 Programs can pass third argument PRINTFLAG which controls printing of output:
 nil means discard it; anything else is stream for print.
 
-This version, from eval-region, allows Lisp customization of read,
+This version, from `eval-reg.el', allows Lisp customization of read,
 eval, and the printer."
 
   ;; Because this doesnt narrow to the region, one other difference 
@@ -186,7 +190,7 @@ eval, and the printer."
 Programs can pass argument PRINTFLAG which controls printing of output:
 nil means discard it; anything else is stream for print.
 
-This version from eval-region calls `eval-region' on the whole buffer."
+This version calls `eval-region' on the whole buffer."
   ;; The standard eval-current-buffer doesn't use eval-region.
   (interactive)
   (eval-region (point-min) (point-max) elisp-output))
@@ -197,7 +201,7 @@ This version from eval-region calls `eval-region' on the whole buffer."
 Programs can pass argument PRINTFLAG which controls printing of
 output: nil means discard it; anything else is stream for print.
 
-This version from eval-region calls `eval-region' on the whole buffer."
+This version calls `eval-region' on the whole buffer."
   (interactive)
   (if (null elisp-bufname)
       (setq elisp-bufname (current-buffer)))
@@ -207,4 +211,5 @@ This version from eval-region calls `eval-region' on the whole buffer."
     (eval-region (point-min) (point-max) elisp-printflag)))
 
 
-(provide 'elisp-eval-region)
+(provide 'eval-reg)
+