Mercurial > hg > mercurial-crew-with-dirclash

comparison contrib/mercurial.el @ 958:d845a1f174bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)