# HG changeset patch
# User mpm@selenic.com
# Date 1124506025 28800
# Node ID d845a1f174bb2b4146d28157acb343d9fb5039c0
# Parent  305ab68c43945c18ece8e111dcc9e22b27fb488d
Make mercurial.el load with GNU emacs



diff --git a/contrib/mercurial.el b/contrib/mercurial.el
--- a/contrib/mercurial.el
+++ b/contrib/mercurial.el
@@ -126,7 +126,8 @@ in a repository with a lot of history."
 
 (defvar hg-prefix-map
   (let ((map (copy-keymap vc-prefix-map)))
-    (set-keymap-name map 'hg-prefix-map)
+    (if (functionp 'set-keymap-name)
+      (set-keymap-name map 'hg-prefix-map)); XEmacs
     map)
   "This keymap overrides some default vc-mode bindings.")
 (fset 'hg-prefix-map hg-prefix-map)
@@ -177,7 +178,8 @@ in a repository with a lot of history."
   (let ((map (copy-keymap (if (boundp 'view-minor-mode-map)
 			      view-minor-mode-map
 			    view-mode-map))))
-    (set-keymap-name map 'hg-view-mode-map)
+    (if (functionp 'set-keymap-name)
+      (set-keymap-name map 'hg-view-mode-map)); XEmacs
     map))
 (fset 'hg-view-mode-map hg-view-mode-map)
 (define-key hg-view-mode-map