Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-undo.el @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 585fb297b004
children
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
93 (set (make-local-variable 'gnus-undo-boundary) t) 93 (set (make-local-variable 'gnus-undo-boundary) t)
94 (when gnus-undo-mode 94 (when gnus-undo-mode
95 ;; Set up the menu. 95 ;; Set up the menu.
96 (when (gnus-visual-p 'undo-menu 'menu) 96 (when (gnus-visual-p 'undo-menu 'menu)
97 (gnus-undo-make-menu-bar)) 97 (gnus-undo-make-menu-bar))
98 ;; Don't display anything in the mode line -- too annoying. 98 (gnus-add-minor-mode 'gnus-undo-mode "" gnus-undo-mode-map)
99 ;;(unless (assq 'gnus-undo-mode minor-mode-alist)
100 ;; (push '(gnus-undo-mode " Undo") minor-mode-alist))
101 (unless (assq 'gnus-undo-mode minor-mode-map-alist)
102 (push (cons 'gnus-undo-mode gnus-undo-mode-map)
103 minor-mode-map-alist))
104 (make-local-hook 'post-command-hook) 99 (make-local-hook 'post-command-hook)
105 (add-hook 'post-command-hook 'gnus-undo-boundary nil t) 100 (add-hook 'post-command-hook 'gnus-undo-boundary nil t)
106 (run-hooks 'gnus-undo-mode-hook))) 101 (run-hooks 'gnus-undo-mode-hook)))
107 102
108 ;;; Interface functions. 103 ;;; Interface functions.