projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(gnus-registry-cache-file): updated to use
[gnus]
/
lisp
/
gnus-undo.el
diff --git
a/lisp/gnus-undo.el
b/lisp/gnus-undo.el
index
6d7e4ab
..
6557f5a
100644
(file)
--- a/
lisp/gnus-undo.el
+++ b/
lisp/gnus-undo.el
@@
-1,5
+1,7
@@
;;; gnus-undo.el --- minor mode for undoing in Gnus
;;; gnus-undo.el --- minor mode for undoing in Gnus
-;; Copyright (C) 1996,97,98,99 Free Software Foundation, Inc.
+
+;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2003
+;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news
@@
-48,7
+50,6
@@
(require 'gnus-util)
(require 'gnus)
(require 'gnus-util)
(require 'gnus)
-(require 'custom)
(defgroup gnus-undo nil
"Undoing in Gnus buffers."
(defgroup gnus-undo nil
"Undoing in Gnus buffers."
@@
-84,11
+85,11
@@
(setq gnus-undo-mode-map (make-sparse-keymap))
(gnus-define-keys gnus-undo-mode-map
(setq gnus-undo-mode-map (make-sparse-keymap))
(gnus-define-keys gnus-undo-mode-map
- "\M-\C-_" gnus-undo
- "\C-_" gnus-undo
- "\C-xu" gnus-undo
- ;; many people are used to type `C-/' on X terminals and get `C-_'.
- [(control /)] gnus-undo))
+
"\M-\C-_" gnus-undo
+
"\C-_" gnus-undo
+
"\C-xu" gnus-undo
+
;; many people are used to type `C-/' on X terminals and get `C-_'.
+
[(control /)] gnus-undo))
(defun gnus-undo-make-menu-bar ()
;; This is disabled for the time being.
(defun gnus-undo-make-menu-bar ()
;; This is disabled for the time being.
@@
-111,8
+112,8
@@
;; Set up the menu.
(when (gnus-visual-p 'undo-menu 'menu)
(gnus-undo-make-menu-bar))
;; Set up the menu.
(when (gnus-visual-p 'undo-menu 'menu)
(gnus-undo-make-menu-bar))
- (
gnus-
add-minor-mode 'gnus-undo-mode "" gnus-undo-mode-map)
- (make-local-hook 'post-command-hook)
+ (add-minor-mode 'gnus-undo-mode "" gnus-undo-mode-map)
+ (
gnus-
make-local-hook 'post-command-hook)
(add-hook 'post-command-hook 'gnus-undo-boundary nil t)
(gnus-run-hooks 'gnus-undo-mode-hook)))
(add-hook 'post-command-hook 'gnus-undo-boundary nil t)
(gnus-run-hooks 'gnus-undo-mode-hook)))