Re: Links in WoMan buffer should not call `man'

[Chong Yidong <cyd@stupidchicken.com>]

Reiner Steib <reinersteib+gmane@imap.cc> writes:

> Hi,
>
> in GNU Emacs 22.0.50.3 (i686-pc-linux-gnu, GTK+ Version 2.8.3) of
> 2006-08-24 on viandante, following manual links in WoMan buffers
> should create new WoMan buffers, not new man buffers.

This hack should fix it.

*** emacs/lisp/woman.el.~1.44.~	2006-04-17 18:12:14.000000000 -0400
--- emacs/lisp/woman.el	2006-08-25 18:12:59.000000000 -0400
***************
*** 1750,1756 ****
    (define-key woman-mode-map [M-mouse-2] 'woman-follow-word)
  
    ;; We don't need to call `man' when we are in `woman-mode'.
!   (define-key woman-mode-map [remap man] 'woman))
  
  (defun woman-follow-word (event)
    "Run WoMan with word under mouse as topic.
--- 1750,1767 ----
    (define-key woman-mode-map [M-mouse-2] 'woman-follow-word)
  
    ;; We don't need to call `man' when we are in `woman-mode'.
!   (define-key woman-mode-map [remap man] 'woman)
!   (define-key woman-mode-map [remap man-follow] 'woman-follow))
! 
! (defun woman-follow (topic)
!   "Get a Un*x manual page of the item under point and put it in a buffer."
!   (interactive (list (Man-default-man-entry)))
!   (if (or (not topic)
! 	  (string= topic ""))
!       (error "No item under point")
!     (woman (if (string-match Man-reference-regexp topic)
! 	       (substring topic 0 (match-end 1))
! 	     topic))))
  
  (defun woman-follow-word (event)
    "Run WoMan with word under mouse as topic.