* lisp/initz-list.el (initz-list-modeline-string): New constant
authorbg66 <bg66>
Sun, 28 Apr 2002 08:43:48 +0000 (08:43 +0000)
committerbg66 <bg66>
Sun, 28 Apr 2002 08:43:48 +0000 (08:43 +0000)
variable.
(initz-list-mode): Use it.
* lisp/initz-error.el (initz-error-modeline-string): New constant
variable.
(initz-error-mode): Use it.

ChangeLog
lisp/initz-error.el
lisp/initz-list.el

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>
index ca73761..905a2b8 100644 (file)
@@ -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)
 
   (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 ()
index aa8a7da..5350d6b 100644 (file)
@@ -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)
 
   (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