Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-undo.el @ 122:d2f30a177268 r20-1b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b14
author cvs
date Mon, 13 Aug 2007 09:26:03 +0200
parents 7d55a9ba150c
children 585fb297b004
comparison
equal deleted inserted replaced
121:419db647c998 122:d2f30a177268
100 ;; (push '(gnus-undo-mode " Undo") minor-mode-alist)) 100 ;; (push '(gnus-undo-mode " Undo") minor-mode-alist))
101 (unless (assq 'gnus-undo-mode minor-mode-map-alist) 101 (unless (assq 'gnus-undo-mode minor-mode-map-alist)
102 (push (cons 'gnus-undo-mode gnus-undo-mode-map) 102 (push (cons 'gnus-undo-mode gnus-undo-mode-map)
103 minor-mode-map-alist)) 103 minor-mode-map-alist))
104 (make-local-hook 'post-command-hook) 104 (make-local-hook 'post-command-hook)
105 (gnus-add-hook 'post-command-hook 'gnus-undo-boundary nil t) 105 (add-hook 'post-command-hook 'gnus-undo-boundary nil t)
106 (add-hook 'gnus-summary-exit-hook 'gnus-undo-boundary) 106 (add-hook 'gnus-summary-exit-hook 'gnus-undo-boundary)
107 (run-hooks 'gnus-undo-mode-hook))) 107 (run-hooks 'gnus-undo-mode-hook)))
108 108
109 ;;; Interface functions. 109 ;;; Interface functions.
110 110