* packages/register-list/register-list.el (register-list): Pass arg to

called-interactively-p.

diff --git a/packages/register-list/register-list.el b/packages/register-list/register-list.el
index c93e4791c8b713122ca8fbd5cbbba07656d2c962..1bbcb7233e38a2aad76dcc8982ecb0c7932ac364 100755 (executable)
--- a/packages/register-list/register-list.el
+++ b/packages/register-list/register-list.el
@@ -396,7 +396,7 @@ The list is displayed in a buffer named `*Register List*' in
   (register-list-mode)
   (goto-char (point-min))
   (line-move 2 t)
-  (if (called-interactively-p)
+  (if (called-interactively-p 'interactive)
       (message "[d]elete  [e/E]dit key/value  RET:jump/copy  [FNRSW]:select type  ?:help")
     (message "Register type: %s" register-list-current-type)))