Mercurial > emacs
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))