changeset 38970:e144797b4ece

(Man-mode-line-format): Variable removed. (Man-mode): Change `mode-line-buffer-identification' instead of `mode-line-format'.
author Miles Bader <miles@gnu.org>
date Mon, 27 Aug 2001 12:55:22 +0000
parents 4847c26ce1fa
children 478f11ee1d4c
files lisp/man.el
diffstat 1 files changed, 4 insertions(+), 17 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/man.el	Mon Aug 27 09:15:57 2001 +0000
+++ b/lisp/man.el	Mon Aug 27 12:55:22 2001 +0000
@@ -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 @@
 (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 @@
 `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 @@
   (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))