(elp-instrument-package): Don't allow empty prefixes.

2 files changed, 7 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5f91a19636c..b8f28b24c7a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-05-14  Eli Zaretskii  <eliz@is.elta.co.il>
+
+        * emacs-lisp/elp.el (elp-instrument-package): Don't allow empty
+        prefixes.
+
 2001-05-14  Gerd Moellmann  <gerd@gnu.org>
 
         * hexl.el (hexl-current-address): Print a message when called
diff --git a/lisp/emacs-lisp/elp.el b/lisp/emacs-lisp/elp.el
index 42dc1bc070b..af189126a09 100644
--- a/lisp/emacs-lisp/elp.el
+++ b/lisp/emacs-lisp/elp.el
@@ -323,6 +323,8 @@ For example, to instrument all ELP functions, do the following:
 
     \\[elp-instrument-package] RET elp- RET"
   (interactive "sPrefix of package to instrument: ")
+  (if (zerop (length prefix))
+      (error "Instrumenting all Emacs functions would render Emacs unusable."))
   (elp-instrument-list
    (mapcar
     'intern