Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-undo.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 0293115a14e9
children
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
94 ;;(unless (assq 'gnus-undo-mode minor-mode-alist) 94 ;;(unless (assq 'gnus-undo-mode minor-mode-alist)
95 ;; (push '(gnus-undo-mode " Undo") minor-mode-alist)) 95 ;; (push '(gnus-undo-mode " Undo") minor-mode-alist))
96 (unless (assq 'gnus-undo-mode minor-mode-map-alist) 96 (unless (assq 'gnus-undo-mode minor-mode-map-alist)
97 (push (cons 'gnus-undo-mode gnus-undo-mode-map) 97 (push (cons 'gnus-undo-mode gnus-undo-mode-map)
98 minor-mode-map-alist)) 98 minor-mode-map-alist))
99 (gnus-make-local-hook 'post-command-hook) 99 (make-local-hook 'post-command-hook)
100 (gnus-add-hook 'post-command-hook 'gnus-undo-boundary nil t) 100 (gnus-add-hook 'post-command-hook 'gnus-undo-boundary nil t)
101 (add-hook 'gnus-summary-exit-hook 'gnus-undo-boundary) 101 (add-hook 'gnus-summary-exit-hook 'gnus-undo-boundary)
102 (run-hooks 'gnus-undo-mode-hook))) 102 (run-hooks 'gnus-undo-mode-hook)))
103 103
104 ;;; Interface functions. 104 ;;; Interface functions.