variable.
(initz-list-mode): Use it.
* lisp/initz-error.el (initz-error-modeline-string): New constant
variable.
(initz-error-mode): Use it.
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>
(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 ()
(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