annotate lisp/expand.el @ 16820:9b9ba0a44008 libc-970104

(M68*:*:R3V[567]*:*): Use uppercase 'M'.
author Richard Kenner <kenner@gnu.org>
date Fri, 03 Jan 1997 13:38:47 +0000
parents 26698958bd84
children 9bcab3c812bb
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
16769
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1 ;; expand.el --- minor mode to make abbreviations more usable.
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3 ;; Copyright (C) 1995, 1996 Free Software Foundation, Inc.
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5 ;; Author: Frederic Lepied <Frederic.Lepied@sugix.frmug.org>
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 ;; Maintainer: Frederic Lepied <Frederic.Lepied@sugix.frmug.org>
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 ;; Keywords: abbrev
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 ;; any later version.
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 ;; Boston, MA 02111-1307, USA.
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 ;;
16770
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
28 ;; This package defines abbrevs which expand into structured constructs
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
29 ;; for certain languages. The construct is indented for you,
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
30 ;; and contains points for you to ;; fill in other text.
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
31
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
32 ;; These abbrevs expand only at the end of a line and when not in a comment
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
33 ;; or a string.
16769
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 ;;
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 ;; Look at the Sample: section for emacs-lisp, perl and c expand lists.
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 ;; For example for c-mode, you could declare your abbrev table with :
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 ;;
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 ;; (defconst c-expand-list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 ;; '(("if" "if () {\n \n} else {\n \n}" (5 10 21))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 ;; ("ifn" "if () {}" (5 8))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 ;; ("uns" "unsigned ")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 ;; ("for" "for(; ; ) {\n\n}" (5 7 9 13))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 ;; ("switch" "switch () {\n\n}" (9 13))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 ;; ("case" "case :\n\nbreak;\n" (6 8 16))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 ;; ("do" "do {\n\n} while ();" (6 16))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 ;; ("while" "while () {\n\n}" (8 12))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 ;; ("default" "default:\n\nbreak;" 10)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 ;; ("main" "int\nmain(int argc, char * argv[])\n{\n\n}\n" 37))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 ;; "Expansions for C mode")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 ;;
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 ;; and enter Expand mode with the following hook :
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 ;;
16770
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
53 ;; (add-hook 'c-mode-hook (function (lambda ()
16769
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 ;; (expand-add-abbrevs c-mode-abbrev-table c-expand-list)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55 ;; (expand-mode))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 ;;
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 ;; you can also bind jump functions to some keys and init some post-process
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 ;; hooks :
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 ;;
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 ;; (add-hook 'expand-mode-load-hook
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 ;; (function
16770
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
62 ;; (lambda ()
16769
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 ;; (add-hook 'expand-expand-hook 'indent-according-to-mode)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 ;; (add-hook 'expand-jump-hook 'indent-according-to-mode)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 ;; (define-key expand-map '[(control tab)] 'expand-jump-to-next-mark)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 ;; (define-key expand-map '[(control shift tab)] 'expand-jump-to-previous-mark))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 ;;
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 ;; Remarks:
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 ;;
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 ;; Has been tested under emacs 19.28-19.34 and XEmacs 19.11.
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 ;; Many thanks to Heddy Boubaker <boubaker@cenatls.cena.dgac.fr>,
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72 ;; Jerome Santini <santini@chambord.univ-orleans.fr>,
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 ;; Jari Aalto <jaalto@tre.tele.nokia.fi>.
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 ;;
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75 ;; Please send me a word to give me your feeling about this mode or
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76 ;; to explain me how you use it (your expansions table for example) using
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 ;; the function expand-mode-submit-report.
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 ;; Expand mode is not a replacement for abbrev it is just a layer above it.
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 ;;; Constants:
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
82
16770
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
83 (defconst expand-mode-version "$Id: expand.el,v 1.1 1996/12/28 19:41:45 rms Exp rms $"
16769
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84 "Version tag for expand.el.")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 (defconst expand-mode-help-address "expand-help@sugix.frmug.org"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87 "Email address to send requests, comments or bug reports.")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 (defvar expand-mode nil
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90 "Status variable for Expand mode.")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91 (make-variable-buffer-local 'expand-mode)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 (defvar expand-mode-name " Expand"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 "Name of mode displayed in the modeline for Expand mode.")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 (defvar expand-mode-hook nil
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 "Hooks run when Expand mode is enabled.")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 (defvar expand-mode-load-hook nil
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 "Hooks run when expand is loaded.")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102 (defvar expand-expand-hook nil
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103 "Hooks run when expansion is done.")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105 (defvar expand-jump-hook nil
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 "Hooks run when jump to mark occurs.")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 ;;; Samples:
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 (define-skeleton expand-c-for-skeleton "For loop skeleton"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111 "Loop var: "
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112 "for(" str _ @ "=0; " str @ "; " str @ ") {" \n
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 @ _ \n
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 "}" >
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115 )
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 (defconst expand-c-sample-expand-list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118 '(("if" "if () {\n \n} else {\n \n}" (5 10 21))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 ("ifn" "if () {}" (5 8))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 ("uns" "unsigned ")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
121 ("for" expand-c-for-skeleton)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 ("switch" "switch () {\n\n}" (9 13))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123 ("case" "case :\n\nbreak;\n" (6 8 16))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 ("do" "do {\n\n} while ();" (6 16))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125 ("while" "while () {\n\n}" (8 12))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 ("default" "default:\n\nbreak;" 10)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 ("main" "int\nmain(int argc, char * argv[])\n{\n\n}\n" 37))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 "Expansions for C mode. See `expand-add-abbrevs'.")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 ;; lisp example from Jari Aalto <jaalto@tre.tele.nokia.fi>
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131 (defconst expand-sample-lisp-mode-expand-list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132 (list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133 (list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134 "defu"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135 (concat
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136 "(defun ()\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 " \"\"\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138 " (interactive)\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139 " (let* (\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
140 " )\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141 " \n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 " ))")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 (list 8 11 16 32 43 59))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145 (list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 "defs"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 (concat
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 "(defsubst ()\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149 " \"\"\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150 " (interactive)\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151 " )")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152 (list 11 14 19 23 39))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
154 (list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
155 "defm"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156 (concat
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157 "(defmacro ()\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 " \"\"\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159 " (` \n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 " ))")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161 (list 11 13 18 25))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163 (list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164 "defa"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165 (concat
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166 "(defadvice (around act)\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167 " \"\"\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168 " \n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169 " )")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
170 (list 12 22 32 36))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172 (list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173 "defc"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 "(defconst nil\n \"\")\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175 (list 11 13 20))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177 (list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
178 "defv"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
179 "(defvar nil\n \"\")\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180 (list 9 11 18))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
182 (list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 "let"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 "(let* (\n)\n "
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
185 (list 8 13))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
186
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 (list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
188 "sav"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
189 "(save-excursion\n \n)"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
190 (list 18))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
191
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
192 (list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
193 "aut"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
194 "(autoload ' \"\" t t)\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
195 (list 12 14))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
196
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
197 )
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
198 "Expansions for Lisp mode. See `expand-add-abbrevs'.")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
199
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
200 ;; perl example from Jari Aalto <jaalto@tre.tele.nokia.fi>
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
201 (defconst expand-sample-perl-mode-expand-list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
202 (list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
203 (list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
204 ;; This is default perl4 subroutine template
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
205 ;;
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
206 "sub"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207 (concat
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
208 "#" (make-string 70 ?-) "\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
209 "sub {\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 " # DESCRIPTION\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211 " # \n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212 " # \n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213 " # INPUT\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
214 " # \n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
215 " # \n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
216 " # RETURN\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
217 " # \n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
218 "\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
219 " local( $f ) = \"$lib.\";\n" ;; Function name AFTER period
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
220 " local() = @_;\n" ;; func arguments here
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
221 " \n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
222 " \n}\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
223 )
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
224 (list 77 88 120 146 159 176))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
225
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
226 (list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
227 "for" ; foreach
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
228 (concat
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
229 "for ( )\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
230 "{\n\n\}"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
231 )
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
232 (list 7 12))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
233
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
234 (list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
235 "whi" ; foreach
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
236 (concat
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
237 "while ( )\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
238 "{\n\n\}"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
239 )
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
240 (list 9 15))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
241
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
242
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
243 ;; The normal "if" can be used like
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
244 ;; print $F "xxxxxx" if defined @arr;
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
245 ;;
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
246 (list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
247 "iff"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
248 (concat
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
249 "if ( )\n"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
250 "{\n\n\}"
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
251 )
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
252 (list 6 12))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
253
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
254 (list "loc" "local( $ );" (list 9))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
255 (list "my" "my( $ );" (list 6))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
256 (list "ope" "open(,\"\")\t|| die \"$f: Can't open [$]\";" (list 6 8 36))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
257 (list "clo" "close ;" 7)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
258 (list "def" "defined " (list 9))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
259 (list "und" "undef ;" (list 7))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
260
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
261 ;; There is no ending colon, because they can be in statement
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
262 ;; defined $REXP_NOT_NEW && (print "xxxxx" );
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
263 ;;
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264 (list "pr" "print " 7)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
265 (list "pf" "printf " 8)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
267
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
268 (list "gre" "grep( //, );" (list 8 11))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269 (list "pus" "push( , );" (list 7 9))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270 (list "joi" "join( '', );" (list 7 11))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271 (list "rtu" "return ;" (list 8))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
273 )
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
274 "Expansions for Perl mode. See `expand-add-abbrevs'.")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
275
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276 ;;; Code:
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
277
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
278 ;;;###autoload
16770
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
279 (defun expand-mode (&optional arg)
16769
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
280 "Toggle Expand mode.
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
281 With argument ARG, turn Expand mode on if ARG is positive.
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282 In Expand mode, inserting an abbreviation at the end of a line
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283 causes it to expand and be replaced by its expansion."
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
284 (interactive "P")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
285 (setq expand-mode (if (null arg) (not expand-mode)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
286 (> (prefix-numeric-value arg) 0)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
287 (if expand-mode
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288 (progn
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
289 (setq abbrev-mode nil)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
290 (run-hooks 'expand-mode-hook))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
291
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
292 ;;;###autoload
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
293 (defvar expand-map (make-sparse-keymap)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
294 "Key map used in Expand mode.")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
295
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
296 (or (assq 'expand-mode minor-mode-alist)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
297 (setq minor-mode-alist (cons (list 'expand-mode expand-mode-name)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
298 minor-mode-alist)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
299
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
300 (or (assq 'expand-mode minor-mode-map-alist)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
301 (setq minor-mode-map-alist (cons (cons 'expand-mode expand-map)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
302 minor-mode-map-alist)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
303
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
304 ;;;###autoload
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
305 (defun expand-add-abbrevs (table abbrevs)
16770
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
306 "Add a list of abbrev to abbrev table TABLE.
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
307 ABBREVS is a list of abbrev definitions; each abbrev description entry
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
308 has the form (ABBREV EXPANSION ARG).
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
309
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
310 ABBREV is the abbreviation to replace.
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
311
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
312 EXPANSION is the replacement string or a function which will make the
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
313 expansion. For example you, could use the DMacros or skeleton packages
16769
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
314 to generate such functions.
16770
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
315
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
316 ARG is an optional argument which can be a number or a list of
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
317 numbers. If ARG is a number, point is placed ARG chars from the
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
318 beginning of the expanded text.
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
319
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
320 If ARG is a list of numbers, point is placed according to the first
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
321 member of the list, but you can visit the other specified positions
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
322 cyclicaly with the functions `expand-jump-to-previous-mark' and
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
323 `expand-jump-to-next-mark'.
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
324
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
325 If ARG is omitted, point is placed at the end of the expanded text."
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
326
16769
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
327 (if (null abbrevs)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
328 table
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
329 (expand-add-abbrev table (nth 0 (car abbrevs)) (nth 1 (car abbrevs))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
330 (nth 2 (car abbrevs)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
331 (expand-add-abbrevs table (cdr abbrevs))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
332
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
333 (defvar expand-list nil "Temporary variable used by Expand mode.")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
334
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
335 (defvar expand-pos nil
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
336 "If non nil, stores a vector containing markers to positions defined by the last expansion.
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
337 This variable is local to a buffer.")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
338 (make-variable-buffer-local 'expand-pos)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
339
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
340 (defvar expand-index 0
16770
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
341 "Index of the last marker used in `expand-pos'.
16769
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
342 This variable is local to a buffer.")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
343 (make-variable-buffer-local 'expand-index)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
344
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
345 (defvar expand-point nil
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
346 "End of the expanded region.
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
347 This variable is local to a buffer.")
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
348 (make-variable-buffer-local 'expand-point)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
349
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
350 (defun expand-add-abbrev (table abbrev expansion arg)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
351 "Add one abbreviation and provide the hook to move to the specified positions."
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
352 (let* ((string-exp (if (and (symbolp expansion) (fboundp expansion))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
353 nil
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
354 expansion))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
355 (position (if (and arg string-exp)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
356 (if (listp arg)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
357 (- (length expansion) (1- (car arg)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
358 (- (length expansion) (1- arg)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
359 0)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
360 (define-abbrev
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
361 table
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
362 abbrev
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
363 (vector string-exp
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
364 position
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
365 (if (and (listp arg)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
366 (not (null arg)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
367 (cons (length string-exp) arg)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
368 nil)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
369 (if (and (symbolp expansion) (fboundp expansion))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
370 expansion
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
371 nil)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
372 )
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
373 'expand-abbrev-hook)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
374
16770
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
375 (put 'expand-abbrev-hook 'no-self-insert t)
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
376 (defun expand-abbrev-hook ()
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
377 "Abbrev hook used to do the expansion job of expand abbrevs.
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
378 See `expand-add-abbrevs'."
16769
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
379 ;; Expand only at the end of a line if we are near a word that has
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
380 ;; an abbrev built from expand-add-abbrev.
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
381 (if (and (eolp)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
382 (not (expand-in-literal)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
383 (let ((p (point)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
384 (setq expand-point nil)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
385 ;; don't expand if the preceding char isn't a word constituent
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
386 (if (and (eq (char-syntax (preceding-char))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
387 ?w)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
388 (expand-do-expansion))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
389 (progn
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
390 ;; expand-point tells us if we have inserted the text
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
391 ;; ourself or if it is the hook which has done the job.
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
392 (if expand-point
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
393 (progn
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394 (if (vectorp expand-list)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
395 (expand-build-marks expand-point))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
396 (indent-region p expand-point nil))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
397 ;; an outside function can set expand-list to a list of
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
398 ;; markers in reverse order.
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399 (if (listp expand-list)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
400 (setq expand-index 0
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
401 expand-pos (expand-list-to-markers expand-list)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
402 expand-list nil)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
403 (run-hooks 'expand-expand-hook)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
404 t))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
405 )
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
406
16770
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
407 (defun expand-do-expansion ()
16769
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
408 (delete-backward-char (length last-abbrev-text))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
409 (let* ((vect (symbol-value last-abbrev))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
410 (text (aref vect 0))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
411 (position (aref vect 1))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
412 (jump-args (aref vect 2))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
413 (hook (aref vect 3)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
414 (cond (text
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
415 (insert text)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
416 (setq expand-point (point))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
417 (if jump-args
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
418 (funcall 'expand-build-list (car jump-args) (cdr jump-args)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
419 (if position
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
420 (backward-char position))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
421 (if hook
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
422 (funcall hook))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
423 t)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
424 )
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
425
16770
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
426 (defun expand-abbrev-from-expand (word)
16769
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
427 "Test if an abbrev has a hook."
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
428 (or
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
429 (and (intern-soft word local-abbrev-table)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
430 (symbol-function (intern-soft word local-abbrev-table)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
431 (and (intern-soft word global-abbrev-table)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
432 (symbol-function (intern-soft word global-abbrev-table)))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
433
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
434 (defun expand-previous-word ()
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
435 "Return the previous word."
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
436 (save-excursion
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
437 (let ((p (point)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
438 (backward-word 1)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
439 (buffer-substring p (point)))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
440
16770
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
441 (defun expand-jump-to-previous-mark ()
16769
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
442 "Move the cursor to previous mark created by the expansion."
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
443 (interactive)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
444 (if expand-pos
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
445 (progn
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
446 (setq expand-index (1- expand-index))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
447 (if (< expand-index 0)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
448 (setq expand-index (1- (length expand-pos))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
449 (goto-char (aref expand-pos expand-index))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
450 (run-hooks 'expand-jump-hook))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
451
16770
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
452 (defun expand-jump-to-next-mark ()
16769
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
453 "Move the cursor to next mark created by the expansion."
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
454 (interactive)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
455 (if expand-pos
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
456 (progn
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
457 (setq expand-index (1+ expand-index))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
458 (if (>= expand-index (length expand-pos))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
459 (setq expand-index 0))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
460 (goto-char (aref expand-pos expand-index))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
461 (run-hooks 'expand-jump-hook))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
462
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
463 (defun expand-build-list (len l)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
464 "Build a vector of offset positions from the list of positions."
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
465 (expand-clear-markers)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
466 (setq expand-list (vconcat l))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
467 (let ((i 0)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468 (lenlist (length expand-list)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
469 (while (< i lenlist)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
470 (aset expand-list i (- len (1- (aref expand-list i))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
471 (setq i (1+ i))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
472 )
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 (defun expand-build-marks (p)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
475 "Transform the offsets vector into a marker vector."
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
476 (if expand-list
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477 (progn
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
478 (setq expand-index 0)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
479 (setq expand-pos (make-vector (length expand-list) nil))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
480 (let ((i (1- (length expand-list))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
481 (while (>= i 0)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
482 (aset expand-pos i (copy-marker (- p (aref expand-list i))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
483 (setq i (1- i))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
484 (setq expand-list nil))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
485
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
486 (defun expand-clear-markers ()
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
487 "Make the markers point nowhere."
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
488 (if expand-pos
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
489 (progn
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
490 (let ((i (1- (length expand-pos))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
491 (while (>= i 0)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
492 (set-marker (aref expand-pos i) nil)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493 (setq i (1- i))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
494 (setq expand-pos nil))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
495
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
496 (defun expand-in-literal ()
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497 "Test if we are in a comment or in a string."
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
498 (save-excursion
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
499 (let* ((lim (or (save-excursion
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
500 (beginning-of-defun)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
501 (point))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502 (point-min)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503 (here (point))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
504 (state (parse-partial-sexp lim (point))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
505 (cond
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
506 ((nth 3 state) 'string)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
507 ((nth 4 state) 'comment)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
508 (t nil)))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 (defun expand-mode-submit-report ()
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
511 "Report a problem, a suggestion or a comment about Expand mode."
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
512 (interactive)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
513 (require 'reporter)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
514 (reporter-submit-bug-report
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
515 expand-mode-help-address
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
516 (concat "expand.el " expand-mode-version)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
517 '(expand-mode-name
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
518 expand-mode-hook
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
519 expand-mode-load-hook
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
520 expand-map
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521 )
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
522 nil
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 nil
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
524 "Dear expand.el maintainer,"))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
525
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
526 ;; support functions to add marks to jump from outside function
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
527
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
528 (defun expand-list-to-markers (l)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
529 "Transform a list of markers in reverse order into a vector in the correct order."
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
530 (let* ((len (1- (length l)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 (loop len)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
532 (v (make-vector (+ len 1) nil)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
533 (while (>= loop 0)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534 (aset v loop (if (markerp (car l)) (car l) (copy-marker (car l))))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
535 (setq l (cdr l)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
536 loop (1- loop)))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
537 v))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
538
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
539 ;; integration with skeleton.el
16770
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
540 ;; Used in `skeleton-end-hook' to fetch the positions for @ skeleton tags.
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
541 ;; See `skeleton-insert'.
16769
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
542 (defun expand-skeleton-end-hook ()
16770
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
543 (if skeleton-positions
26698958bd84 (expand-map): Don't define SPC.
Richard M. Stallman <rms@gnu.org>
parents: 16769
diff changeset
544 (setq expand-list skeleton-positions)))
16769
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
545
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
546 (add-hook 'skeleton-end-hook (function expand-skeleton-end-hook))
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
547
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
548 (provide 'expand)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
549
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
550 ;; run load hooks
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
551 (run-hooks 'expand-mode-load-hook)
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
552
077577e8946b Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
553 ;;; expand.el ends here