Re: address@hidden: WoMan Bug]

[Michael Welsh Duggan]

Richard Stallman <address@hidden> writes:

> Would someone please fix this, then ack?

The following patch would appear to fix this problem:

*** woman.el    04 Sep 2006 13:03:49 -0400      1.46
--- woman.el    14 Sep 2006 00:41:56 -0400      
***************
*** 4391,4399 ****
                    tab (- tab (if (eq type ?C) (/ n 2) n))) )
          (setq n (- tab (current-column)))
          (while (> n 0)
!           (insert ?\ )
            (setq n (1- n))))
!       (insert ?\ ))))
  
  (defun woman2-DT (to)
    ".DT -- Restore default tabs.  Format paragraphs upto TO.
--- 4391,4399 ----
                    tab (- tab (if (eq type ?C) (/ n 2) n))) )
          (setq n (- tab (current-column)))
          (while (> n 0)
!           (insert-before-markers ?\ )
            (setq n (1- n))))
!       (insert-before-markers ?\ ))))
  
  (defun woman2-DT (to)
    ".DT -- Restore default tabs.  Format paragraphs upto TO.

> From: David Hansen <address@hidden>
> Subject: WoMan Bug
> To: address@hidden
> Date: Wed, 13 Sep 2006 17:31:47 +0200
> Organization: disorganized
> X-Spam-Status: No, score=0.0 required=5.0 tests=none autolearn=failed 
>       version=3.0.4
>
>
> Please write in English if possible, because the Emacs maintainers
> usually do not have translators to read other languages for them.
>
> Your bug report will be posted to the address@hidden mailing list.
>
> Please describe exactly what actions triggered the bug
> and the precise symptoms of the bug:
>
> In emacs -Q when i try to read the screen man page (from the
> debian unstable package):
>
> Debugger entered--Lisp error: (error "Invalid search bound (wrong side of 
> point)")
>   search-forward("    " #<marker at 101901 in *WoMan 1 screen*> t)
>   woman2-process-escapes(#<marker at 101901 in *WoMan 1 screen*> nil)
>   woman2-tagged-paragraph(#<marker at 102002 in *WoMan 1 screen*> 5)
>   woman2-IP(#<marker at 102002 in *WoMan 1 screen*>)
>   woman2-roff-buffer()
>   woman-decode-region(1 146569)
>   woman-decode-buffer()
>   woman-process-buffer()
>   woman-really-find-file("/usr/share/man/man1/screen.1.gz" t "*WoMan 1 
> screen*")
>   woman-find-file("/usr/share/man/man1/screen.1.gz")
>   woman(nil nil)
>   call-interactively(woman)
>   execute-extended-command(nil)
>   call-interactively(execute-extended-command)
>
> If you need the man page file drop a node.
>
> David

-- 
Michael Welsh Duggan
(address@hidden)