diff --git a/contrib/mercurial.el b/contrib/mercurial.el --- a/contrib/mercurial.el +++ b/contrib/mercurial.el @@ -521,7 +521,7 @@ directory names from the file system. W (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 --git a/contrib/mq.el b/contrib/mq.el --- 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