Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml-edit.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
1 ;;; psgml-edit.el --- Editing commands for SGML-mode with parsing support 1 ;;; psgml-edit.el --- Editing commands for SGML-mode with parsing support
2 ;;-*-byte-compile-warnings:(free-vars unused-vars unresolved callargs redefine)-*- 2 ;;-*-byte-compile-warnings:(free-vars unused-vars unresolved callargs redefine)-*-
3 ;; $Id: psgml-edit.el,v 1.1.1.1 1996/12/18 22:43:36 steve Exp $ 3 ;; $Id: psgml-edit.el,v 1.2 1997/03/08 23:26:53 steve Exp $
4 4
5 ;; Copyright (C) 1994, 1995, 1996 Lennart Staflin 5 ;; Copyright (C) 1994, 1995, 1996 Lennart Staflin
6 6
7 ;; Author: Lennart Staflin <lenst@lysator.liu.se> 7 ;; Author: Lennart Staflin <lenst@lysator.liu.se>
8 8
1081 (while c 1081 (while c
1082 (cond 1082 (cond
1083 ((sgml-element-mixed c)) 1083 ((sgml-element-mixed c))
1084 (t 1084 (t
1085 ;; Put region before element on agenda. Can't fill it now 1085 ;; Put region before element on agenda. Can't fill it now
1086 ;; that would mangel the parse tree that is beeing traversed. 1086 ;; that would mangel the parse tree that is being traversed.
1087 (push (cons last-pos (sgml-element-start c)) 1087 (push (cons last-pos (sgml-element-start c))
1088 agenda) 1088 agenda)
1089 (goto-char (sgml-element-start c)) 1089 (goto-char (sgml-element-start c))
1090 (sgml-do-fill c) 1090 (sgml-do-fill c)
1091 ;; Fill may change parse tree, get a fresh 1091 ;; Fill may change parse tree, get a fresh