[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Emacs inventing system documentation
From: |
Juri Linkov |
Subject: |
Re: Emacs inventing system documentation |
Date: |
Thu, 18 Feb 2004 23:02:03 +0200 |
User-agent: |
Gnus/5.110002 (No Gnus v0.2) Emacs/21.3.50 (gnu/linux) |
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/
- Re: Emacs inventing system documentation,
Juri Linkov <=