Commit e6de100c authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen
Browse files

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

parent 29734c21
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.
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment