equal
deleted
inserted
replaced
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) |