Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml-edit.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 ec9a17fef872
children 360340f9fd5f
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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.2 1997/03/09 02:37:45 steve Exp $ 3 ;; $Id: psgml-edit.el,v 1.1.1.1 1996/12/18 22:43:36 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 being traversed. 1086 ;; that would mangel the parse tree that is beeing 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