X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/41ef088456675919e4b56a41f964d50a81a781dc..23a624ca1d40fa9cefd7229ac6152b79278a6517:/packages/register-list/register-list.el

diff --git a/packages/register-list/register-list.el b/packages/register-list/register-list.el
index c93e4791c..1bbcb7233 100755
--- 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)))