From 8b2affc5917044c8fdee1f9a2c5696f16e12a4bd Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 10 Apr 2000 19:56:52 +0000
Subject: [PATCH] (ebrowse-tree-mode): Use propertized-buffer-identification.
 (ebrowse-update-member-buffer-mode-line): Likewise. (ebrowse--mode-strings):
 Removed. (ebrowse--mode-line-props): Removed.

---
 lisp/ChangeLog            |  6 ++++++
 lisp/progmodes/ebrowse.el | 35 +++++++----------------------------
 2 files changed, 13 insertions(+), 28 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ee516a79f04..f032b2da438 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2000-04-10  Gerd Moellmann  <gerd@gnu.org>
 
+	* progmodes/ebrowse.el (ebrowse-tree-mode): Use
+	propertized-buffer-identification.
+	(ebrowse-update-member-buffer-mode-line): Likewise.
+	(ebrowse--mode-strings): Removed.
+	(ebrowse--mode-line-props): Removed.
+
 	* files.el (auto-mode-alist): Add `EBROWSE'.
 
 	* progmodes/ebrowse.el (ebrowse-read): Skip forward over white
diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el
index 478b9a07184..3ebe8b83f29 100644
--- a/lisp/progmodes/ebrowse.el
+++ b/lisp/progmodes/ebrowse.el
@@ -642,11 +642,6 @@ Buffer-local in Ebrowse member buffers.")
 Buffer-local in Ebrowse member buffers.")
 
 
-(defvar ebrowse--mode-strings nil
-  "Strings displayed in the mode line.
-Buffer-local in Ebrowse tree buffers.")
-
-
 (defvar ebrowse--frame-configuration nil
   "Frame configuration saved when viewing a class/member in another frame.
 Buffer-local in Ebrowse buffers.")
@@ -663,11 +658,6 @@ Buffer-local in Ebrowse buffers.")
 Buffer-local in Ebrowse buffers.")
 
 
-(defvar ebrowse--mode-line-props nil
-  "Text properties of mode line strings in member buffers.
-Buffer-local in Ebrowse member buffers.")
-
-
 ;;; Temporaries used to communicate with `ebrowse-find-pattern'.
 
 (defvar ebrowse-temp-position-to-view nil)
@@ -1128,10 +1118,7 @@ E.g.\\[save-buffer] writes the tree to the file it was loaded from.
 Tree mode key bindings:
 \\{ebrowse-tree-mode-map}"
   (interactive)
-  (let* ((props (text-properties-at
-		 0
-		 (car (default-value 'mode-line-buffer-identification))))
-	 (ident (apply #'propertize "C++ Tree" props))
+  (let* ((ident (propertized-buffer-identification "C++ Tree"))
 	 header tree buffer-read-only)
     
     (kill-all-local-variables)
@@ -1153,7 +1140,6 @@ Tree mode key bindings:
 	      ebrowse--show-file-names-flag
 	      ebrowse--frozen-flag
 	      ebrowse--tree-obarray
-	      ebrowse--mode-strings
 	      revert-buffer-function))
     
     (setf ebrowse--show-file-names-flag nil
@@ -1161,7 +1147,7 @@ Tree mode key bindings:
 	  ebrowse--frozen-flag nil
 	  major-mode 'ebrowse-tree-mode
 	  mode-name "Ebrowse-Tree"
-	  mode-line-buffer-identification (list ident)
+	  mode-line-buffer-identification ident
 	  buffer-read-only t
 	  selective-display t
 	  selective-display-ellipses t
@@ -1183,10 +1169,6 @@ Tree mode key bindings:
 
 (defun ebrowse-update-tree-buffer-mode-line ()
   "Update the tree buffer mode line."
-  (setf ebrowse--mode-strings
-	(concat (if ebrowse--frozen-flag (or buffer-file-name
-					     ebrowse--tags-file-name))
-		(if (buffer-modified-p) "-**")))
   (ebrowse-rename-buffer (if ebrowse--frozen-flag
 			     (ebrowse-frozen-tree-buffer-name
 			      ebrowse--tags-file-name)
@@ -2279,13 +2261,10 @@ See 'Electric-command-loop' for a description of STATE and CONDITION."
 	    ebrowse--inline-display-flag
 	    ebrowse--const-display-flag
 	    ebrowse--pure-display-flag
-	    ebrowse--mode-line-props
 	    ebrowse--frozen-flag))	;buffer not automagically reused
-  (setq ebrowse--mode-line-props (text-properties-at
-				  0 (car (default-value
-					  'mode-line-buffer-identification)))
-	mode-name "Ebrowse-Members"
-	mode-line-buffer-identification 'ebrowse--member-mode-strings
+  (setq mode-name "Ebrowse-Members"
+	mode-line-buffer-identification
+	(propertized-buffer-identification "C++ Members")
 	buffer-read-only t
 	ebrowse--long-display-flag nil
 	ebrowse--attributes-flag t
@@ -2323,8 +2302,8 @@ See 'Electric-command-loop' for a description of STATE and CONDITION."
 		 (concat (ebrowse-class-name-displayed-in-member-buffer)
 			 " ")))
 	 (ident (concat name (ebrowse-member-list-name))))
-    (setq ebrowse--member-mode-strings
-	  (apply #'propertize ident ebrowse--mode-line-props))
+    (setq mode-line-buffer-identification
+	  (propertized-buffer-identification ident))
     (ebrowse-rename-buffer (if name ident ebrowse-member-buffer-name))
     (force-mode-line-update)))
 
-- 
2.39.5