Mercurial > hg > mercurial-crew-with-dirclash
comparison contrib/mercurial.el @ 958:d845a1f174bb
Make mercurial.el load with GNU emacs
author | mpm@selenic.com |
---|---|
date | Fri, 19 Aug 2005 18:47:05 -0800 |
parents | 307ca8ca234f |
children | 1e4b009b379e |
comparison
equal
deleted
inserted
replaced
957:305ab68c4394 | 958:d845a1f174bb |
---|---|
124 | 124 |
125 ;;; hg-mode keymap. | 125 ;;; hg-mode keymap. |
126 | 126 |
127 (defvar hg-prefix-map | 127 (defvar hg-prefix-map |
128 (let ((map (copy-keymap vc-prefix-map))) | 128 (let ((map (copy-keymap vc-prefix-map))) |
129 (set-keymap-name map 'hg-prefix-map) | 129 (if (functionp 'set-keymap-name) |
130 (set-keymap-name map 'hg-prefix-map)); XEmacs | |
130 map) | 131 map) |
131 "This keymap overrides some default vc-mode bindings.") | 132 "This keymap overrides some default vc-mode bindings.") |
132 (fset 'hg-prefix-map hg-prefix-map) | 133 (fset 'hg-prefix-map hg-prefix-map) |
133 (define-key hg-prefix-map "=" 'hg-diff) | 134 (define-key hg-prefix-map "=" 'hg-diff) |
134 (define-key hg-prefix-map "c" 'hg-undo) | 135 (define-key hg-prefix-map "c" 'hg-undo) |
175 | 176 |
176 (defvar hg-view-mode-map | 177 (defvar hg-view-mode-map |
177 (let ((map (copy-keymap (if (boundp 'view-minor-mode-map) | 178 (let ((map (copy-keymap (if (boundp 'view-minor-mode-map) |
178 view-minor-mode-map | 179 view-minor-mode-map |
179 view-mode-map)))) | 180 view-mode-map)))) |
180 (set-keymap-name map 'hg-view-mode-map) | 181 (if (functionp 'set-keymap-name) |
182 (set-keymap-name map 'hg-view-mode-map)); XEmacs | |
181 map)) | 183 map)) |
182 (fset 'hg-view-mode-map hg-view-mode-map) | 184 (fset 'hg-view-mode-map hg-view-mode-map) |
183 (define-key hg-view-mode-map | 185 (define-key hg-view-mode-map |
184 (if hg-running-xemacs [button2] [mouse-2]) | 186 (if hg-running-xemacs [button2] [mouse-2]) |
185 'hg-buffer-mouse-clicked) | 187 'hg-buffer-mouse-clicked) |