Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
calc
[ DIR ]
drwxr-xr-x
calendar
[ 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
international
[ DIR ]
drwxr-xr-x
language
[ 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
COPYING
34.32
KB
-rw-r--r--
README
538
B
-rw-r--r--
abbrev.elc
29.69
KB
-rw-r--r--
abbrevlist.elc
1.12
KB
-rw-r--r--
add-log.elc
35.21
KB
-rw-r--r--
align.elc
38.38
KB
-rw-r--r--
allout.elc
208.3
KB
-rw-r--r--
ansi-color.elc
16.3
KB
-rw-r--r--
apropos.elc
31.93
KB
-rw-r--r--
arc-mode.elc
54.72
KB
-rw-r--r--
array.elc
25.83
KB
-rw-r--r--
autoarg.elc
5.98
KB
-rw-r--r--
autoinsert.elc
12.01
KB
-rw-r--r--
autorevert.elc
18.25
KB
-rw-r--r--
avoid.elc
10.17
KB
-rw-r--r--
battery.elc
17.98
KB
-rw-r--r--
bindings.elc
39.04
KB
-rw-r--r--
bookmark.elc
55.9
KB
-rw-r--r--
bs.elc
48.34
KB
-rw-r--r--
buff-menu.elc
28
KB
-rw-r--r--
button.elc
13.92
KB
-rw-r--r--
calculator.elc
49.18
KB
-rw-r--r--
case-table.elc
4.42
KB
-rw-r--r--
cdl.elc
1.26
KB
-rw-r--r--
chistory.elc
5.75
KB
-rw-r--r--
cmuscheme.elc
17.43
KB
-rw-r--r--
comint.elc
100.97
KB
-rw-r--r--
compare-w.elc
10.98
KB
-rw-r--r--
complete.elc
23.62
KB
-rw-r--r--
completion.elc
45.06
KB
-rw-r--r--
composite.elc
29.39
KB
-rw-r--r--
cus-dep.elc
5.04
KB
-rw-r--r--
cus-edit.elc
129.67
KB
-rw-r--r--
cus-face.elc
10.46
KB
-rw-r--r--
cus-load.el
63.45
KB
-rw-r--r--
cus-start.elc
10.67
KB
-rw-r--r--
cus-theme.elc
13.7
KB
-rw-r--r--
custom.elc
36.46
KB
-rw-r--r--
cvs-status.elc
23
KB
-rw-r--r--
dabbrev.elc
23.08
KB
-rw-r--r--
delim-col.elc
8.41
KB
-rw-r--r--
delsel.elc
5.24
KB
-rw-r--r--
descr-text.elc
20.69
KB
-rw-r--r--
desktop.elc
34.52
KB
-rw-r--r--
dframe.elc
22.51
KB
-rw-r--r--
diff-mode.elc
55.58
KB
-rw-r--r--
diff.elc
5.51
KB
-rw-r--r--
dired-aux.elc
67.5
KB
-rw-r--r--
dired-x.elc
44.96
KB
-rw-r--r--
dired.elc
96.48
KB
-rw-r--r--
dirtrack.elc
7.39
KB
-rw-r--r--
disp-table.elc
8.33
KB
-rw-r--r--
dnd.elc
7.04
KB
-rw-r--r--
doc-view.elc
36.01
KB
-rw-r--r--
dos-fns.elc
5.53
KB
-rw-r--r--
dos-vars.elc
1.24
KB
-rw-r--r--
dos-w32.elc
11.12
KB
-rw-r--r--
double.elc
4.13
KB
-rw-r--r--
ebuff-menu.elc
9.11
KB
-rw-r--r--
echistory.elc
4.93
KB
-rw-r--r--
ediff-diff.elc
35.54
KB
-rw-r--r--
ediff-help.elc
11.47
KB
-rw-r--r--
ediff-hook.elc
5.89
KB
-rw-r--r--
ediff-init.elc
60.88
KB
-rw-r--r--
ediff-merg.elc
10.04
KB
-rw-r--r--
ediff-mult.elc
58.31
KB
-rw-r--r--
ediff-ptch.elc
18.63
KB
-rw-r--r--
ediff-util.elc
118.44
KB
-rw-r--r--
ediff-vers.elc
4.74
KB
-rw-r--r--
ediff-wind.elc
30.56
KB
-rw-r--r--
ediff.elc
36.28
KB
-rw-r--r--
edmacro.elc
21.45
KB
-rw-r--r--
ehelp.elc
11.03
KB
-rw-r--r--
electric.elc
2.81
KB
-rw-r--r--
elide-head.elc
2.8
KB
-rw-r--r--
emacs-lock.elc
2.77
KB
-rw-r--r--
emerge.elc
80.16
KB
-rw-r--r--
env.elc
5.69
KB
-rw-r--r--
epa-dired.elc
1.87
KB
-rw-r--r--
epa-file.elc
6.77
KB
-rw-r--r--
epa-hook.elc
4.28
KB
-rw-r--r--
epa-mail.elc
7.04
KB
-rw-r--r--
epa.elc
34.03
KB
-rw-r--r--
epg-config.elc
4.01
KB
-rw-r--r--
epg.elc
85.05
KB
-rw-r--r--
expand.elc
9.42
KB
-rw-r--r--
ezimage.elc
9.2
KB
-rw-r--r--
face-remap.elc
13.15
KB
-rw-r--r--
facemenu.elc
23.61
KB
-rw-r--r--
faces.elc
81.51
KB
-rw-r--r--
ffap.elc
46.14
KB
-rw-r--r--
filecache.elc
16.1
KB
-rw-r--r--
files.elc
175.25
KB
-rw-r--r--
filesets.elc
73.03
KB
-rw-r--r--
find-cmd.elc
4.94
KB
-rw-r--r--
find-dired.elc
7.4
KB
-rw-r--r--
find-file.elc
18.68
KB
-rw-r--r--
find-lisp.elc
7.42
KB
-rw-r--r--
finder-inf.el
93.47
KB
-rw-r--r--
finder.elc
12.11
KB
-rw-r--r--
flow-ctrl.elc
2.44
KB
-rw-r--r--
foldout.elc
7.6
KB
-rw-r--r--
follow.elc
37.11
KB
-rw-r--r--
font-core.elc
12.92
KB
-rw-r--r--
font-lock.elc
61.1
KB
-rw-r--r--
format-spec.elc
1.98
KB
-rw-r--r--
format.elc
27.73
KB
-rw-r--r--
forms-d2.el
3.13
KB
-rw-r--r--
forms-pass.el
742
B
-rw-r--r--
forms.elc
35.13
KB
-rw-r--r--
frame.elc
48.66
KB
-rw-r--r--
fringe.elc
8.01
KB
-rw-r--r--
generic-x.elc
44.25
KB
-rw-r--r--
gs.elc
3.93
KB
-rw-r--r--
help-at-pt.elc
11.27
KB
-rw-r--r--
help-fns.elc
21.77
KB
-rw-r--r--
help-macro.elc
4.37
KB
-rw-r--r--
help-mode.elc
19.38
KB
-rw-r--r--
help.elc
40.91
KB
-rw-r--r--
hex-util.elc
1.48
KB
-rw-r--r--
hexl.elc
32.06
KB
-rw-r--r--
hi-lock.elc
23.27
KB
-rw-r--r--
hilit-chg.elc
28.02
KB
-rw-r--r--
hippie-exp.elc
23.39
KB
-rw-r--r--
hl-line.elc
7.71
KB
-rw-r--r--
ibuf-ext.elc
54.62
KB
-rw-r--r--
ibuf-macs.elc
11.65
KB
-rw-r--r--
ibuffer.elc
91.96
KB
-rw-r--r--
icomplete.elc
10.36
KB
-rw-r--r--
ido.elc
110.93
KB
-rw-r--r--
ielm.elc
17.67
KB
-rw-r--r--
iimage.elc
4.06
KB
-rw-r--r--
image-dired.elc
82.24
KB
-rw-r--r--
image-file.elc
6.11
KB
-rw-r--r--
image-mode.elc
14.54
KB
-rw-r--r--
image.elc
17.09
KB
-rw-r--r--
imenu.elc
24.8
KB
-rw-r--r--
indent.elc
17
KB
-rw-r--r--
info-look.elc
26.13
KB
-rw-r--r--
info-xref.elc
7.04
KB
-rw-r--r--
info.elc
119.11
KB
-rw-r--r--
informat.elc
9.69
KB
-rw-r--r--
isearch.elc
76.23
KB
-rw-r--r--
isearchb.elc
4.92
KB
-rw-r--r--
iswitchb.elc
32.11
KB
-rw-r--r--
jit-lock.elc
17.93
KB
-rw-r--r--
jka-cmpr-hook.elc
11.67
KB
-rw-r--r--
jka-compr.elc
12.64
KB
-rw-r--r--
json.elc
13.04
KB
-rw-r--r--
kermit.elc
2.96
KB
-rw-r--r--
kmacro.elc
31.07
KB
-rw-r--r--
ldefs-boot.el
1.17
MB
-rw-r--r--
ledit.elc
4.74
KB
-rw-r--r--
linum.elc
9.56
KB
-rw-r--r--
loaddefs.el
1.17
MB
-rw-r--r--
loadhist.elc
8.65
KB
-rw-r--r--
loadup.el
12.67
KB
-rw-r--r--
locate.elc
17.81
KB
-rw-r--r--
log-edit.elc
24.93
KB
-rw-r--r--
log-view.elc
14.06
KB
-rw-r--r--
longlines.elc
14.94
KB
-rw-r--r--
lpr.elc
8.61
KB
-rw-r--r--
ls-lisp.elc
17.35
KB
-rw-r--r--
macros.elc
6.99
KB
-rw-r--r--
makesum.elc
2.16
KB
-rw-r--r--
man.elc
40.03
KB
-rw-r--r--
master.elc
4.52
KB
-rw-r--r--
mb-depth.elc
3.12
KB
-rw-r--r--
md4.elc
8.14
KB
-rw-r--r--
menu-bar.elc
67.01
KB
-rw-r--r--
midnight.elc
8.92
KB
-rw-r--r--
minibuf-eldef.elc
5.15
KB
-rw-r--r--
minibuffer.elc
42.75
KB
-rw-r--r--
misc.elc
3.67
KB
-rw-r--r--
misearch.elc
8.96
KB
-rw-r--r--
mouse-copy.elc
4.07
KB
-rw-r--r--
mouse-drag.elc
7.33
KB
-rw-r--r--
mouse-sel.elc
20.93
KB
-rw-r--r--
mouse.elc
60.03
KB
-rw-r--r--
msb.elc
27.27
KB
-rw-r--r--
mwheel.elc
9.41
KB
-rw-r--r--
newcomment.elc
32.76
KB
-rw-r--r--
novice.elc
4.75
KB
-rw-r--r--
outline.elc
34.54
KB
-rw-r--r--
paren.elc
6.43
KB
-rw-r--r--
password-cache.elc
3.58
KB
-rw-r--r--
patcomp.el
775
B
-rw-r--r--
paths.el
7.28
KB
-rw-r--r--
pcmpl-cvs.elc
6
KB
-rw-r--r--
pcmpl-gnu.elc
8.21
KB
-rw-r--r--
pcmpl-linux.elc
3.17
KB
-rw-r--r--
pcmpl-rpm.elc
7.5
KB
-rw-r--r--
pcmpl-unix.elc
5.44
KB
-rw-r--r--
pcomplete.elc
34.1
KB
-rw-r--r--
pcvs-defs.elc
16.27
KB
-rw-r--r--
pcvs-info.elc
25.83
KB
-rw-r--r--
pcvs-parse.elc
15.34
KB
-rw-r--r--
pcvs-util.elc
26.8
KB
-rw-r--r--
pcvs.elc
85.52
KB
-rw-r--r--
pgg-def.elc
2.78
KB
-rw-r--r--
pgg-gpg.elc
13.09
KB
-rw-r--r--
pgg-parse.elc
13.45
KB
-rw-r--r--
pgg-pgp.elc
7.64
KB
-rw-r--r--
pgg-pgp5.elc
7.68
KB
-rw-r--r--
pgg.elc
18.01
KB
-rw-r--r--
printing.elc
157.56
KB
-rw-r--r--
proced.elc
57.95
KB
-rw-r--r--
ps-bdf.elc
13.34
KB
-rw-r--r--
ps-def.elc
3.09
KB
-rw-r--r--
ps-mule.elc
36.17
KB
-rw-r--r--
ps-print.elc
145.59
KB
-rw-r--r--
ps-samp.elc
5.5
KB
-rw-r--r--
recentf.elc
49.04
KB
-rw-r--r--
rect.elc
10.79
KB
-rw-r--r--
register.elc
10.69
KB
-rw-r--r--
repeat.elc
6.05
KB
-rw-r--r--
replace.elc
55.02
KB
-rw-r--r--
reposition.elc
2.88
KB
-rw-r--r--
reveal.elc
6.61
KB
-rw-r--r--
rfn-eshadow.elc
7.12
KB
-rw-r--r--
rot13.elc
2.6
KB
-rw-r--r--
ruler-mode.elc
22.48
KB
-rw-r--r--
s-region.elc
3.3
KB
-rw-r--r--
savehist.elc
10.57
KB
-rw-r--r--
saveplace.elc
7.51
KB
-rw-r--r--
sb-image.elc
2.51
KB
-rw-r--r--
scroll-all.elc
4.05
KB
-rw-r--r--
scroll-bar.elc
11.47
KB
-rw-r--r--
scroll-lock.elc
4.64
KB
-rw-r--r--
select.elc
11.8
KB
-rw-r--r--
server.elc
39.79
KB
-rw-r--r--
ses.elc
87.39
KB
-rw-r--r--
sha1.elc
8
KB
-rw-r--r--
shadowfile.elc
22.61
KB
-rw-r--r--
shell.elc
34.08
KB
-rw-r--r--
simple.elc
196.35
KB
-rw-r--r--
skeleton.elc
15.78
KB
-rw-r--r--
smerge-mode.elc
33.61
KB
-rw-r--r--
sort.elc
12.94
KB
-rw-r--r--
soundex.elc
1.34
KB
-rw-r--r--
speedbar.elc
115.06
KB
-rw-r--r--
startup.elc
60.78
KB
-rw-r--r--
strokes.elc
44.11
KB
-rw-r--r--
subdirs.el
426
B
-rw-r--r--
subr.elc
113.48
KB
-rw-r--r--
t-mouse.elc
3.38
KB
-rw-r--r--
tabify.elc
2
KB
-rw-r--r--
talk.elc
3.19
KB
-rw-r--r--
tar-mode.elc
52.24
KB
-rw-r--r--
tempo.elc
18.63
KB
-rw-r--r--
term.elc
99.67
KB
-rw-r--r--
terminal.elc
31.36
KB
-rw-r--r--
thingatpt.elc
10.84
KB
-rw-r--r--
thumbs.elc
26.23
KB
-rw-r--r--
time-stamp.elc
21.03
KB
-rw-r--r--
time.elc
18.2
KB
-rw-r--r--
timezone.elc
10.99
KB
-rw-r--r--
tmm.elc
13.9
KB
-rw-r--r--
tool-bar.elc
9.69
KB
-rw-r--r--
tooltip.elc
12.35
KB
-rw-r--r--
tree-widget.elc
20.87
KB
-rw-r--r--
tutorial.elc
21.41
KB
-rw-r--r--
type-break.elc
35.61
KB
-rw-r--r--
uniquify.elc
19.91
KB
-rw-r--r--
userlock.elc
4.69
KB
-rw-r--r--
vc-annotate.elc
22.68
KB
-rw-r--r--
vc-arch.elc
17.58
KB
-rw-r--r--
vc-bzr.elc
26.84
KB
-rw-r--r--
vc-cvs.elc
32.19
KB
-rw-r--r--
vc-dav.elc
5.3
KB
-rw-r--r--
vc-dir.elc
39.5
KB
-rw-r--r--
vc-dispatcher.elc
14.61
KB
-rw-r--r--
vc-git.elc
32.75
KB
-rw-r--r--
vc-hg.elc
25.95
KB
-rw-r--r--
vc-hooks.elc
32.75
KB
-rw-r--r--
vc-mtn.elc
10.95
KB
-rw-r--r--
vc-rcs.elc
34.99
KB
-rw-r--r--
vc-sccs.elc
13.24
KB
-rw-r--r--
vc-svn.elc
20.57
KB
-rw-r--r--
vc.elc
59.4
KB
-rw-r--r--
vcursor.elc
23.44
KB
-rw-r--r--
version.el
3.37
KB
-rw-r--r--
view.elc
35.96
KB
-rw-r--r--
vt-control.elc
2.06
KB
-rw-r--r--
vt100-led.elc
1.53
KB
-rw-r--r--
w32-fns.elc
15.82
KB
-rw-r--r--
w32-vars.elc
5.53
KB
-rw-r--r--
wdired.elc
21.69
KB
-rw-r--r--
whitespace.elc
59.83
KB
-rw-r--r--
wid-browse.elc
7.89
KB
-rw-r--r--
wid-edit.elc
104.76
KB
-rw-r--r--
widget.elc
1.37
KB
-rw-r--r--
windmove.elc
9.57
KB
-rw-r--r--
window.elc
57.4
KB
-rw-r--r--
winner.elc
11.61
KB
-rw-r--r--
woman.elc
107.73
KB
-rw-r--r--
x-dnd.elc
19.35
KB
-rw-r--r--
xml.elc
18.38
KB
-rw-r--r--
xt-mouse.elc
7.43
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : facemenu.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:15 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/facemenu.el ;;; in Emacs version 23.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`facemenu.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302\303#\210\301\304\305#\210\306\307\310\311\312\313\314\315&\207" [global-map define-key [C-down-mouse-2] facemenu-menu "\357" facemenu-keymap custom-declare-group facemenu nil "Create a face menu for interactively adding fonts to text." :group faces :prefix "facemenu-"] 8) #@570 Alist of interesting faces and keybindings. Each element is itself a list: the car is the name of the face, the next element is the key to use as a keyboard equivalent of the menu item; the binding is made in `facemenu-keymap'. The faces specifically mentioned in this list are put at the top of the menu, in the order specified. All other faces which are defined in `facemenu-listed-faces' are listed after them, but get no keyboard equivalents. If you change this variable after loading facemenu.el, you will need to call `facemenu-update' to make it take effect. (custom-declare-variable 'facemenu-keybindings ''((default . "d") (bold . "b") (italic . "i") (bold-italic . "l") (underline . "u")) '(#$ . 903) :type '(repeat (cons face string)) :group 'facemenu) #@154 Where in the menu to insert newly-created faces. This should be nil to put them at the top of the menu, or t to put them just before "Other" at the end. (custom-declare-variable 'facemenu-new-faces-at-end 't '(#$ . 1677) :type 'boolean :group 'facemenu) #@53 *List of faces that are of no interest to the user. (defvar facemenu-unlisted-faces (byte-code "\300\301\302\303\304\305\306!\305\307!\305\310!\305\311!\305\312!\305\313!\305\314!\305\315!\305\316!\257\207" [modeline region secondary-selection highlight scratch-face purecopy "^font-lock-" "^gnus-" "^message-" "^ediff-" "^term-" "^vc-" "^widget-" "^custom-" "^vm-"] 15) (#$ . -1937)) (make-obsolete-variable 'facemenu-unlisted-faces 'facemenu-listed-faces "22.1,\n and has no effect on the Face menu") #@953 List of faces to include in the Face menu. Each element should be a symbol, the name of a face. The "basic " faces in `facemenu-keybindings' are automatically added to the Face menu, and need not be in this list. This value takes effect when you load facemenu.el. If the list includes symbols which are not defined as faces, they are ignored; however, subsequently defining or creating those faces adds them to the menu then. You can call `facemenu-update' to recalculate the menu contents, such as if you change the value of this variable, If this variable is t, all faces that you apply to text using the face menu commands (even by name), and all faces that you define or create, are added to the menu. You may find it useful to set this variable to t temporarily while you define some faces, so that they will be added. However, if the value is no longer t and you call `facemenu-update', it will remove any faces not explicitly in the list. (custom-declare-variable 'facemenu-listed-faces 'nil '(#$ . 2449) :type '(choice (const :tag "List all faces" t) (const :tag "None" nil) (repeat symbol)) :group 'facemenu :version "22.1") #@24 Menu keymap for faces. (defvar facemenu-face-menu (byte-code "\301\302!\303\304\305\306B#\210)\207" [map make-sparse-keymap "Face" define-key "o" "Other..." facemenu-set-face] 5) (#$ . 3595)) (byte-code "\301\300\"\210\302\300\303\304#\207" [facemenu-face-menu defalias put menu-enable (facemenu-enable-faces-p)] 4) #@36 Menu keymap for foreground colors. (defvar facemenu-foreground-menu (byte-code "\301\302!\303\304\305\306B#\210)\207" [map make-sparse-keymap "Foreground Color" define-key "o" "Other..." facemenu-set-foreground] 5) (#$ . 3921)) (byte-code "\301\300\"\210\302\300\303\304#\207" [facemenu-foreground-menu defalias put menu-enable (facemenu-enable-faces-p)] 4) #@36 Menu keymap for background colors. (defvar facemenu-background-menu (byte-code "\301\302!\303\304\305\306B#\210)\207" [map make-sparse-keymap "Background Color" define-key "o" "Other..." facemenu-set-background] 5) (#$ . 4289)) (byte-code "\301\300\"\210\302\300\303\304#\207" [facemenu-background-menu defalias put menu-enable (facemenu-enable-faces-p)] 4) (defalias 'facemenu-enable-faces-p #[nil "\205 ?\207" [font-lock-mode font-lock-defaults] 1]) #@43 Menu keymap for non-face text-properties. (defvar facemenu-special-menu (byte-code "\301\302!\303\304\305\306!\307B#\210\303\310\305\311!\312B#\210\303\313\305\314!\315B#\210\303\316\305\317!\320B#\210)\207" [map make-sparse-keymap "Special" define-key [115] purecopy "Remove Special" facemenu-remove-special [116] "Intangible" facemenu-set-intangible [118] "Invisible" facemenu-set-invisible [114] "Read-Only" facemenu-set-read-only] 5) (#$ . 4754)) (defalias 'facemenu-special-menu facemenu-special-menu) #@42 Submenu for text justification commands. (defvar facemenu-justification-menu (byte-code "\301\302!\303\304\305\306!\307B#\210\303\310\305\311!\312B#\210\303\313\305\314!\315B#\210\303\316\305\317!\320B#\210\303\321\305\322!\323B#\210)\207" [map make-sparse-keymap "Justification" define-key [99] purecopy "Center" set-justification-center [98] "Full" set-justification-full [114] "Right" set-justification-right [108] "Left" set-justification-left [117] "Unfilled" set-justification-none] 5) (#$ . 5273)) (defalias 'facemenu-justification-menu facemenu-justification-menu) #@35 Submenu for indentation commands. (defvar facemenu-indentation-menu (byte-code "\301\302!\303\304\305\306!\307B#\210\303\310\305\311!\312B#\210\303\313\305\314!\315B#\210\303\316\305\317!\320B#\210)\207" [map make-sparse-keymap "Indentation" define-key [decrease-right-margin] purecopy "Indent Right Less" decrease-right-margin [increase-right-margin] "Indent Right More" increase-right-margin [decrease-left-margin] "Indent Less" decrease-left-margin [increase-left-margin] "Indent More" increase-left-margin] 5) (#$ . 5859)) (defalias 'facemenu-indentation-menu facemenu-indentation-menu) #@33 Facemenu top-level menu keymap. (defvar facemenu-menu nil (#$ . 6462)) (byte-code "\302\303!\211\304 \305\306\307!\310B#\210\304 \311\306\312!\313B#\210\304 \314\306\315!\316B#\210\304 \317\306\320!\321B#\210\304 \322\306\323!\324B#\210\304 \325\306\326!C#\210)\304 \327\306\330!\331B#\210\304 \332\306\333!\334B#\210\304 \335\306\326!C#\210\304 \336\306\337!\340B#\210\304 \341\306\342!\343B#\210\304 \344\306\345!\346B#\210\304 \347\306\350!\351B#\210)\352\300\"\207" [facemenu-menu map make-sparse-keymap "Text Properties" define-key [dc] purecopy "Display Colors" list-colors-display [df] "Display Faces" list-faces-display [dp] "Describe Properties" describe-text-properties [ra] "Remove Text Properties" facemenu-remove-all [rm] "Remove Face Properties" facemenu-remove-face-props [s1] "--" [in] "Indentation" facemenu-indentation-menu [ju] "Justification" facemenu-justification-menu [s2] [sp] "Special Properties" facemenu-special-menu [bg] "Background Color" facemenu-background-menu [fg] "Foreground Color" facemenu-foreground-menu [fc] "Face" facemenu-face-menu defalias] 6) #@137 Keymap for face-changing commands. `Facemenu-update' fills in the keymap according to the bindings requested in `facemenu-keybindings'. (defvar facemenu-keymap (byte-code "\301\302!\303\304\305\306!\307B#\210\303\310\311#\210)\207" [map make-sparse-keymap "Set face" define-key "o" purecopy "Other..." facemenu-set-face "\357" font-lock-fontify-block] 5) (#$ . 7560)) (defalias 'facemenu-keymap facemenu-keymap) #@204 Function called at beginning of text to change or nil. This function is passed the FACE to set and END of text to change, and must return a string which is inserted. It may set `facemenu-end-add-face'. (custom-declare-variable 'facemenu-add-face-function 'nil '(#$ . 7983) :type '(choice (const :tag "None" nil) function) :group 'facemenu) #@155 String to insert or function called at end of text to change or nil. This function is passed the FACE to set, and must return a string which is inserted. (custom-declare-variable 'facemenu-end-add-face 'nil '(#$ . 8331) :type '(choice (const :tag "None" nil) string function) :group 'facemenu) #@178 When non-nil, this is a function called to remove faces. This function is passed the START and END of text to change. May also be t meaning to use `facemenu-add-face-function'. (custom-declare-variable 'facemenu-remove-face-function 'nil '(#$ . 8632) :type '(choice (const :tag "None" nil) (const :tag "Use add-face" t) function) :group 'facemenu) #@99 Alist of colors, used for completion. If this is nil, then the value of (defined-colors) is used. (defvar facemenu-color-alist nil (#$ . 8986)) #@138 Add or update the "Face" menu in the menu bar. You can call this to update things if you change any of the menu configuration variables. (defalias 'facemenu-update #[nil "\301\302\303!\"\207" [facemenu-keybindings facemenu-iterate facemenu-add-new-face facemenu-complete-face-list] 4 (#$ . 9137) nil]) #@802 Apply FACE to the region or next character typed. If the region is active (normally true except in Transient Mark mode) and nonempty, and there is no prefix argument, this command applies FACE to the region. Otherwise, it applies FACE to the faces to use for the next character inserted. (Moving point or switching buffers before typing a character to insert cancels the specification.) If FACE is `default', to "apply" it means clearing the list of faces to be used. For any other value of FACE, to "apply" it means putting FACE at the front of the list of faces to be used, and removing any faces further along in the list that would be completely overridden by preceding faces (including FACE). This command can also add FACE to the menu of faces, if `facemenu-listed-faces' says to do that. (defalias 'facemenu-set-face #[(face &optional start end) "\303!\210\304 \n#\207" [face start end facemenu-add-new-face facemenu-add-face] 4 (#$ . 9447) (list (progn (barf-if-buffer-read-only) (read-face-name "Use face")) (if (and mark-active (not current-prefix-arg)) (region-beginning)) (if (and mark-active (not current-prefix-arg)) (region-end)))]) #@444 Set the foreground COLOR of the region or next character typed. This command reads the color in the minibuffer. If the region is active (normally true except in Transient Mark mode) and there is no prefix argument, this command sets the region to the requested face. Otherwise, this command specifies the face for the next character inserted. Moving point or switching buffers before typing a character to insert cancels the specification. (defalias 'facemenu-set-foreground #[(color &optional start end) "\303\304\305\" \n#\207" [color start end facemenu-set-face-from-menu facemenu-add-new-color facemenu-foreground-menu] 4 (#$ . 10610) (list (progn (barf-if-buffer-read-only) (facemenu-read-color "Foreground color: ")) (if (and mark-active (not current-prefix-arg)) (region-beginning)) (if (and mark-active (not current-prefix-arg)) (region-end)))]) #@444 Set the background COLOR of the region or next character typed. This command reads the color in the minibuffer. If the region is active (normally true except in Transient Mark mode) and there is no prefix argument, this command sets the region to the requested face. Otherwise, this command specifies the face for the next character inserted. Moving point or switching buffers before typing a character to insert cancels the specification. (defalias 'facemenu-set-background #[(color &optional start end) "\303\304\305\" \n#\207" [color start end facemenu-set-face-from-menu facemenu-add-new-color facemenu-background-menu] 4 (#$ . 11475) (list (progn (barf-if-buffer-read-only) (facemenu-read-color "Background color: ")) (if (and mark-active (not current-prefix-arg)) (region-beginning)) (if (and mark-active (not current-prefix-arg)) (region-end)))]) #@718 Set the FACE of the region or next character typed. This function is designed to be called from a menu; FACE is determined using the event type of the menu entry. If FACE is a symbol whose name starts with "fg:" or "bg:", then this functions sets the foreground or background to the color specified by the rest of the symbol's name. Any other symbol is considered the name of a face. If the region is active (normally true except in Transient Mark mode) and there is no prefix argument, this command sets the region to the requested face. Otherwise, this command specifies the face for the next character inserted. Moving point or switching buffers before typing a character to insert cancels the specification. (defalias 'facemenu-set-face-from-menu #[(face start end) "\304 \210\305\306!\307\310 \"\203& \311\312 \"\313\230\203 \314\202 \315\311\316 \"DC\202' )\n #\207" [face fn start end barf-if-buffer-read-only facemenu-add-face symbol-name string-match "\\`\\([fb]\\)g:\\(.+\\)" match-string 1 "f" :foreground :background 2] 5 (#$ . 12340) (list last-command-event (if (and mark-active (not current-prefix-arg)) (region-beginning)) (if (and mark-active (not current-prefix-arg)) (region-end)))]) #@118 Make the region invisible. This sets the `invisible' text property; it can be undone with `facemenu-remove-special'. (defalias 'facemenu-set-invisible #[(start end) "\302 \303#\207" [start end add-text-properties (invisible t)] 4 (#$ . 13560) "r"]) #@145 Make the region intangible: disallow moving into it. This sets the `intangible' text property; it can be undone with `facemenu-remove-special'. (defalias 'facemenu-set-intangible #[(start end) "\302 \303#\207" [start end add-text-properties (intangible t)] 4 (#$ . 13817) "r"]) #@121 Make the region unmodifiable. This sets the `read-only' text property; it can be undone with `facemenu-remove-special'. (defalias 'facemenu-set-read-only #[(start end) "\302 \303#\207" [start end add-text-properties (read-only t)] 4 (#$ . 14103) "r"]) #@49 Remove `face' and `mouse-face' text properties. (defalias 'facemenu-remove-face-props #[(start end) "\303\304 \n\305#)\207" [inhibit-read-only start end t remove-text-properties (face nil mouse-face nil)] 4 (#$ . 14362) "*r"]) #@45 Remove all text properties from the region. (defalias 'facemenu-remove-all #[(start end) "\303\304 \n\305#)\207" [inhibit-read-only start end t set-text-properties nil] 4 (#$ . 14596) "*r"]) #@135 Remove all the "special" text properties from the region. These special properties include `invisible', `intangible' and `read-only'. (defalias 'facemenu-remove-special #[(start end) "\303\304 \n\305#)\207" [inhibit-read-only start end t remove-text-properties (invisible nil intangible nil read-only nil)] 4 (#$ . 14795) "*r"]) #@36 Read a color using the minibuffer. (defalias 'facemenu-read-color #[(&optional prompt) "\306 \307=?\310 \206 \311\f\206 \312 \313\n$\211 \314\232?\205 +\207" [completion-ignore-case window-system require-match prompt facemenu-color-alist col t ns completing-read "Color: " defined-colors nil ""] 6 (#$ . 15131)]) #@307 Display names of defined colors, and show what they look like. If the optional argument LIST is non-nil, it should be a list of colors to display. Otherwise, this command computes a list of colors that the current display can handle. If the optional argument BUFFER-NAME is nil, it defaults to *Colors*. (defalias 'list-colors-display #[(&optional list buffer-name) "\204& \306 \307V\203& \310\311 !\312 \313>\203& \306 S\233\211\203% \314\241\210)\315 \314\316\317\320\321#\210)\321 \314\211\223\210\206A \322\220\212q\210\321 \203U \323!\202[ \324\325\326\314\321$)\221\327\f!\203h \330 \n\"\210\314*\207" [list lc list-of-window-tuples list-of-frames help-window help-window-point-marker display-color-cells 0 list-colors-duplicates defined-colors display-visual-class (gray-scale pseudo-color direct-color) nil frame-list walk-windows #[(window) "\302!\303!\304!F B\211\207" [window list window-buffer window-start window-point] 5] no-mini t "*Colors*" list-colors-print add-hook temp-buffer-show-hook #[nil "\301!\207" [list list-colors-print] 2] windowp help-window-setup buffer-name standard-output truncate-lines temp-buffer-show-function] 7 (#$ . 15457) nil]) (defalias 'list-colors-print #[(list) "\303\211\203n \n@\211:\203 A\203 \304 \305\"\202 C\306` @c\210\307j\210`\310\311 @D$\210\306`\312 A\203B \313\314 A\315#\202D @\261\210`\310\316 @D$\210\317 \320Z\321]j\210\322\323\324\325\326\327 @!\"#c\210\330c\210\nA\211\204 *eb\207" [list color #1=#:--cl-dolist-temp-- nil sort #[(a b) "\227 \227\231\207" [a b] 2] put-text-property 22 face :background " " mapconcat identity ", " :foreground window-width 8 44 apply format "#%02x%02x%02x" mapcar #[(c) "\301\302\"\207" [c lsh -8] 3] color-values "\n"] 8]) #@511 Return a list of colors with grouped duplicate colors. If a color has no duplicates, then the element of the returned list has the form '(COLOR-NAME). The element of the returned list with duplicate colors has the form '(COLOR-NAME DUPLICATE-COLOR-NAME ...). This function uses the predicate `facemenu-color-equal' to compare color names. If the optional argument LIST is non-nil, it should be a list of colors to display. Otherwise, this function uses a list of colors that the current display can handle. (defalias 'list-colors-duplicates #[(&optional list) "\302\300\206 \303 \"\211 A\203I \304 @@ A@@\"\203B \305\306!\203- \307 @@\306 \"\203B @ A@@ @AB\241\210 \211AA\241\210\202\f A\211\202 *\207" [list l mapcar defined-colors facemenu-color-equal fboundp w32-default-color-map assoc] 4 (#$ . 17227)]) #@251 Return t if colors A and B are the same color. A and B should be strings naming colors. This function queries the display system to find out what the color names mean. It returns nil if the colors differ or if it can't determine the correct answer. (defalias 'facemenu-color-equal #[(a b) " \232\203 \302\207\303!\303 !\232\207" [a b t color-values] 3 (#$ . 18054)]) #@625 Add FACE to text between START and END. If START is nil or START to END is empty, add FACE to next typed character instead. For each section of that region that has a different face property, FACE will be consed onto it, and other faces that are completely hidden by that will be removed from the list. If `facemenu-add-face-function' and maybe `facemenu-end-add-face' are non-nil, they are used to set the face information. As a special case, if FACE is `default', then the region is left with NO face text property. Otherwise, selecting the default face would not have any effect. See `facemenu-remove-face-function'. (defalias 'facemenu-add-face #[(face &optional start end) "\306=\2033 \307=\2043 \203 \n \"\210\202\340 \n\203+ \n W\203+ \310\n \311#\210\202\340 \306 \202\340 \203k \212 \203@ b\210\212\n\203H \nb\210\312 \"!\210)\203g ;\203a \202e !c\210)\202\340 \n\203\303 \n W\203\303 \n\313 \211 U\204\277 \314\300\313 $\315\300\" \316\300\204\240 \202\264 \317<\203\255 \202\260 CB\320 \"$\210)\211\202| *\202\340 =\203\333 \f<\203\325 \f\202\327 \fCB\202\334 \321 ?\205\351 \322\323!\207" [face facemenu-remove-face-function start end self-insert-face this-command default t remove-text-properties (face default) insert-before-markers nil next-single-property-change get-text-property put-text-property facemenu-active-faces selected-frame facemenu-enable-faces-p message "Font-lock mode will override any faces you set in this buffer" self-insert-face-command facemenu-add-face-function facemenu-end-add-face part-end part-start prev last-command] 8 (#$ . 18432) "*xFace: \nr"]) #@363 Return from FACE-LIST those faces that would be used for display. This means each face attribute is not specified in a face earlier in FACE-LIST and such a face is therefore active when used to display text. If the optional argument FRAME is given, use the faces in that frame; otherwise use the selected frame. If t, then the global, non-frame faces are used. (defalias 'facemenu-active-faces #[(face-list &optional frame) "\306@:\203 \307@!\202 \310@ \"\206 \311@!!@CA\nG \203\204 @:\2037 \307@!\202C \310@ \"\206C \311@!\f\312 S\211\313Y\203s H\314>\204J \nH\315>\203J \n\316\211I\210\202J +\203} @ BA\211\204* \237,\207" [face-list frame mask-atts active-list mask-len useful copy-sequence face-attributes-as-vector internal-lisp-face-p check-face nil 0 (nil unspecified) (nil unspecified) t i face-atts] 5 (#$ . 20096)]) #@139 Add FACE (a face) to the Face menu if `facemenu-listed-faces' says so. This is called whenever you create a new face, and at other times. (defalias 'facemenu-add-new-face #[(face) "\306\211\306\211\307\f \"A \306\211 \f9\203# \310\f!\f\202) \f\311!\312\313\314\211#\315\316\nKA\"\204\265 \203m \311\317P!\211 \320\306 \321\322\323 D\324BB\257M\210\325\326 B#\210\325\n B#\210\202\265 \327=\204{ >\203\265 \330 ! \331 \nK \203\253 G\332V\203\253 \333 B G\332Z 8@$\210\202\265 \325\n B#\210.\306\207" [name symbol menu docstring face facemenu-keybindings nil assoc symbol-name intern facemenu-face-menu format "Select face `%s' for subsequent insertion.\nIf the mark is active and there is no prefix argument,\napply face `%s' to the region instead.\nThis command was defined by `facemenu-add-new-face'." facemenu-iterate #[(m) "<\205 @9\205 \302@!\205 \303@ \"\207" [m symbol facep face-equal] 3] "facemenu-set-" lambda (interactive) facemenu-set-face quote ((if (and mark-active (not current-prefix-arg)) (region-beginning)) (if (and mark-active (not current-prefix-arg)) (region-end))) define-key facemenu-keymap t vector facemenu-set-face-from-menu 3 define-key-after key function menu-val facemenu-listed-faces facemenu-new-faces-at-end] 9 (#$ . 20970)]) #@240 Add COLOR (a color name string) to the appropriate Face menu. MENU should be `facemenu-foreground-menu' or `facemenu-background-menu'. Return the event type (a symbol) of the added menu entry. This is called whenever you use a new color. (defalias 'facemenu-add-new-color #[(color menu) "\306\211\307\n!\204 \310\311\n\"\210 \312=\203# \313\314\n\"\315\316\nP!\202; \317=\2037 \313\320\n\"\315\321\nP!\202; \310\322!\210\323\324 KA\"\204w \325 !\326 K \203m \fG\327V\203m \330\f\n B\fG\327Z\f8@$\210\202v \331 \n B#\210+ *\207" [docstring symbol color menu menu-val function nil color-defined-p error "Color `%s' undefined" facemenu-foreground-menu format "Select foreground color %s for subsequent insertion." intern "fg:" facemenu-background-menu "Select background color %s for subsequent insertion." "bg:" "MENU should be `facemenu-foreground-menu' or `facemenu-background-menu'" facemenu-iterate #[(m) "<\205 @ =\207" [m symbol] 2] vector facemenu-set-face-from-menu 3 define-key-after define-key key facemenu-new-faces-at-end] 6 (#$ . 22296)]) #@249 Return list of all faces that look different. Starts with given ALIST of faces, and adds elements only if they display differently from any face already on the list. The faces on ALIST will end up at the end of the returned list, in reverse order. (defalias 'facemenu-complete-face-list #[(&optional oldlist) "\302\303\"\237\304\305\306 \237\"\210 )\207" [oldlist list mapcar car facemenu-iterate #[(new-face) " >\204\n B\302\207" [new-face list nil] 2] face-list] 3 (#$ . 23374)]) #@123 Apply FUNC to each element of LIST until one returns non-nil. Returns the non-nil value it found, or nil if all were nil. (defalias 'facemenu-iterate #[(func list) "\203 @!\204 A\211\204 @\207" [list func] 3 (#$ . 23869)]) (byte-code "\300 \210\301\302!\207" [facemenu-update provide facemenu] 2)
Close
