diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-05-02 22:29:46 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-05-02 22:29:46 -0400 |
| commit | 56eb09046e00ac7ee6d3d3d752cb1ee664b7e062 (patch) | |
| tree | 6ff481ffba16576053b3cb2a8ad24a4f66bdec4a /lisp/mh-e | |
| parent | 063371f2b0dc2519db3abcbe54955167bde8ca9e (diff) | |
| download | emacs-56eb09046e00ac7ee6d3d3d752cb1ee664b7e062.tar.gz | |
Use define-minor-mode where applicable.
* mh-show.el (mh-showing-mode): Move function to mh-e.el.
* mh-e.el (mh-showing-mode):
* url-dired.el (url-dired-minor-mode):
* org-table.el (orgtbl-mode):
* view.el (view-mode):
* type-break.el (type-break-query-mode)
(type-break-mode-line-message-mode):
* textmodes/reftex.el (reftex-mode):
* term/vt100.el (vt100-wide-mode):
* tar-mode.el (tar-subfile-mode):
* savehist.el (savehist-mode):
* ibuf-ext.el (ibuffer-auto-mode):
* composite.el (auto-composition-mode):
* progmodes/vhdl-mode.el (vhdl-electric-mode, vhdl-stutter-mode):
Use define-minor-mode.
(vhdl-mode): Use static mode-line format.
(vhdl-mode-line-update): Delete.
(vhdl-create-mode-menu, vhdl-activate-customizations)
(vhdl-hs-minor-mode): Don't bother calling it.
Diffstat (limited to 'lisp/mh-e')
| -rw-r--r-- | lisp/mh-e/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/mh-e/mh-e.el | 6 | ||||
| -rw-r--r-- | lisp/mh-e/mh-show.el | 10 |
3 files changed, 9 insertions, 12 deletions
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 4584aa0bbd7..8ed4279721e 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,8 @@ +2010-05-03 Stefan Monnier <monnier@iro.umontreal.ca> + + * mh-show.el (mh-showing-mode): Move function to mh-e.el. + * mh-e.el (mh-showing-mode): Use define-minor-mode. + 2010-03-24 Juanma Barranquero <lekktu@gmail.com> * mh-scan.el (mh-scan-cmd-note-width): Doc fix. diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el index 3639920f514..9a2bccbc967 100644 --- a/lisp/mh-e/mh-e.el +++ b/lisp/mh-e/mh-e.el @@ -287,8 +287,10 @@ Elements have the form (SEQUENCE . MESSAGES).") (defvar mh-show-buffer nil "Buffer that displays message for this folder.") -(defvar mh-showing-mode nil - "If non-nil, show the message in a separate window.") +(define-minor-mode mh-showing-mode + "Minor mode to show the message in a separate window." + ;; FIXME: maybe this should be moved to mh-show.el. + :lighter " Show") (defvar mh-view-ops nil "Stack of operations that change the folder view. diff --git a/lisp/mh-e/mh-show.el b/lisp/mh-e/mh-show.el index 766b6982d98..58d52205079 100644 --- a/lisp/mh-e/mh-show.el +++ b/lisp/mh-e/mh-show.el @@ -170,16 +170,6 @@ displayed." (run-hooks 'mh-show-hook))) ;;;###mh-autoload -(defun mh-showing-mode (&optional arg) - "Change whether messages should be displayed. - -With ARG, display messages if ARG is positive, otherwise don't display them." - (setq mh-showing-mode - (if (null arg) - (not mh-showing-mode) - (> (prefix-numeric-value arg) 0)))) - -;;;###mh-autoload (defun mh-start-of-uncleaned-message () "Position uninteresting headers off the top of the window." (let ((case-fold-search t)) |