Mercurial Mercurial > mercurial / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make mercurial.el load with GNU emacs
authormpm@selenic.com
Fri, 19 Aug 2005 18:47:05 -0800
changeset 958 d845a1f174bb
parent 957 305ab68c4394
child 959 0aaeee519c66
Make mercurial.el load with GNU emacs
contrib/mercurial.el file | annotate | diff | comparison | revisions 
--- 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
mercurial