Mercurial > hg > xemacs-beta

comparison lisp/fill.el @ 353:3b3709405255 r21-1-6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-6
author cvs
date Mon, 13 Aug 2007 10:55:33 +0200
parents 0e522484dd2a
children cc15677e0335
comparison
equal deleted inserted replaced
352:e7288c5461ae 353:3b3709405255
224 at-second 224 at-second
225 result) 225 result)
226 ;; XEmacs change 226 ;; XEmacs change
227 (if (not dont-skip-first) 227 (if (not dont-skip-first)
228 (forward-line 1)) 228 (forward-line 1))
229 (if (>= (point) to) 229 (cond ((>= (point) to)
230 (goto-char firstline) 230 (goto-char firstline))
231 (setq at-second t)) 231 ((/= (point) from)
232 (setq at-second t)))
232 (move-to-left-margin) 233 (move-to-left-margin)
233 ;; XEmacs change 234 ;; XEmacs change
234 (let ((start (point)) 235 (let ((start (point))
235 ; jhod: no longer used? 236 ; jhod: no longer used?
236 ;(eol (save-excursion (end-of-line) (point))) 237 ;(eol (save-excursion (end-of-line) (point)))
237 ) 238 )
238 (setq result 239 (setq result
239 (if (not (looking-at paragraph-start)) 240 (if (or dont-skip-first (not (looking-at paragraph-start)))
240 (cond ((and adaptive-fill-regexp (looking-at adaptive-fill-regexp)) 241 (cond ((and adaptive-fill-regexp (looking-at adaptive-fill-regexp))
241 (buffer-substring-no-properties start (match-end 0))) 242 (buffer-substring-no-properties start (match-end 0)))
242 (adaptive-fill-function (funcall adaptive-fill-function))))) 243 (adaptive-fill-function (funcall adaptive-fill-function)))))
243 (and result 244 (and result
244 (or at-second 245 (or at-second