comparison lisp/woman.el @ 90381:65ca8fb66a0d

Revision: [e-mail]/emacs--unicode--0--patch-54 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 190-203) - Update from CVS - Undo incorrect merge of etc/images/README from Gnus 5.10 - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 74-80) - Update from CVS - Update from CVS: README: Addition from 5.10.6 tar ball.

90380:4bf7966e0788

;; I also thank the following for helpful suggestions, bug reports,
;; code fragments, general interest, etc.:
;;   Jari Aalto <[e-mail]>
;;   Dean Andrews <[e-mail]>
;;   Juanma Barranquero <[e-mail]>
;;   Karl Berry <[e-mail]>
;;   Jim Chapman <[e-mail]>
;;   Kin Cho <[e-mail]>
;;   Frederic Corne <[e-mail]>
;;   Peter Craft <[e-mail]>

(defvar woman-version "0.551 (beta)" "WoMan version information.")

(require 'man)
(require 'button)
(define-button-type 'WoMan-xref-man-page 
  :supertype 'Man-abstract-xref-man-page
  'func 'woman)

(eval-when-compile			; to avoid compiler warnings
  (require 'dired)
  (require 'apropos))

90381:65ca8fb66a0d

;; I also thank the following for helpful suggestions, bug reports,
;; code fragments, general interest, etc.:
;;   Jari Aalto <[e-mail]>
;;   Dean Andrews <[e-mail]>
;;   Juanma Barranquero <[e-mail]>
;;   Karl Berry <[e-mail]>
;;   Jim Chapman <[e-mail]>
;;   Kin Cho <[e-mail]>
;;   Frederic Corne <[e-mail]>
;;   Peter Craft <[e-mail]>

(defvar woman-version "0.551 (beta)" "WoMan version information.")

(require 'man)
(require 'button)
(define-button-type 'WoMan-xref-man-page
  :supertype 'Man-abstract-xref-man-page
  'func (lambda (arg)
	  (woman
	   ;; `woman' cannot deal with arguments that contain a
	   ;; section name, like close(2), so strip the section name.
	   (if (string-match Man-reference-regexp arg)
	       (substring arg 0 (match-end 1))
	     arg))))

(eval-when-compile			; to avoid compiler warnings
  (require 'dired)
  (require 'apropos))