Mercurial > emacs

comparison lisp/gnus/gnus-topic.el @ 108215:8264830363ca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use define-minor-mode in Gnus where applicable. * mml.el (mml-mode): Use define-minor-mode. * gnus-undo.el (gnus-undo-mode-map): Initialize in declaration. (gnus-undo-mode): Use define-minor-mode. * gnus-sum.el (gnus-dead-summary-mode-map): Initialize in declaration. (gnus-dead-summary-mode): Use define-minor-mode. * gnus-salt.el (gnus-pick-mode-map, gnus-binary-mode-map): Initialize in declaration. (gnus-pick-mode, gnus-binary-mode): Use define-minor-mode. * gnus-ml.el (gnus-mailing-list-mode-map): Initialize in declaration. (gnus-mailing-list-mode): Use define-minor-mode. * gnus-draft.el (gnus-draft-mode-map): Initialize in declaration. (gnus-draft-mode): Use define-minor-mode. * gnus-dired.el (gnus-dired-mode-map): Initialize in declaration. (gnus-dired-mode): Use define-minor-mode.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 02 May 2010 20:41:45 -0400
parents 1d1d5d9bd884
children 8d09094063d0
comparison
equal deleted inserted replaced
108214:000b400531eb 108215:8264830363ca
1138 ["Edit parameters" gnus-topic-edit-parameters t]) 1138 ["Edit parameters" gnus-topic-edit-parameters t])
1139 ["List active" gnus-topic-list-active t])))) 1139 ["List active" gnus-topic-list-active t]))))
1140 1140
1141 (defun gnus-topic-mode (&optional arg redisplay) 1141 (defun gnus-topic-mode (&optional arg redisplay)
1142 "Minor mode for topicsifying Gnus group buffers." 1142 "Minor mode for topicsifying Gnus group buffers."
1143 ;; FIXME: Use define-minor-mode.
1143 (interactive (list current-prefix-arg t)) 1144 (interactive (list current-prefix-arg t))
1144 (when (eq major-mode 'gnus-group-mode) 1145 (when (eq major-mode 'gnus-group-mode)
1145 (make-local-variable 'gnus-topic-mode) 1146 (make-local-variable 'gnus-topic-mode)
1146 (setq gnus-topic-mode 1147 (setq gnus-topic-mode
1147 (if (null arg) (not gnus-topic-mode) 1148 (if (null arg) (not gnus-topic-mode)