1 |
;;; gnus-undo.el --- minor mode for undoing in Gnus |
;;; gnus-undo.el --- minor mode for undoing in Gnus |
2 |
|
|
3 |
;; Copyright (C) 1996, 1997, 1998, 1999, 2000 |
;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2003 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
114 |
(when (gnus-visual-p 'undo-menu 'menu) |
(when (gnus-visual-p 'undo-menu 'menu) |
115 |
(gnus-undo-make-menu-bar)) |
(gnus-undo-make-menu-bar)) |
116 |
(gnus-add-minor-mode 'gnus-undo-mode "" gnus-undo-mode-map) |
(gnus-add-minor-mode 'gnus-undo-mode "" gnus-undo-mode-map) |
117 |
(make-local-hook 'post-command-hook) |
(gnus-make-local-hook 'post-command-hook) |
118 |
(add-hook 'post-command-hook 'gnus-undo-boundary nil t) |
(add-hook 'post-command-hook 'gnus-undo-boundary nil t) |
119 |
(gnus-run-hooks 'gnus-undo-mode-hook))) |
(gnus-run-hooks 'gnus-undo-mode-hook))) |
120 |
|
|