From: Richard Stallman <rms@gnu.org>
Cc: emacs-devel@gnu.org
Subject: man.el
Date: Fri, 20 Feb 2004 08:41:37 -0500 [thread overview]
Message-ID: <E1AuAuP-0001lX-2L@fencepost.gnu.org> (raw)
Regarding the change below, why is the current window's width more
likely to be correct than the frame's width? (Neither one is
guaranteed to be right.)
To: bug-gnu-emacs@gnu.org
From: Juri Linkov <juri@jurta.org>
Organization: JURTA
In-Reply-To: <E1Ak5zD-00005U-VQ@fencepost.gnu.org> (Richard Stallman's
message of "23 Jan 2004 13:24:55 -0500")
Date: Thu, 18 Feb 2004 23:02:03 +0200
Subject: Re: Emacs inventing system documentation
Sender: bug-gnu-emacs-bounces+rms=gnu.org@gnu.org
Richard Stallman <rms@gnu.org> 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 <juri@jurta.org>
* 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/
_______________________________________________
Bug-gnu-emacs mailing list
Bug-gnu-emacs@gnu.org
http://mail.gnu.org/mailman/listinfo/bug-gnu-emacs
next reply other threads:[~2004-02-20 13:41 UTC|newest]
Thread overview: 12+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-02-20 13:41 Richard Stallman [this message]
2004-02-20 16:49 ` man.el Kim F. Storm
2004-02-20 17:56 ` man.el Kevin Rodgers
2004-02-21 0:49 ` man.el Alex Schroeder
2004-02-21 9:56 ` man.el Eli Zaretskii
2004-02-22 0:32 ` man.el Juri Linkov
2004-02-22 6:35 ` man.el Eli Zaretskii
2004-02-22 19:02 ` man.el Juri Linkov
2004-02-21 1:04 ` man.el Juri Linkov
2004-02-21 10:04 ` man.el Eli Zaretskii
2004-02-22 22:41 ` man.el Richard Stallman
2004-03-18 7:03 ` man.el Juri Linkov
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=E1AuAuP-0001lX-2L@fencepost.gnu.org \
--to=rms@gnu.org \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.