From: "Pascal J. Bourguignon" <pjb@informatimago.com>
To: help-gnu-emacs@gnu.org
Subject: Re: How do I find out what minor modes are in effect?
Date: Wed, 11 Apr 2012 17:54:43 +0200 [thread overview]
Message-ID: <8762d6z2kc.fsf@kuiper.lan.informatimago.com> (raw)
In-Reply-To: mailman.1053.1334152093.20052.help-gnu-emacs@gnu.org
Doug Lewan <dougl@shubertticketing.com> writes:
> I'm writing a function that needs to change the major mode to do its stuff properly.
> That can turn off minor modes too.
> The obvious polite thing to do is turn them all back on when I'm done.
>
> Resetting the major mode is easy:
> (defun vertical-text (text)
> (let ((mode-to-restore major-mode)
> (picture-mode)
> ...
> (funcall mode-to-restore)))
>
> How do I find out what minor modes are in effect?
(defun current-minor-modes (&optional buffer)
"The list of the minor modes currently active in the buffer (or current buffer)."
(let ((result '()))
(with-current-buffer (or buffer (current-buffer))
(dolist (mode minor-mode-list result)
(when (and (boundp mode) (symbol-value mode))
(push mode result))))))
> And in what order they were invoked?
Depending on where they're called, in the various hooks and init files.
> (They can stomp on each other and
Indeed.
Have a look at with-mode-local too.
--
__Pascal Bourguignon__ http://www.informatimago.com/
A bad day in () is better than a good day in {}.
next parent reply other threads:[~2012-04-11 15:54 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <mailman.1053.1334152093.20052.help-gnu-emacs@gnu.org>
2012-04-11 15:54 ` Pascal J. Bourguignon [this message]
2012-04-11 18:09 ` How do I find out what minor modes are in effect? Stefan Monnier
[not found] <mailman.1140.1334231241.20052.help-gnu-emacs@gnu.org>
2012-04-12 13:33 ` Stefan Monnier
2012-04-12 11:49 Doug Lewan
-- strict thread matches above, loose matches on Subject: below --
2012-04-11 13:49 Doug Lewan
2012-04-11 13:58 ` Jambunathan K
2012-04-11 14:28 ` Doug Lewan
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=8762d6z2kc.fsf@kuiper.lan.informatimago.com \
--to=pjb@informatimago.com \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.