Last edit
Gelöscht: 40d39
<
use mailto:ino-qc@spotteswoode.dnsalias.org
i’m a gnus-newbie and am very interested in spam-fighting using especially ifile or other statistical methods not needing tracking spams with RegularExpressions.
(three weeks later) ok, so now i’m an experienced old hand regarding emacs 
(a year later: it begins to dawn to me that i’ll propably remain an emacs newbie for the rest of my life.)
and now i want to defadvice other-window to change the mode-line, because i find myself typing to the wrong window all the time. (time passes …) here’s what i did:
(defun cf-make-mode-line-inactive nil
"make a modeline indicator for an inactive window"
(if (not (boundp 'cf-local-mode-line))
(set (make-local-variable 'cf-local-mode-line)
(cond
((boundp 'mode-line-format) mode-line-format)
(t
(default-value 'mode-line-format)))))
(cond
((or (eq this-command 'other-window)
(eq this-command 'select-window))
(setq mode-line-format cf-local-mode-line))))
(defun cf-make-mode-line-active nil
"make a modeline indicator for an active window"
(if (not (boundp 'cf-local-mode-line))
(set (make-local-variable 'cf-local-mode-line)
(cond
((boundp 'mode-line-format) mode-line-format)
(t
(default-value 'mode-line-format)))))
(cond
((or (eq this-command 'other-window)
(eq this-command 'select-window))
(setq mode-line-format
(cons "^" cf-local-mode-line))
(force-mode-line-update t))))
;
(add-hook 'pre-command-hook 'cf-make-mode-line-inactive)
(add-hook 'post-command-hook 'cf-make-mode-line-active)pages initiated by me: ManHtml