[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Erc-commit] [commit][master] Fix error in erc-command-no-process-p
From: |
mwolson |
Subject: |
[Erc-commit] [commit][master] Fix error in erc-command-no-process-p |
Date: |
Sun, 14 Oct 2007 00:49:20 -0400 |
commit c4a6e3578e2cb9780d69f3a3dce2ea394eaa8e41
Author: Michael W. Olson <address@hidden>
Date: Mon Aug 13 21:23:57 2007 -0400
Fix error in erc-command-no-process-p
* erc.el (erc-command-no-process-p): Fix bug: the return value of
erc-extract-command-from-line is a list rather than a single symbol.
Thanks to jbms for the report.
diff --git a/ChangeLog b/ChangeLog
index ef5a24d..4c602d6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2007-08-14 Michael Olson <address@hidden>
+
+ * erc.el (erc-command-no-process-p): Fix bug: the return value of
+ erc-extract-command-from-line is a list rather than a single
+ symbol. Thanks to jbms for the report.
+
2007-08-12 Michael Olson <address@hidden>
* erc-identd.el (erc-identd-filter): Instead of sending an EOF
diff --git a/erc.el b/erc.el
index 324a820..fd709ed 100644
--- a/erc.el
+++ b/erc.el
@@ -2496,7 +2496,8 @@ See also `erc-server-send'."
is not alive, nil otherwise."
(let ((fun (erc-extract-command-from-line str)))
(and fun
- (get fun 'process-not-needed))))
+ (symbolp (car fun))
+ (get (car fun) 'process-not-needed))))
(defun erc-command-name (cmd)
"For CMD being the function name of a ERC command, something like
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Erc-commit] [commit][master] Fix error in erc-command-no-process-p,
mwolson <=