* lisp/initz-list.el (initz-list-modeline-string): New constant

[elisp/initz.git] / lisp / initz-list.el

diff --git a/lisp/initz-list.el b/lisp/initz-list.el
index aa8a7da..5350d6b 100644 (file)
--- a/lisp/initz-list.el
+++ b/lisp/initz-list.el
@@ -99,6 +99,9 @@
 (defconst initz-list-enter-message-format
   "In this buffer, type %s to select the module name under point.\n")
 
+(defconst initz-list-modeline-string
+  "Initz")
+
 ;; Initz list mode is suitable only for specially formatted data.
 (put 'initz-list-mode 'mode-class 'special)
 
@@ -437,6 +440,7 @@
   (when (or (featurep 'xemacs) (< emacs-major-version 21))
     (make-local-hook 'post-command-hook))
   (add-hook 'post-command-hook 'initz-list-print-file)
+  (setq mode-line-buffer-identification initz-list-modeline-string)
   (run-hooks 'initz-list-mode-hook))
 
 ;;;###autoload