Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/kotl/kfill.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents 4103f0995bd7
children 131b0175ea99
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
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: 15-Jan-97 at 11:54:12 by Bob Weiner 10 ;; LAST-MOD: 6-Mar-97 at 01:18:10 by Bob Weiner
11
11 ;;; ************************************************************************ 12 ;;; ************************************************************************
12 ;;; Public variables 13 ;;; Public variables
13 ;;; ************************************************************************ 14 ;;; ************************************************************************
14 15
15 (defvar kfill:function-table 16 (defvar kfill:function-table
101 ;; Kfill:adapt failed or fill-prefix is set, so do a basic 102 ;; Kfill:adapt failed or fill-prefix is set, so do a basic
102 ;; paragraph fill as adapted from par-align.el. 103 ;; paragraph fill as adapted from par-align.el.
103 (kfill:fill-paragraph arg skip-prefix-remove)))) 104 (kfill:fill-paragraph arg skip-prefix-remove))))
104 105
105 ;;; 106 ;;;
106 ;;; Redefine this function so that it sets 'fill-prefix-prev' also. 107 ;;; Redefine this function so that it sets `fill-prefix-prev' also.
107 ;;; 108 ;;;
108 (defun set-fill-prefix (&optional turn-off) 109 (defun set-fill-prefix (&optional turn-off)
109 "Set the fill-prefix to the current line up to point. 110 "Set the fill-prefix to the current line up to point.
110 Also sets fill-prefix-prev to previous value of fill-prefix. 111 Also sets fill-prefix-prev to previous value of fill-prefix.
111 Filling expects lines to start with the fill prefix and reinserts the fill 112 Filling expects lines to start with the fill prefix and reinserts the fill