Mercurial > emacs

comparison lisp/man.el @ 38970:e144797b4ece

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 5236fd76fef0
children 722fe545e535
comparison
equal deleted inserted replaced
38969:4847c26ce1fa 38970:e144797b4ece
1 ;;; man.el --- browse UNIX manual pages 1 ;;; man.el --- browse UNIX manual pages
2 2
3 ;; Copyright (C) 1993, 1994, 1996, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1993, 1994, 1996, 1997, 2001 Free Software Foundation, Inc.
4 4
5 ;; Author: Barry A. Warsaw <bwarsaw@cen.com> 5 ;; Author: Barry A. Warsaw <bwarsaw@cen.com>
6 ;; Maintainer: FSF 6 ;; Maintainer: FSF
7 ;; Keywords: help 7 ;; Keywords: help
8 ;; Adapted-By: ESR, pot 8 ;; Adapted-By: ESR, pot
222 (defvar Man-sed-command "sed" 222 (defvar Man-sed-command "sed"
223 "Command used for processing sed scripts.") 223 "Command used for processing sed scripts.")
224 224
225 (defvar Man-awk-command "awk" 225 (defvar Man-awk-command "awk"
226 "Command used for processing awk scripts.") 226 "Command used for processing awk scripts.")
227
228 (defvar Man-mode-line-format
229 '("-"
230 mode-line-mule-info
231 mode-line-modified
232 mode-line-frame-identification
233 mode-line-buffer-identification " "
234 global-mode-string
235 " " Man-page-mode-string
236 " %[(" mode-name mode-line-process minor-mode-alist "%n)%]--"
237 (line-number-mode "L%l--")
238 (column-number-mode "C%c--")
239 (-3 . "%p") "-%-")
240 "Mode line format for manual mode buffer.")
241 227
242 (defvar Man-mode-map nil 228 (defvar Man-mode-map nil
243 "Keymap for Man mode.") 229 "Keymap for Man mode.")
244 230
245 (defvar Man-mode-hook nil 231 (defvar Man-mode-hook nil
841 `Man-notify-method' What happens when manpage formatting is done. 827 `Man-notify-method' What happens when manpage formatting is done.
842 `Man-downcase-section-letters-flag' Force section letters to lower case. 828 `Man-downcase-section-letters-flag' Force section letters to lower case.
843 `Man-circular-pages-flag' Treat multiple manpage list as circular. 829 `Man-circular-pages-flag' Treat multiple manpage list as circular.
844 `Man-section-translations-alist' List of section numbers and their Un*x equiv. 830 `Man-section-translations-alist' List of section numbers and their Un*x equiv.
845 `Man-filter-list' Background manpage filter command. 831 `Man-filter-list' Background manpage filter command.
846 `Man-mode-line-format' Mode line format for Man mode buffers.
847 `Man-mode-map' Keymap bindings for Man mode buffers. 832 `Man-mode-map' Keymap bindings for Man mode buffers.
848 `Man-mode-hook' Normal hook run on entry to Man mode. 833 `Man-mode-hook' Normal hook run on entry to Man mode.
849 `Man-section-regexp' Regexp describing manpage section letters. 834 `Man-section-regexp' Regexp describing manpage section letters.
850 `Man-heading-regexp' Regexp describing section headers. 835 `Man-heading-regexp' Regexp describing section headers.
851 `Man-see-also-regexp' Regexp for SEE ALSO section (or your equiv). 836 `Man-see-also-regexp' Regexp for SEE ALSO section (or your equiv).
857 \\{Man-mode-map}" 842 \\{Man-mode-map}"
858 (interactive) 843 (interactive)
859 (setq major-mode 'Man-mode 844 (setq major-mode 'Man-mode
860 mode-name "Man" 845 mode-name "Man"
861 buffer-auto-save-file-name nil 846 buffer-auto-save-file-name nil
862 mode-line-format Man-mode-line-format 847 mode-line-buffer-identification
848 (list (default-value 'mode-line-buffer-identification)
849 " {" 'Man-page-mode-string "}")
863 truncate-lines t 850 truncate-lines t
864 buffer-read-only t) 851 buffer-read-only t)
865 (buffer-disable-undo (current-buffer)) 852 (buffer-disable-undo (current-buffer))
866 (auto-fill-mode -1) 853 (auto-fill-mode -1)
867 (use-local-map Man-mode-map) 854 (use-local-map Man-mode-map)