Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml.el @ 201:eb5470882647 r20-3b27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b27
author cvs
date Mon, 13 Aug 2007 10:01:22 +0200
parents 3d6bfa290dbd
children 850242ba4a81
comparison
equal deleted inserted replaced
200:f0deb0c0e6be 201:eb5470882647
1 ;;; psgml.el --- SGML-editing mode with parsing support 1 ;;; psgml.el --- SGML-editing mode with parsing support
2 ;; $Id: psgml.el,v 1.8 1997/09/03 02:55:43 steve Exp $ 2 ;; $Id: psgml.el,v 1.9 1997/10/05 01:15:30 steve Exp $
3 3
4 ;; Copyright (C) 1993, 1994, 1995, 1996 Lennart Staflin 4 ;; Copyright (C) 1993, 1994, 1995, 1996 Lennart Staflin
5 ;; Copyright (C) 1992 Free Software Foundation, Inc. 5 ;; Copyright (C) 1992 Free Software Foundation, Inc.
6 6
7 ;; Author: Lennart Staflin <lenst@lysator.liu.se> 7 ;; Author: Lennart Staflin <lenst@lysator.liu.se>
887 (define-key sgml-mode-map "\e\C-u" 'sgml-backward-up-element) 887 (define-key sgml-mode-map "\e\C-u" 'sgml-backward-up-element)
888 (define-key sgml-mode-map "\e\C-k" 'sgml-kill-element) 888 (define-key sgml-mode-map "\e\C-k" 'sgml-kill-element)
889 (define-key sgml-mode-map "\e\C-@" 'sgml-mark-element) 889 (define-key sgml-mode-map "\e\C-@" 'sgml-mark-element)
890 ;;(define-key sgml-mode-map [?\M-\C-\ ] 'sgml-mark-element) 890 ;;(define-key sgml-mode-map [?\M-\C-\ ] 'sgml-mark-element)
891 (define-key sgml-mode-map "\e\C-h" 'sgml-mark-current-element) 891 (define-key sgml-mode-map "\e\C-h" 'sgml-mark-current-element)
892 (define-key sgml-mode-map [(meta backspace)] (lookup-key (current-global-map) [(meta backspace)]))
892 (define-key sgml-mode-map "\e\C-t" 'sgml-transpose-element) 893 (define-key sgml-mode-map "\e\C-t" 'sgml-transpose-element)
893 (define-key sgml-mode-map "\M-\t" 'sgml-complete) 894 (define-key sgml-mode-map "\M-\t" 'sgml-complete)
894 895
895 ;;;; Menu bar 896 ;;;; Menu bar
896 897