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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5f91a19636c204c77640a20b0aad3647934cb1b5..b8f28b24c7ab9e5803b41e4db6e0c8d0cb93d1bc 100644 (file)
--- 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 42dc1bc070bbc05ac9cf250d48e43a725abb7fc4..af189126a0979060ae958d12369a104a5ae501e5 100644 (file)
--- 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