Mercurial > hg > xemacs-beta

comparison lisp/tl/richtext.el @ 8:4b173ad71786 r19-15b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b5
author cvs
date Mon, 13 Aug 2007 08:47:35 +0200
parents b82b59fe008d
children 0293115a14e9
comparison
equal deleted inserted replaced
7:c153ca296910 8:4b173ad71786
1 ;;;
2 ;;; richtext.el -- read and save files in text/richtext format 1 ;;; richtext.el -- read and save files in text/richtext format
3 ;;; 2
4 ;;; Copyright (C) 1995 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
5 ;;; Copyright (C) 1995 MORIOKA Tomohiko 4
6 ;;; 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
7 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 6 ;; Created: 1995/7/15
8 ;;; Created: 1995/7/15 7 ;; Version: $Id: richtext.el,v 1.2 1996/12/22 00:29:31 steve Exp $
9 ;;; Version: 8 ;; Keywords: wp, faces, MIME, multimedia
10 ;;; $Id: richtext.el,v 1.1.1.1 1996/12/18 03:55:31 steve Exp $ 9
11 ;;; Keywords: wp, faces, MIME, multimedia 10 ;; This file is not part of GNU Emacs yet.
12 ;;; 11
13 ;;; This file is part of GNU Emacs. 12 ;; This program is free software; you can redistribute it and/or
14 ;;; 13 ;; modify it under the terms of the GNU General Public License as
15 ;;; GNU Emacs is free software; you can redistribute it and/or modify 14 ;; published by the Free Software Foundation; either version 2, or (at
16 ;;; it under the terms of the GNU General Public License as published by 15 ;; your option) any later version.
17 ;;; the Free Software Foundation; either version 2, or (at your option) 16
18 ;;; any later version. 17 ;; This program is distributed in the hope that it will be useful, but
19 ;;; 18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
20 ;;; GNU Emacs is distributed in the hope that it will be useful, 19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
21 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of 20 ;; General Public License for more details.
22 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 21
23 ;;; GNU General Public License for more details. 22 ;; You should have received a copy of the GNU General Public License
24 ;;; 23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
25 ;;; You should have received a copy of the GNU General Public License 24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
26 ;;; along with GNU Emacs; see the file COPYING. If not, write to 25 ;; Boston, MA 02111-1307, USA.
27 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 26
27 ;;; Code:
28 28
29 (require 'enriched) 29 (require 'enriched)
30 30
31 31
32 ;;; @ variables 32 ;;; @ variables
141 (save-excursion 141 (save-excursion
142 (save-restriction 142 (save-restriction
143 (narrow-to-region from to) 143 (narrow-to-region from to)
144 (goto-char from) 144 (goto-char from)
145 (let ((file-width (enriched-get-file-width)) 145 (let ((file-width (enriched-get-file-width))
146 (use-hard-newlines t) pc nc) 146 (use-hard-newlines t))
147 (enriched-remove-header) 147 (enriched-remove-header)
148 148
149 (goto-char from) 149 (goto-char from)
150 (while (re-search-forward "\n\n+" nil t) 150 (while (re-search-forward "\n\n+" nil t)
151 (replace-match "\n") 151 (replace-match "\n")
179 179
180 ;;; @ end 180 ;;; @ end
181 ;;; 181 ;;;
182 182
183 (provide 'richtext) 183 (provide 'richtext)
184
185 ;;; richtext.el ends here