From: Glenn Morris <rgm@gnu.org>
Date: Mon, 25 Nov 2013 03:25:13 +0000 (-0800)
Subject: * erc/erc-button.el (erc-nick-popup): Make `nick' available in the eval
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~708
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1288751c496c0eeabf0b8f2c474f67332a8a460d;p=emacs.git

* erc/erc-button.el (erc-nick-popup): Make `nick' available in the eval
environment.

Fixes: debbugs:15969
---

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index 5856a592ebf..f7a998c5e0e 100644
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,8 @@
+2013-11-25  Glenn Morris  <rgm@gnu.org>
+
+	* erc-button.el (erc-nick-popup): Make `nick' available in the
+	eval environment.  (Bug#15969)
+
 2013-11-04  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* erc-pcomplete.el (erc-pcomplete): Set this-command.
diff --git a/lisp/erc/erc-button.el b/lisp/erc/erc-button.el
index 751a35dfdff..a124954498d 100644
--- a/lisp/erc/erc-button.el
+++ b/lisp/erc/erc-button.el
@@ -514,7 +514,7 @@ Examples:
          (code (cdr (assoc action erc-nick-popup-alist))))
     (when code
       (erc-set-active-buffer (current-buffer))
-      (eval code))))
+      (eval code `((nick . ,nick))))))
 
 ;;; Callback functions
 (defun erc-button-describe-symbol (symbol-name)