Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/kotl/kfill.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents c53a95d3c46d
children 4be1180a9e89
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
5 ;; USAGE: GNU Emacs Lisp Library 5 ;; USAGE: GNU Emacs Lisp Library
6 ;; KEYWORDS: outlines, wp 6 ;; KEYWORDS: outlines, wp
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORIG-DATE: 23-Jan-94 9 ;; ORIG-DATE: 23-Jan-94
10 ;; LAST-MOD: 6-Mar-97 at 01:18:10 by Bob Weiner 10 ;; LAST-MOD: 4-Nov-95 at 04:53:42 by Bob Weiner
11
12 ;;; ************************************************************************ 11 ;;; ************************************************************************
13 ;;; Public variables 12 ;;; Public variables
14 ;;; ************************************************************************ 13 ;;; ************************************************************************
15 14
16 (defvar kfill:function-table 15 (defvar kfill:function-table
102 ;; Kfill:adapt failed or fill-prefix is set, so do a basic 101 ;; Kfill:adapt failed or fill-prefix is set, so do a basic
103 ;; paragraph fill as adapted from par-align.el. 102 ;; paragraph fill as adapted from par-align.el.
104 (kfill:fill-paragraph arg skip-prefix-remove)))) 103 (kfill:fill-paragraph arg skip-prefix-remove))))
105 104
106 ;;; 105 ;;;
107 ;;; Redefine this function so that it sets `fill-prefix-prev' also. 106 ;;; Redefine this function so that it sets 'fill-prefix-prev' also.
108 ;;; 107 ;;;
109 (defun set-fill-prefix (&optional turn-off) 108 (defun set-fill-prefix (&optional turn-off)
110 "Set the fill-prefix to the current line up to point. 109 "Set the fill-prefix to the current line up to point.
111 Also sets fill-prefix-prev to previous value of fill-prefix. 110 Also sets fill-prefix-prev to previous value of fill-prefix.
112 Filling expects lines to start with the fill prefix and reinserts the fill 111 Filling expects lines to start with the fill prefix and reinserts the fill