Mercurial > hg > xemacs-beta

comparison lisp/fill.el @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 3ecd8885ac67
children 576fb035e263
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
381 (or (eobp) (insert ?\ ?\ ))) 381 (or (eobp) (insert ?\ ?\ )))
382 (goto-char from) 382 (goto-char from)
383 (skip-chars-forward " \t") 383 (skip-chars-forward " \t")
384 ;; Then change all newlines to spaces. 384 ;; Then change all newlines to spaces.
385 ;;; 97/3/14 jhod: Kinsoku change 385 ;;; 97/3/14 jhod: Kinsoku change
386 ;; Spacing is not necessary for charcters of no word-separater. 386 ;; Spacing is not necessary for characters of no word-separator.
387 ;; The regexp word-across-newline is used for this check. 387 ;; The regexp word-across-newline is used for this check.
388 (defvar word-across-newline) 388 (defvar word-across-newline)
389 (if (not (and (featurep 'mule) 389 (if (not (and (featurep 'mule)
390 (stringp word-across-newline))) 390 (stringp word-across-newline)))
391 (subst-char-in-region from (point-max) ?\n ?\ ) 391 (subst-char-in-region from (point-max) ?\n ?\ )