From: yamaoka <yamaoka>
Date: Tue, 28 Dec 1999 02:57:06 +0000 (+0000)
Subject: * gnus.el (gnus-revision-number): Increment to 14.
X-Git-Tag: t-gnus-6_14_0-14~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=755af8185c00566167a370fad0a3bc615ecd620c;p=elisp%2Fgnus.git-

* gnus.el (gnus-revision-number): Increment to 14.
* dgnushack.el (mapcon): Bind the 1st arg `fn' as a temp var.
---

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 2b21985..4d36b57 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -97,7 +97,8 @@
 	     (subrp (symbol-function 'mapcon)))
 	form
       (if rest
-	  `(let (res
+	  `(let ((fn ,fn)
+		 res
 		 (args (list ,seq ,@rest))
 		 p)
 	     (while (not (memq nil args))
@@ -107,7 +108,8 @@
 		 (setcar p (cdr (pop p)))
 		 ))
 	     (apply (function nconc) (nreverse res)))
-	`(let (res
+	`(let ((fn ,fn)
+	       res
 	       (arg ,seq))
 	   (while arg
 	     (push (funcall ,fn arg) res)
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 0d553fe..6ffa141 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -268,7 +268,7 @@ is restarted, and sometimes reloaded."
 (defconst gnus-version-number "6.14.0"
   "Version number for this version of gnus.")
 
-(defconst gnus-revision-number "13"
+(defconst gnus-revision-number "14"
   "Revision number for this version of gnus.")
 
 (defconst gnus-original-version-number "5.8.2"