# HG changeset patch
# User NIIMI Satoshi <sa2c@sa2c.net>
# Date 1192049934 -32400
# Node ID 9873cbb134b22eb19ca726afa5edd6bfb8b363fd
# Parent  7dafd9ab39791d91d71da19f07e92029040788a9
mercurial.el, mq.el: remove runtime dependencies on CL package

* (require 'cl) at compile-time

* don't use map()

diff -r 7dafd9ab3979 -r 9873cbb134b2 contrib/mercurial.el
--- a/contrib/mercurial.el	Thu Apr 12 13:11:30 2007 +0200
+++ b/contrib/mercurial.el	Thu Oct 11 05:58:54 2007 +0900
@@ -521,7 +521,7 @@
 	    (completing-read (format "Revision%s (%s): "
 				     (or prompt "")
 				     (or default "tip"))
-			     (map 'list 'cons revs revs)
+			     (mapcar (lambda (x) (cons x x)) revs)
 			     nil
 			     nil
 			     nil
diff -r 7dafd9ab3979 -r 9873cbb134b2 contrib/mq.el
--- a/contrib/mq.el	Thu Apr 12 13:11:30 2007 +0200
+++ b/contrib/mq.el	Thu Oct 11 05:58:54 2007 +0900
@@ -18,6 +18,7 @@
 ;; C-l').  If not, write to the Free Software Foundation, Inc., 59
 ;; Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
+(eval-when-compile (require 'cl))
 (require 'mercurial)
 
 
@@ -102,7 +103,7 @@
 		  (hg-chomp (hg-run0 (or source "qseries"))) "\n")))
     (when force
       (completing-read (format "Patch%s: " (or prompt ""))
-		       (map 'list 'cons patches patches)
+		       (mapcar (lambda (x) (cons x x)) patches)
 		       nil
 		       nil
 		       nil