Mercurial > hg > xemacs-beta

comparison lisp/apel/richtext.el @ 167:85ec50267440 r20-3b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b10
author cvs
date Mon, 13 Aug 2007 09:45:46 +0200
parents 43dd3413c7c7
children
comparison
equal deleted inserted replaced
166:7a77eb660975 167:85ec50267440
2 2
3 ;; Copyright (C) 1995,1996,1997 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.1 1997/06/03 04:18:36 steve Exp $ 7 ;; Version: $Id: richtext.el,v 1.2 1997/06/29 23:12:06 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
74 74
75 75
76 ;;; @ encoder 76 ;;; @ encoder
77 ;;; 77 ;;;
78 78
79 ;;;###autoload
79 (defun richtext-encode (from to) 80 (defun richtext-encode (from to)
80 (if enriched-verbose (message "Richtext: encoding document...")) 81 (if enriched-verbose (message "Richtext: encoding document..."))
81 (save-restriction 82 (save-restriction
82 (narrow-to-region from to) 83 (narrow-to-region from to)
83 (delete-to-left-margin) 84 (delete-to-left-margin)
134 (t 135 (t
135 (throw 'tag (list beg end name pos)) 136 (throw 'tag (list beg end name pos))
136 )) 137 ))
137 )))) 138 ))))
138 139
140 ;;;###autoload
139 (defun richtext-decode (from to) 141 (defun richtext-decode (from to)
140 (if enriched-verbose (message "Richtext: decoding document...")) 142 (if enriched-verbose (message "Richtext: decoding document..."))
141 (save-excursion 143 (save-excursion
142 (save-restriction 144 (save-restriction
143 (narrow-to-region from to) 145 (narrow-to-region from to)