From 9ac0560a22f11fb6569a5944122ec3361605267d Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 11 Mar 1998 12:32:21 +0000 Subject: [PATCH] tm 7.103. --- richtext.el | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/richtext.el b/richtext.el index 0ef10f4..677711a 100644 --- a/richtext.el +++ b/richtext.el @@ -1,10 +1,10 @@ ;;; richtext.el -- read and save files in text/richtext format -;; Copyright (C) 1995,1996 Free Software Foundation, Inc. +;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko ;; Created: 1995/7/15 -;; Version: $Id: richtext.el,v 3.3 1996/11/28 19:26:19 morioka Exp $ +;; Version: $Id: richtext.el,v 3.5 1997/01/30 16:55:00 morioka Exp $ ;; Keywords: wp, faces, MIME, multimedia ;; This file is not part of GNU Emacs yet. @@ -164,11 +164,8 @@ Return value is \(begin end name positive-p), or nil if none was found." 'richtext-next-annotation) ;; Fill paragraphs - (if (or (and file-width ; possible reasons not to fill: - (= file-width (enriched-text-width))) ; correct wd. - (null enriched-fill-after-visiting) ; never fill - (and (eq 'ask enriched-fill-after-visiting) ; asked & declined - (not (y-or-n-p "Re-fill for current display width? ")))) + (if (and file-width ; possible reasons not to fill: + (= file-width (enriched-text-width))) ; correct wd. ;; Minimally, we have to insert indentation and justification. (enriched-insert-indentation) (if enriched-verbose (message "Filling paragraphs...")) -- 1.7.10.4