diff options
| author | Miles Bader <miles@gnu.org> | 2001-08-27 12:55:22 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2001-08-27 12:55:22 +0000 |
| commit | c7cbaf4a0eef175aa464729b5e25e9a957763e60 (patch) | |
| tree | 988e52cb73b1eb59461481a0cc1487fea3f6c585 /lisp/man.el | |
| parent | 32171635b95099c3cfc28fe0d004c935584655aa (diff) | |
| download | emacs-c7cbaf4a0eef175aa464729b5e25e9a957763e60.tar.gz | |
(Man-mode-line-format): Variable removed.
(Man-mode): Change `mode-line-buffer-identification' instead of
`mode-line-format'.
Diffstat (limited to 'lisp/man.el')
| -rw-r--r-- | lisp/man.el | 21 |
1 files changed, 4 insertions, 17 deletions
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)) |