From xemacs-m  Mon Apr  7 18:27:18 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id SAA15630
	for <xemacs-beta@xemacs.org>; Mon, 7 Apr 1997 18:27:17 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id BAA17977; Tue, 8 Apr 1997 01:27:04 +0200 (MET DST)
Sender: hniksic@public.srce.hr
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: Custom support in man.el
X-URL: ftp://gnjilux.cc.fer.hr/pub/unix/util/wget/
X-Attribution: Hrv
X-Face: &}4JQk=L;e.~x+|eo]#DGk@x3~ed!.~lZ}YQcYb7f[WL9L'Z*+OyA\nA
        EL1M(".[qvI#a2E6WYI5>>e7'@_)3Ol9p|Nn2wNa/;~06jL*B%tTcn/X
        vhAu7qeES0\|MF%$;sI#yn1+y"
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 08 Apr 1997 01:27:04 +0200
Message-ID: <kig3et276t3.fsf@jagor.srce.hr>
Lines: 104
X-Mailer: Gnus v5.4.42/XEmacs 19.15

I've added custom support to man.el.  Here is the patch:

--- man.el.orig	Tue Apr  8 01:03:21 1997
+++ man.el	Tue Apr  8 01:20:40 1997
@@ -30,17 +30,29 @@
 ;; [ older changelog entries removed, since they're all about code that
 ;;   I've deleted. ]
 
-(defvar Manual-program "man" "\
-*Name of the program to invoke in order to format the source man pages.")
+(defgroup man nil
+  "Browse manual pages"
+  :group 'help)
+
+(defcustom Manual-program "man" "\
+*Name of the program to invoke in order to format the source man pages."
+  :type 'string
+  :group 'man)
 
-(defvar Manual-buffer-view-mode t "\
+(defcustom Manual-buffer-view-mode t "\
 *Whether manual buffers should be placed in view-mode.
 nil means leave the buffer in fundamental-mode in another window.
 t means use `view-buffer' to display the man page in the current window.
-Any other value means use `view-buffer-other-window'.")
-
-(defvar Manual-mode-hook nil
-  "Function or functions run on entry to Manual-mode.")
+Any other value means use `view-buffer-other-window'."
+  :type '(choice (const :tag "fundamental-mode other window" nil)
+		 (const :tag "view-mode current window" t)
+		 (const :tag "view-mode other window" other))
+  :group 'man)
+
+(defcustom Manual-mode-hook nil
+  "Function or functions run on entry to Manual-mode."
+  :type 'hook
+  :group 'man)
 
 (defvar Manual-page-history nil "\
 A list of names of previously visited man page buffers.")
@@ -48,7 +60,7 @@
 
 ;; New variables.
 
-(defvar Manual-use-rosetta-man (not (null (locate-file "rman" exec-path))) "\
+(defcustom Manual-use-rosetta-man (not (null (locate-file "rman" exec-path))) "\
 If non-nil, use RosettaMan (rman) to filter man pages.
 This makes man-page cleanup virtually instantaneous, instead of
 potentially taking a long time.
@@ -112,29 +124,26 @@
 
 
 Notes for HTML consumers: This filter does real (heuristic)
-parsing--no <PRE>!  Man page references are turned into hypertext links.")
+parsing--no <PRE>!  Man page references are turned into hypertext links."
+  :type 'boolean
+  :group 'man)
+
+(defface man-italic '((t (:italic t)))
+  "Manual italics face"
+  :group 'man)
+
+(defface man-bold '((t (:bold t)))
+  "Manual bold face"
+  :group 'man)
+
+(defface man-heading '((t (:bold t)))
+  "Manual headings face"
+  :group 'man)
+
+(defface man-xref '((t (:underline t)))
+  "Manual xrefs face"
+  :group 'man)
 
-(make-face 'man-italic)
-(or (face-differs-from-default-p 'man-italic)
-    (copy-face 'italic 'man-italic))
-;; XEmacs (from Darrell Kindred): underlining is annoying due to
-;; large blank spaces in this face.
-;; (or (face-differs-from-default-p 'man-italic)
-;;    (set-face-underline-p 'man-italic t))
-
-(make-face 'man-bold)
-(or (face-differs-from-default-p 'man-bold)
-    (copy-face 'bold 'man-bold))
-(or (face-differs-from-default-p 'man-bold)
-    (copy-face 'man-italic 'man-bold))
-
-(make-face 'man-heading)
-(or (face-differs-from-default-p 'man-heading)
-    (copy-face 'man-bold 'man-heading))
-
-(make-face 'man-xref)
-(or (face-differs-from-default-p 'man-xref)
-    (set-face-underline-p 'man-xref t))
 
 (defvar Manual-mode-map
   (let ((m (make-sparse-keymap)))

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
main(){printf(&unix["\021%six\012\0"],(unix)["have"]+"fun"-0x60);}

