Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml-other.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 c7528f8e288d
children
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
1 ;;;; psgml-other.el --- Part of SGML-editing mode with parsing support 1 ;;;; psgml-other.el --- Part of SGML-editing mode with parsing support
2 ;; $Id: psgml-other.el,v 1.2 1997/01/03 03:10:27 steve Exp $ 2 ;; $Id: psgml-other.el,v 1.3 1997/03/08 23:26:53 steve Exp $
3 3
4 ;; Copyright (C) 1994 Lennart Staflin 4 ;; Copyright (C) 1994 Lennart Staflin
5 5
6 ;; Author: Lennart Staflin <lenst@lysator.liu.se> 6 ;; Author: Lennart Staflin <lenst@lysator.liu.se>
7 7
144 (overlay-put old-overlay 'sgml-type type) 144 (overlay-put old-overlay 'sgml-type type)
145 (overlay-put old-overlay 'face face)))))))) 145 (overlay-put old-overlay 'face face))))))))
146 146
147 (defun sgml-set-face-after-change (start end &optional pre-len) 147 (defun sgml-set-face-after-change (start end &optional pre-len)
148 ;; If inserting in front of an markup overlay, move that overlay. 148 ;; If inserting in front of an markup overlay, move that overlay.
149 ;; this avoids the overlay beeing deleted and recreated by 149 ;; this avoids the overlay being deleted and recreated by
150 ;; sgml-set-face-for. 150 ;; sgml-set-face-for.
151 (when (and sgml-set-face (not sgml-use-text-properties)) 151 (when (and sgml-set-face (not sgml-use-text-properties))
152 (loop for o in (overlays-at start) 152 (loop for o in (overlays-at start)
153 do (cond 153 do (cond
154 ((not (overlay-get o 'sgml-type))) 154 ((not (overlay-get o 'sgml-type)))