(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)))