diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-06-28 14:44:21 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-06-28 14:44:21 +0200 |
| commit | 1385dea0b94e7762e214afb301704c7c56145e3e (patch) | |
| tree | d64195e0f3d4deb3ea583c443ae3fb245bc31499 | |
| parent | cbcd714b239bf504fd2d2f45a84f3926b6c8b29a (diff) | |
| download | org-mode-1385dea0b94e7762e214afb301704c7c56145e3e.tar.gz | |
org-irc: Fix port handling
* lisp/org-irc.el (org-irc-visit-erc): Fix "stringp, nil".
Reported-by: "numbchild@gmail.com" <numbchild@gmail.com>
<http://lists.gnu.org/archive/html/emacs-orgmode/2017-06/msg00541.html>
| -rw-r--r-- | lisp/org-irc.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org-irc.el b/lisp/org-irc.el index 3a6a7f4..92537fc 100644 --- a/lisp/org-irc.el +++ b/lisp/org-irc.el @@ -205,7 +205,8 @@ default." (require 'erc) (require 'erc-log) (let* ((server (car (car link))) - (port (or (string-to-number (cadr (pop link))) erc-default-port)) + (port (let ((p (cadr (pop link)))) + (if p (string-to-number p) erc-default-port))) (server-buffer) (buffer-list (erc-buffer-filter |