1;;; i18n-man-en.el --- browse UNIX English manual pages
2;;; $Id: i18n-man-en.el,v 1.2 1998/09/20 16:28:15 iwasaki Exp $:
3
4;;;  This file part of i18n-man - i18nized man,
5;;;  a GNU Emacs front end to browse the UNIX manual pages in various languages.
6
7;;; Everyone is granted permission to copy, modify and redistribute
8;;; this program.
9
10;;; HISTORY
11;;;
12;;;	Written by Mitsuru IWASAKI 11 Sep, 1998 (FreeBSD Japanese man Project)
13;;;
14
15;;; Suggested USAGE
16;;;
17;;;  In your ~/.emacs
18;;;(autoload 'jman "i18n-man-ja" nil t)
19;;;(autoload 'eman "i18n-man-en" nil t)
20;;;  then
21;;;  M-x jman
22;;;    to get a Japanese manual page thru jman(1) and put it in a buffer.
23;;;  M-x eman
24;;;    to get a English manual page thru man(1) and put it in a buffer.
25
26(require 'i18n-man)
27(defun i18n-Man-en-init-defvars ()
28  "Used for initialising variables for English i18n-man."
29  (i18n-Man-init-lang-depend-variables)
30  (setq i18n-manual-lang-depend-program "man")
31  (setq i18n-Man-lang-depend-language-string "English")
32  (setq i18n-Man-lang-depend-heading-regexp
33	"^\\([A-Z][A-Z ]+\\)$")
34  (setq i18n-Man-lang-depend-see-also-regexp
35	"SEE ALSO")
36  (setq i18n-Man-lang-depend-first-heading-regexp
37	"^[ \t]*NAME$\\|^[ \t]*No manual entry fo.*$"))
38
39;;;###autoload
40(defun eman ()
41  "i18n-man for English manpage."
42  (interactive)
43  (i18n-Man-en-init-defvars)
44  (call-interactively 'i18n-man))
45
46(provide 'eman)
47
48;;; i18n-man-en.el ends here
49