Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-undo.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 0d2f883870bc
children d2f30a177268
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
66 66
67 (unless gnus-undo-mode-map 67 (unless gnus-undo-mode-map
68 (setq gnus-undo-mode-map (make-sparse-keymap)) 68 (setq gnus-undo-mode-map (make-sparse-keymap))
69 69
70 (gnus-define-keys gnus-undo-mode-map 70 (gnus-define-keys gnus-undo-mode-map
71 "\M-\C-_" gnus-undo)) 71 "\M-\C-_" gnus-undo
72 "\C-_" gnus-undo
73 "\C-xu" gnus-undo
74 [(control /)] gnus-undo ; many people are used to type `C-/' on
75 ; X terminals and get `C-_'.
76 ))
72 77
73 (defun gnus-undo-make-menu-bar () 78 (defun gnus-undo-make-menu-bar ()
74 (when nil 79 (when nil
75 (define-key-after (current-local-map) [menu-bar file gnus-undo] 80 (define-key-after (current-local-map) [menu-bar file gnus-undo]
76 (cons "Undo" 'gnus-undo-actions) 81 (cons "Undo" 'gnus-undo-actions)