Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml-edit.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents ac2d302a0011
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
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.2 1996/12/18 03:47:14 steve Exp $ 3 ;; $Id: psgml-edit.el,v 1.2 1997/03/09 02:37:45 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