blob: 585b385a42e392737373db3968631350773c3085 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
--- uboat-1.2/uboat.el
+++ uboat-1.2/uboat.el
@@ -79,7 +79,7 @@
(let ((s (concat (uboat-iterate-list (uboat-random-member uboat-message)
"uboat-")
" U-" (int-to-string (random 999)) ".")))
- (and (interactive-p)
+ (and (called-interactively-p 'interactive)
(message "%s" s))
s))
|