comparison lisp/gnus/gnus-undo.el @ 56927:55fd4f77387a after-merge-gnus-5_10

Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523 Merge from emacs--gnus--5.10, gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/emacs--gnus--5.10--base-0 tag of miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-464 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-1 Import from CVS branch gnus-5_10-branch * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-2 Merge from lorentey@elte.hu--2004/emacs--multi-tty--0, emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-3 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-4 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-18 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-19 Remove autoconf-generated files from archive * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-20 Update from CVS
author Miles Bader <miles@gnu.org>
date Sat, 04 Sep 2004 13:13:48 +0000
parents 695cf19ef79e
children 18a818a2ee7c cce1c0ee76ee
comparison
equal deleted inserted replaced
56926:f8e248e9a717 56927:55fd4f77387a
1 ;;; gnus-undo.el --- minor mode for undoing in Gnus 1 ;;; gnus-undo.el --- minor mode for undoing in Gnus
2 2
3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000 3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2003
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
7 ;; Keywords: news 7 ;; Keywords: news
8 8
112 (when gnus-undo-mode 112 (when gnus-undo-mode
113 ;; Set up the menu. 113 ;; Set up the menu.
114 (when (gnus-visual-p 'undo-menu 'menu) 114 (when (gnus-visual-p 'undo-menu 'menu)
115 (gnus-undo-make-menu-bar)) 115 (gnus-undo-make-menu-bar))
116 (gnus-add-minor-mode 'gnus-undo-mode "" gnus-undo-mode-map) 116 (gnus-add-minor-mode 'gnus-undo-mode "" gnus-undo-mode-map)
117 (make-local-hook 'post-command-hook) 117 (gnus-make-local-hook 'post-command-hook)
118 (add-hook 'post-command-hook 'gnus-undo-boundary nil t) 118 (add-hook 'post-command-hook 'gnus-undo-boundary nil t)
119 (gnus-run-hooks 'gnus-undo-mode-hook))) 119 (gnus-run-hooks 'gnus-undo-mode-hook)))
120 120
121 ;;; Interface functions. 121 ;;; Interface functions.
122 122