Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

tm 7.103.

  • Loading branch information...
commit 7c119873c649794ec44079f3b9f0eb317a3473ee 1 parent 417148e
morioka authored
Showing with 3 additions and 6 deletions.
  1. +3 −6 richtext.el
9 richtext.el
View
@@ -1,6 +1,6 @@
;;; 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 <morioka@jaist.ac.jp>
;; Created: 1995/7/15
@@ -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..."))
Please sign in to comment.
Something went wrong with that request. Please try again.