Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ DIR ]
drwxr-xr-x
cedet
[ DIR ]
drwxr-xr-x
emacs-lisp
[ DIR ]
drwxr-xr-x
emulation
[ DIR ]
drwxr-xr-x
erc
[ DIR ]
drwxr-xr-x
eshell
[ DIR ]
drwxr-xr-x
gnus
[ DIR ]
drwxr-xr-x
image
[ DIR ]
drwxr-xr-x
international
[ DIR ]
drwxr-xr-x
language
[ DIR ]
drwxr-xr-x
leim
[ DIR ]
drwxr-xr-x
mail
[ DIR ]
drwxr-xr-x
mh-e
[ DIR ]
drwxr-xr-x
net
[ DIR ]
drwxr-xr-x
nxml
[ DIR ]
drwxr-xr-x
obsolete
[ DIR ]
drwxr-xr-x
org
[ DIR ]
drwxr-xr-x
play
[ DIR ]
drwxr-xr-x
progmodes
[ DIR ]
drwxr-xr-x
term
[ DIR ]
drwxr-xr-x
textmodes
[ DIR ]
drwxr-xr-x
url
[ DIR ]
drwxr-xr-x
vc
[ DIR ]
drwxr-xr-x
COPYING
34.32
KB
-rw-r--r--
README
537
B
-rw-r--r--
abbrev.elc
34.55
KB
-rw-r--r--
align.elc
39.88
KB
-rw-r--r--
allout-widgets.elc
62.37
KB
-rw-r--r--
allout.elc
203.33
KB
-rw-r--r--
ansi-color.elc
17.12
KB
-rw-r--r--
apropos.elc
37.42
KB
-rw-r--r--
arc-mode.elc
58.06
KB
-rw-r--r--
array.elc
27.07
KB
-rw-r--r--
auth-source-pass.elc
11.68
KB
-rw-r--r--
auth-source.elc
64.32
KB
-rw-r--r--
autoarg.elc
6.63
KB
-rw-r--r--
autoinsert.elc
13.41
KB
-rw-r--r--
autorevert.elc
30.71
KB
-rw-r--r--
avoid.elc
11.62
KB
-rw-r--r--
battery.elc
24.42
KB
-rw-r--r--
bindings.elc
42.76
KB
-rw-r--r--
bookmark.elc
77.09
KB
-rw-r--r--
bs.elc
49.32
KB
-rw-r--r--
buff-menu.elc
27.02
KB
-rw-r--r--
button.elc
14.97
KB
-rw-r--r--
calculator.elc
53.9
KB
-rw-r--r--
case-table.elc
4.99
KB
-rw-r--r--
cdl.elc
1.07
KB
-rw-r--r--
char-fold.elc
311.81
KB
-rw-r--r--
chistory.elc
8.16
KB
-rw-r--r--
cmuscheme.elc
18.07
KB
-rw-r--r--
color.elc
12.83
KB
-rw-r--r--
comint.elc
114.46
KB
-rw-r--r--
completion.elc
41.12
KB
-rw-r--r--
composite.elc
27.94
KB
-rw-r--r--
cus-dep.elc
6.42
KB
-rw-r--r--
cus-edit.elc
139.04
KB
-rw-r--r--
cus-face.elc
10.54
KB
-rw-r--r--
cus-load.el
85.19
KB
-rw-r--r--
cus-start.elc
21.92
KB
-rw-r--r--
cus-theme.elc
25.05
KB
-rw-r--r--
custom.elc
47.41
KB
-rw-r--r--
dabbrev.elc
22.28
KB
-rw-r--r--
delim-col.elc
8.95
KB
-rw-r--r--
delsel.elc
9.2
KB
-rw-r--r--
descr-text.elc
26.87
KB
-rw-r--r--
desktop.elc
47.64
KB
-rw-r--r--
dframe.elc
19.92
KB
-rw-r--r--
dired-aux.elc
85.75
KB
-rw-r--r--
dired-loaddefs.el
22.29
KB
-rw-r--r--
dired-x.elc
44.53
KB
-rw-r--r--
dired.elc
127.27
KB
-rw-r--r--
dirtrack.elc
7.75
KB
-rw-r--r--
disp-table.elc
8.76
KB
-rw-r--r--
display-fill-column-indicator....
8.32
KB
-rw-r--r--
display-line-numbers.elc
8.67
KB
-rw-r--r--
dnd.elc
7.13
KB
-rw-r--r--
doc-view.elc
65.25
KB
-rw-r--r--
dom.elc
7.36
KB
-rw-r--r--
dos-fns.elc
6.14
KB
-rw-r--r--
dos-vars.elc
1.1
KB
-rw-r--r--
dos-w32.elc
11.67
KB
-rw-r--r--
double.elc
4.34
KB
-rw-r--r--
dynamic-setting.elc
2.2
KB
-rw-r--r--
ebuff-menu.elc
10.46
KB
-rw-r--r--
echistory.elc
4.75
KB
-rw-r--r--
ecomplete.elc
7.1
KB
-rw-r--r--
edmacro.elc
19.94
KB
-rw-r--r--
ehelp.elc
11.32
KB
-rw-r--r--
elec-pair.elc
21.41
KB
-rw-r--r--
electric.elc
23.69
KB
-rw-r--r--
elide-head.elc
2.65
KB
-rw-r--r--
emacs-lock.elc
9.29
KB
-rw-r--r--
env.elc
6.12
KB
-rw-r--r--
epa-dired.elc
1.62
KB
-rw-r--r--
epa-file.elc
8.65
KB
-rw-r--r--
epa-hook.elc
4.63
KB
-rw-r--r--
epa-mail.elc
9.43
KB
-rw-r--r--
epa.elc
45.25
KB
-rw-r--r--
epg-config.elc
8.97
KB
-rw-r--r--
epg.elc
166.06
KB
-rw-r--r--
expand.elc
9.07
KB
-rw-r--r--
ezimage.elc
9.65
KB
-rw-r--r--
face-remap.elc
16.58
KB
-rw-r--r--
facemenu.elc
27.89
KB
-rw-r--r--
faces.elc
90.21
KB
-rw-r--r--
ffap.elc
50.3
KB
-rw-r--r--
filecache.elc
16.69
KB
-rw-r--r--
fileloop.elc
6.62
KB
-rw-r--r--
filenotify.elc
28.49
KB
-rw-r--r--
files-x.elc
21.9
KB
-rw-r--r--
files.elc
236.95
KB
-rw-r--r--
filesets.elc
72.57
KB
-rw-r--r--
find-cmd.elc
4.9
KB
-rw-r--r--
find-dired.elc
10.41
KB
-rw-r--r--
find-file.elc
18.33
KB
-rw-r--r--
find-lisp.elc
7.66
KB
-rw-r--r--
finder-inf.el
41.27
KB
-rw-r--r--
finder.elc
14.73
KB
-rw-r--r--
flow-ctrl.elc
2.26
KB
-rw-r--r--
foldout.elc
7.25
KB
-rw-r--r--
follow.elc
40.63
KB
-rw-r--r--
font-core.elc
12.41
KB
-rw-r--r--
font-lock.elc
61.63
KB
-rw-r--r--
format-spec.elc
3.93
KB
-rw-r--r--
format.elc
27.56
KB
-rw-r--r--
forms.elc
35.1
KB
-rw-r--r--
frame.elc
85.94
KB
-rw-r--r--
frameset.elc
48.02
KB
-rw-r--r--
fringe.elc
10.23
KB
-rw-r--r--
generic-x.elc
40.27
KB
-rw-r--r--
help-at-pt.elc
11.15
KB
-rw-r--r--
help-fns.elc
45.35
KB
-rw-r--r--
help-macro.elc
4.25
KB
-rw-r--r--
help-mode.elc
23.89
KB
-rw-r--r--
help.elc
52.22
KB
-rw-r--r--
hex-util.elc
1.3
KB
-rw-r--r--
hexl.elc
35.39
KB
-rw-r--r--
hfy-cmap.elc
25.45
KB
-rw-r--r--
hi-lock.elc
29.38
KB
-rw-r--r--
hilit-chg.elc
28.77
KB
-rw-r--r--
hippie-exp.elc
21.52
KB
-rw-r--r--
hl-line.elc
11.23
KB
-rw-r--r--
htmlfontify-loaddefs.el
808
B
-rw-r--r--
htmlfontify.elc
67.51
KB
-rw-r--r--
ibuf-ext.elc
77.15
KB
-rw-r--r--
ibuf-macs.elc
12.47
KB
-rw-r--r--
ibuffer-loaddefs.el
12.68
KB
-rw-r--r--
ibuffer.elc
98.62
KB
-rw-r--r--
icomplete.elc
22.83
KB
-rw-r--r--
ido.elc
127.92
KB
-rw-r--r--
ielm.elc
19.2
KB
-rw-r--r--
iimage.elc
4.92
KB
-rw-r--r--
image-dired.elc
92.97
KB
-rw-r--r--
image-file.elc
6.53
KB
-rw-r--r--
image-mode.elc
42.56
KB
-rw-r--r--
image.elc
34.45
KB
-rw-r--r--
imenu.elc
24.94
KB
-rw-r--r--
indent.elc
23.63
KB
-rw-r--r--
info-look.elc
28.18
KB
-rw-r--r--
info-xref.elc
16.59
KB
-rw-r--r--
info.elc
144.48
KB
-rw-r--r--
informat.elc
9.73
KB
-rw-r--r--
isearch.elc
147.85
KB
-rw-r--r--
isearchb.elc
4.73
KB
-rw-r--r--
jit-lock.elc
23.49
KB
-rw-r--r--
jka-cmpr-hook.elc
13.07
KB
-rw-r--r--
jka-compr.elc
12.09
KB
-rw-r--r--
json.elc
22.76
KB
-rw-r--r--
jsonrpc.elc
31.65
KB
-rw-r--r--
kermit.elc
2.92
KB
-rw-r--r--
kmacro.elc
35.15
KB
-rw-r--r--
ldefs-boot.el
1.41
MB
-rw-r--r--
linum.elc
10.77
KB
-rw-r--r--
loaddefs.el
1.41
MB
-rw-r--r--
loadhist.elc
9.77
KB
-rw-r--r--
loadup.el
20.08
KB
-rw-r--r--
locate.elc
19.57
KB
-rw-r--r--
lpr.elc
9.44
KB
-rw-r--r--
ls-lisp.elc
22.7
KB
-rw-r--r--
macros.elc
7.23
KB
-rw-r--r--
makesum.elc
2.47
KB
-rw-r--r--
man.elc
53.85
KB
-rw-r--r--
master.elc
4.58
KB
-rw-r--r--
mb-depth.elc
3.56
KB
-rw-r--r--
md4.elc
8.12
KB
-rw-r--r--
menu-bar.elc
86.61
KB
-rw-r--r--
midnight.elc
10.22
KB
-rw-r--r--
minibuf-eldef.elc
6.43
KB
-rw-r--r--
minibuffer.elc
104.08
KB
-rw-r--r--
misc.elc
5.4
KB
-rw-r--r--
misearch.elc
12.37
KB
-rw-r--r--
mouse-copy.elc
3.61
KB
-rw-r--r--
mouse-drag.elc
6.43
KB
-rw-r--r--
mouse.elc
71.3
KB
-rw-r--r--
mpc.elc
79.29
KB
-rw-r--r--
msb.elc
26.76
KB
-rw-r--r--
mwheel.elc
12.83
KB
-rw-r--r--
newcomment.elc
39.43
KB
-rw-r--r--
notifications.elc
13.78
KB
-rw-r--r--
novice.elc
4.43
KB
-rw-r--r--
obarray.elc
1.71
KB
-rw-r--r--
outline.elc
37.04
KB
-rw-r--r--
paren.elc
8.69
KB
-rw-r--r--
password-cache.elc
3.57
KB
-rw-r--r--
pcmpl-cvs.elc
6.17
KB
-rw-r--r--
pcmpl-gnu.elc
12.96
KB
-rw-r--r--
pcmpl-linux.elc
3.09
KB
-rw-r--r--
pcmpl-rpm.elc
11.17
KB
-rw-r--r--
pcmpl-unix.elc
7.52
KB
-rw-r--r--
pcmpl-x.elc
8.95
KB
-rw-r--r--
pcomplete.elc
36.16
KB
-rw-r--r--
pixel-scroll.elc
10.82
KB
-rw-r--r--
plstore.elc
14.75
KB
-rw-r--r--
printing.elc
157.7
KB
-rw-r--r--
proced.elc
62.85
KB
-rw-r--r--
profiler.elc
42.81
KB
-rw-r--r--
ps-bdf.elc
12.69
KB
-rw-r--r--
ps-def.elc
2.23
KB
-rw-r--r--
ps-mule.elc
34.89
KB
-rw-r--r--
ps-print-loaddefs.el
2.6
KB
-rw-r--r--
ps-print.elc
141.17
KB
-rw-r--r--
ps-samp.elc
5.26
KB
-rw-r--r--
recentf.elc
48.73
KB
-rw-r--r--
rect.elc
26.88
KB
-rw-r--r--
register.elc
27.63
KB
-rw-r--r--
registry.elc
10.41
KB
-rw-r--r--
repeat.elc
5.14
KB
-rw-r--r--
replace.elc
84.62
KB
-rw-r--r--
reposition.elc
2.66
KB
-rw-r--r--
reveal.elc
7.16
KB
-rw-r--r--
rfn-eshadow.elc
7.23
KB
-rw-r--r--
rot13.elc
2.56
KB
-rw-r--r--
rtree.elc
4.09
KB
-rw-r--r--
ruler-mode.elc
21.87
KB
-rw-r--r--
savehist.elc
10.83
KB
-rw-r--r--
saveplace.elc
11.87
KB
-rw-r--r--
sb-image.elc
2.75
KB
-rw-r--r--
scroll-all.elc
4.41
KB
-rw-r--r--
scroll-bar.elc
16.68
KB
-rw-r--r--
scroll-lock.elc
5.41
KB
-rw-r--r--
select.elc
18.75
KB
-rw-r--r--
server.elc
47.56
KB
-rw-r--r--
ses.elc
131.12
KB
-rw-r--r--
shadowfile.elc
31.16
KB
-rw-r--r--
shell.elc
41.53
KB
-rw-r--r--
simple.elc
301.78
KB
-rw-r--r--
skeleton.elc
15.76
KB
-rw-r--r--
so-long.elc
47.15
KB
-rw-r--r--
sort.elc
15.49
KB
-rw-r--r--
soundex.elc
1.14
KB
-rw-r--r--
speedbar.elc
115.02
KB
-rw-r--r--
startup.elc
68.51
KB
-rw-r--r--
strokes.elc
44.03
KB
-rw-r--r--
subdirs.el
450
B
-rw-r--r--
subr.elc
186.63
KB
-rw-r--r--
svg.elc
12.71
KB
-rw-r--r--
t-mouse.elc
3.8
KB
-rw-r--r--
tab-bar.elc
52.48
KB
-rw-r--r--
tab-line.elc
29.85
KB
-rw-r--r--
tabify.elc
2.17
KB
-rw-r--r--
talk.elc
2.99
KB
-rw-r--r--
tar-mode.elc
57.2
KB
-rw-r--r--
tempo.elc
19.18
KB
-rw-r--r--
term.elc
107.99
KB
-rw-r--r--
thingatpt.elc
16.88
KB
-rw-r--r--
thread.elc
8.08
KB
-rw-r--r--
thumbs.elc
25.74
KB
-rw-r--r--
time-stamp.elc
18.69
KB
-rw-r--r--
time.elc
20.87
KB
-rw-r--r--
timezone.elc
10.94
KB
-rw-r--r--
tmm.elc
13.39
KB
-rw-r--r--
tool-bar.elc
9.76
KB
-rw-r--r--
tooltip.elc
13.19
KB
-rw-r--r--
tree-widget.elc
19.84
KB
-rw-r--r--
tutorial.elc
22.28
KB
-rw-r--r--
type-break.elc
37.35
KB
-rw-r--r--
uniquify.elc
17.68
KB
-rw-r--r--
userlock.elc
6.33
KB
-rw-r--r--
vcursor.elc
23.92
KB
-rw-r--r--
version.elc
6.01
KB
-rw-r--r--
view.elc
34.69
KB
-rw-r--r--
vt-control.elc
1.99
KB
-rw-r--r--
vt100-led.elc
1.33
KB
-rw-r--r--
w32-fns.elc
11.01
KB
-rw-r--r--
w32-vars.elc
5.16
KB
-rw-r--r--
wdired.elc
23.52
KB
-rw-r--r--
whitespace.elc
69.06
KB
-rw-r--r--
wid-browse.elc
8.48
KB
-rw-r--r--
wid-edit.elc
99.52
KB
-rw-r--r--
widget.elc
1.4
KB
-rw-r--r--
windmove.elc
19.82
KB
-rw-r--r--
window.elc
294.5
KB
-rw-r--r--
winner.elc
12.04
KB
-rw-r--r--
woman.elc
109.43
KB
-rw-r--r--
x-dnd.elc
19.56
KB
-rw-r--r--
xdg.elc
10.14
KB
-rw-r--r--
xml.elc
25.31
KB
-rw-r--r--
xt-mouse.elc
14.1
KB
-rw-r--r--
xwidget.elc
18.9
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : tempo.elc
;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317\306\301&\210\310\320\312\313\321DD\322\316\317\306\301&\210\310\323\312\313\324DD\325\316\317\306\301&\210\310\326\312\313\327DD\330\316\317\306\301&\207" [custom-declare-group tempo nil "Flexible template insertion." :prefix "tempo-" :group tools custom-declare-variable tempo-interactive funcall function #[0 "\300\207" [nil] 1] "Prompt user for strings in templates.\nIf this variable is non-nil, `tempo-insert' prompts the\nuser for text to insert in the templates." :type boolean tempo-insert-region #[0 "\300\207" [nil] 1] "Automatically insert current region when there is a `r' in the template\nIf this variable is nil, `r' elements will be treated just like `p'\nelements, unless the template function is given a prefix (or a non-nil\nargument). If this variable is non-nil, the behavior is reversed.\n\nIn Transient Mark mode, this option is unused." tempo-show-completion-buffer #[0 "\300\207" [t] 1] "If non-nil, show a buffer with possible completions, when only\na partial completion can be found." tempo-leave-completion-buffer #[0 "\300\207" [nil] 1] "If nil, a completion buffer generated by \\[tempo-complete-tag]\ndisappears at the next keypress; otherwise, it remains forever."] 8) #@225 List of functions to run when inserting a string. Each function is called with a single arg, STRING and should return another string. This could be used for making all strings upcase by setting it to (upcase), for example. (defvar tempo-insert-string-functions nil (#$ . 1701)) #@60 An association list with tags and corresponding templates. (defvar tempo-tags nil (#$ . 1986)) #@383 A list of locally installed tag completion lists. It is an association list where the car of every element is a symbol whose variable value is a template list. The cdr part, if non-nil, is a function or a regexp that defines the string to match. See the documentation for the function `tempo-complete-tag' for more info. `tempo-tags' is always in the last position in this list. (defvar tempo-local-tags '((tempo-tags)) (#$ . 2088)) (make-variable-buffer-local 'tempo-local-tags) #@62 A collection of all the tags defined for the current buffer. (defvar tempo-collection nil (#$ . 2577)) (make-variable-buffer-local 'tempo-collection) #@54 Indicates if the tag collection needs to be rebuilt. (defvar tempo-dirty-collection t (#$ . 2733)) (make-variable-buffer-local 'tempo-dirty-collection) #@87 A list of marks to jump to with `\[tempo-forward-mark]' and `\[tempo-backward-mark]'. (defvar tempo-marks nil (#$ . 2891)) (make-variable-buffer-local 'tempo-marks) #@863 The regexp or function used to find the string to match against tags. If `tempo-match-finder' is a string, it should contain a regular expression with at least one \( \) pair. When searching for tags, `tempo-complete-tag' calls `re-search-backward' with this string, and the string between the first \( and \) is used for matching against each string in the tag list. If one is found, the whole text between the first \( and the point is replaced with the inserted template. You will probably want to include \=\= at the end of the regexp to make sure that the string is matched only against text adjacent to the point. If `tempo-match-finder' is a symbol, it should be a function that returns a pair of the form (STRING . POS), where STRING is the string used for matching and POS is the buffer position after which text should be replaced with a template. (defvar tempo-match-finder "\\b\\([[:word:]]+\\)\\=" (#$ . 3063)) (make-variable-buffer-local 'tempo-match-finder) #@233 Element handlers for user-defined elements. A list of symbols which are bound to functions that take one argument. This function should return something to be sent to `tempo-insert' if it recognizes the argument, and nil otherwise. (defvar tempo-user-elements nil (#$ . 4047)) #@41 Temporary storage for named insertions. (defvar tempo-named-insertions nil (#$ . 4330)) (make-variable-buffer-local 'tempo-named-insertions) #@48 Region start when inserting around the region. (defvar tempo-region-start (make-marker) (#$ . 4477)) (make-variable-buffer-local 'tempo-region-start) #@47 Region stop when inserting around the region. (defvar tempo-region-stop (make-marker) (#$ . 4633)) (make-variable-buffer-local 'tempo-region-stop) #@3273 Define a template. This function creates a template variable `tempo-template-NAME' and an interactive function `tempo-template-NAME' that inserts the template at the point. The created function is returned. NAME is a string that contains the name of the template, ELEMENTS is a list of elements in the template, TAG is the tag used for completion, DOCUMENTATION is the documentation string for the insertion command created, and TAGLIST (a symbol) is the tag list that TAG (if provided) should be added to. If TAGLIST is nil and TAG is non-nil, TAG is added to `tempo-tags'. The elements in ELEMENTS can be of several types: - A string: It is sent to the hooks in `tempo-insert-string-functions', and the result is inserted. - The symbol `p': This position is saved in `tempo-marks'. - The symbol `r': If `tempo-insert' is called with ON-REGION non-nil the current region is placed here. Otherwise it works like `p'. - (p PROMPT <NAME> <NOINSERT>): If `tempo-interactive' is non-nil, the user is prompted in the minibuffer with PROMPT for a string to be inserted. If the optional parameter NAME is non-nil, the text is saved for later insertion with the `s' tag. If there already is something saved under NAME that value is used instead and no prompting is made. If NOINSERT is provided and non-nil, nothing is inserted, but text is still saved when a NAME is provided. For clarity, the symbol `noinsert' should be used as argument. - (P PROMPT <NAME> <NOINSERT>): Works just like the previous tag, but forces `tempo-interactive' to be true. - (r PROMPT <NAME> <NOINSERT>): Like the previous tag, but if `tempo-interactive' is nil and `tempo-insert' is called with ON-REGION non-nil, the current region is placed here. This usually happens when you call the template function with a prefix argument. - (s NAME): Inserts text previously read with the (p ..) construct. Finds the insertion saved under NAME and inserts it. Acts like `p' if tempo-interactive is nil. - `&': If there is only whitespace between the line start and point, nothing happens. Otherwise a newline is inserted. - `%': If there is only whitespace between point and end of line, nothing happens. Otherwise a newline is inserted. - `n': Inserts a newline. - `>': The line is indented using `indent-according-to-mode'. Note that you often should place this item after the text you want on the line. - `r>': Like `r', but it also indents the region. - (r> PROMPT <NAME> <NOINSERT>): Like (r ...), but is also indents the region. - `n>': Inserts a newline and indents line. - `o': Like `%' but leaves the point before the newline. - nil: It is ignored. - Anything else: Each function in `tempo-user-elements' is called with it as argument until one of them returns non-nil, and the result is inserted. If all of them return nil, it is evaluated and the result is treated as an element to be inserted. One additional tag is useful for these cases. If an expression returns a list (l foo bar), the elements after `l' will be inserted according to the usual rules. This makes it possible to return several elements from one expression. (fn NAME ELEMENTS &optional TAG DOCUMENTATION TAGLIST) (defalias 'tempo-define-template #[1282 "\300\301P!\211L\210\211\302\303\304D\206 \305\n\306Q\307\310D\311\312D\313\314\315\304D\304FE\257M\210\2039 \316#\210\207" [intern "tempo-template-" lambda &optional arg "Insert a " "." interactive "*P" tempo-insert-template quote if tempo-insert-region not tempo-add-tag] 18 (#$ . 4788)]) #@254 Insert a template. TEMPLATE is the template to be inserted. If ON-REGION is non-nil the `r' elements are replaced with the current region. In Transient Mark mode, ON-REGION is ignored and assumed true if the region is active. (fn TEMPLATE ON-REGION) (defalias 'tempo-insert-template #[514 "\211C\304\216\203 \203 \211\305\240\210\211\242\203' \n\306 `^\307\223\203' \306 `]\307\223\210\211\242\203/ \nb\210\212\310\311 !\210\312\313\314\315\316\317!\320\"\321\322%J\"\210\310\311 !\210)\323 )\207" [transient-mark-mode mark-active tempo-region-start tempo-region-stop #[0 "\301 \210\205 \302 \207" [transient-mark-mode tempo-forget-insertions deactivate-mark] 1] t mark nil tempo-insert-mark point-marker mapc make-byte-code 257 "\301\300\242\"\207" vconcat vector [tempo-insert] 4 "\n\n(fn ELT)" tempo-forward-mark] 10 (#$ . 8414)]) #@249 Insert a template element. Insert one element from a template. If ON-REGION is non-nil the `r' elements are replaced with the current region. See documentation for `tempo-define-template' for the kind of elements possible. (fn ELEMENT ON-REGION) (defalias 'tempo-insert #[514 ";\203 \302!\207:\203 @\303=\203 \304A!\207:\203. @\305=\203. \306\304A!)\207:\203F @\307=\203F \211\203A b\207\304A!\207:\203e @\310=\203e \211\203` b\210\311\312 `\313#\207\304A!\207:\203w @\314=\203w \315A@!\207:\203\225 @\316=\203\225 \317\320\321\322\323\324!\325\"\326\327%A\"\207\330\267\202\331\332 !\207\211\203\247 b\207\331\332 !\207\211\203\272 b\210\311\312 `\313#\207\331\332 !\207\333 \207i\334U\206\317 \212\335\336\313\306#)?\205\337c\207l\206\341 \212\340\341\313\306#)?\205\337c\207\337c\207\337c\210\333 \207\211\206 l\206 \212\340\341\313\306#)?\205\342\343!\207?\206\344\345!\206\346!\"\207" [tempo-interactive tempo-region-stop tempo-process-and-insert-string p tempo-insert-prompt-compat P t r r> indent-region mark nil s tempo-insert-named l mapcar make-byte-code 257 "\301\300\"\207" vconcat vector [tempo-insert] 4 "\n\n(fn ELT)" #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (p 155 r 160 r> 172 > 191 & 194 % 214 n 232 n> 235 o 241)) tempo-insert-mark point-marker indent-according-to-mode 0 re-search-backward "^\\s-*\\=" "\n" re-search-forward "\\=\\s-*$" open-line 1 tempo-insert tempo-is-user-element eval] 9 (#$ . 9269)]) #@155 Compatibility hack for `tempo-insert-prompt'. PROMPT can be either a prompt string, or a list of arguments to `tempo-insert-prompt', or nil. (fn PROMPT) (defalias 'tempo-insert-prompt-compat #[257 "\211:\203\n \300\301\"\207\301!\207" [apply tempo-insert-prompt] 4 (#$ . 10798)]) #@615 Prompt for a text string and insert it in the current buffer. If the variable `tempo-interactive' is non-nil the user is prompted for a string in the minibuffer, which is then inserted in the current buffer. If `tempo-interactive' is nil, the current point is placed on `tempo-mark'. PROMPT is the prompt string, SAVE-NAME is a name to save the inserted text under. If the optional argument NO-INSERT is non-nil, no text is inserted. This can be useful when there is a SAVE-NAME. If there already is a value for SAVE-NAME, it is used and the user is never prompted. (fn PROMPT &optional SAVE-NAME NO-INSERT) (defalias 'tempo-insert-prompt #[769 "\301\205 \302!\211\203 \204 \303!\202H \211\203 \301\202H \203D ;\204- \304\305\"\210\306!\262\2049 c\210\205H \307\"\202H \310\311 !\207" [tempo-interactive nil tempo-lookup-named tempo-insert-named error "tempo: The prompt (%s) is not a string" read-string tempo-save-named tempo-insert-mark point-marker] 8 (#$ . 11088)]) #@85 Tries all the user-defined element handlers in `tempo-user-elements'. (fn ELEMENT) (defalias 'tempo-is-user-element #[257 "\3012 \302\303\304\305\306\307!\310\"\311\312%\"\210\313\301\314\"0\207" [tempo-user-elements found mapc make-byte-code 257 "\211\300!\211\205 \301\302\"\207" vconcat vector [throw found] 5 "\n\n(fn HANDLER)" throw nil] 8 (#$ . 12090)]) #@40 Forget all the saved named insertions. (defalias 'tempo-forget-insertions #[0 "\301\211\207" [tempo-named-insertions nil] 2 (#$ . 12463)]) #@251 Save some data for later insertion The contents of DATA is saved under the name NAME. The data can later be retrieved with `tempo-lookup-named'. This function returns nil, so it can be used in a template without inserting anything. (fn NAME DATA) (defalias 'tempo-save-named #[514 "BB\301\207" [tempo-named-insertions nil] 4 (#$ . 12610)]) #@111 Lookup some saved data under the name NAME. Returns the data if NAME was found, and nil otherwise. (fn NAME) (defalias 'tempo-lookup-named #[257 "\211\236A\207" [tempo-named-insertions] 3 (#$ . 12964)]) #@224 Insert the previous insertion saved under a named specified in NAME. If there is no such name saved, a tempo mark is inserted. Note that if the data is a string, it will not be run through the string processor. (fn NAME) (defalias 'tempo-insert-named #[257 "\300!\211\204 \301\302 !\202 \211;\203 \211c\202 \303\304\"\207" [tempo-lookup-named tempo-insert-mark point-marker tempo-insert nil] 5 (#$ . 13176)]) #@145 Insert a string from a template. Run a string through the preprocessors in `tempo-insert-string-functions' and insert the results. (fn STRING) (defalias 'tempo-process-and-insert-string #[257 "\2032 9\203 !\262\2022 <\203- \211\203) \211@\211!\262A\266\202\202 \210\2022 \301\302\"\210\211c\207" [tempo-insert-string-functions error "Bogus value in tempo-insert-string-functions: %s"] 5 (#$ . 13600)]) #@65 Insert a mark `tempo-marks' while keeping it sorted. (fn MARK) (defalias 'tempo-insert-mark #[257 "\204 \211C\211\207\211@W\203 \211B\211\207\211A\203+ \211A@X\203+ \211A\262\202 @U?\2059 \211AB\241\207" [tempo-marks] 5 (#$ . 14022)]) #@53 Jump to the next mark in `tempo-forward-mark-list'. (defalias 'tempo-forward-mark #[0 "\3012 \302\303\"\210\3040\211\205 \211b\207" [tempo-marks found mapc #[257 "`W\205\n \300\301\"\207" [throw found] 4 "\n\n(fn MARK)"] nil] 3 (#$ . 14279) nil]) #@54 Jump to the previous mark in `tempo-back-mark-list'. (defalias 'tempo-backward-mark #[0 "\3012 \302C\303\304\305\306\307\310!\311\"\312\313%\"\210\211\242\2620\211\205\" \211b\207" [tempo-marks found nil mapc make-byte-code 257 "`X\203\f \301\302\300\242\"\210\300\240\207" vconcat vector [throw found] 4 "\n\n(fn MARK)"] 8 (#$ . 14537) nil]) #@169 Add a template tag. Add the TAG, that should complete to TEMPLATE to the list in TAG-LIST, or to `tempo-tags' if TAG-LIST is nil. (fn TAG TEMPLATE &optional TAG-LIST) (defalias 'tempo-add-tag #[770 "\211\204 \300\262\301J\"\204 \211BJBL\210\302 \207" [tempo-tags assoc tempo-invalidate-collection] 6 (#$ . 14894) "sTag: \nCTemplate: "]) #@535 Install TAG-LIST to be used for template completion in the current buffer. TAG-LIST is a symbol whose variable value is a tag list created with `tempo-add-tag'. COMPLETION-FUNCTION is an obsolete option for specifying an optional function or string that is used by `\[tempo-complete-tag]' to find a string to match the tag against. It has the same definition as the variable `tempo-match-finder'. In this version, supplying a COMPLETION-FUNCTION just sets `tempo-match-finder' locally. (fn TAG-LIST &optional COMPLETION-FUNCTION) (defalias 'tempo-use-tag-list #[513 "\236\203 \241\210\202 B\211\262B\266\211\203 \211\302 \207" [tempo-local-tags tempo-match-finder tempo-invalidate-collection] 6 (#$ . 15247)]) #@87 Marks the tag collection as obsolete. Whenever it is needed again it will be rebuilt. (defalias 'tempo-invalidate-collection #[0 "\301\211\207" [tempo-dirty-collection t] 2 (#$ . 15983)]) #@117 Build a collection of all the tags and return it. If `tempo-dirty-collection' is nil, the old collection is reused. (defalias 'tempo-build-collection #[0 "\204 \206 \303\304\305\306\n\"\"\211\307\207" [tempo-dirty-collection tempo-collection tempo-local-tags apply append mapcar #[257 "\300@!\207" [eval] 3 "\n\n(fn TAG-LIST)"] nil] 5 (#$ . 16179)]) #@162 Find a string to be matched against a tag list. FINDER is a function or a string. Returns (STRING . POS), or nil if no reasonable string is found. (fn FINDER) (defalias 'tempo-find-match-string #[257 "\211;\203 \300\212\301\300\302#\262)\211\205 \303\224\303\225{\303\224B\207\211 \207" [nil re-search-backward t 1] 6 (#$ . 16543)]) #@728 Look for a tag and expand it. All the tags in the tag lists in `tempo-local-tags' (this includes `tempo-tags') are searched for a match for the text before the point. The way the string to match for is determined can be altered with the variable `tempo-match-finder'. If `tempo-match-finder' returns nil, then the results are the same as no match at all. If a single match is found, the corresponding template is expanded in place of the matching string. If a partial completion or no match at all is found, and SILENT is non-nil, the function will give a signal. If a partial completion is found and `tempo-show-completion-buffer' is non-nil, a buffer containing possible completions is displayed. (fn &optional SILENT) (defalias 'tempo-complete-tag #[256 "\302 \303!\211@A\304\"\211@\206 \205 \305\"\211\203# `|\210\2041 \206x \306 \202x \211\204? \206x \306 \202x \211\307=\203Q \310\304\"A\311\"\202x \304\"\211\262\203d \310A\311\"\202x \211c\210\204o \306 \210 \205x \312\"\207" [tempo-match-finder tempo-show-completion-buffer tempo-build-collection tempo-find-match-string assoc try-completion ding t tempo-insert-template nil tempo-display-completions] 11 (#$ . 16889) "*"]) #@81 Show a buffer containing possible completions for STRING. (fn STRING TAG-LIST) (defalias 'tempo-display-completions #[514 "\203: r\306\307!q\210p\310 \210\311\211\312\211\312 \313 \210\314\315!\210+\211 \316\317\320\"G\"!\321!\210)\207\322 \323\324\325\326\327!\330\"\331$\216 r\306\307!q\210p\310 \210\311\211\312\211\312 \313 \210\314\315!\210+\211 \316\317\320\"G\"!\210\321!\210)\266\332\333!)\207" [tempo-leave-completion-buffer default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*Completions*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook display-completion-list completion-hilit-commonality all-completions internal-temp-output-buffer-show current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 sit-for 32767 inhibit-read-only standard-output] 11 (#$ . 18114)]) #@315 Expand the tag before point if it is complete. Returns non-nil if an expansion was made and nil otherwise. This could as an example be used in a command that is bound to the space bar, and looks something like this: (defun tempo-space () (interactive "*") (or (tempo-expand-if-complete) (insert " "))) (defalias 'tempo-expand-if-complete #[0 "\301 \302!\211@A\303\"\211\205 `|\210\304A\305\"\210\306\207" [tempo-match-finder tempo-build-collection tempo-find-match-string assoc tempo-insert-template nil t] 8 (#$ . 19072) "*"]) (provide 'tempo)
Close
