mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Lars Ingebrigtsen 2012-04-14 13:36:26 +02:00
parent 29734c2156
commit e6de100c5e
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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.

2
lisp/server.el
View file

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