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 : bookmark.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:33 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/bookmark.el ;;; in Emacs version 23.1.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 "`bookmark.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307%\207" [require pp custom-declare-group bookmark nil "Setting, annotation and jumping to bookmarks." :group matching] 6) #@70 If non-nil, saving a bookmark queries for an annotation in a buffer. (custom-declare-variable 'bookmark-use-annotations 'nil '(#$ . 777) :type 'boolean :group 'bookmark) #@784 Controls when Emacs saves bookmarks to a file. --> nil means never save bookmarks, except when `bookmark-save' is explicitly called (\[bookmark-save]). --> t means save bookmarks when Emacs is killed. --> Otherwise, it should be a number that is the frequency with which the bookmark list is saved (i.e.: the number of times which Emacs' bookmark list may be modified before it is automatically saved.). If it is a number, Emacs will also automatically save bookmarks when it is killed. Therefore, the way to get it to save every time you make or delete a bookmark is to set this variable to 1 (or 0, which produces the same behavior.) To specify the file in which to save them, modify the variable `bookmark-default-file', which is `~/.emacs.bmk' by default. (custom-declare-variable 'bookmark-save-flag 't '(#$ . 954) :type '(choice (const nil) integer (other t)) :group 'bookmark) #@52 The `.emacs.bmk' file used to be called this name. (defconst bookmark-old-default-file "~/.emacs-bkmrks" (#$ . 1867)) #@39 Old name for `bookmark-default-file'. (defvar bookmark-file nil (#$ . 1991)) #@45 File in which to save bookmarks by default. (custom-declare-variable 'bookmark-default-file '(if bookmark-file bookmark-file (convert-standard-filename "~/.emacs.bmk")) '(#$ . 2074) :type 'file :group 'bookmark) #@288 Whether or not to make numbered backups of the bookmark file. It can have four values: t, nil, `never', and `nospecial'. The first three have the same meaning that they do for the variable `version-control', and the final value `nospecial' means just use the value of `version-control'. (custom-declare-variable 'bookmark-version-control ''nospecial '(#$ . 2293) :type '(choice (const nil) (const never) (const nospecial) (other t)) :group 'bookmark) #@61 Non-nil means bookmark functions ignore case in completion. (custom-declare-variable 'bookmark-completion-ignore-case 't '(#$ . 2750) :type 'boolean :group 'bookmark) #@189 Non-nil means that bookmarks will be displayed sorted by bookmark name. Otherwise they will be displayed in LIFO order (that is, most recently set ones come first, oldest ones come last). (custom-declare-variable 'bookmark-sort-flag 't '(#$ . 2924) :type 'boolean :group 'bookmark) #@60 Non-nil means show annotations when jumping to a bookmark. (custom-declare-variable 'bookmark-automatically-show-annotations 't '(#$ . 3212) :type 'boolean :group 'bookmark) #@175 Column at which to display filenames in a buffer listing bookmarks. You can toggle whether files are shown with \<bookmark-bmenu-mode-map>\[bookmark-bmenu-toggle-filenames]. (custom-declare-variable 'bookmark-bmenu-file-column '30 '(#$ . 3393) :type 'integer :group 'bookmark) #@202 Non-nil means show filenames when listing bookmarks. This may result in truncated bookmark names. To disable this, put the following in your `.emacs' file: (setq bookmark-bmenu-toggle-filenames nil) (custom-declare-variable 'bookmark-bmenu-toggle-filenames 't '(#$ . 3677) :type 'boolean :group 'bookmark) #@62 Maximum length of a bookmark name displayed on a popup menu. (custom-declare-variable 'bookmark-menu-length '70 '(#$ . 3991) :type 'integer :group 'bookmark) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311!\204 \311\312M\210\310\313!\204 \311\313\314\"\210\300\207" [custom-declare-face bookmark-menu-heading ((t (:inherit font-lock-type-face))) "Face used to highlight the heading in bookmark menu buffers." :group bookmark :version "22.1" fboundp defalias fset frame-height screen-height] 8) #@279 Keymap containing bindings to bookmark functions. It is not bound to any key by default: to bind it so that you have a bookmark prefix, just use `global-set-key' and bind a key of your choice to `bookmark-map'. All interactive bookmark functions have a binding in this keymap. (defvar bookmark-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\307#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210)\207" [map make-sparse-keymap define-key "x" bookmark-set "m" "j" bookmark-jump "g" "o" bookmark-jump-other-window "i" bookmark-insert "e" edit-bookmarks "f" bookmark-insert-location "r" bookmark-rename "d" bookmark-delete "l" bookmark-load "w" bookmark-write "s" bookmark-save] 4) (#$ . 4505)) #@590 Association list of bookmarks and their records. You probably don't want to change the value of this alist yourself; instead, let the various bookmark functions do it for you. The format of the alist is (BOOKMARK1 BOOKMARK2 ...) where each BOOKMARK is of the form (NAME PARAM-ALIST) or (NAME . PARAM-ALIST) where the first form is the old deprecated one and the second is the new favored one. PARAM-ALIST is typically of the form: ((filename . FILE) (front-context-string . FRONT-STR) (rear-context-string . REAR-STR) (position . POS) (annotation . ANNOTATION))) (defvar bookmark-alist nil (#$ . 5360)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list bookmarks-already-loaded default-boundp set-default nil] 3) #@140 Name of bookmark most recently used in the current file. It is buffer local, used to make moving a bookmark forward through a file easier. (defvar bookmark-current-bookmark nil (#$ . 6137)) (make-variable-buffer-local 'bookmark-current-bookmark) #@67 Number of modifications to bookmark list since it was last saved. (defvar bookmark-alist-modification-count 0 (#$ . 6389)) #@70 Length of the context strings recorded on either side of a bookmark. (defvar bookmark-search-size 16 (#$ . 6518)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\307\"\210\307\207" [current-load-list bookmark-current-point default-boundp set-default 0 bookmark-yank-point bookmark-current-buffer nil] 3) #@68 Return name of FULL-RECORD (an alist element instead of a string). (defalias 'bookmark-name-from-full-record #[(full-record) "@\207" [full-record] 1 (#$ . 6903)]) #@46 Return a list of all current bookmark names. (defalias 'bookmark-all-names #[nil "\301 \210\302\303\"\207" [bookmark-alist bookmark-maybe-load-default-file mapcar bookmark-name-from-full-record] 3 (#$ . 7073)]) #@180 Return the bookmark record corresponding to BOOKMARK. If BOOKMARK is already a bookmark record, just return it, Otherwise look for the corresponding bookmark in `bookmark-alist'. (defalias 'bookmark-get-bookmark #[(bookmark &optional noerror) ":\203 \207;\205 \304 \n#\206 ?\205 \305\306\"\207" [bookmark bookmark-alist bookmark-completion-ignore-case noerror assoc-string error "Invalid bookmark %s"] 4 (#$ . 7292)]) #@103 Return the guts of the entry for BOOKMARK in `bookmark-alist'. That is, all information but the name. (defalias 'bookmark-get-bookmark-record #[(bookmark) "\303!A\211A\204 \211@@):\203 @\202 )\207" [bookmark alist x bookmark-get-bookmark] 3 (#$ . 7727)]) #@33 Set BOOKMARK's name to NEWNAME. (defalias 'bookmark-set-name #[(bookmark newname) ";\203 \302!\202\f \240\207" [bookmark newname bookmark-get-bookmark] 2 (#$ . 7997)]) #@55 Return the property PROP of BOOKMARK, or nil if none. (defalias 'bookmark-prop-get #[(bookmark prop) "\302 !\236A\207" [prop bookmark bookmark-get-bookmark-record] 3 (#$ . 8176)]) #@43 Set the property PROP of BOOKMARK to VAL. (defalias 'bookmark-prop-set #[(bookmark prop val) "\304 !\236\211\203 \n \241\202 \304 ! BC\244)\207" [prop bookmark cell val bookmark-get-bookmark-record] 4 (#$ . 8363)]) #@52 Return the annotation of BOOKMARK, or nil if none. (defalias 'bookmark-get-annotation #[(bookmark) "\301\302\"\207" [bookmark bookmark-prop-get annotation] 3 (#$ . 8589)]) #@40 Set the annotation of BOOKMARK to ANN. (defalias 'bookmark-set-annotation #[(bookmark ann) "\302\303 #\207" [bookmark ann bookmark-prop-set annotation] 4 (#$ . 8768)]) #@39 Return the full filename of BOOKMARK. (defalias 'bookmark-get-filename #[(bookmark) "\301\302\"\207" [bookmark bookmark-prop-get filename] 3 (#$ . 8943)]) #@48 Set the full filename of BOOKMARK to FILENAME. (defalias 'bookmark-set-filename #[(bookmark filename) "\302\301 #\207" [bookmark filename bookmark-prop-set] 4 (#$ . 9105)]) #@48 Return the position (i.e.: point) of BOOKMARK. (defalias 'bookmark-get-position #[(bookmark) "\301\302\"\207" [bookmark bookmark-prop-get position] 3 (#$ . 9285)]) #@57 Set the position (i.e.: point) of BOOKMARK to POSITION. (defalias 'bookmark-set-position #[(bookmark position) "\302\301 #\207" [bookmark position bookmark-prop-set] 4 (#$ . 9456)]) #@46 Return the front-context-string of BOOKMARK. (defalias 'bookmark-get-front-context-string #[(bookmark) "\301\302\"\207" [bookmark bookmark-prop-get front-context-string] 3 (#$ . 9645)]) #@53 Set the front-context-string of BOOKMARK to STRING. (defalias 'bookmark-set-front-context-string #[(bookmark string) "\302\303 #\207" [bookmark string bookmark-prop-set front-context-string] 4 (#$ . 9838)]) #@45 Return the rear-context-string of BOOKMARK. (defalias 'bookmark-get-rear-context-string #[(bookmark) "\301\302\"\207" [bookmark bookmark-prop-get rear-context-string] 3 (#$ . 10052)]) #@52 Set the rear-context-string of BOOKMARK to STRING. (defalias 'bookmark-set-rear-context-string #[(bookmark string) "\302\303 #\207" [bookmark string bookmark-prop-set rear-context-string] 4 (#$ . 10243)]) (defalias 'bookmark-get-handler #[(bookmark) "\301\302\"\207" [bookmark bookmark-prop-get handler] 3]) #@42 The history list for bookmark functions. (defvar bookmark-history nil (#$ . 10559)) #@255 Prompting with PROMPT, read a bookmark name in completion. PROMPT will get a ": " stuck on the end no matter what, so you probably don't want to include one yourself. Optional second arg DEFAULT is a string to return if the user enters the empty string. (defalias 'bookmark-completing-read #[(prompt &optional default) "\306 \210<\203 \307\310 \311 #\207\n\f\211 \203 \312\313\f\"P\202# \314P\315 \316\317\316\320&\211 \321\230\2039 \f\202; ,\207" [last-nonmenu-event prompt bookmark-completion-ignore-case completion-ignore-case default bookmark-alist bookmark-maybe-load-default-file bookmark-menu-popup-paned-menu t bookmark-all-names format " (%s): " ": " completing-read nil 0 bookmark-history "" str] 8 (#$ . 10650)]) #@215 Put STRING into the bookmark prompt history, if caller non-interactive. We need this because sometimes bookmark functions are invoked from menus, so `completing-read' never gets a chance to set `bookmark-history'. (defalias 'bookmark-maybe-historicize-string '(macro . #[(string) "\301\302\303\304\305\306BBEE\207" [string or (interactive-p) setq bookmark-history cons (bookmark-history)] 7 (#$ . 11393)])) #@964 A function that should be called to create a bookmark record. Modes may set this variable buffer-locally to enable bookmarking of locations that should be treated specially, such as Info nodes, news posts, images, pdf documents, etc. The function will be called with no arguments. It should signal a user error if it is unable to construct a record for the current location. The returned record should be a cons cell of the form (NAME . ALIST) where ALIST is as described in `bookmark-alist' and may typically contain a special cons (handler . SOME-FUNCTION) which sets the handler function that should be used to open this bookmark instead of `bookmark-default-handler'. The handler should follow the same calling convention as the one used by `bookmark-default-handler'. NAME is a suggested name for the constructed bookmark. It can be nil in which case a default heuristic will be used. The function can also equivalently just return ALIST without NAME. (defvar bookmark-make-record-function 'bookmark-make-record-default (#$ . 11808)) #@71 Return a new bookmark record (NAME . ALIST) for the current location. (defalias 'bookmark-make-record #[nil " \211@;\203 \202 @\203 \303 B \n\206 \304 \240\210 )\207" [bookmark-make-record-function record bookmark-current-bookmark nil bookmark-buffer-name] 3 (#$ . 12859)]) #@202 Store the bookmark NAME with data ALIST. If NO-OVERWRITE is non-nil and another bookmark of the same name already exists in `bookmark-alist', record the new bookmark without throwing away the old one. (defalias 'bookmark-store #[(name alist no-overwrite) "\306 \210\307!\310\311 G\312 $\210\n\204# \313 \314\"\203# \313 ! \241\210\202) B\fB T\315 \2038 \316 \210 \317 )\207" [name stripped-name no-overwrite alist bookmark-alist bookmark-current-bookmark bookmark-maybe-load-default-file copy-sequence set-text-properties 0 nil bookmark-get-bookmark noerror bookmark-time-to-save-p bookmark-save bookmark-bmenu-surreptitiously-rebuild-list bookmark-alist-modification-count] 5 (#$ . 13149)]) #@261 Return the record describing the location of a new bookmark. Must be at the correct position in the buffer in which the bookmark is being set. If POINT-ONLY is non-nil, then only return the subset of the record that pertains to the location within the buffer. (defalias 'bookmark-make-record-default #[(&optional point-only) "\302?\205 \303\304 BC\305d`Z Y\205 \306`` \\\"B\307`eZ Y\205* \306`` Z\"B\310`BE\"\207" [point-only bookmark-search-size append filename bookmark-buffer-file-name front-context-string buffer-substring-no-properties rear-context-string position] 8 (#$ . 13859)]) #@97 The current version of the format used by bookmark files. You should never need to change this. (defconst bookmark-file-format-version 1 (#$ . 14456)) #@68 This string marks the end of the version stamp in a bookmark file. (defconst bookmark-end-of-version-stamp-marker "-*- End Of Bookmark File Format Version Stamp -*-\n" (#$ . 14613)) #@211 Return a `bookmark-alist' (in any format) from the current buffer. The buffer must of course contain bookmark format information. Does not care from where in the buffer it is called, and does not affect point. (defalias 'bookmark-alist-from-buffer #[nil "\212eb\210\301\302\303#\203 \304p!\202& \301\305\302\303#\203# \306u\210\304p!\202& \307\310!)\207" [bookmark-end-of-version-stamp-marker search-forward nil t read "(" -1 error "Not bookmark format"] 4 (#$ . 14802)]) #@60 Upgrade a version 0 alist OLD-LIST to the current version. (defalias 'bookmark-upgrade-version-0-alist #[(old-list) "\301\302\"\207" [old-list mapcar #[(bookmark) "@A@\211@\nA@ \306\n8 \307\n8 \f\310\n8 \303 B\311\f\206& \312B\313 \206- \312B\314\fB\315B\257.D\207" [bookmark name record filename front-str rear-str 2 3 4 front-context-string "" rear-context-string position annotation ann] 8]] 3 (#$ . 15282)]) #@135 Upgrade a bookmark file of format 0 (the original format) to format 1. This expects to be called from `point-min' in a bookmark file. (defalias 'bookmark-upgrade-file-format-from-0 #[nil "\303\304\"\210\305 \306 !ed|\210\307 \210\310\np\"\210\311 \210*eb\210\303\312\"\207" [bookmark-file-format-version old-list new-list message "Upgrading bookmark format from 0 to %d..." bookmark-alist-from-buffer bookmark-upgrade-version-0-alist bookmark-insert-file-format-version-stamp pp save-buffer "Upgrading bookmark format from 0 to %d...done"] 3 (#$ . 15714)]) #@138 Return an integer which is the file-format version of this bookmark file. This expects to be called from `point-min' in a bookmark file. (defalias 'bookmark-grok-file-format-version #[nil "\301\302!\203 \212\303 \304\216\305\306!\210\307u\210\310p!+\207\311\207" [save-match-data-internal looking-at "^;;;;" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward "[0-9]" -1 read 0] 2 (#$ . 16282)]) #@177 Check the file-format version of this bookmark file. If the version is not up-to-date, upgrade it automatically. This expects to be called from `point-min' in a bookmark file. (defalias 'bookmark-maybe-upgrade-file-format #[nil "\302 \211 U\206 \303U\203 \304 \202 \305\306!)\207" [version bookmark-file-format-version bookmark-grok-file-format-version 0 bookmark-upgrade-file-format-from-0 error "Bookmark file format version strangeness"] 3 (#$ . 16750)]) #@65 Insert text indicating current version of bookmark file format. (defalias 'bookmark-insert-file-format-version-stamp #[nil "\302\303\"c\210\304\305\306 \261\207" [bookmark-file-format-version bookmark-end-of-version-stamp-marker format ";;;; Emacs Bookmark Format Version %d ;;;;\n" ";;; This format is meant to be slightly human-readable;\n" ";;; nevertheless, you probably don't want to edit it.\n" ";;; "] 4 (#$ . 17219)]) #@74 Apply `message' to FMT and ARGS, but only if the display is fast enough. (defalias 'bookmark-maybe-message #[(fmt &rest args) "\303Y\205 \304\305 \n#\207" [baud-rate fmt args 9600 apply message] 4 (#$ . 17653)]) (byte-code "\303B\304\303!\204$ \305\303\306 \307 \n\"\210\310 \311\312#\210\310 \313\314#\210 )\"\210\303\207" [current-load-list map minibuffer-local-map bookmark-minibuffer-read-name-map default-boundp set-default make-sparse-keymap set-keymap-parent define-key "" bookmark-yank-word "" bookmark-insert-current-bookmark] 6) #@1009 Set a bookmark named NAME inside a file. If name is nil, then the user will be prompted. With prefix arg, will not overwrite a bookmark that has the same name as NAME if such a bookmark already exists, but instead will "push" the new bookmark onto the bookmark alist. Thus the most recently set bookmark with name NAME would be the one in effect at any given time, but the others are still there, should you decide to delete the most recent one. To yank words from the text of the buffer and use them as part of the bookmark name, type C-w while setting a bookmark. Successive C-w's yank successive words. Typing C-u inserts the name of the last bookmark used in the buffer (as an aid in using a single bookmark name to track your progress through a large file). If no bookmark was used, then C-u inserts the name of the file being visited. Use \[bookmark-delete] to remove bookmarks (you give it a name, and it removes only the first instance of a bookmark with that name from the list of bookmarks.) (defalias 'bookmark-set #[(&optional name parg) "\306 \211@\307 \210``p \206 \310\311\312 \"\313\313\211 &\211 \314\230\203+ \315A#\210\203@ \316!\202B \nb+\207" [record default bookmark-current-point bookmark-yank-point bookmark-current-buffer name bookmark-make-record bookmark-maybe-load-default-file read-from-minibuffer format "Set bookmark (%s): " nil "" bookmark-store bookmark-edit-annotation bookmark-minibuffer-read-name-map str parg bookmark-use-annotations] 8 (#$ . 18207) (list nil current-prefix-arg)]) #@128 Kill from point to end of line. If optional arg NEWLINE-TOO is non-nil, delete the newline too. Does not affect the kill ring. (defalias 'bookmark-kill-line #[(&optional newline-too) "\212\302\210`)`|\210 \205 \303\304!\205 \305\306!)\207" [eol newline-too nil looking-at "\n" delete-char 1] 2 (#$ . 19761)]) #@144 Variable holding the name of the bookmark. This is used in `bookmark-edit-annotation' to record the bookmark whose annotation is being edited. (defvar bookmark-annotation-name nil (#$ . 20082)) (defalias 'bookmark-default-annotation-text #[(bookmark) "\301\302\303\304\305\306 \307\310 \311\312 \313\314\315 \316\260\207" [bookmark "# Type the annotation for bookmark '" "' here.\n" "# All lines which start with a '#' will be deleted.\n" "# Type C-c C-c when done.\n#\n" "# Author: " user-full-name " <" user-login-name "@" system-name ">\n" "# Date: " current-time-string "\n"] 15]) #@129 Function to return default text to use for a bookmark annotation. It takes one argument, the name of the bookmark, as a string. (defvar bookmark-edit-annotation-text-func 'bookmark-default-annotation-text (#$ . 20684)) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defvaralias bookmark-read-annotation-text-func bookmark-edit-annotation-text-func nil make-obsolete-variable "23.1"] 4) #@49 Keymap for editing an annotation of a bookmark. (defvar bookmark-edit-annotation-mode-map (byte-code "\302 \303 \"\210\304\305\306#\210)\207" [map text-mode-map make-sparse-keymap set-keymap-parent define-key "" bookmark-send-edited-annotation] 4) (#$ . 21086)) #@161 Mode for editing the annotation of bookmark BOOKMARK. When you have finished composing, type \[bookmark-send-annotation]. \{bookmark-edit-annotation-mode-map} (defalias 'bookmark-edit-annotation-mode #[(bookmark) "\306 \210\307\301!\210\310\n!\210\311\312 !c\210\313!\211 \203* \314\230\204* c\210)\315\316!\207" [bookmark bookmark-annotation-name bookmark-edit-annotation-mode-map major-mode mode-name bookmark-edit-annotation-text-func kill-all-local-variables make-local-variable use-local-map bookmark-edit-annotation-mode "Edit Bookmark Annotation" bookmark-get-annotation "" run-mode-hooks text-mode-hook annotation] 3 (#$ . 21361) nil]) #@89 Use buffer contents as annotation for a bookmark. Lines beginning with `#' are ignored. (defalias 'bookmark-send-edited-annotation #[nil "\305=\204\n \306\307!\210eb\210`dW\203& \310\311!\203 \312\313!\210\202 \314y\210\202 \315ed\" \316\n \"\210\317 \210\fb\210*\320p!\207" [major-mode bookmark-annotation-name bookmark annotation bookmark-current-point bookmark-edit-annotation-mode error "Not in bookmark-edit-annotation-mode" looking-at "^#" bookmark-kill-line t 1 buffer-substring-no-properties bookmark-set-annotation bookmark-bmenu-surreptitiously-rebuild-list kill-buffer] 3 (#$ . 22023) nil]) #@61 Pop up a buffer for editing bookmark BOOKMARK's annotation. (defalias 'bookmark-edit-annotation #[(bookmark) "\301\302\303!!\210\304!\207" [bookmark pop-to-buffer generate-new-buffer-name "*Bookmark Annotation Compose*" bookmark-edit-annotation-mode] 3 (#$ . 22637)]) #@94 Insert this buffer's value of `bookmark-current-bookmark'. Default to file name if it's nil. (defalias 'bookmark-insert-current-bookmark #[nil "rq\210 \206\n \303 )\211c)\207" [bookmark-current-buffer bookmark-current-bookmark str bookmark-buffer-name] 2 (#$ . 22912) nil]) #@62 Return the name of the current buffer's file, non-directory. (defalias 'bookmark-buffer-name #[nil "\203 \304!\207\305\301!\2038 \2038 ;\203 \202 @\211GS\n H\306U\2033 \304\n\307 O!\2026 \310p!*\207\310p!\207" [buffer-file-name dired-directory dirname idx file-name-nondirectory boundp 47 0 buffer-name] 5 (#$ . 23194)]) (defalias 'bookmark-yank-word #[nil "rq\210 b\210\303`\304v\210`\211\")\211c)\207" [bookmark-current-buffer bookmark-yank-point string buffer-substring-no-properties 1] 5 nil nil]) #@65 Return the current buffer's file in a way useful for bookmarks. (defalias 'bookmark-buffer-file-name #[nil "\302\203 \202$ \303\301!\203! \203! ;\203 \202$ @\202$ \304\305!!\207" [buffer-file-name dired-directory abbreviate-file-name boundp error "Buffer not visiting a file or directory"] 3 (#$ . 23716)]) (defalias 'bookmark-maybe-load-default-file #[nil "?\2056 ?\2056 \304\305\n!!\203# \304\305 !!\204# \306\305\n!\305 !\"\210\307\305 !!\2056 \310 \311\211#\2056 \311\211\207" [bookmarks-already-loaded bookmark-alist bookmark-old-default-file bookmark-default-file file-exists-p expand-file-name rename-file file-readable-p bookmark-load t] 4]) (defalias 'bookmark-maybe-sort-alist #[nil "\203 \302\303 !\304\"\207 \207" [bookmark-sort-flag bookmark-alist sort copy-alist #[(x y) "@ @\231\207" [x y] 2]] 3]) #@106 Hook run after `bookmark-jump' jumps to a bookmark. Useful for example to unhide text in `outline-mode'. (defvar bookmark-after-jump-hook nil (#$ . 24550)) (defalias 'bookmark--jump-via #[(bookmark display-function) "\304!\210r p!\210)\305p\306\"\211\203 \307\n`\"\210)\310\311!\210 \205$ \312!\207" [bookmark display-function win bookmark-automatically-show-annotations bookmark-handle-bookmark get-buffer-window 0 set-window-point run-hooks bookmark-after-jump-hook bookmark-show-annotation] 4]) #@516 Jump to bookmark BOOKMARK (a point in some file). You may have a problem using this function if the value of variable `bookmark-alist' is nil. If that happens, you need to load in some bookmarks. See help on function `bookmark-load' for more about this. If the file pointed to by BOOKMARK no longer exists, you will be asked if you wish to give the bookmark a new location, and `bookmark-jump' will then jump to the new location, as well as recording it in place of the old one in the permanent bookmark record. (defalias 'bookmark-jump #[(bookmark) "\204 \302\303!\210t\204 B\304\305\"\207" [bookmark bookmark-history error "No bookmark specified" bookmark--jump-via switch-to-buffer] 3 (#$ . 25059) (list (bookmark-completing-read "Jump to bookmark" bookmark-current-bookmark))]) #@81 Jump to BOOKMARK (a point in some file) in another window. See `bookmark-jump'. (defalias 'bookmark-jump-other-window #[(bookmark) "\205 t\204\f B\302\303\"\207" [bookmark bookmark-history bookmark--jump-via switch-to-buffer-other-window] 3 (#$ . 25857) (byte-code "\303\304\"\n\305V\203 C\202 )\207" [bookmark-current-bookmark bkm emacs-major-version bookmark-completing-read "Jump to bookmark (in another window)" 21] 3)]) #@322 Return FILE (a string) if it exists, or return a reasonable variation of FILE if that exists. Reasonable variations are checked by appending suffixes defined in `Info-suffix-list'. If cannot find FILE nor a reasonable variation thereof, then still return FILE if it can be retrieved from a VC backend, else return nil. (defalias 'bookmark-file-or-variation-thereof #[(file) "\301!\203 \207\302\303!\210\304\305\215\206 \306!\205 \207" [file file-exists-p require info found (byte-code "\301\302\"\210\303\207" [Info-suffix-list mapc #[(elt) " @P\303\n!\205 \304\305\n\")\207" [file elt suffixed-file file-exists-p throw found] 3] nil] 3) vc-backend] 2 (#$ . 26301)]) #@189 Return the location pointed to by the bookmark BOOKMARK. The return value has the form (BUFFER . POINT). Note: this function is deprecated and is present for Emacs 22 compatibility only. (defalias 'bookmark-jump-noselect #[(bookmark) "\212\301!\210p`)B\207" [bookmark bookmark-handle-bookmark] 2 (#$ . 26988)]) (make-obsolete 'bookmark-jump-noselect 'bookmark-handle-bookmark "23.1") #@286 Call BOOKMARK's handler or `bookmark-default-handler' if it has none. Changes current buffer and point and returns nil, or signals a `file-error'. BOOKMARK can be a bookmark record used internally by some other elisp package, or the name of a bookmark to be found in `bookmark-alist'. (defalias 'bookmark-handle-bookmark #[(bookmark) "\302\303\304\217\210;\203\f \305\207" [bookmark bookmark-current-bookmark err (byte-code "\301!\206 \302\303!!\207" [bookmark bookmark-get-handler bookmark-default-handler bookmark-get-bookmark] 3) ((file-error (byte-code ";\203@ \303!\211\203? \304 !\305 \210\306\307 !\310\311R!\2033 \312!\210\313!\206+ \314\315!!\210\202? \316\317\"\210\320\n@\nA\"\210)\303\207" [bookmark file err bookmark-get-filename expand-file-name ding y-or-n-p file-name-nondirectory " nonexistent. Relocate \"" "\"? " bookmark-relocate bookmark-get-handler bookmark-default-handler bookmark-get-bookmark message "Bookmark not relocated; consider removing it (%s)." signal] 6))) nil] 3 (#$ . 27381)]) #@163 Default handler to jump to a particular bookmark location. BMK is a bookmark record. Changes current buffer and point and returns nil, or signals a `file-error'. (defalias 'bookmark-default-handler #[(bmk) "\306!\307\310\"\311!\312! \313! \n\203 \314\n!\202$ \315 !\211\204/ \316\317\320\"\210\202_ \n\2066 \321 !q\210 \203? b\210 \203O \322 d\323#\203O \324\224b\210\f\203_ \325\fe\323#\203_ \324\225b\210-\326\207" [bmk file buf forward-str behind-str place bookmark-get-filename bookmark-prop-get buffer bookmark-get-front-context-string bookmark-get-rear-context-string bookmark-get-position buffer-live-p bookmark-file-or-variation-thereof signal file-error ("Jumping to bookmark" "No such file or directory" (bookmark-get-filename bmk)) find-file-noselect search-forward t 0 search-backward nil] 4 (#$ . 28418)]) #@241 Relocate BOOKMARK to another file (reading file name with minibuffer). This makes an already existing bookmark point to that file, instead of the one it used to point at. Useful when a file has been renamed after a bookmark was set in it. (defalias 'bookmark-relocate #[(bookmark) "t\204 B\305 \210\306!\307\310\311\312\"\313\n!\"!\314 \"\210\fT\315 \203+ \316 \210\317 *\207" [bookmark bookmark-history bmrk-filename newloc bookmark-alist-modification-count bookmark-maybe-load-default-file bookmark-get-filename expand-file-name read-file-name format "Relocate %s to: " file-name-directory bookmark-set-filename bookmark-time-to-save-p bookmark-save bookmark-bmenu-surreptitiously-rebuild-list] 5 (#$ . 29255) (list (bookmark-completing-read "Bookmark to relocate"))]) #@161 Insert the name of the file associated with BOOKMARK. Optional second arg NO-HISTORY means don't record this in the minibuffer history list `bookmark-history'. (defalias 'bookmark-insert-location #[(bookmark &optional no-history) "\204\f t\204\f \nB`\304 !c\305 \203) \306 \203) \307 \212\310\311!\210`T)\312#\210)\207" [no-history bookmark bookmark-history start bookmark-location display-color-p display-mouse-p add-text-properties re-search-backward "[^ ]" (mouse-face highlight follow-link t help-echo "mouse-2: go to this bookmark in other window")] 5 (#$ . 30044) (list (bookmark-completing-read "Insert bookmark location"))]) (defalias 'bookmark-locate 'bookmark-insert-location) #@55 Return the name of the file associated with BOOKMARK. (defalias 'bookmark-location #[(bookmark) "\301 \210\302!\207" [bookmark bookmark-maybe-load-default-file bookmark-get-filename] 2 (#$ . 30742)]) #@484 Change the name of OLD bookmark to NEW name. If called from keyboard, prompt for OLD and NEW. If called from menubar, select OLD from a menu and prompt for NEW. If called from Lisp, prompt for NEW if only OLD was passed as an argument. If called with two strings, then no prompting is done. You must pass at least OLD when calling from Lisp. While you are entering the new name, consecutive C-w's insert consecutive words from the text of the buffer into the new bookmark name. (defalias 'bookmark-rename #[(old &optional new) "t\204 B\306 \210``p \206+ \307\310\311\312! \313\314\315#\210)\311\301% \316\"\210\317 \210T\320 \205F \321 )\207" [old bookmark-history bookmark-current-point bookmark-yank-point bookmark-current-buffer new bookmark-maybe-load-default-file read-from-minibuffer "New name: " nil copy-keymap define-key "" bookmark-yank-word bookmark-set-name bookmark-bmenu-surreptitiously-rebuild-list bookmark-time-to-save-p bookmark-save minibuffer-local-map now-map newname bookmark-current-bookmark bookmark-alist-modification-count] 7 (#$ . 30950) (list (bookmark-completing-read "Old bookmark name"))]) #@268 Insert the text of the file pointed to by bookmark BOOKMARK. You may have a problem using this function if the value of variable `bookmark-alist' is nil. If that happens, you need to load in some bookmarks. See help on function `bookmark-load' for more about this. (defalias 'bookmark-insert #[(bookmark) "t\204 B\304 \210`r\305!\210\306 )\nc\210\307 \210 b*\207" [bookmark bookmark-history str-to-insert orig-point bookmark-maybe-load-default-file bookmark-handle-bookmark buffer-string push-mark] 3 (#$ . 32110) (list (bookmark-completing-read "Insert bookmark contents"))]) #@402 Delete BOOKMARK from the bookmark list. Removes only the first instance of a bookmark with that name. If there are one or more other bookmarks with the same name, they will not be deleted. Defaults to the "current" bookmark (that is, the one most recently used in this file, if any). Optional second arg BATCH means don't update the bookmark list buffer, probably because we were called from there. (defalias 'bookmark-delete #[(bookmark &optional batch) "t\204 B\306 \210\307\310\"\311\n \"\307\f\310\"\204 \312) ?\2053 \313 \210T\314 \2053 \315 \207" [bookmark bookmark-history will-go bookmark-alist bookmark-current-bookmark batch bookmark-maybe-load-default-file bookmark-get-bookmark noerror delq nil bookmark-bmenu-surreptitiously-rebuild-list bookmark-time-to-save-p bookmark-save bookmark-alist-modification-count] 3 (#$ . 32703) (list (bookmark-completing-read "Delete bookmark" bookmark-current-bookmark))]) (defalias 'bookmark-time-to-save-p #[(&optional last-time) "\203\f \303V\205 \n\207\n\247\203 \nY\207\304\207" [last-time bookmark-alist-modification-count bookmark-save-flag 0 nil] 2]) #@134 Write bookmarks to a file (reading the file name with the minibuffer). Don't use this in Lisp programs; use `bookmark-save' instead. (defalias 'bookmark-write #[nil "\300 \210\301\302!\207" [bookmark-maybe-load-default-file bookmark-save t] 2 (#$ . 33835) nil]) #@703 Save currently defined bookmarks. Saves by default in the file defined by the variable `bookmark-default-file'. With a prefix arg, save it in file FILE (second argument). If you are calling this from Lisp, the two arguments are PARG and FILE, and if you just want it to write to the default file, then pass no arguments. Or pass in nil and FILE, and it will save in FILE instead. If you pass in one argument, and it is non-nil, then the user will be interactively queried for a file to save in. When you want to load in the bookmarks from a file, use `bookmark-load', \[bookmark-load]. That function will prompt you for a file, defaulting to the file defined by variable `bookmark-default-file'. (defalias 'bookmark-save #[(&optional parg file) "\304 \210\204 \204 \305\n!\210\2029 \204! \203! \305 !\210\2029 \2035 \2045 \306\307!\305 !\210)\2029 \305 !\210\310\211\207" [parg file bookmark-default-file bookmark-alist-modification-count bookmark-maybe-load-default-file bookmark-write-file read-file-name "File to save bookmarks in: " 0] 2 (#$ . 34104) "P"]) (defalias 'bookmark-write-file #[(file) "\306\307\"\210r\310\311!q\210eb\210ed|\210\312\211\313 \210\314 p\"\210\f\204& \312\202; \f\315=\2030 \315\202; \f\316=\203: \202; \317 \312\320\321\217\210\322p!\210\306\323\",\207" [file print-level print-length bookmark-alist bookmark-version-control version-control bookmark-maybe-message "Saving bookmarks to file %s..." get-buffer-create " *Bookmarks*" nil bookmark-insert-file-format-version-stamp pp never nospecial t (byte-code "\301ed#\207" [file write-region] 4) ((file-error (message "Can't write %s" file))) kill-buffer "Saving bookmarks to file %s...done"] 3]) (defalias 'bookmark-import-new-list #[(new-list) "\305 \n\205# \n@\306 \"\210\f C\244\307 ! B\nA)\202 *\207" [new-list names lst full-record bookmark-alist bookmark-all-names bookmark-maybe-rename bookmark-name-from-full-record] 3]) (defalias 'bookmark-maybe-rename #[(full-record names) "\305!\211\n\235\205& \306 \n\235\203! \307\310\f\"P\fT\202 \311 \"*)\207" [full-record found-name names new-name count bookmark-name-from-full-record 2 format "<%d>" bookmark-set-name] 5]) #@870 Load bookmarks from FILE (which must be in bookmark format). Appends loaded bookmarks to the front of the list of bookmarks. If optional second argument OVERWRITE is non-nil, existing bookmarks are destroyed. Optional third arg NO-MSG means don't display any messages while loading. If you load a file that doesn't contain a proper bookmark alist, you will corrupt Emacs's bookmark list. Generally, you should only load in files that were created with the bookmark functions in the first place. Your own personal bookmark file, `~/.emacs.bmk', is maintained automatically by Emacs; you shouldn't need to load it explicitly. If you load a file containing bookmarks with the same names as bookmarks already present in your Emacs, the new bookmarks will get unique numeric suffixes "<2>", "<3>", ... following the same method buffers use to resolve name collisions. (defalias 'bookmark-load #[(file &optional overwrite no-msg) "\306!\307!\204 \310\311\"\207 \204 \312\313\"\210r\314\315!)q\210eb\210\316 \210\317 \211<\203V \f\203; \320\202D \321 !\210T\306!\230\203P \322\323 \210\202[ \310\324\"\210)\325p!\210) ?\205j \312\326\"\207" [file no-msg enable-local-variables blist overwrite bookmark-alist expand-file-name file-readable-p error "Cannot read bookmark file %s" bookmark-maybe-message "Loading bookmarks from %s..." nil find-file-noselect bookmark-maybe-upgrade-file-format bookmark-alist-from-buffer 0 bookmark-import-new-list t bookmark-bmenu-surreptitiously-rebuild-list "Invalid bookmark list in %s" kill-buffer "Loading bookmarks from %s...done" bookmark-alist-modification-count bookmark-default-file bookmarks-already-loaded] 4 (#$ . 36307) (list (read-file-name (format "Load bookmarks from: (%s) " bookmark-default-file) "~/" bookmark-default-file 'confirm))]) (byte-code "\302B\303\302!\204 \304\302\305\"\210\306B\303\306!\204 \304\306\305\"\210\301B\303\301!\204- \304\301\305\"\210 \204\373 \307 \310 \311\"\210\312 \313\314#\210\312 \315\316#\210\312 \317\320#\210\312 \321\322#\210\312 \323\324#\210\312 \325\326#\210\312 \327\326#\210\312 \330\326#\210\312 \331\326#\210\312 \332\333#\210\312 \334\335#\210\312 \336\337#\210\312 \340\341#\210\312 \342\343#\210\312 \344\345#\210\312 \346\341#\210\312 \347\350#\210\312 \351\350#\210\312 \352\353#\210\312 \354\355#\210\312 \356\357#\210\312 \360\361#\210\312 \362\363#\210\312 \364\365#\210\312 \366\367#\210\312 \370\371#\210\312 \372\373#\210\312 \374\375#\210\312 \376\377#\210\312 \201@ \201A #\210\312 \201B \201C #\210\201D \201E \201F \201G #\207" [current-load-list bookmark-bmenu-mode-map bookmark-bmenu-bookmark-column default-boundp set-default nil bookmark-bmenu-hidden-bookmarks make-keymap suppress-keymap t define-key "q" quit-window "v" bookmark-bmenu-select "w" bookmark-bmenu-locate "2" bookmark-bmenu-2-window "1" bookmark-bmenu-1-window "j" bookmark-bmenu-this-window "" "f" " " "o" bookmark-bmenu-other-window "" bookmark-bmenu-switch-other-window "s" bookmark-bmenu-save "k" bookmark-bmenu-delete "" bookmark-bmenu-delete-backwards "x" bookmark-bmenu-execute-deletions "d" " " next-line "n" "p" previous-line "" bookmark-bmenu-backup-unmark "?" describe-mode "u" bookmark-bmenu-unmark "m" bookmark-bmenu-mark "l" bookmark-bmenu-load "r" bookmark-bmenu-rename "R" bookmark-bmenu-relocate "t" bookmark-bmenu-toggle-filenames "a" bookmark-bmenu-show-annotation "A" bookmark-bmenu-show-all-annotations "e" bookmark-bmenu-edit-annotation [mouse-2] bookmark-bmenu-other-window-with-mouse put bookmark-bmenu-mode mode-class special] 4) #@77 Rebuild the Bookmark List if it exists. Don't affect the buffer ring order. (defalias 'bookmark-bmenu-surreptitiously-rebuild-list #[nil "\300\301!\205\n \212\302\213)\207" [get-buffer "*Bookmark List*" ((bookmark-bmenu-list))] 2 (#$ . 39884)]) #@210 Display a list of existing bookmarks. The list is displayed in a buffer named `*Bookmark List*'. The leftmost column displays a D if the bookmark is flagged for deletion, or > if it is flagged for displaying. (defalias 'bookmark-bmenu-list #[nil "\302 \210t\203 \303\304\305!!\210\202 \304\305!q\210\306\307 \210\310c\210\311e`\312#\210\313\314\315 \"\210)eb\210\316y\210\317 \210 \205: \301\306!\207" [inhibit-read-only bookmark-bmenu-toggle-filenames bookmark-maybe-load-default-file switch-to-buffer get-buffer-create "*Bookmark List*" t erase-buffer "% Bookmark\n- --------\n" add-text-properties (font-lock-face bookmark-menu-heading) mapc #[(full-record) "\303\304!!\211\203 \305\230\204 \306c\210\202 \307c\210`\304!c\210\310 \2037 \311 \2037 \312\n\212\313\314!\210`T)\315#\210\316c*\207" [full-record annotation start bookmark-get-annotation bookmark-name-from-full-record "" " *" " " display-color-p display-mouse-p add-text-properties re-search-backward "[^ ]" (mouse-face highlight follow-link t help-echo "mouse-2: go to this bookmark in other window") "\n"] 5] bookmark-maybe-sort-alist 2 bookmark-bmenu-mode] 4 (#$ . 40136) nil]) (byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias list-bookmarks bookmark-bmenu-list edit-bookmarks] 3) #@2228 Major mode for editing a list of bookmarks. Each line describes one of the bookmarks in Emacs. Letters do not insert themselves; instead, they are commands. Bookmark names preceded by a "*" have annotations. \<bookmark-bmenu-mode-map> \[bookmark-bmenu-mark] -- mark bookmark to be displayed. \[bookmark-bmenu-select] -- select bookmark of line point is on. Also show bookmarks marked using m in other windows. \[bookmark-bmenu-toggle-filenames] -- toggle displaying of filenames (they may obscure long bookmark names). \[bookmark-bmenu-locate] -- display (in minibuffer) location of this bookmark. \[bookmark-bmenu-1-window] -- select this bookmark in full-frame window. \[bookmark-bmenu-2-window] -- select this bookmark in one window, together with bookmark selected before this one in another window. \[bookmark-bmenu-this-window] -- select this bookmark in place of the bookmark menu buffer. \[bookmark-bmenu-other-window] -- select this bookmark in another window, so the bookmark menu bookmark remains visible in its window. \[bookmark-bmenu-switch-other-window] -- switch the other window to this bookmark. \[bookmark-bmenu-rename] -- rename this bookmark (prompts for new name). \[bookmark-bmenu-relocate] -- relocate this bookmark's file (prompts for new file). \[bookmark-bmenu-delete] -- mark this bookmark to be deleted, and move down. \[bookmark-bmenu-delete-backwards] -- mark this bookmark to be deleted, and move up. \[bookmark-bmenu-execute-deletions] -- delete bookmarks marked with `\[bookmark-bmenu-delete]'. \[bookmark-bmenu-save] -- save the current bookmark list in the default file. With a prefix arg, prompts for a file to save in. \[bookmark-bmenu-load] -- load in a file of bookmarks (prompts for file.) \[bookmark-bmenu-unmark] -- remove all kinds of marks from current line. With prefix argument, also move up one line. \[bookmark-bmenu-backup-unmark] -- back up a line and remove marks. \[bookmark-bmenu-show-annotation] -- show the annotation, if it exists, for the current bookmark in another buffer. \[bookmark-bmenu-show-all-annotations] -- show the annotations of all bookmarks in another buffer. \[bookmark-bmenu-edit-annotation] -- edit the annotation for the current bookmark. (defalias 'bookmark-bmenu-mode #[nil "\305 \210\306!\210\307\211\310\311\312\313!\207" [bookmark-bmenu-mode-map truncate-lines buffer-read-only major-mode mode-name kill-all-local-variables use-local-map t bookmark-bmenu-mode "Bookmark Menu" run-mode-hooks bookmark-bmenu-mode-hook] 3 (#$ . 41416)]) #@114 Toggle whether filenames are shown in the bookmark list. Optional argument SHOW means show them unconditionally. (defalias 'bookmark-bmenu-toggle-filenames #[(&optional show) "\203 \302\303 \210\304\211\207 \203 \305 \210\302\211\207\303 \210\304\211\207" [show bookmark-bmenu-toggle-filenames nil bookmark-bmenu-show-filenames t bookmark-bmenu-hide-filenames] 2 (#$ . 43955) nil]) (defalias 'bookmark-bmenu-show-filenames #[(&optional force) "?\205 ?\205 \212\302\213)\207" [force bookmark-bmenu-toggle-filenames ((byte-code "eb\210\305y\210\306\307`dW\205J \310 \211B\212\306\210`)\311\f\307\"\210\312 \2033 \313 \2033 \314 `\315#\210)`\306\210`|\210\316c\210\317\n\307\"\210\320y\210)\202\n )\207" [bookmark-bmenu-hidden-bookmarks inhibit-read-only bmrk start bookmark-bmenu-file-column 2 nil t bookmark-bmenu-bookmark move-to-column display-color-p display-mouse-p remove-text-properties (mouse-face nil help-echo nil) " " bookmark-insert-location 1] 5))] 1]) (defalias 'bookmark-bmenu-hide-filenames #[(&optional force) "?\205 \205 \212\302\213)\207" [force bookmark-bmenu-toggle-filenames ((byte-code "eb\210\304y\210\237\212eb\210\305\306!\210\307v\210i)\212\310\205M \311 \310\"\210\312 \210`@c\210\313 \203C \314 \203C \315 \212\316\317!\210`T)\320#\210)A\321y\210\202 *\207" [bookmark-bmenu-hidden-bookmarks bookmark-bmenu-bookmark-column inhibit-read-only start 2 search-forward "Bookmark" -1 t move-to-column bookmark-kill-line display-color-p display-mouse-p add-text-properties re-search-backward "[^ ]" (mouse-face highlight follow-link t help-echo "mouse-2: go to this bookmark in other window") 1] 4))] 1]) (defalias 'bookmark-bmenu-check-position #[nil "\301e`\"\302W\203 eb\210\302y\210\207n\203 m\203 \303\304!\210\207\207" [bookmark-alist count-lines 2 beginning-of-line 0] 3]) (defalias 'bookmark-bmenu-bookmark #[nil "\301 \203\n \212\302\213\210)\203 \303 \210\212\304\213)\207" [bookmark-bmenu-toggle-filenames bookmark-bmenu-check-position ((byte-code "eb\210\301\302!\210\303v\210i\301\207" [bookmark-bmenu-bookmark-column search-forward "Bookmark" -1] 2)) bookmark-bmenu-hide-filenames ((byte-code "\302 \210u\210\303`\304\210`\" \203 \301\305!\210\207" [bookmark-bmenu-bookmark-column bookmark-bmenu-toggle-filenames beginning-of-line buffer-substring-no-properties nil t] 3))] 1]) #@90 Display the annotation for bookmark named BOOKMARK in a buffer, if an annotation exists. (defalias 'bookmark-show-annotation #[(bookmark) "\303!\211\205' \304\230?\205' \212p\305\306\307!\310\"\210ed|\210 c\210eb\210\305\n!*)\207" [bookmark annotation old-buf bookmark-get-annotation "" pop-to-buffer get-buffer-create "*Bookmark Annotation*" t] 4 (#$ . 46319)]) #@56 Display the annotations for all bookmarks in a buffer. (defalias 'bookmark-show-all-annotations #[nil "p\302\303\304!\305\"\210ed|\210\306\307 \"\210eb\210\302!)\207" [old-buf bookmark-alist pop-to-buffer get-buffer-create "*Bookmark Annotation*" t mapc #[(full-record) "\303!\304 ! \305Pc\210\n\2059 \n\306\230?\2059 \212\nc\210n\204# \307c\210)`dW\2059 \310 \210\311c\210\312y\210\312\210\202$ *\207" [full-record name ann bookmark-name-from-full-record bookmark-get-annotation ":\n" "" "\n" beginning-of-line " " nil] 2]] 3 (#$ . 46692)]) #@99 Mark bookmark on this line to be displayed by \<bookmark-bmenu-mode-map>\[bookmark-bmenu-select]. (defalias 'bookmark-bmenu-mark #[nil "\301 \210\302 \205 \303\304\305!\210\306c\210\305y\210\302 )\207" [inhibit-read-only beginning-of-line bookmark-bmenu-check-position t delete-char 1 62] 2 (#$ . 47249) nil]) #@160 Select this line's bookmark; also display bookmarks marked with `>'. You can mark bookmarks with the \<bookmark-bmenu-mode-map>\[bookmark-bmenu-mark] command. (defalias 'bookmark-bmenu-select #[nil "\305 \205p \306 p\307\211eb\210\310\311\307\312#\2039 \306 \312 \313\314!\210\315c\210) \230\204 \235\204 B\202 \237\316 S GT\245\317 \210\320 !\210\321\n!\210 \203l \205o \322\307\"\210\323\324!\210\320 @!\210 A\211\202T \323\324!,\207" [tem others menu bmrk inhibit-read-only bookmark-bmenu-check-position bookmark-bmenu-bookmark nil re-search-forward "^>" t delete-char -1 32 frame-height delete-other-windows bookmark-jump bury-buffer split-window other-window 1] 5 (#$ . 47568) nil]) #@100 Save the current list into a bookmark file. With a prefix arg, prompts for a file to save them in. (defalias 'bookmark-bmenu-save #[(parg) "\212\300\213)\207" [((bookmark-save parg))] 1 (#$ . 48283) "P"]) #@62 Load the bookmark file and rebuild the bookmark menu-buffer. (defalias 'bookmark-bmenu-load #[nil "\300 \205 \212\301\213)\207" [bookmark-bmenu-check-position ((byte-code "\300\301!\207" [call-interactively bookmark-load] 2))] 1 (#$ . 48494) nil]) #@52 Select this line's bookmark, alone, in full frame. (defalias 'bookmark-bmenu-1-window #[nil "\300 \205 \301\302 !\210\303\304 !\210\305 \207" [bookmark-bmenu-check-position bookmark-jump bookmark-bmenu-bookmark bury-buffer other-buffer delete-other-windows] 2 (#$ . 48749) nil]) #@69 Select this line's bookmark, with previous buffer in second window. (defalias 'bookmark-bmenu-2-window #[nil "\304 \205 \305 p\306\307 \210\310\311 !\210\312\313\n\314\"\210)\315 !+\207" [pop-up-windows menu bmrk bookmark-automatically-show-annotations bookmark-bmenu-check-position bookmark-bmenu-bookmark t delete-other-windows switch-to-buffer other-buffer nil bookmark--jump-via pop-to-buffer bury-buffer] 3 (#$ . 49035) nil]) #@45 Select this line's bookmark in this window. (defalias 'bookmark-bmenu-this-window #[nil "\300 \205 \301\302 !\207" [bookmark-bmenu-check-position bookmark-jump bookmark-bmenu-bookmark] 2 (#$ . 49477) nil]) #@77 Select this line's bookmark in other window, leaving bookmark menu visible. (defalias 'bookmark-bmenu-other-window #[nil "\302 \303 \205 \304\305\306\"))\207" [bookmark bookmark-automatically-show-annotations bookmark-bmenu-bookmark bookmark-bmenu-check-position t bookmark--jump-via switch-to-buffer-other-window] 3 (#$ . 49690) nil]) #@89 Make the other window select this line's bookmark. The current window remains selected. (defalias 'bookmark-bmenu-switch-other-window #[nil "\305 \306\307\211\310 \205 \306 \311 \312\"),\207" [same-window-regexps same-window-buffer-names pop-up-windows bookmark bookmark-automatically-show-annotations bookmark-bmenu-bookmark t nil bookmark-bmenu-check-position bookmark--jump-via display-buffer] 4 (#$ . 50036) nil]) #@86 Select bookmark at the mouse pointer in other window, leaving bookmark menu visible. (defalias 'bookmark-bmenu-other-window-with-mouse #[(event) "r\302\211:\203 \3038:\203 \303\202 \3048\202 \305 `\306\307F)\211@)!q\210\212\211:\203A \3038:\203; \303\202< \3048\202G \305 `\306\307F)\310 8\206` A@:\203] A@@\202` A@)b\210\311 *\207" [event position window-buffer 2 1 selected-window (0 . 0) 0 5 bookmark-bmenu-other-window] 6 (#$ . 50465) "e"]) #@65 Show the annotation for the current bookmark in another window. (defalias 'bookmark-bmenu-show-annotation #[nil "\301 \302 \205 \303!)\207" [bookmark bookmark-bmenu-bookmark bookmark-bmenu-check-position bookmark-show-annotation] 2 (#$ . 50933) nil]) #@58 Show the annotation for all bookmarks in another window. (defalias 'bookmark-bmenu-show-all-annotations #[nil "\300 \207" [bookmark-show-all-annotations] 1 (#$ . 51193) nil]) #@65 Edit the annotation for the current bookmark in another window. (defalias 'bookmark-bmenu-edit-annotation #[nil "\301 \302 \205 \303!)\207" [bookmark bookmark-bmenu-bookmark bookmark-bmenu-check-position bookmark-edit-annotation] 2 (#$ . 51374) nil]) #@104 Cancel all requested operations on bookmark on this line and move down. Optional BACKUP means move up. (defalias 'bookmark-bmenu-unmark #[(&optional backup) "\302 \210\303 \205 \304\305\306!\210\307c\210) \203 \310\202 \306y\210\303 \207" [inhibit-read-only backup beginning-of-line bookmark-bmenu-check-position t delete-char 1 " " -1] 2 (#$ . 51635) "P"]) #@72 Move up and cancel all requested operations on bookmark on line above. (defalias 'bookmark-bmenu-backup-unmark #[nil "\300y\210\301 \205 \302 \210\300y\210\301 \207" [-1 bookmark-bmenu-check-position bookmark-bmenu-unmark] 1 (#$ . 52003) nil]) #@157 Mark bookmark on this line to be deleted. To carry out the deletions that you've marked, use \<bookmark-bmenu-mode-map>\[bookmark-bmenu-execute-deletions]. (defalias 'bookmark-bmenu-delete #[nil "\301 \210\302 \205 \303\304\305!\210\306c\210\305y\210\302 )\207" [inhibit-read-only beginning-of-line bookmark-bmenu-check-position t delete-char 1 68] 2 (#$ . 52255) nil]) #@180 Mark bookmark on this line to be deleted, then move up one line. To carry out the deletions that you've marked, use \<bookmark-bmenu-mode-map>\[bookmark-bmenu-execute-deletions]. (defalias 'bookmark-bmenu-delete-backwards #[nil "\300 \210\301y\210\302 \203 \303y\210\302 \207" [bookmark-bmenu-delete -2 bookmark-bmenu-check-position 1] 1 (#$ . 52634) nil]) #@85 Delete bookmarks marked with \<Buffer-menu-mode-map>\[Buffer-menu-delete] commands. (defalias 'bookmark-bmenu-execute-deletions #[nil "\306\307!\210`\212\310 \210\311\312!?\205 `\313\210`{)i\211 \203$ \314 \210\313eb\210\315y\210\316\312d\317#\203= \320\321 \317\"\210\202, \322 \210\f\211\203J \300\317!\210\n\203^ eb\210\323\n!\210\310 \210 u\210\202a b\210\310 \210 T\324 \203o \325 \210\306\326!,\207" [bookmark-bmenu-toggle-filenames o-col o-str o-point hide-em bookmark-alist-modification-count message "Deleting bookmarks..." beginning-of-line looking-at "^D" nil bookmark-bmenu-hide-filenames 1 re-search-forward t bookmark-delete bookmark-bmenu-bookmark bookmark-bmenu-list search-forward bookmark-time-to-save-p bookmark-save "Deleting bookmarks...done"] 5 (#$ . 52998) nil]) #@59 Rename bookmark on current line. Prompts for a new name. (defalias 'bookmark-bmenu-rename #[nil "\302 \205 \303 `\304 !\210\305 \210b*\207" [thispoint bmrk bookmark-bmenu-check-position bookmark-bmenu-bookmark bookmark-rename bookmark-bmenu-list] 2 (#$ . 53800) nil]) #@65 Display location of this bookmark. Displays in the minibuffer. (defalias 'bookmark-bmenu-locate #[nil "\301 \205 \302 \303\304\305!\")\207" [bmrk bookmark-bmenu-check-position bookmark-bmenu-bookmark message "%s" bookmark-location] 4 (#$ . 54079) nil]) #@105 Change the file path of the bookmark on the current line, prompting with completion for the new path. (defalias 'bookmark-bmenu-relocate #[nil "\302 \205 \303 `\304 !\210b*\207" [thispoint bmrk bookmark-bmenu-check-position bookmark-bmenu-bookmark bookmark-relocate] 2 (#$ . 54343) nil]) #@298 Pop up multi-paned menu at EVENT, return string chosen from ENTRIES. That is, ENTRIES is a list of strings which appear as the choices in the menu. The number of panes depends on the number of entries. The visible entries are truncated to `bookmark-menu-length', but the strings returned are not. (defalias 'bookmark-menu-popup-paned-menu #[(event name entries) "\306 \307\245\310\311 \203U \310\311 \f\nW\203B \203B @\211 GV\2030 \311O\2022 B B A\fT)\202 T\312\313# \237B B*\202 \314\315\316Q \237B\"+\207" [iter pane-list f-height entries count lst frame-height 2 nil 0 format "-*- %s (%d) -*-" x-popup-menu "-*- " " -*-" str bookmark-menu-length name event] 6 (#$ . 54644)]) (byte-code "\302B\304\302!\204P \305\302\306\307!\310 \311\312#\210\310 \313\314#\210\310 \315\316#\210\310 \317\320#\210\310 \321\322#\210\310 \323\324#\210\310 \325\326#\210\310 \327\330#\210\310 \331\332#\210\310 \333\334#\210 )\"\210\335\302\n\"\210\336\303!\203f \203h \337 B\202h \340\302\207" [current-load-list map menu-bar-bookmark-map menu-bar-final-items default-boundp set-default make-sparse-keymap "Bookmark functions" define-key [load] ("Load a Bookmark File..." . bookmark-load) [write] ("Save Bookmarks As..." . bookmark-write) [save] ("Save Bookmarks" . bookmark-save) [edit] ("Edit Bookmark List" . bookmark-bmenu-list) [delete] ("Delete Bookmark..." . bookmark-delete) [rename] ("Rename Bookmark..." . bookmark-rename) [locate] ("Insert Location..." . bookmark-locate) [insert] ("Insert Contents..." . bookmark-insert) [set] ("Set Bookmark..." . bookmark-set) [jump] ("Jump to Bookmark..." . bookmark-jump) defalias boundp bookmark (bookmark)] 6) #@42 Hook run at the end of loading bookmark. (defvar bookmark-load-hook nil (#$ . 56333)) #@28 Hook run when Emacs exits. (defvar bookmark-exit-hook nil (#$ . 56425)) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defvaralias bookmark-exit-hooks bookmark-exit-hook nil make-obsolete-variable "22.1"] 4) #@93 Save bookmark state, if necessary, at Emacs exit time. This also runs `bookmark-exit-hook'. (defalias 'bookmark-exit-hook-internal #[nil "\301\302!\210\205 \303\304!\205 \305 \207" [bookmark-alist run-hooks bookmark-exit-hook bookmark-time-to-save-p t bookmark-save] 2 (#$ . 56649)]) (add-hook 'kill-emacs-hook 'bookmark-exit-hook-internal) #@30 Unload the Bookmark library. (defalias 'bookmark-unload-function #[nil "\203 \301 \210\302\207" [bookmark-save-flag bookmark-save nil] 1 (#$ . 56999)]) (byte-code "\300\301!\210\302\303!\207" [run-hooks bookmark-load-hook provide bookmark] 2)
Close
