chiark / gitweb /
el/dot-emacs.el: Restore mode lines to tag-browser windows.
authorMark Wooding <mdw@distorted.org.uk>
Thu, 20 Jul 2017 00:22:43 +0000 (01:22 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Thu, 20 Jul 2017 00:22:43 +0000 (01:22 +0100)
It's hard to tell which is the selected window without the mode lines.

el/dot-emacs.el

index 4c2af202959aa781fe07686404693ea67b5ab7e9..3ea5cd5ab9fe0fc11e68cbd0a161d796a98b9c14 100644 (file)
@@ -3892,6 +3892,13 @@ (defun mdw-mpc-previous-line (arg)
   (beginning-of-line)
   (forward-line (- arg)))
 
+(defun mdw-mpc-hack-tagbrowsers ()
+  (setq-local mode-line-format
+             '("%e"
+               mode-line-frame-identification
+               mode-line-buffer-identification)))
+(add-hook 'mpc-tagbrowser-mode-hook 'mdw-mpc-hack-tagbrowsers)
+
 (eval-after-load "mpc"
   '(progn
      (define-key mpc-mode-map "m" 'mdw-mpc-select)