(server-generate-key): `called-interactively-p' requires a parameter.

e6de100c · Lars Ingebrigtsen · 29734c21 · e6de100c · e6de100c
Commit e6de100c authored Apr 14, 2012 by Lars Ingebrigtsen
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/server.el lisp/server.el +1 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2012-04-14  Lars Ingebrigtsen  <larsi@gnus.org>
+
+	* server.el (server-generate-key): `called-interactively-p'
+	requires a parameter.
+
 2012-04-14  Michal Nazarewicz  <mina86@mina86.com>

 	* server.el (server-auth-key): New variable.

--- a/lisp/server.el
+++ b/lisp/server.el
@@ -558,7 +558,7 @@ into current buffer."
 	 (loop repeat 64
 	       collect (+ 33 (random 94)) into auth
 	       finally return (concat auth))))
-    (if (called-interactively-p)
+    (if (called-interactively-p 'interactive)
 	(insert auth-key))
    auth-key))