[Emacs-diffs] trunk r115223: * erc/erc-button.el (erc-nick-popup): Make `nick' available in the eval

[Glenn Morris]

------------------------------------------------------------
revno: 115223
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/15969
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2013-11-24 19:25:13 -0800
message:
  * erc/erc-button.el (erc-nick-popup): Make `nick' available in the eval
  environment.
modified:
  lisp/erc/ChangeLog             changelog-20091113204419-o5vbwnq5f7feedwu-4305
  lisp/erc/erc-button.el         
ercbutton.el-20091113204419-o5vbwnq5f7feedwu-4314

=== modified file 'lisp/erc/ChangeLog'
--- a/lisp/erc/ChangeLog        2013-11-04 19:35:37 +0000
+++ b/lisp/erc/ChangeLog        2013-11-25 03:25:13 +0000
@@ -1,3 +1,8 @@
+2013-11-25  Glenn Morris  <address@hidden>
+
+       * erc-button.el (erc-nick-popup): Make `nick' available in the
+       eval environment.  (Bug#15969)
+
 2013-11-04  Stefan Monnier  <address@hidden>
 
        * erc-pcomplete.el (erc-pcomplete): Set this-command.

=== modified file 'lisp/erc/erc-button.el'
--- a/lisp/erc/erc-button.el    2013-09-19 02:21:31 +0000
+++ b/lisp/erc/erc-button.el    2013-11-25 03:25:13 +0000
@@ -514,7 +514,7 @@
          (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)