From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.bugs Subject: Re: Emacs inventing system documentation Date: Thu, 18 Feb 2004 23:02:03 +0200 Organization: JURTA Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Message-ID: <87lln0ey4g.fsf@mail.jurta.org> References: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1077150191 31016 80.91.224.253 (19 Feb 2004 00:23:11 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 19 Feb 2004 00:23:11 +0000 (UTC) Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Thu Feb 19 01:22:54 2004 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1Atbxt-0003xF-00 for ; Thu, 19 Feb 2004 01:22:53 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AtbvA-0006GX-HH for geb-bug-gnu-emacs@m.gmane.org; Wed, 18 Feb 2004 19:20:04 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1Atbhk-0000T0-5N for bug-gnu-emacs@gnu.org; Wed, 18 Feb 2004 19:06:12 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1Atbgc-000880-5G for bug-gnu-emacs@gnu.org; Wed, 18 Feb 2004 19:05:33 -0500 Original-Received: from [66.33.219.6] (helo=knife.dreamhost.com) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AtbfO-0007Nb-1D for bug-gnu-emacs@gnu.org; Wed, 18 Feb 2004 19:03:46 -0500 Original-Received: from mail.jurta.org (80-235-34-104-dsl.mus.estpak.ee [80.235.34.104]) by knife.dreamhost.com (Postfix) with ESMTP id 2F511E403E for ; Wed, 18 Feb 2004 16:03:39 -0800 (PST) Original-To: bug-gnu-emacs@gnu.org In-Reply-To: (Richard Stallman's message of "23 Jan 2004 13:24:55 -0500") User-Agent: Gnus/5.110002 (No Gnus v0.2) Emacs/21.3.50 (gnu/linux) X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Bug reports for GNU Emacs, the Swiss army knife of text editors List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.bugs:7014 X-Report-Spam: http://spam.gmane.org/gmane.emacs.bugs:7014 Richard Stallman writes: > I thought Reuben's message was meant as a humorous > way to report that the term "made up" was not clear. > So I will change it to "formatted for display". The second message in the same function could be changed as well. The following patch also fixes one bug (using `frame-width' instead of `window-width' causes too long lines when window is split horizontally), and sets `outline-regexp'. 2004-02-18 Juri Linkov * man.el (Man-fontify-manpage): Clean up message. (Man-mode): Set outline-regexp. (Man-getpage-in-background): Use window-width instead of frame-width. * woman.el (woman-decode-region): Use window-width instead of frame-width. Index: emacs/lisp/man.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/man.el,v retrieving revision 1.131 diff -c -r1.131 man.el *** emacs/lisp/man.el 24 Jan 2004 21:52:12 -0000 1.131 --- emacs/lisp/man.el 18 Feb 2004 23:43:34 -0000 *************** *** 679,685 **** ;; This isn't strictly correct, since we don't know how ;; the page will actually be displayed, but it seems ;; reasonable. ! (setenv "COLUMNS" (number-to-string (frame-width))))) (setenv "GROFF_NO_SGR" "1") (if (fboundp 'start-process) (set-process-sentinel --- 679,685 ---- ;; This isn't strictly correct, since we don't know how ;; the page will actually be displayed, but it seems ;; reasonable. ! (setenv "COLUMNS" (number-to-string (window-width))))) (setenv "GROFF_NO_SGR" "1") (if (fboundp 'start-process) (set-process-sentinel *************** *** 757,763 **** "Convert overstriking and underlining to the correct fonts. Same for the ANSI bold and normal escape sequences." (interactive) ! (message "Please wait: making up the %s man page..." Man-arguments) (goto-char (point-min)) (while (search-forward "\e[1m" nil t) (delete-backward-char 4) --- 757,763 ---- "Convert overstriking and underlining to the correct fonts. Same for the ANSI bold and normal escape sequences." (interactive) ! (message "Please wait: formatting the %s man page..." Man-arguments) (goto-char (point-min)) (while (search-forward "\e[1m" nil t) (delete-backward-char 4) *************** *** 971,976 **** --- 971,977 ---- (auto-fill-mode -1) (use-local-map Man-mode-map) (set-syntax-table man-mode-syntax-table) + (set (make-local-variable 'outline-regexp) Man-heading-regexp) (Man-build-page-list) (Man-strip-page-headers) (Man-unindent) Index: emacs/lisp/woman.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/woman.el,v retrieving revision 1.18 diff -c -r1.18 woman.el *** emacs/lisp/woman.el 22 Sep 2003 15:15:26 -0000 1.18 --- emacs/lisp/woman.el 18 Feb 2004 23:43:37 -0000 *************** *** 2204,2210 **** ;; Based loosely on a suggestion by Theodore Jump: (if (or woman-fill-frame (not (and (integerp woman-fill-column) (> woman-fill-column 0)))) ! (setq woman-fill-column (- (frame-width) woman-default-indent))) ;; Check for preprocessor requests: (goto-char from) --- 2204,2210 ---- ;; Based loosely on a suggestion by Theodore Jump: (if (or woman-fill-frame (not (and (integerp woman-fill-column) (> woman-fill-column 0)))) ! (setq woman-fill-column (- (window-width) woman-default-indent))) ;; Check for preprocessor requests: (goto-char from) -- http://www.jurta.org/emacs/