GNU bug report logs - #53776
Modeline indicator when using define-minor-mode

Previous Next

Full log

View this message in rfc822 format

From: Michael Heerdegen <michael_heerdegen <at> web.de>
To: Stephen Berman <stephen.berman <at> gmx.net>
Cc: 53776 <at> debbugs.gnu.org, goncholden <goncholden <at> protonmail.com>
Subject: bug#53776: Modeline indicator when using define-minor-mode
Date: Sun, 06 Feb 2022 22:52:13 +0100

Stephen Berman <stephen.berman <at> gmx.net> writes:

> Nevertheless, I would be interested in trying it and seeing the code.
> Can you post it?

I don't have it any more.  The basic idea was like

#+begin_src emacs-lisp
(defvar ml-scroll-amnt 0)

(setq-default
 mode-line-format
 `(:eval (substring (format-mode-line ',mode-line-format)
                    ml-scroll-amnt)))
#+end_src

and let mouse-4 and mouse-5 over the mode-line de- and increase
`ml-scroll-amnt'.  That's all.

Be careful when the variable binding of `mode-line-format' changes - the
above hack won't survive that, so when a certain mode redefines
`mode-line-format' (with other words: doesn't use the default value,
like Gnus), you need to do the above after the variable has been set.

Michael.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.