1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
;;;; xslide-abbrev.el --- Abbrev table definitions for xslide
;; $Id: xslide-abbrev.el,v 1.1.1.1 2001/08/22 21:02:10 menteith Exp $
;; Copyright (C) 1998, 1999, 2001 Tony Graham
;; Author: Tony Graham <tkg@menteith.com>
;;; This file is not part of GNU Emacs.
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License
;; as published by the Free Software Foundation; either version 2
;; of the License, or (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;;;; Commentary:
;;
;; Send bugs to xslide-bug@menteith.com
;; Use `xsl-submit-bug-report' to submit a bug report
;;;; Variables:
(defvar xsl-mode-abbrev-table nil
"Abbrev table used while in XSL mode.")
;;; define xsl-mode-abbrev-table if not already defined
(if xsl-mode-abbrev-table
()
;; remember current state of abbrevs-changed so it can be restored after
;; defining some abbrevs
(let ((ac abbrevs-changed))
(define-abbrev-table 'xsl-mode-abbrev-table ())
;; Generate abbrevs for XSL and Formatting Object elements from
;; data in xsl-all-elements-alist
(mapcar (lambda (x)
(define-abbrev xsl-mode-abbrev-table
(nth 3 x) (car x) nil))
xsl-all-elements-alist)
;; Generate abbrevs for attributes for XSL and Formatting Object
;; elements
(mapcar (lambda (x)
(define-abbrev xsl-mode-abbrev-table
(nth 1 x)
(concat (car x) "=\"\"")
'backward-char))
(append
xsl-attributes-alist
xsl-fo-attribute-symbol-alist))
;; restore abbrevs-changed
(setq abbrevs-changed ac)))
(provide 'xslide-abbrev)
|
