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

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

diff --git a/lisp/initz-error.el b/lisp/initz-error.el
index ca73761..905a2b8 100644 (file)
--- a/lisp/initz-error.el
+++ b/lisp/initz-error.el
@@ -84,6 +84,9 @@
 (defconst initz-error-load-message-header
   "Load error:")
 
+(defconst initz-error-modeline-string
+  "Initz")
+
 ;; Initz error mode is suitable only for specially formatted data.
 (put 'initz-error-mode 'mode-class 'special)
 
@@ -248,6 +251,7 @@
   (when (or (featurep 'xemacs) (< emacs-major-version 21))
     (make-local-hook 'post-command-hook))
   (add-hook 'post-command-hook 'initz-error-print-file)
+  (setq mode-line-buffer-identification initz-error-modeline-string)
   (run-hooks 'initz-error-mode-hook))
 
 (defun initz-error ()