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



diff -r 305ab68c4394 -r d845a1f174bb contrib/mercurial.el
--- a/contrib/mercurial.el	Fri Aug 19 17:22:04 2005 -0800
+++ b/contrib/mercurial.el	Fri Aug 19 18:47:05 2005 -0800
@@ -126,7 +126,8 @@
 
 (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 @@
   (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