Mercurial > hg > xemacs-beta

comparison lisp/tl/richtext.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 4b173ad71786
children 131b0175ea99
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
1 ;;; richtext.el -- read and save files in text/richtext format 1 ;;; richtext.el -- read and save files in text/richtext format
2 2
3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Created: 1995/7/15 6 ;; Created: 1995/7/15
7 ;; Version: $Id: richtext.el,v 1.2 1996/12/22 00:29:31 steve Exp $ 7 ;; Version: $Id: richtext.el,v 1.3 1997/02/02 05:06:17 steve Exp $
8 ;; Keywords: wp, faces, MIME, multimedia 8 ;; Keywords: wp, faces, MIME, multimedia
9 9
10 ;; This file is not part of GNU Emacs yet. 10 ;; This file is not part of GNU Emacs yet.
11 11
12 ;; This program is free software; you can redistribute it and/or 12 ;; This program is free software; you can redistribute it and/or
162 ;; Translate annotations 162 ;; Translate annotations
163 (format-deannotate-region from (point-max) richtext-translations 163 (format-deannotate-region from (point-max) richtext-translations
164 'richtext-next-annotation) 164 'richtext-next-annotation)
165 165
166 ;; Fill paragraphs 166 ;; Fill paragraphs
167 (if (or (and file-width ; possible reasons not to fill: 167 (if (and file-width ; possible reasons not to fill:
168 (= file-width (enriched-text-width))) ; correct wd. 168 (= file-width (enriched-text-width))) ; correct wd.
169 (null enriched-fill-after-visiting) ; never fill
170 (and (eq 'ask enriched-fill-after-visiting) ; asked & declined
171 (not (y-or-n-p "Re-fill for current display width? "))))
172 ;; Minimally, we have to insert indentation and justification. 169 ;; Minimally, we have to insert indentation and justification.
173 (enriched-insert-indentation) 170 (enriched-insert-indentation)
174 (if enriched-verbose (message "Filling paragraphs...")) 171 (if enriched-verbose (message "Filling paragraphs..."))
175 (fill-region (point-min) (point-max)))) 172 (fill-region (point-min) (point-max))))
176 (if enriched-verbose (message nil)) 173 (if enriched-verbose (message nil))