From: Miles Bader <miles@gnu.org>
Date: Mon, 27 Aug 2001 12:55:22 +0000 (+0000)
Subject: (Man-mode-line-format): Variable removed.
X-Git-Tag: emacs-pretest-21.0.105~67
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c7cbaf4a0eef175aa464729b5e25e9a957763e60;p=emacs.git

(Man-mode-line-format): Variable removed.
(Man-mode): Change `mode-line-buffer-identification' instead of
`mode-line-format'.
---

diff --git a/lisp/man.el b/lisp/man.el
index 5e3fc280d29..550d1c5f040 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -1,6 +1,6 @@
 ;;; man.el --- browse UNIX manual pages
 
-;; Copyright (C) 1993, 1994, 1996, 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1996, 1997, 2001 Free Software Foundation, Inc.
 
 ;; Author: Barry A. Warsaw <bwarsaw@cen.com>
 ;; Maintainer: FSF
@@ -225,20 +225,6 @@ the associated section number."
 (defvar Man-awk-command "awk"
   "Command used for processing awk scripts.")
 
-(defvar Man-mode-line-format
-  '("-"
-    mode-line-mule-info
-    mode-line-modified
-    mode-line-frame-identification
-    mode-line-buffer-identification "  "
-    global-mode-string
-    " " Man-page-mode-string
-    "  %[(" mode-name mode-line-process minor-mode-alist "%n)%]--"
-    (line-number-mode "L%l--")
-    (column-number-mode "C%c--")
-    (-3 . "%p") "-%-")
-  "Mode line format for manual mode buffer.")
-
 (defvar Man-mode-map nil
   "Keymap for Man mode.")
 
@@ -843,7 +829,6 @@ The following variables may be of some use.  Try
 `Man-circular-pages-flag'	Treat multiple manpage list as circular.
 `Man-section-translations-alist' List of section numbers and their Un*x equiv.
 `Man-filter-list'		Background manpage filter command.
-`Man-mode-line-format'		Mode line format for Man mode buffers.
 `Man-mode-map'			Keymap bindings for Man mode buffers.
 `Man-mode-hook'			Normal hook run on entry to Man mode.
 `Man-section-regexp'		Regexp describing manpage section letters.
@@ -859,7 +844,9 @@ The following key bindings are currently in effect in the buffer:
   (setq major-mode 'Man-mode
 	mode-name "Man"
 	buffer-auto-save-file-name nil
-	mode-line-format Man-mode-line-format
+	mode-line-buffer-identification
+	(list (default-value 'mode-line-buffer-identification)
+	      " {" 'Man-page-mode-string "}")
 	truncate-lines t
 	buffer-read-only t)
   (buffer-disable-undo (current-buffer))