changeset 958:d845a1f174bb

Make mercurial.el load with GNU emacs
author mpm@selenic.com
date Fri, 19 Aug 2005 18:47:05 -0800
parents 305ab68c4394
children 0aaeee519c66
files contrib/mercurial.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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