From: bg66 <bg66>
Date: Sun, 28 Apr 2002 08:43:48 +0000 (+0000)
Subject: * lisp/initz-list.el (initz-list-modeline-string): New constant
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ebfcbc57b58ca6bca9283eb1059a83b7bae76426;p=elisp%2Finitz.git

* 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
--- 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
--- 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
--- 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