Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml-other.el @ 78:c7528f8e288d r20-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b34
author cvs
date Mon, 13 Aug 2007 09:05:42 +0200
parents 131b0175ea99
children 360340f9fd5f
comparison
equal deleted inserted replaced
77:6cb4f478e7bc 78:c7528f8e288d
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.1.1.1 1996/12/18 22:43:36 steve Exp $ 2 ;; $Id: psgml-other.el,v 1.2 1997/01/03 03:10:27 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
37 37
38 38
39 ;;;; Key Commands 39 ;;;; Key Commands
40 40
41 ;; Doesn't this work in Lucid? *** 41 ;; Doesn't this work in Lucid? ***
42 (define-key sgml-mode-map [?\M-\C-\ ] 'sgml-mark-element) 42 (define-key sgml-mode-map [(meta control space)] 'sgml-mark-element)
43 43
44 (define-key sgml-mode-map [S-mouse-1] 'sgml-tags-menu) 44 (define-key sgml-mode-map [(shift button-3)] 'sgml-tags-menu)
45 45
46 46
47 ;;;; Pop Up Menus 47 ;;;; Pop Up Menus
48 48
49 (defun sgml-popup-menu (event title entries) 49 (defun sgml-popup-menu (event title entries)
109 (defun sgml-set-face-for (start end type) 109 (defun sgml-set-face-for (start end type)
110 (let ((face (cdr (assq type sgml-markup-faces)))) 110 (let ((face (cdr (assq type sgml-markup-faces))))
111 (cond 111 (cond
112 (sgml-use-text-properties 112 (sgml-use-text-properties
113 (let ((inhibit-read-only t) 113 (let ((inhibit-read-only t)
114 (after-change-function nil) 114 (after-change-function nil) ; obsolete variable
115 (before-change-function nil)) 115 (before-change-function nil) ; obsolete variable
116 (after-change-functions nil)
117 (before-change-functions nil))
116 (put-text-property start end 'face face))) 118 (put-text-property start end 'face face)))
117 (t 119 (t
118 (let ((current (overlays-at start)) 120 (let ((current (overlays-at start))
119 (pos start) 121 (pos start)
120 old-overlay) 122 old-overlay)