annotate lisp/skeleton.el @ 12856:a5e07f2bdf83

Rewrite as a minor mode.
author Karl Heuer <kwzh@gnu.org>
date Tue, 15 Aug 1995 01:49:17 +0000
parents 9d4a4e914215
children 9d994b0faaa3
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
1 ;;; skeleton.el --- Lisp language extension for writing statement skeletons
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
2 ;; Copyright (C) 1993, 1994, 1995 by Free Software Foundation, Inc.
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
4 ;; Author: Daniel.Pfeiffer@Informatik.START.dbp.de, fax (+49 69) 7588-2389
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5 ;; Maintainer: FSF
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
6 ;; Keywords: extensions, abbrev, languages, tools
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; any later version.
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 ;;; Commentary:
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
26 ;; A very concise language extension for writing structured statement
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 ;; skeleton insertion commands for programming language modes. This
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 ;; originated in shell-script mode and was applied to ada-mode's
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 ;; commands which shrunk to one third. And these commands are now
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 ;; user configurable.
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 ;;; Code:
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
34 ;; page 1: statement skeleton language definition & interpreter
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 ;; page 2: paired insertion
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 ;; page 3: mirror-mode, an example for setting up paired insertion
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 (defvar skeleton-transformation nil
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
40 "*If non-nil, function applied to literal strings before they are inserted.
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 It should take strings and characters and return them transformed, or nil
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 which means no transformation.
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 Typical examples might be `upcase' or `capitalize'.")
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 ; this should be a fourth argument to defvar
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 (put 'skeleton-transformation 'variable-interactive
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 "aTransformation function: ")
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
51 ;;;###autoload
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
52 (defvar skeleton-filter 'identity
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
53 "Function for transforming a skeleton-proxy's aliases' variable value.")
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
54
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
55
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
56 (defvar skeleton-untabify t
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
57 "When non-`nil' untabifies when deleting backwards with element -ARG.")
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
58
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
59
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
60 (defvar skeleton-further-elements ()
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
61 "A buffer-local varlist (see `let') of mode specific skeleton elements.
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
62 These variables are bound while interpreting a skeleton. Their value may
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
63 in turn be any valid skeleton element if they are themselves to be used as
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
64 skeleton elements.")
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
65 (make-variable-buffer-local 'skeleton-further-elements)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
66
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
67
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 (defvar skeleton-subprompt
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 (substitute-command-keys
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 "RET, \\<minibuffer-local-map>\\[abort-recursive-edit] or \\[help-command]")
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
71 "*Replacement for %s in prompts of recursive subskeletons.")
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
74 (defvar skeleton-abbrev-cleanup nil)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
75
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 (defvar skeleton-debug nil
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 "*If non-nil `define-skeleton' will override previous definition.")
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 ;;;###autoload
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
82 (defmacro define-skeleton (command documentation &rest skeleton)
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
83 "Define a user-configurable COMMAND that enters a statement skeleton.
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84 DOCUMENTATION is that of the command, while the variable of the same name,
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
85 which contains the skeleton, has a documentation to that effect.
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
86 INTERACTOR and ELEMENT ... are as defined under `skeleton-insert'."
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87 (if skeleton-debug
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
88 (set command skeleton))
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 (require 'backquote)
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90 (`(progn
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
91 (defvar (, command) '(, skeleton)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
92 (, documentation))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
93 (defalias '(, command) 'skeleton-proxy))))
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
97 ;; This command isn't meant to be called, only it's aliases with meaningful
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
98 ;; names are.
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 ;;;###autoload
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
100 (defun skeleton-proxy (&optional arg)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
101 "Insert a skeleton defined by variable of same name (see `skeleton-insert').
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
102 Prefix ARG allows wrapping around words or regions (see `skeleton-insert').
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
103 This command can also be an abbrev expansion (3rd and 4th columns in
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
104 \\[edit-abbrevs] buffer: \"\" command-name)."
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
105 (interactive "*P")
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
106 (let ((function (nth 1 (backtrace-frame 1))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
107 (if (eq function 'nth) ; uncompiled lisp function
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
108 (setq function (nth 1 (backtrace-frame 5)))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
109 (if (eq function 'byte-code) ; tracing byte-compiled function
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
110 (setq function (nth 1 (backtrace-frame 2)))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
111 (if (not (setq function (funcall skeleton-filter (symbol-value function))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
112 (if (or (eq this-command 'self-insert-command)
12619
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
113 (eq this-command 'skeleton-pair-insert-maybe)
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
114 (eq this-command 'expand-abbrev))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
115 (setq buffer-undo-list
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
116 (primitive-undo 1 buffer-undo-list)))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
117 (skeleton-insert function
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
118 nil
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
119 (if (setq skeleton-abbrev-cleanup
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
120 (or (eq this-command 'self-insert-command)
12619
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
121 (eq this-command 'skeleton-pair-insert-maybe)))
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
122 ()
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
123 ;; Pretend C-x a e passed the prefix arg to us
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
124 (if (or arg current-prefix-arg)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
125 (prefix-numeric-value (or arg
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
126 current-prefix-arg)))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
127 (if skeleton-abbrev-cleanup
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
128 (setq deferred-action-list t
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
129 deferred-action-function 'skeleton-abbrev-cleanup
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
130 skeleton-abbrev-cleanup (point))))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
131
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
132
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
133 (defun skeleton-abbrev-cleanup (&rest list)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
134 "Value for `post-command-hook' to remove char that expanded abbrev."
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
135 (if (integerp skeleton-abbrev-cleanup)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
136 (progn
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
137 (delete-region skeleton-abbrev-cleanup (point))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
138 (setq deferred-action-list ()
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
139 deferred-action-function nil
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
140 skeleton-abbrev-cleanup nil))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
141
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
142
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
143 ;;;###autoload
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
144 (defun skeleton-insert (skeleton &optional no-newline regions)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
145 "Insert the complex statement skeleton SKELETON describes very concisely.
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 If optional NO-NEWLINE is nil the skeleton will end on a line of its own.
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
148 With optional third REGIONS wrap first interesting point (`_') in skeleton
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
149 around next REGIONS words, if REGIONS is positive. If REGIONS is negative,
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
150 wrap REGIONS preceding interregions into first REGIONS interesting positions
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
151 \(successive `_'s) in skeleton. An interregion is the stretch of text between
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
152 two contiguous marked points. If you marked A B C [] (where [] is the cursor)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
153 in alphabetical order, the 3 interregions are simply the last 3 regions. But
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
154 if you marked B A [] C, the interregions are B-A, A-[], []-C.
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
155
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
156 SKELETON is made up as (INTERACTOR ELEMENT ...). INTERACTOR may be nil if
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
157 not needed, a prompt-string or an expression for complex read functions.
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159 If ELEMENT is a string or a character it gets inserted (see also
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 `skeleton-transformation'). Other possibilities are:
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162 \\n go to next line and align cursor
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
163 _ interesting point, interregion here, point after termination
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
164 > indent line (or interregion if > _) according to major mode
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
165 & do next ELEMENT if previous moved point
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
166 | do next ELEMENT if previous didn't move point
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
167 -num delete num preceding characters (see `skeleton-untabify')
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168 resume: skipped, continue here if quit is signaled
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169 nil skipped
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
170
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
171 Further elements can be defined via `skeleton-further-elements'. ELEMENT may
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
172 itself be a SKELETON with an INTERACTOR. The user is prompted repeatedly for
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
173 different inputs. The SKELETON is processed as often as the user enters a
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
174 non-empty string. \\[keyboard-quit] terminates skeleton insertion, but
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
175 continues after `resume:' and positions at `_' if any. If INTERACTOR in such
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
176 a subskeleton is a prompt-string which contains a \".. %s ..\" it is
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
177 formatted with `skeleton-subprompt'.
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
178
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
179 Quoted lisp-expressions are evaluated evaluated for their side-effect.
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180 Other lisp-expressions are evaluated and the value treated as above.
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
181 Note that expressions may not return `t' since this impplies an
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
182 endless loop. Modes can define other symbols by locally setting them
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
183 to any valid skeleton element. The following local variables are
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
184 available:
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
185
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
186 str first time: read a string according to INTERACTOR
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 then: insert previously read string once more
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
188 help help-form during interaction with the user or `nil'
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
189 quit non-nil after resume: section is entered by keyboard quit
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
190 v1, v2 local variables for memorising anything you want"
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
191 (and regions
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
192 (setq regions
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
193 (if (> regions 0)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
194 (list (point-marker)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
195 (save-excursion (forward-word regions) (point-marker)))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
196 (setq regions (- regions))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
197 ;; copy regions - 1 elements from `mark-ring'
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
198 (let ((l1 (cons (mark-marker) mark-ring))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
199 (l2 (list (point-marker))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
200 (while (and l1 (> regions 0))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
201 (setq l2 (cons (car l1) l2)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
202 regions (1- regions)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
203 l1 (cdr l1)))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
204 (sort l2 '<))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
205 (goto-char (car regions))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
206 (setq regions (cdr regions)))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
207 (let (modified point resume: help quit v1 v2)
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
208 (or no-newline
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
209 (eolp)
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
210 ;;(save-excursion
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
211 ;; (indent-to (prog1
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
212 ;; (current-indentation)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
213 ;; (newline))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
214 (goto-char (prog1 (point)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
215 (indent-to (prog1
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
216 (current-indentation)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
217 (newline))))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
218 (unwind-protect
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
219 (eval (list 'let skeleton-further-elements
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
220 '(skeleton-internal-list skeleton (car skeleton))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
221 (if point
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
222 (goto-char point)))))
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
223
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
224
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
225
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
226 (defun skeleton-read (str &optional initial-input recursive)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
227 "Function for reading a string from the minibuffer in skeletons.
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
228 PROMPT may contain a `%s' which will be replaced by `skeleton-subprompt'.
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
229 If non-`nil' second arg INITIAL-INPUT is a string to insert before reading.
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
230 While reading, the value of `minibuffer-help-form' is variable `help' if that is
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
231 non-`nil' or a default string if optional ITERATIVE is non-`nil'."
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
232
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
233 (or no-newline
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
234 (eolp)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
235 (goto-char (prog1 (point)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
236 (indent-to (prog1
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
237 (current-indentation)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
238 (newline))))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
239 (let ((minibuffer-help-form (or help (if recursive "\
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
240 As long as you provide input you will insert another subskeleton.
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
241
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
242 If you enter the empty string, the loop inserting subskeletons is
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
243 left, and the current one is removed as far as it has been entered.
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
244
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
245 If you quit, the current subskeleton is removed as far as it has been
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
246 entered. No more of the skeleton will be inserted, except maybe for a
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
247 syntactically necessary termination."
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
248 "
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
249 You are inserting a skeleton. Standard text gets inserted into the buffer
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
250 automatically, and you are prompted to fill in the variable parts."))))
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
251 (setq str (if (stringp str)
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
252 (read-string (format str skeleton-subprompt) initial-input)
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
253 (eval str))))
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
254 (if (or (null str) (string= str ""))
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
255 (signal 'quit t)
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
256 str))
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
257
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
258
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
259 (defun skeleton-internal-list (skeleton &optional str recursive)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
260 (let* ((start (save-excursion (beginning-of-line) (point)))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
261 (column (current-column))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
262 (line (buffer-substring start
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
263 (save-excursion (end-of-line) (point))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
264 opoint)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
265 (condition-case quit
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
266 (progn
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
267 '(setq str (list 'setq 'str
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
268 (if recursive
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
269 (list 'skeleton-read (list 'quote str))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
270 (list (if (stringp str)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
271 'read-string
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
272 'eval)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
273 str))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
274 (setq str (list 'setq 'str
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
275 (list 'skeleton-read
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
276 (list 'quote str nil recursive))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
277 (while (setq modified (eq opoint (point))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
278 opoint (point)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
279 skeleton (cdr skeleton))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
280 (skeleton-internal-1 (car skeleton)))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
281 ;; maybe continue loop
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
282 recursive)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
283 (quit ;; remove the subskeleton as far as it has been shown
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
284 (if (eq (cdr quit) 'recursive)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
285 ()
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
286 ;; the subskeleton shouldn't have deleted outside current line
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
287 (end-of-line)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
288 (delete-region start (point))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
289 (insert line)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
290 (move-to-column column))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
291 (if (eq (cdr quit) t)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
292 ;; empty string entered
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
293 nil
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
294 (while (if skeleton
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
295 (not (eq (car (setq skeleton (cdr skeleton)))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
296 'resume:))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
297 (if skeleton
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
298 (skeleton-internal-list skeleton)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
299 ;; propagate signal we can't handle
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
300 (if recursive (signal 'quit 'recursive)))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
301 (signal 'quit nil))))))
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
302
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
303
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
304 (defun skeleton-internal-1 (element &optional literal)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
305 (cond ((and (integerp element) ; -num
7393
e4a565cee722 (mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents: 6463
diff changeset
306 (< element 0))
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
307 (if skeleton-untabify
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
308 (backward-delete-char-untabify (- element))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
309 (delete-backward-char (- element))))
7393
e4a565cee722 (mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents: 6463
diff changeset
310 ((char-or-string-p element)
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
311 (insert-before-markers (if (and skeleton-transformation
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
312 (not literal))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
313 (funcall skeleton-transformation element)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
314 element)))
7393
e4a565cee722 (mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents: 6463
diff changeset
315 ((eq element '\n) ; actually (eq '\n 'n)
e4a565cee722 (mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents: 6463
diff changeset
316 (newline)
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
317 (indent-relative t))
7393
e4a565cee722 (mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents: 6463
diff changeset
318 ((eq element '>)
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
319 (if (and regions
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
320 (eq (nth 1 skeleton) '_))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
321 (indent-region (point) (car regions) nil)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
322 (indent-for-tab-command)))
7393
e4a565cee722 (mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents: 6463
diff changeset
323 ((eq element '_)
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
324 (if regions
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
325 (progn
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
326 (goto-char (car regions))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
327 (setq regions (cdr regions)))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
328 (or point
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
329 (setq point (point)))))
7393
e4a565cee722 (mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents: 6463
diff changeset
330 ((eq element '&)
e4a565cee722 (mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents: 6463
diff changeset
331 (if modified
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
332 (setq skeleton (cdr skeleton))))
7393
e4a565cee722 (mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents: 6463
diff changeset
333 ((eq element '|)
e4a565cee722 (mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents: 6463
diff changeset
334 (or modified
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
335 (setq skeleton (cdr skeleton))))
7393
e4a565cee722 (mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents: 6463
diff changeset
336 ((if (consp element)
e4a565cee722 (mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents: 6463
diff changeset
337 (or (stringp (car element))
e4a565cee722 (mirror-mode): Commented out.
Richard M. Stallman <rms@gnu.org>
parents: 6463
diff changeset
338 (consp (car element))))
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
339 (while (skeleton-internal-list element (car element) t)))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
340 ((if (consp element)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
341 (eq 'quote (car element)))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
342 (eval (nth 1 element)))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
343 ((null element))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
344 ((skeleton-internal-1 (eval element) t))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
345
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
346 ;; Maybe belongs into simple.el or elsewhere
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
347
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
348 (define-skeleton local-variables-section
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
349 "Insert a local variables section. Use current comment syntax if any."
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
350 ()
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
351 '(save-excursion
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
352 (if (re-search-forward page-delimiter nil t)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
353 (error "Not on last page.")))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
354 comment-start "Local Variables:" comment-end \n
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
355 comment-start "mode: "
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
356 (completing-read "Mode: " obarray
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
357 (lambda (symbol)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
358 (if (commandp symbol)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
359 (string-match "-mode$" (symbol-name symbol))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
360 t)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
361 & -5 | '(kill-line 0) & -1 | comment-end \n
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
362 ( (completing-read (format "Variable, %s: " skeleton-subprompt)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
363 obarray
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
364 (lambda (symbol)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
365 (or (eq symbol 'eval)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
366 (user-variable-p symbol)))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
367 t)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
368 comment-start str ": "
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
369 (read-from-minibuffer "Expression: " nil read-expression-map nil
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
370 'read-expression-history) | _
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
371 comment-end \n)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
372 resume:
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
373 comment-start "End:" comment-end)
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
374
12619
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
375 ;; Variables and command for automatically inserting pairs like () or "".
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
376
12619
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
377 (defvar skeleton-pair nil
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
378 "*If this is nil pairing is turned off, no matter what else is set.
12619
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
379 Otherwise modes with `skeleton-pair-insert-maybe' on some keys
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
380 will attempt to insert pairs of matching characters.")
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
381
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
382
12619
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
383 (defvar skeleton-pair-on-word nil
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
384 "*If this is nil, paired insertion is inhibited before or inside a word.")
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
385
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
386
12619
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
387 (defvar skeleton-pair-filter (lambda ())
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
388 "Attempt paired insertion if this function returns nil, before inserting.
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
389 This allows for context-sensitive checking whether pairing is appropriate.")
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
390
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
391
12619
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
392 (defvar skeleton-pair-alist ()
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
393 "An override alist of pairing partners matched against `last-command-char'.
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
394 Each alist element, which looks like (ELEMENT ...), is passed to
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
395 `skeleton-insert' with no interactor. Variable `str' does nothing.
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
396
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
397 Elements might be (?` ?` _ \"''\"), (?\\( ? _ \" )\") or (?{ \\n > _ \\n ?} >).")
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
398
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
400 ;;;###autoload
12619
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
401 (defun skeleton-pair-insert-maybe (arg)
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
402 "Insert the character you type ARG times.
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
403
12619
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
404 With no ARG, if `skeleton-pair' is non-nil, and if
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
405 `skeleton-pair-on-word' is non-nil or we are not before or inside a
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
406 word, and if `skeleton-pair-filter' returns nil, pairing is performed.
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
407
12619
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
408 If a match is found in `skeleton-pair-alist', that is inserted, else
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
409 the defaults are used. These are (), [], {}, <> and `' for the
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
410 symmetrical ones, and the same character twice for the others."
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
411 (interactive "*P")
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
412 (if (or arg
12619
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
413 (not skeleton-pair)
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
414 (if (not skeleton-pair-on-word) (looking-at "\\w"))
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
415 (funcall skeleton-pair-filter))
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
416 (self-insert-command (prefix-numeric-value arg))
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
417 (self-insert-command 1)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
418 (if skeleton-abbrev-cleanup
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
419 ()
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
420 ;; (preceding-char) is stripped of any Meta-stuff in last-command-char
12619
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
421 (if (setq arg (assq (preceding-char) skeleton-pair-alist))
12501
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
422 ;; typed char is inserted, and car means no interactor
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
423 (skeleton-insert arg t)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
424 (save-excursion
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
425 (insert (or (cdr (assq (preceding-char)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
426 '((?( . ?))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
427 (?[ . ?])
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
428 (?{ . ?})
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
429 (?< . ?>)
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
430 (?` . ?'))))
6c57be2d372f partly rewritten and extended.
Karl Heuer <kwzh@gnu.org>
parents: 7394
diff changeset
431 last-command-char)))))))
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
432
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
433
12619
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
434 ;;; ;; A more serious example can be found in sh-script.el
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
435 ;;; ;; The quote before (defun prevents this from being byte-compiled.
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
436 ;;;(defun mirror-mode ()
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
437 ;;; "This major mode is an amusing little example of paired insertion.
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
438 ;;;All printable characters do a paired self insert, while the other commands
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
439 ;;;work normally."
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
440 ;;; (interactive)
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
441 ;;; (kill-all-local-variables)
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
442 ;;; (make-local-variable 'pair)
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
443 ;;; (make-local-variable 'pair-on-word)
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
444 ;;; (make-local-variable 'pair-filter)
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
445 ;;; (make-local-variable 'pair-alist)
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
446 ;;; (setq major-mode 'mirror-mode
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
447 ;;; mode-name "Mirror"
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
448 ;;; pair-on-word t
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
449 ;;; ;; in the middle column insert one or none if odd window-width
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
450 ;;; pair-filter (lambda ()
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
451 ;;; (if (>= (current-column)
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
452 ;;; (/ (window-width) 2))
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
453 ;;; ;; insert both on next line
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
454 ;;; (next-line 1)
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
455 ;;; ;; insert one or both?
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
456 ;;; (= (* 2 (1+ (current-column)))
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
457 ;;; (window-width))))
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
458 ;;; ;; mirror these the other way round as well
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
459 ;;; pair-alist '((?) _ ?()
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
460 ;;; (?] _ ?[)
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
461 ;;; (?} _ ?{)
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
462 ;;; (?> _ ?<)
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
463 ;;; (?/ _ ?\\)
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
464 ;;; (?\\ _ ?/)
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
465 ;;; (?` ?` _ "''")
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
466 ;;; (?' ?' _ "``"))
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
467 ;;; ;; in this mode we exceptionally ignore the user, else it's no fun
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
468 ;;; pair t)
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
469 ;;; (let ((map (make-keymap))
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
470 ;;; (i ? ))
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
471 ;;; (use-local-map map)
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
472 ;;; (setq map (car (cdr map)))
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
473 ;;; (while (< i ?\^?)
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
474 ;;; (aset map i 'skeleton-pair-insert-maybe)
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
475 ;;; (setq i (1+ i))))
9d4a4e914215 (local-variables-section): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 12501
diff changeset
476 ;;; (run-hooks 'mirror-mode-hook))
6463
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477
380e8fcde9a2 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
478 ;; skeleton.el ends here