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

variable.
(initz-list-mode): Use it.
* lisp/initz-error.el (initz-error-modeline-string): New constant
variable.
(initz-error-mode): Use it.

diff --git a/ChangeLog b/ChangeLog
index a3b5c41..003c8f4 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
 2002-04-28  OHASHI Akira  <bg66@koka-in.org>
 
+       * lisp/initz-list.el (initz-list-modeline-string): New constant
+       variable.
+       (initz-list-mode): Use it.
+       * lisp/initz-error.el (initz-error-modeline-string): New constant
+       variable.
+       (initz-error-mode): Use it.
+
        * README (Development): New section.
 
 2002-04-27  OHASHI Akira  <bg66@koka-in.org>

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 ()

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