Mercurial > hg > xemacs-beta

comparison lisp/fill.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents cc15677e0335
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
382 (skip-chars-forward " \t") 382 (skip-chars-forward " \t")
383 ;; Then change all newlines to spaces. 383 ;; Then change all newlines to spaces.
384 ;;; 97/3/14 jhod: Kinsoku change 384 ;;; 97/3/14 jhod: Kinsoku change
385 ;; Spacing is not necessary for charcters of no word-separater. 385 ;; Spacing is not necessary for charcters of no word-separater.
386 ;; The regexp word-across-newline is used for this check. 386 ;; The regexp word-across-newline is used for this check.
387 (defvar word-across-newline)
387 (if (not (and (featurep 'mule) 388 (if (not (and (featurep 'mule)
388 (stringp word-across-newline))) 389 (stringp word-across-newline)))
389 (subst-char-in-region from (point-max) ?\n ?\ ) 390 (subst-char-in-region from (point-max) ?\n ?\ )
390 ;; 391 ;;
391 ;; WAN +NL+WAN --> WAN + WAN 392 ;; WAN +NL+WAN --> WAN + WAN
780 (if (region-active-p) (region-end) (point)))) 781 (if (region-active-p) (region-end) (point))))
781 (set-justification b e 'center t)) 782 (set-justification b e 'center t))
782 783
783 ;; 97/3/14 jhod: This functions are added for Kinsoku support 784 ;; 97/3/14 jhod: This functions are added for Kinsoku support
784 (defun find-space-insertable-point () 785 (defun find-space-insertable-point ()
785 "Search backward for a permissable point for inserting justification spaces" 786 "Search backward for a permissible point for inserting justification spaces"
786 (if (boundp 'space-insertable) 787 (if (boundp 'space-insertable)
787 (if (re-search-backward space-insertable nil t) 788 (if (re-search-backward space-insertable nil t)
788 (progn (forward-char 1) 789 (progn (forward-char 1)
789 t) 790 t)
790 nil) 791 nil)