diff options
| author | Lars Ingebrigtsen | 2012-04-14 13:36:26 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2012-04-14 13:36:26 +0200 |
| commit | e6de100c5eafc96bf4429700e28ebdac9bc2ad8d (patch) | |
| tree | 3027467fc1753cb60b29886373b7de6e964cd319 /lisp/server.el | |
| parent | 29734c215668ccd0c5d9affb71a7290b0ea9dbe4 (diff) | |
| download | emacs-e6de100c5eafc96bf4429700e28ebdac9bc2ad8d.tar.gz emacs-e6de100c5eafc96bf4429700e28ebdac9bc2ad8d.zip | |
(server-generate-key): `called-interactively-p' requires a parameter.
Diffstat (limited to 'lisp/server.el')
| -rw-r--r-- | lisp/server.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/server.el b/lisp/server.el index dd40199ad1c..97e9510b8f2 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -558,7 +558,7 @@ into current buffer." | |||
| 558 | (loop repeat 64 | 558 | (loop repeat 64 |
| 559 | collect (+ 33 (random 94)) into auth | 559 | collect (+ 33 (random 94)) into auth |
| 560 | finally return (concat auth)))) | 560 | finally return (concat auth)))) |
| 561 | (if (called-interactively-p) | 561 | (if (called-interactively-p 'interactive) |
| 562 | (insert auth-key)) | 562 | (insert auth-key)) |
| 563 | auth-key)) | 563 | auth-key)) |
| 564 | 564 | ||