Mercurial > hg > mercurial-crew-with-dirclash

diff contrib/mq.el @ 5465:9873cbb134b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mercurial.el, mq.el: remove runtime dependencies on CL package * (require 'cl) at compile-time * don't use map()
author NIIMI Satoshi <sa2c@sa2c.net>
date Thu, 11 Oct 2007 05:58:54 +0900
parents ea7b982b6c08
children 87860c62e003
line wrap: on
line diff
--- a/contrib/mq.el
+++ b/contrib/mq.el
@@ -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 @@ May return nil, meaning \"use the defaul
 		  (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