Mercurial > emacs
comparison lisp/gnus/gnus-undo.el @ 31716:9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Tue, 19 Sep 2000 13:37:09 +0000 |
parents | 15fc6acbae7a |
children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
31715:7c896543d225 | 31716:9968f55ad26e |
---|---|
1 ;;; gnus-undo.el --- minor mode for undoing in Gnus | 1 ;;; gnus-undo.el --- minor mode for undoing in Gnus |
2 ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. | 2 |
3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000 | |
4 ;; Free Software Foundation, Inc. | |
3 | 5 |
4 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
5 ;; Keywords: news | 7 ;; Keywords: news |
6 | 8 |
7 ;; This file is part of GNU Emacs. | 9 ;; This file is part of GNU Emacs. |
44 | 46 |
45 ;;; Code: | 47 ;;; Code: |
46 | 48 |
47 (eval-when-compile (require 'cl)) | 49 (eval-when-compile (require 'cl)) |
48 | 50 |
49 (eval-when-compile (require 'cl)) | |
50 | |
51 (require 'gnus-util) | 51 (require 'gnus-util) |
52 (require 'gnus) | 52 (require 'gnus) |
53 (require 'custom) | 53 (require 'custom) |
54 | 54 |
55 (defgroup gnus-undo nil | 55 (defgroup gnus-undo nil |
84 | 84 |
85 (unless gnus-undo-mode-map | 85 (unless gnus-undo-mode-map |
86 (setq gnus-undo-mode-map (make-sparse-keymap)) | 86 (setq gnus-undo-mode-map (make-sparse-keymap)) |
87 | 87 |
88 (gnus-define-keys gnus-undo-mode-map | 88 (gnus-define-keys gnus-undo-mode-map |
89 "\M-\C-_" gnus-undo | 89 "\M-\C-_" gnus-undo |
90 "\C-_" gnus-undo | 90 "\C-_" gnus-undo |
91 "\C-xu" gnus-undo | 91 "\C-xu" gnus-undo |
92 ;; many people are used to type `C-/' on X terminals and get `C-_'. | 92 ;; many people are used to type `C-/' on X terminals and get `C-_'. |
93 [(control /)] gnus-undo)) | 93 [(control /)] gnus-undo)) |
94 | 94 |
95 (defun gnus-undo-make-menu-bar () | 95 (defun gnus-undo-make-menu-bar () |
96 ;; This is disabled for the time being. | 96 ;; This is disabled for the time being. |
97 (when nil | 97 (when nil |
98 (define-key-after (current-local-map) [menu-bar file gnus-undo] | 98 (define-key-after (current-local-map) [menu-bar file gnus-undo] |