Current File : //usr/local/share/emacs/27.2/lisp/bookmark.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310%\210\311\312\313\314\315DD\316\317\320%\210\311\321\313\314\322DD\323\317\324%\210\325\326\327\305#\210\330\211\203P \211@\326N\203I \327N\204I \331\327\326N#\210A\266\202\202/ \210\332\326\327\333#\210\325\334\327\305#\210\330\211\203 \211@\334N\203x \327N\204x \331\327\334N#\210A\266\202\202^ \210\332\334\327\333#\210\311\327\313\314\335DD\336\317\337%\210\311\340\313\314\341DD\342\343\333\317\320\307\304& \210\311\344\313\314\345DD\346\317\347%\210\311\350\313\314\351DD\352\317\320%\210\311\353\313\314\354DD\355\317\320%\210\311\356\313\314\357DD\360\317\320%\207" [require pp text-property-search custom-declare-group bookmark nil "Setting, annotation and jumping to bookmarks." :group matching custom-declare-variable bookmark-use-annotations funcall function #[0 "\300\207" [nil] 1] "If non-nil, setting a bookmark queries for an annotation in a buffer." :type boolean bookmark-save-flag #[0 "\300\207" [t] 1] "Controls when Emacs saves bookmarks to a file.\n--> nil means never save bookmarks, except when `bookmark-save' is\n explicitly called (\\[bookmark-save]).\n--> t means save bookmarks when Emacs is killed.\n--> Otherwise, it should be a number that is the frequency with which\n the bookmark list is saved (i.e.: the number of times which\n Emacs's bookmark list may be modified before it is automatically\n saved.). If it is a number, Emacs will also automatically save\n bookmarks when it is killed.\n\nTherefore, the way to get it to save every time you make or delete a\nbookmark is to set this variable to 1 (or 0, which produces the same\nbehavior.)\n\nTo specify the file in which to save them, modify the variable\n`bookmark-default-file'." (choice (const nil) integer (other t)) defvaralias bookmark-old-default-file bookmark-default-file (saved-value saved-variable-comment) put make-obsolete-variable "27.1" bookmark-file #[0 "\300\301\302\"\207" [locate-user-emacs-file "bookmarks" ".emacs.bmk"] 3] "File in which to save bookmarks by default." file bookmark-watch-bookmark-file #[0 "\300\207" [t] 1] "If non-nil watch the default bookmark file.\nIf this file has changed on disk since it was last loaded, query the user\nwhether to load it again. If the value is `silent' reload without querying.\nThis file defaults to `bookmark-default-file'. But during an Emacs session,\n`bookmark-load' and `bookmark-save' can redefine the current default file." :version bookmark-version-control #[0 "\300\207" [nospecial] 1] "Whether or not to make numbered backups of the bookmark file.\nIt can have four values: t, nil, `never', or `nospecial'.\nThe first three have the same meaning that they do for the\nvariable `version-control'; the value `nospecial' (the default) means\njust use the value of `version-control'." (choice (const :tag "If existing" nil) (const :tag "Never" never) (const :tag "Use value of option `version-control'" nospecial) (other :tag "Always" t)) bookmark-completion-ignore-case #[0 "\300\207" [t] 1] "Non-nil means bookmark functions ignore case in completion." bookmark-sort-flag #[0 "\300\207" [t] 1] "Non-nil means that bookmarks will be displayed sorted by bookmark name.\nOtherwise they will be displayed in LIFO order (that is, most\nrecently set ones come first, oldest ones come last)." bookmark-automatically-show-annotations #[0 "\300\207" [t] 1] "Non-nil means show annotations when jumping to a bookmark."] 10)
#@40 Name of buffer used for Bookmark List.
(defconst bookmark-bmenu-buffer "*Bookmark List*" (#$ . 3878))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable bookmark-bmenu-use-header-line funcall function #[0 "\300\207" [t] 1] "Non-nil means to use an immovable header line.\nThis is as opposed to inline text at the top of the buffer." :version "24.4" :type boolean] 8)
#@127 Number of lines used for the *Bookmark List* header.
(This is only significant when `bookmark-bmenu-use-header-line'
is nil.)
(defconst bookmark-bmenu-inline-header-height 2 (#$ . 4288))
#@108 Number of columns (chars) used for the *Bookmark List* marks column.
This includes the annotations column.
(defconst bookmark-bmenu-marks-width 2 (#$ . 4482))
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\210\314\315\316\317#\210\300\320\302\303\321DD\322\306\307%\210\300\323\302\303\324DD\325\306\326%\210\314\327\330\331\332\333%\207" [custom-declare-variable bookmark-bmenu-file-column funcall function #[0 "\300\207" [30] 1] "Column at which to display filenames in a buffer listing bookmarks.\nYou can toggle whether files are shown with \\<bookmark-bmenu-mode-map>\\[bookmark-bmenu-toggle-filenames]." :type integer bookmark-bmenu-toggle-filenames #[0 "\300\207" [t] 1] "Non-nil means show filenames when listing bookmarks.\nA non-nil value may result in truncated bookmark names." boolean custom-declare-face bookmark-menu-bookmark ((t (:weight bold))) "Face used to highlight bookmark names in bookmark menu buffers." bookmark-menu-length #[0 "\300\207" [70] 1] "Maximum length of a bookmark name displayed on a popup menu." bookmark-search-delay #[0 "\300\207" [0.2] 1] "Time before `bookmark-bmenu-search' updates the display." number bookmark-menu-heading ((t (:inherit font-lock-type-face))) "Face used to highlight the heading in bookmark menu buffers." :version "22.1"] 6)
#@288 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 variable `bookmark-map'. All interactive bookmark
functions have a binding in this keymap.
(defvar bookmark-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\306#\210\301\307\310#\210\301\311\310#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\301\334\335#\210\211\207" [make-sparse-keymap define-key "x" bookmark-set "m" "M" bookmark-set-no-overwrite "j" bookmark-jump "g" "o" bookmark-jump-other-window "5" bookmark-jump-other-frame "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] 5) (#$ . 5818))
#@1618 Association list of bookmark names and their parameters.
Bookmark functions update the value automatically.
You probably do NOT want to change the value yourself.
The value is an alist with bookmarks of the form
(BOOKMARK-NAME . PARAM-ALIST)
or the deprecated form (BOOKMARK-NAME PARAM-ALIST).
BOOKMARK-NAME is the name you gave to the bookmark when creating it.
PARAM-ALIST is an alist of bookmark information. The order of the
entries in PARAM-ALIST is not important. The default entries are
described below. An entry with a key but null value means the entry
is not used.
(filename . FILENAME)
(buf . BUFFER-OR-NAME)
(position . POS)
(front-context-string . STR-AFTER-POS)
(rear-context-string . STR-BEFORE-POS)
(handler . HANDLER)
(annotation . ANNOTATION)
FILENAME names the bookmarked file.
BUFFER-OR-NAME is a buffer or the name of a buffer that is used
if FILENAME is not defined or it refers to a non-existent file.
POS is the bookmarked buffer position.
STR-AFTER-POS is buffer text that immediately follows POS.
STR-BEFORE-POS is buffer text that immediately precedes POS.
ANNOTATION is a string that describes the bookmark.
See options `bookmark-use-annotations' and
`bookmark-automatically-show-annotations'.
HANDLER is a function that provides the bookmark-jump behavior for a
specific kind of bookmark instead of the default `bookmark-default-handler'.
This is the case for Info bookmarks, for instance. HANDLER must accept
a bookmark as its single argument.
A function `bookmark-make-record-function' may define additional entries
in PARAM-LIST that can be used by HANDLER.
(defvar bookmark-alist nil (#$ . 6776))
(byte-code "\300\301\302\303#\210\304\211\203( \211@\301N\203! \302N\204! \305\302\301N#\210A\266\202\202 \210\306\301\302\307#\207" [defvaralias bookmarks-already-loaded bookmark-bookmarks-timestamp nil (saved-value saved-variable-comment) put make-obsolete-variable "27.1"] 7)
#@194 Timestamp of current default bookmark file.
The value is actually (FILE . MODTIME), where FILE is a bookmark file that
defaults to `bookmark-default-file' and MODTIME is its modification time.
(defvar bookmark-bookmarks-timestamp nil (#$ . 8725))
#@62 The coding-system of the last loaded or saved bookmark file.
(defvar bookmark-file-coding-system nil (#$ . 8978))
#@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 (#$ . 9099))
(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 (#$ . 9351))
#@70 Length of the context strings recorded on either side of a bookmark.
(defvar bookmark-search-size 16 (#$ . 9480))
#@212 The buffer in which a bookmark is currently being set or renamed.
Functions that insert strings into the minibuffer use this to know
the source buffer for that information; see `bookmark-yank-word'
for example.
(defvar bookmark-current-buffer nil (#$ . 9601))
#@117 The next point from which to pull source text for `bookmark-yank-word'.
This point is in `bookmark-current-buffer'.
(defvar bookmark-yank-point 0 (#$ . 9868))
#@58 Non-nil means `bookmark-bmenu-search' quits immediately.
(defvar bookmark-quit-flag nil (#$ . 10033))
(make-obsolete-variable 'bookmark-quit-flag "no longer used" "27.1")
#@84 Run BODY while preserving the buffer's `buffer-modified-p' state.
(fn &rest BODY)
(defalias 'with-buffer-modified-unmodified '(macro . #[128 "\300\301!\302\303BC\304\305B\306DEE\207" [make-symbol "was-modified" let ((buffer-modified-p)) unwind-protect progn set-buffer-modified-p] 8 (#$ . 10210)]))
#@120 Return the name of BOOKMARK-RECORD.
BOOKMARK-RECORD is, e.g., one element from `bookmark-alist'.
(fn BOOKMARK-RECORD)
(defalias 'bookmark-name-from-full-record #[257 "\211@\207" [] 2 (#$ . 10520)])
#@46 Return a list of all current bookmark names.
(defalias 'bookmark-all-names #[0 "\301 \210\302\303\"\207" [bookmark-alist bookmark-maybe-load-default-file mapcar bookmark-name-from-full-record] 3 (#$ . 10725)])
#@422 Return the bookmark record corresponding to BOOKMARK-NAME-OR-RECORD.
If BOOKMARK-NAME-OR-RECORD is a string, look for the corresponding
bookmark record in `bookmark-alist'; return it if found, otherwise
error. If optional argument NOERROR is non-nil, return nil
instead of signaling an error. Else if BOOKMARK-NAME-OR-RECORD
is already a bookmark record, just return it.
(fn BOOKMARK-NAME-OR-RECORD &optional NOERROR)
(defalias 'bookmark-get-bookmark #[513 ":\203 \207;\205 \302 #\206 \211?\205 \303\304\"\207" [bookmark-alist bookmark-completion-ignore-case assoc-string error "Invalid bookmark %s"] 6 (#$ . 10943)])
#@158 Return the record portion of BOOKMARK-NAME-OR-RECORD in `bookmark-alist'.
In other words, return all information but the name.
(fn BOOKMARK-NAME-OR-RECORD)
(defalias 'bookmark-get-bookmark-record #[257 "\300!A\211A\204 \211@@:\203 \211@\202 \211\207" [bookmark-get-bookmark] 3 (#$ . 11581)])
#@86 Set BOOKMARK-NAME-OR-RECORD's name to NEWNAME.
(fn BOOKMARK-NAME-OR-RECORD NEWNAME)
(defalias 'bookmark-set-name #[514 "\300!\240\207" [bookmark-get-bookmark] 4 (#$ . 11884)])
#@105 Return the property PROP of BOOKMARK-NAME-OR-RECORD, or nil if none.
(fn BOOKMARK-NAME-OR-RECORD PROP)
(defalias 'bookmark-prop-get #[514 "\211\300!\236A\207" [bookmark-get-bookmark-record] 5 (#$ . 12070)])
#@97 Set the property PROP of BOOKMARK-NAME-OR-RECORD to VAL.
(fn BOOKMARK-NAME-OR-RECORD PROP VAL)
(defalias 'bookmark-prop-set #[771 "\300!\236\211\203 \211\241\202 \300!BC\244\207" [bookmark-get-bookmark-record] 7 (#$ . 12285)])
#@97 Return the annotation of BOOKMARK-NAME-OR-RECORD, or nil if none.
(fn BOOKMARK-NAME-OR-RECORD)
(defalias 'bookmark-get-annotation #[257 "\300\301\"\207" [bookmark-prop-get annotation] 4 (#$ . 12527)])
#@89 Set the annotation of BOOKMARK-NAME-OR-RECORD to ANN.
(fn BOOKMARK-NAME-OR-RECORD ANN)
(defalias 'bookmark-set-annotation #[514 "\300\301#\207" [bookmark-prop-set annotation] 6 (#$ . 12736)])
#@100 Return the full filename of BOOKMARK-NAME-OR-RECORD, or nil if none.
(fn BOOKMARK-NAME-OR-RECORD)
(defalias 'bookmark-get-filename #[257 "\300\301\"\207" [bookmark-prop-get filename] 4 (#$ . 12938)])
#@102 Set the full filename of BOOKMARK-NAME-OR-RECORD to FILENAME.
(fn BOOKMARK-NAME-OR-RECORD FILENAME)
(defalias 'bookmark-set-filename #[514 "\300\301#\207" [bookmark-prop-set filename] 6 (#$ . 13147)])
#@109 Return the position (i.e.: point) of BOOKMARK-NAME-OR-RECORD, or nil if none.
(fn BOOKMARK-NAME-OR-RECORD)
(defalias 'bookmark-get-position #[257 "\300\301\"\207" [bookmark-prop-get position] 4 (#$ . 13358)])
#@111 Set the position (i.e.: point) of BOOKMARK-NAME-OR-RECORD to POSITION.
(fn BOOKMARK-NAME-OR-RECORD POSITION)
(defalias 'bookmark-set-position #[514 "\300\301#\207" [bookmark-prop-set position] 6 (#$ . 13576)])
#@107 Return the front-context-string of BOOKMARK-NAME-OR-RECORD, or nil if none.
(fn BOOKMARK-NAME-OR-RECORD)
(defalias 'bookmark-get-front-context-string #[257 "\300\301\"\207" [bookmark-prop-get front-context-string] 4 (#$ . 13796)])
#@105 Set the front-context-string of BOOKMARK-NAME-OR-RECORD to STRING.
(fn BOOKMARK-NAME-OR-RECORD STRING)
(defalias 'bookmark-set-front-context-string #[514 "\300\301#\207" [bookmark-prop-set front-context-string] 6 (#$ . 14036)])
#@106 Return the rear-context-string of BOOKMARK-NAME-OR-RECORD, or nil if none.
(fn BOOKMARK-NAME-OR-RECORD)
(defalias 'bookmark-get-rear-context-string #[257 "\300\301\"\207" [bookmark-prop-get rear-context-string] 4 (#$ . 14274)])
#@104 Set the rear-context-string of BOOKMARK-NAME-OR-RECORD to STRING.
(fn BOOKMARK-NAME-OR-RECORD STRING)
(defalias 'bookmark-set-rear-context-string #[514 "\300\301#\207" [bookmark-prop-set rear-context-string] 6 (#$ . 14511)])
#@104 Return the handler function for BOOKMARK-NAME-OR-RECORD, or nil if none.
(fn BOOKMARK-NAME-OR-RECORD)
(defalias 'bookmark-get-handler #[257 "\300\301\"\207" [bookmark-prop-get handler] 4 (#$ . 14746)])
#@42 The history list for bookmark functions.
(defvar bookmark-history nil (#$ . 14956))
#@330 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 arg DEFAULT is a string to return if the user input is empty.
If DEFAULT is nil then return empty string for empty input.
(fn PROMPT &optional DEFAULT)
(defalias 'bookmark-completing-read #[513 "\304 \210<\203 \305\306 \203 \307\310 \311\"\202 \310 #\207\n\211\312\232?\205% \211\2031 \313\314\"\2022 \315P\316\317\320\321\320\322&)\207" [last-nonmenu-event bookmark-sort-flag bookmark-completion-ignore-case completion-ignore-case bookmark-maybe-load-default-file bookmark-menu-popup-paned-menu t sort bookmark-all-names string-lessp "" format " (%s): " ": " completing-read #[771 "\211\301=\203 \302\207\303$\207" [bookmark-alist metadata (metadata (category . bookmark)) complete-with-action] 8 "\n\n(fn STRING PRED ACTION)"] nil 0 bookmark-history] 12 (#$ . 15047)])
#@228 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'.
(fn STRING)
(defalias 'bookmark-maybe-historicize-string '(macro . #[257 "\300\301\302\303\304\305BBEE\207" [or (called-interactively-p 'interactive) setq bookmark-history cons (bookmark-history)] 8 (#$ . 16020)]))
#@920 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 . HANDLER-FUNC) which specifies the handler function
that should be used instead of `bookmark-default-handler' to open this
bookmark. See the documentation for `bookmark-alist' for more.
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 (#$ . 16458))
#@71 Return a new bookmark record (NAME . ALIST) for the current location.
(defalias 'bookmark-make-record #[0 " \211@;\204 \211@\203 \302B\262\211 \206 \303 \240\210\304\305\306\302\307\310\311\305\" @\303 E\"!\"#\210\211\207" [bookmark-make-record-function bookmark-current-bookmark nil bookmark-buffer-name bookmark-prop-set defaults delq delete-dups append bookmark-prop-get] 12 (#$ . 17465)])
#@232 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.
(fn NAME ALIST NO-OVERWRITE)
(defalias 'bookmark-store #[771 "\303 \210\304!\305\306G\307$\210\204\" \310\311\"\203\" \310!\241\210\202( \211BB\211\nT\312 \2035 \313 \210\211\314 \207" [bookmark-alist bookmark-current-bookmark bookmark-alist-modification-count 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] 9 (#$ . 17876)])
#@644 Return the record describing the location of a new bookmark.
Point should be at the buffer in which the bookmark is being set,
and normally should be at the position where the bookmark is desired,
but see the optional arguments for other possibilities.
If NO-FILE is non-nil, then only return the subset of the
record that pertains to the location within the buffer, leaving off
the part that records the filename.
If NO-CONTEXT is non-nil, do not include the front- and rear-context
strings in the record -- the position is enough.
If POSN is non-nil, record POSN as the point instead of `(point)'.
(fn &optional NO-FILE NO-CONTEXT POSN)
(defalias 'bookmark-make-record-default #[768 "\301?\205 \302\303 BC?\205! \304d`ZY\205 \305``\\\"BC?\2057 \306`eZY\2055 \305``Z\"BC\307\206= `BC$\207" [bookmark-search-size append filename bookmark-buffer-file-name front-context-string buffer-substring-no-properties rear-context-string position] 11 (#$ . 18562)])
#@97 The current version of the format used by bookmark files.
You should never need to change this.
(defconst bookmark-file-format-version 1 (#$ . 19537))
#@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" (#$ . 19694))
#@195 Return a `bookmark-alist' 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 #[0 "\212eb\210\302\303\304#\203 \305p!\202\" \203 \306\307 \"\202\" \306\310\311 \")\207" [bookmark-end-of-version-stamp-marker buffer-file-name search-forward nil t read error "File not in bookmark format: %s" "Buffer not in bookmark format: %s" buffer-name] 4 (#$ . 19883)])
#@75 Upgrade a version 0 alist OLD-LIST to the current version.
(fn OLD-LIST)
(defalias 'bookmark-upgrade-version-0-alist #[257 "\300\301\"\207" [mapcar #[257 "\211@A@\211@A@\3008\3018\3028\303B\304\206 \305B\306\206( \305B\307B\310B\257D\207" [2 3 4 filename front-context-string "" rear-context-string position annotation] 15 "\n\n(fn BOOKMARK)"]] 4 (#$ . 20403)])
(make-obsolete 'bookmark-upgrade-version-0-alist nil "27.1")
#@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 #[0 "\302\303\304\"!\305 \306!ed|\210\307 !\210\310p\"\210\311 \210eb\210\312!\207" [bookmark-file-format-version buffer-file-coding-system make-progress-reporter format "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 progress-reporter-done] 6 (#$ . 20854)])
(make-obsolete 'bookmark-upgrade-file-format-from-0 nil "27.1")
#@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 #[0 "\300\301!\203$ \212\302 \303\304\305\306\307!\310\"\311$\216\312\313!\210\314u\210\315p!)\262)\207\304\207" [looking-at "^;;;;" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 re-search-forward "[0-9]" -1 read] 7 (#$ . 21482)])
(make-obsolete 'bookmark-grok-file-format-version nil "27.1")
#@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 #[0 "\301 \211U\206 \211\302U\203 \303 \202 \304\305!\207" [bookmark-file-format-version bookmark-grok-file-format-version 0 bookmark-upgrade-file-format-from-0 error "Bookmark file format version strangeness"] 3 (#$ . 22013)])
(make-obsolete 'bookmark-maybe-upgrade-file-format nil "27.1")
#@150 Insert text indicating current version of bookmark file format.
CODING is the symbol of the coding-system in which the file is encoded.
(fn CODING)
(defalias 'bookmark-insert-file-format-version-stamp #[257 "\302!\303>\203 \304\262\305\306\302!#c\210\307\310\311 \261\207" [bookmark-file-format-version bookmark-end-of-version-stamp-marker coding-system-base (undecided prefer-utf-8) utf-8-emacs format ";;;; Emacs Bookmark Format Version %d ;;;; -*- coding: %S -*-\n" ";;; This format is meant to be slightly human-readable;\n" ";;; nevertheless, you probably don't want to edit it.\n" ";;; "] 6 (#$ . 22537)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias bookmark-maybe-message message nil make-obsolete "27.1"] 4)
(defvar bookmark-minibuffer-read-name-map (byte-code "\301 \302\"\210\303\304\305#\210\211\207" [minibuffer-local-map make-sparse-keymap set-keymap-parent define-key "" bookmark-yank-word] 5))
#@857 Set a bookmark using specified NAME or prompting with PROMPT.
The bookmark is set at the current location.
If NAME is non-nil, use it as the name of the new bookmark. In
this case, the value of PROMPT is ignored.
Otherwise, prompt the user for the bookmark name. Begin the
interactive prompt with PROMPT, followed by a space, a generated
default name in parentheses, a colon and a space.
OVERWRITE-OR-PUSH controls what happens if there is already a
bookmark with the same name: nil means signal an error;
`overwrite' means replace any existing bookmark; `push' means
push the new bookmark onto the bookmark alist. The `push'
behavior means that among bookmarks with the same name, this most
recently set one becomes the one in effect, but the others are
still there, in order, if the topmost one is ever deleted.
(fn PROMPT NAME OVERWRITE-OR-PUSH)
(defalias 'bookmark-set-internal #[771 "\304\216\305 \306\307\"\211:\203 \211@\202 \211\203 \310\307\"\262\202' @\262\262\311 \210\2032 \2046 `p\206I \312\313\314#\315\n\315\211&\211\316\230\203R \262\317\267\202\205 \320\321\"\203g \322\323\"\210\202\213 \324A\315#\210\202\213 \324A\315#\210\202\213 \324A\321#\210\202\213 \322\325\"\210 \205\222 \326!\262\266\203)\207" [bookmark-yank-point bookmark-current-buffer bookmark-minibuffer-read-name-map bookmark-use-annotations #[0 "\302\211\211\207" [bookmark-yank-point bookmark-current-buffer nil] 3] bookmark-make-record bookmark-prop-get defaults assq-delete-all bookmark-maybe-load-default-file read-from-minibuffer format "%s (default %s): " nil "" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 88 overwrite 113 push 123)) bookmark-get-bookmark t error "A bookmark named \"%s\" already exists" bookmark-store "Unrecognized value for `overwrite-or-push': %S" bookmark-edit-annotation] 13 (#$ . 23486)])
#@1138 Set a bookmark named NAME at the current location.
If NAME is nil, then prompt the user.
With a prefix arg (non-nil NO-OVERWRITE), do not overwrite any
existing bookmark that has the same name as NAME, but instead push the
new bookmark onto the bookmark alist. The most recently set bookmark
with name NAME is thus the one in effect at any given time, but the
others are still there, should the user 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 (at the bookmark name prompt) the name of the last
bookmark used in the document where the new bookmark is being set;
this helps you use a single bookmark name to track progress through a
large document. If there is no prior bookmark for this document, then
C-u inserts an appropriate name based on the buffer or file.
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.)
(fn &optional NAME NO-OVERWRITE)
(defalias 'bookmark-set #[512 "\211\203 \300\202 \301\302\203 \303\202 \304#\207" ["Set bookmark" "Set bookmark unconditionally" bookmark-set-internal push overwrite] 7 (#$ . 25391) (list nil current-prefix-arg)])
#@1223 Set a bookmark named NAME at the current location.
If NAME is nil, then prompt the user.
If a bookmark named NAME already exists and prefix argument
PUSH-BOOKMARK is non-nil, then push the new bookmark onto the
bookmark alist. Pushing it means that among bookmarks named
NAME, this one becomes the one in effect, but the others are
still there, in order, and become effective again if the user
ever deletes the most recent one.
Otherwise, if a bookmark named NAME already exists but PUSH-BOOKMARK
is nil, raise an error.
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 (at the bookmark name prompt) the name of the last
bookmark used in the document where the new bookmark is being set;
this helps you use a single bookmark name to track progress through a
large document. If there is no prior bookmark for this document, then
C-u inserts an appropriate name based on the buffer or file.
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.)
(fn &optional NAME PUSH-BOOKMARK)
(defalias 'bookmark-set-no-overwrite #[512 "\300\301\205 \302#\207" [bookmark-set-internal "Set bookmark" push] 6 (#$ . 26757) (list nil current-prefix-arg)])
#@156 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.
(fn &optional NEWLINE-TOO)
(defalias 'bookmark-kill-line #[256 "\300 `|\210\205 g\301U\205 \302\303!\207" [line-end-position 10 delete-char 1] 4 (#$ . 28148)])
#@65 Name of bookmark under edit in `bookmark-edit-annotation-mode'.
(defvar bookmark-annotation-name nil (#$ . 28446))
(make-variable-buffer-local 'bookmark-annotation-name)
#@77 If non-nil, `bookmark-edit-annotation-mode' should return to bookmark list.
(defvar bookmark--annotation-from-bookmark-list nil (#$ . 28622))
(make-variable-buffer-local 'bookmark--annotation-from-bookmark-list)
#@154 Return default annotation text for BOOKMARK-NAME.
The default annotation text is simply some text explaining how to use
annotations.
(fn BOOKMARK-NAME)
(defalias 'bookmark-default-annotation-text #[257 "\300\301\"\300\302!\303\304 \305\306 \307\310 \311\312 \313\260 \207" [format-message "# Type the annotation for bookmark `%s' 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"] 12 (#$ . 28841)])
(byte-code "\300\301\302\303#\210\304\211\203( \211@\301N\203! \302N\204! \305\302\301N#\210A\266\202\202 \210\306\301\302\307#\207" [defvaralias bookmark-read-annotation-text-func bookmark-edit-annotation-text-func nil (saved-value saved-variable-comment) put make-obsolete-variable "23.1"] 7)
#@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 (#$ . 29707))
#@49 Keymap for editing an annotation of a bookmark.
(defvar bookmark-edit-annotation-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\211\207" [text-mode-map make-sparse-keymap set-keymap-parent define-key "" bookmark-send-edited-annotation] 5) (#$ . 29932))
#@87 Insert annotation for BOOKMARK-NAME-OR-RECORD at point.
(fn BOOKMARK-NAME-OR-RECORD)
(defalias 'bookmark-insert-annotation #[257 "\301\302\"\204\f \303\304\"\210!c\210\305!\211\205! \211\306\230?\205! \211c\207" [bookmark-edit-annotation-text-func bookmark-get-bookmark t error "Invalid bookmark: %s" bookmark-get-annotation ""] 4 (#$ . 30203)])
(defvar bookmark-edit-annotation-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [bookmark-edit-annotation-mode-hook variable-documentation put "Hook run after entering Edit Bookmark Annotation mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp bookmark-edit-annotation-mode-map definition-name bookmark-edit-annotation-mode] 4)
(defvar bookmark-edit-annotation-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [bookmark-edit-annotation-mode-abbrev-table bookmark-edit-annotation-mode-map variable-documentation put purecopy "Keymap for `bookmark-edit-annotation-mode'." boundp bookmark-edit-annotation-mode-syntax-table definition-name bookmark-edit-annotation-mode (lambda (#1=#:def-tmp-var) (defvar bookmark-edit-annotation-mode-syntax-table #1#)) make-syntax-table "Syntax table for `bookmark-edit-annotation-mode'." (lambda (#1#) (defvar bookmark-edit-annotation-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `bookmark-edit-annotation-mode'." derived-mode-parent text-mode] 5)
#@348 Mode for editing the annotation of bookmarks.
When you have finished composing, type \[bookmark-send-edited-annotation].
\{bookmark-edit-annotation-mode-map}
In addition to any hooks its parent mode `text-mode' might have run,
this mode runs the hook `bookmark-edit-annotation-mode-hook', as the final or penultimate step
during initialization.
(defalias 'bookmark-edit-annotation-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
=\204R \326
\325C#\210\327 !\210\330\f!\210
)\331\332!\207" [delay-mode-hooks major-mode mode-name bookmark-edit-annotation-mode-map bookmark-edit-annotation-mode-syntax-table bookmark-edit-annotation-mode-abbrev-table make-local-variable t text-mode bookmark-edit-annotation-mode "Edit Bookmark Annotation" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks bookmark-edit-annotation-mode-hook local-abbrev-table] 5 (#$ . 31970) nil])
#@89 Use buffer contents as annotation for a bookmark.
Lines beginning with `#' are ignored.
(defalias 'bookmark-send-edited-annotation #[0 "\304\305!\204\n \306\307!\210eb\210`dW\203& g\310U\203 \311\312!\210\202
\313y\210\202
\314ed\" p\315\"\210\nT\316\317\"\210\320 \210\321 \210\203R \322\323 !!\210eb\210\324\325\"\210\326!\207" [bookmark-annotation-name bookmark--annotation-from-bookmark-list bookmark-alist-modification-count bookmark-bmenu-buffer derived-mode-p bookmark-edit-annotation-mode error "Not in bookmark-edit-annotation-mode" 35 bookmark-kill-line t 1 buffer-substring-no-properties bookmark-set-annotation message "Annotation updated for \"%s\"" quit-window bookmark-bmenu-surreptitiously-rebuild-list pop-to-buffer get-buffer text-property-search-forward bookmark-name-prop kill-buffer] 7 (#$ . 33166) nil])
#@237 Pop up a buffer for editing bookmark BOOKMARK-NAME-OR-RECORD's annotation.
If optional argument FROM-BOOKMARK-LIST is non-nil, return to the
bookmark list when editing is done.
(fn BOOKMARK-NAME-OR-RECORD &optional FROM-BOOKMARK-LIST)
(defalias 'bookmark-edit-annotation #[513 "\302\303\304!!\210\305!\210\306 \210\211\211\207" [bookmark--annotation-from-bookmark-list bookmark-annotation-name pop-to-buffer generate-new-buffer-name "*Bookmark Annotation Compose*" bookmark-insert-annotation bookmark-edit-annotation-mode] 5 (#$ . 34010)])
#@145 Return the name of the current buffer in a form usable as a bookmark name.
If the buffer is associated with a file or directory, use that name.
(defalias 'bookmark-buffer-name #[0 "\203 \302!\207\303\301!\2036 \2036 ;\203 \202 @\211GSH\304U\2032 \302\305\306#!\2025 \307p!\207\307p!\207" [buffer-file-name dired-directory file-name-nondirectory boundp 47 substring 0 buffer-name] 7 (#$ . 34562)])
#@165 Get the next word from buffer `bookmark-current-buffer' and append
it to the name of the bookmark currently being set, advancing
`bookmark-yank-point' by one word.
(defalias 'bookmark-yank-word #[0 "rq\210 b\210\302`\303v\210`\211\")\211c\207" [bookmark-current-buffer bookmark-yank-point buffer-substring-no-properties 1] 4 (#$ . 34979) nil])
#@65 Return the current buffer's file in a way useful for bookmarks.
(defalias 'bookmark-buffer-file-name #[0 "\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 (#$ . 35331)])
#@70 If bookmarks have not been loaded from the default place, load them.
(defalias 'bookmark-maybe-load-default-file #[0 "\204 \204 \304\n!\203 \305\n\306\211#\206= \205= \307\310@!8A\232?\205= \311=\2047 \312\313\314@\"!\205= \305@\306\211#\207" [bookmark-bookmarks-timestamp bookmark-alist bookmark-default-file bookmark-watch-bookmark-file file-readable-p bookmark-load t 5 file-attributes silent yes-or-no-p format "Bookmarks %s changed on disk. Reload? "] 4 (#$ . 35650)])
#@114 Return `bookmark-alist' for display.
If `bookmark-sort-flag' is non-nil, then return a sorted copy of the alist.
(defalias 'bookmark-maybe-sort-alist #[0 "\203 \302\303 !\304\"\207 \207" [bookmark-sort-flag bookmark-alist sort copy-alist #[514 "@@\231\207" [] 4 "\n\n(fn X Y)"]] 3 (#$ . 36143)])
#@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 (#$ . 36450))
#@368 Handle BOOKMARK-NAME-OR-RECORD, then call DISPLAY-FUNCTION.
DISPLAY-FUNCTION is called with the current buffer as argument.
After calling DISPLAY-FUNCTION, set window point to the point specified
by BOOKMARK-NAME-OR-RECORD, if necessary, run `bookmark-after-jump-hook',
and then show any annotations for this bookmark.
(fn BOOKMARK-NAME-OR-RECORD DISPLAY-FUNCTION)
(defalias 'bookmark--jump-via #[514 "\301!\210r\211p!\210)\302p\303\"\211\203 \304`\"\210\210\305\306!\210\205# \307!\207" [bookmark-automatically-show-annotations bookmark-handle-bookmark get-buffer-window 0 set-window-point run-hooks bookmark-after-jump-hook bookmark-show-annotation] 6 (#$ . 36613)])
#@895 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.
BOOKMARK is usually a bookmark name (a string). It can also be a
bookmark record, but this is usually only done by programmatic callers.
If DISPLAY-FUNC is non-nil, it is a function to invoke to display the
bookmark. It defaults to `pop-to-buffer-same-window'. A typical value for
DISPLAY-FUNC would be `switch-to-buffer-other-window'.
(fn BOOKMARK &optional DISPLAY-FUNC)
(defalias 'bookmark-jump #[513 "\204 \301\302!\210\303\304!\204 B\305\206 \306\"\207" [bookmark-history error "No bookmark specified" called-interactively-p interactive bookmark--jump-via pop-to-buffer-same-window] 5 (#$ . 37296) (byte-code "\301\302\"C\207" [bookmark-current-bookmark bookmark-completing-read "Jump to bookmark"] 3)])
#@83 Jump to BOOKMARK in another window. See `bookmark-jump' for more.
(fn BOOKMARK)
(defalias 'bookmark-jump-other-window #[257 "\300\301\"\207" [bookmark-jump switch-to-buffer-other-window] 4 (#$ . 38542) (byte-code "\301\302\"C\207" [bookmark-current-bookmark bookmark-completing-read "Jump to bookmark (in another window)"] 3)])
#@82 Jump to BOOKMARK in another frame. See `bookmark-jump' for more.
(fn BOOKMARK)
(defalias 'bookmark-jump-other-frame #[257 "\301\302!)\207" [pop-up-frames t bookmark-jump-other-window] 3 (#$ . 38880) (byte-code "\301\302\"C\207" [bookmark-current-bookmark bookmark-completing-read "Jump to bookmark (in another frame)"] 3)])
#@213 Return the location pointed to by BOOKMARK (see `bookmark-jump').
The return value has the form (BUFFER . POINT).
Note: this function is deprecated and is present for Emacs 22
compatibility only.
(fn BOOKMARK)
(defalias 'bookmark-jump-noselect #[257 "\212\300!\210p`)B\207" [bookmark-handle-bookmark] 3 (#$ . 39216)])
(make-obsolete 'bookmark-jump-noselect 'bookmark-handle-bookmark "23.1")
#@391 Call BOOKMARK-NAME-OR-RECORD's handler or `bookmark-default-handler'
if it has none. This changes current buffer and point and returns nil,
or signals a `file-error'.
If BOOKMARK-NAME-OR-RECORD has no file, this is a no-op. If
BOOKMARK-NAME-OR-RECORD has a file, but that file no longer exists,
then offer interactively to relocate BOOKMARK-NAME-OR-RECORD.
(fn BOOKMARK-NAME-OR-RECORD)
(defalias 'bookmark-handle-bookmark #[257 "\3031 \304!\206 \305\306!!0\202X ;\205V \307!\211\205T \310!\311 \210\312\211\313\314\315R!\203F \316!\210\304!\206? \305\306!!\202Q \317\320\"\210\321@A\"*\262\262\262\210\211;\203` \211\312\207" [use-file-dialog use-dialog-box bookmark-current-bookmark (bookmark-error-no-filename) bookmark-get-handler bookmark-default-handler bookmark-get-bookmark bookmark-get-filename directory-file-name ding nil y-or-n-p " nonexistent. Relocate \"" "\"? " bookmark-relocate message "Bookmark not relocated; consider removing it (%s)." signal] 9 (#$ . 39617)])
(byte-code "\300\301\302\"\210\300\303\304\301#\207" [define-error bookmark-errors "Bookmark error" bookmark-error-no-filename "Bookmark has no associated file (or directory)"] 4)
#@229 Default handler to jump to a particular bookmark location.
BMK-RECORD is a bookmark record, not a bookmark name (i.e., not a string).
Changes current buffer and point and returns nil, or signals a `file-error'.
(fn BMK-RECORD)
(defalias 'bookmark-default-handler #[257 "\300!\301\302\"\303!\304!\305!\203& \306!\203& \307!\204& \310!\2027 \2030 \311!\2067 \312\313\314D\"q\210\211\203@ \211b\210\203P \315d\316#\203P \317\224b\210\203` \320e\316#\203` \317\225b\210\321\207" [bookmark-get-filename bookmark-prop-get buffer bookmark-get-front-context-string bookmark-get-rear-context-string bookmark-get-position file-readable-p buffer-live-p find-file-noselect get-buffer signal bookmark-error-no-filename stringp search-forward t 0 search-backward nil] 10 (#$ . 40811)])
#@266 Relocate BOOKMARK-NAME 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.
(fn BOOKMARK-NAME)
(defalias 'bookmark-relocate #[257 "\302\303!\204\n \211B\304 \210\305!\306\307\310\311\312\"\313!\"!!\314\"\210 T\315 \203. \316 \210\317 \207" [bookmark-history bookmark-alist-modification-count called-interactively-p interactive bookmark-maybe-load-default-file bookmark-get-filename abbreviate-file-name 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] 8 (#$ . 41608) (byte-code "\300\301!C\207" [bookmark-completing-read "Bookmark to relocate"] 2)])
#@208 Insert the name of the file associated with BOOKMARK-NAME.
Optional second arg NO-HISTORY means don't record this in the
minibuffer history list `bookmark-history'.
(fn BOOKMARK-NAME &optional NO-HISTORY)
(defalias 'bookmark-insert-location #[513 "\211\204 \301\302!\204 B\303!c\207" [bookmark-history called-interactively-p interactive bookmark-location] 4 (#$ . 42478) (byte-code "\300\301!C\207" [bookmark-completing-read "Insert bookmark location"] 2)])
(defalias 'bookmark-locate 'bookmark-insert-location)
#@96 Return a description of the location of BOOKMARK-NAME-OR-RECORD.
(fn BOOKMARK-NAME-OR-RECORD)
(defalias 'bookmark-location #[257 "\300 \210\301\302\"\206 \303!\206 \304\207" [bookmark-maybe-load-default-file bookmark-prop-get location bookmark-get-filename "-- Unknown location --"] 4 (#$ . 43004)])
#@561 Change the name of OLD-NAME bookmark to NEW-NAME name.
If called from keyboard, prompt for OLD-NAME and NEW-NAME.
If called from menubar, select OLD-NAME from a menu and prompt for NEW-NAME.
If called from Lisp, prompt for NEW-NAME if only OLD-NAME was passed
as an argument. If called with two strings, then no prompting is done.
You must pass at least OLD-NAME 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.
(fn OLD-NAME &optional NEW-NAME)
(defalias 'bookmark-rename #[513 "\306\307!\204\n B\310 \210`p\211\206' \311\312\313\314 !\315\316\317#\210\211\262\313\300%\320\"\210\211\321 \210
T\322 \205; \323 \207" [bookmark-history bookmark-yank-point bookmark-current-buffer minibuffer-local-map bookmark-current-bookmark bookmark-alist-modification-count called-interactively-p interactive 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] 10 (#$ . 43316) (byte-code "\300\301!C\207" [bookmark-completing-read "Old bookmark name"] 2)])
#@362 Insert the text of the file pointed to by bookmark BOOKMARK-NAME.
BOOKMARK-NAME is a bookmark name (a string), not a bookmark record.
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.
(fn BOOKMARK-NAME)
(defalias 'bookmark-insert #[257 "\301\302!\204\n \211B\303 \210`r\304!\210\305 )\211c\210\306 \210b\207" [bookmark-history called-interactively-p interactive bookmark-maybe-load-default-file bookmark-handle-bookmark buffer-string push-mark] 4 (#$ . 44557) (byte-code "\300\301!C\207" [bookmark-completing-read "Insert bookmark contents"] 2)])
#@444 Delete BOOKMARK-NAME 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.
(fn BOOKMARK-NAME &optional BATCH)
(defalias 'bookmark-delete #[513 "\304\305!\204\n B\306 \210\307\310\"\311 \"\307\n\310\"\204 \312\210\211\204' \313 \210 T\314 \2051 \315 \207" [bookmark-history bookmark-alist bookmark-current-bookmark bookmark-alist-modification-count called-interactively-p interactive bookmark-maybe-load-default-file bookmark-get-bookmark noerror delq nil bookmark-bmenu-surreptitiously-rebuild-list bookmark-time-to-save-p bookmark-save] 6 (#$ . 45273) (byte-code "\301\302\"C\207" [bookmark-current-bookmark bookmark-completing-read "Delete bookmark"] 3)])
#@283 Return t if it is time to save bookmarks to disk, nil otherwise.
Optional argument FINAL-TIME means this is being called when Emacs
is being killed, so save even if `bookmark-save-flag' is a number and
is greater than `bookmark-alist-modification-count'.
(fn &optional FINAL-TIME)
(defalias 'bookmark-time-to-save-p #[256 "\211\203\f \302V\205 \207 \247\203 Y\207\303\207" [bookmark-alist-modification-count bookmark-save-flag 0 nil] 3 (#$ . 46281)])
#@72 Write bookmarks to a file (reading the file name with the minibuffer).
(defalias 'bookmark-write #[0 "\300 \210\301\302!\207" [bookmark-maybe-load-default-file bookmark-save t] 2 (#$ . 46745) nil])
(byte-code "\300\301\302\303#\300\207" [function-put bookmark-write interactive-only bookmark-save] 4)
#@574 Save currently defined bookmarks in FILE.
FILE defaults to `bookmark-default-file'.
With prefix PARG, query user for a file to save in.
If MAKE-DEFAULT is non-nil (interactively with prefix C-u C-u)
the file we save in becomes the new default in the current Emacs
session (without affecting the value of `bookmark-default-file'.).
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'.
(fn &optional PARG FILE MAKE-DEFAULT)
(defalias 'bookmark-save #[768 "\303 \210\204# @\206
\203 \304\305\306\"\307!#\202 \211\262\262\310!\210\311\211\203: \312!\211\313\314!8B\211\207@\211\312!\230\205M \211\313\314!8B\211\207" [bookmark-bookmarks-timestamp bookmark-default-file bookmark-alist-modification-count bookmark-maybe-load-default-file read-file-name format "File to save bookmarks in: (%s) " file-name-directory bookmark-write-file 0 expand-file-name 5 file-attributes] 8 (#$ . 47053) (byte-code "\301\302\232E\207" [current-prefix-arg nil (16)] 4)])
#@44 Write `bookmark-alist' to FILE.
(fn FILE)
(defalias 'bookmark-write-file #[257 "\306\307\310\"!r\311\312!q\210eb\210ed|\210\206 \206 \313\314\211\315 \316c\210
\211\2039 \211@\317p\"\210A\266\202\202' \210\320c\210\321 \322\313!\210\323\324\325\326\327!\330\"\331$\216\332ed\315D#)\210eb\210\333!\210$\204i \314\202z $\334\267\202y \335\202z %\202z \315 %\3361\207 \337!0\202\214 \210\340\341\"\210\342p!\210\343!.\207" [coding-system-for-write bookmark-file-coding-system print-circle print-level print-length bookmark-alist make-progress-reporter format "Saving bookmarks to file %s..." get-buffer-create " *Bookmarks*" utf-8-emacs nil t "(" pp ")\n" coding-system-priority-list set-coding-system-priority make-byte-code 0 "\301\302\300\"\207" vconcat vector [apply set-coding-system-priority] 3 select-safe-coding-system bookmark-insert-file-format-version-stamp #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (never 112 nospecial 116)) never (file-error) write-file message "Can't write %s" kill-buffer progress-reporter-done bookmark-version-control version-control] 9 (#$ . 48181)])
#@176 Add NEW-LIST of bookmarks to `bookmark-alist'.
Rename new bookmarks as needed using suffix "<N>" (N=1,2,3...), when
they conflict with existing bookmark names.
(fn NEW-LIST)
(defalias 'bookmark-import-new-list #[257 "\301 \211\205! \211@\302\"\210C\244\303!B\262A\266\202\202 \262\207" [bookmark-alist bookmark-all-names bookmark-maybe-rename bookmark-name-from-full-record] 7 (#$ . 49339)])
#@139 Rename bookmark FULL-RECORD if its current name is already used.
This is a helper for `bookmark-import-new-list'.
(fn FULL-RECORD NAMES)
(defalias 'bookmark-maybe-rename #[514 "\300!\211\235\205& \301\211\235\203 \302\303\"P\262T\262\202 \304\"\266\202\207" [bookmark-name-from-full-record 2 format "<%d>" bookmark-set-name] 9 (#$ . 49751)])
#@997 Load bookmarks from FILE (which must be in bookmark format).
Appends loaded bookmarks to the front of the list of bookmarks.
If argument OVERWRITE is non-nil, existing bookmarks are destroyed.
Optional third arg NO-MSG means don't display any messages while loading.
If DEFAULT is non-nil make FILE the new bookmark file to watch.
Interactively, a prefix arg makes OVERWRITE and DEFAULT non-nil.
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, specified by the variable
`bookmark-default-file', 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>", etc.
(fn FILE &optional OVERWRITE NO-MSG DEFAULT)
(defalias 'bookmark-load #[1025 "\306!\307!\310!\204 \311\312\"\210?\205 \313\314\315\"!r\316\317!)q\210eb\210\320 \211<\2044 \321\322\"\210\203@ \211\323\202G \324!\210\nT\204X @\206T \306\f!\230\203a \325\326!8B\327 \210
\210\330p!\210)?\205u \331!\262\207" [enable-local-variables bookmark-alist bookmark-alist-modification-count bookmark-bookmarks-timestamp bookmark-default-file buffer-file-coding-system expand-file-name abbreviate-file-name file-readable-p user-error "Cannot read bookmark file %s" make-progress-reporter format "Loading bookmarks from %s..." nil find-file-noselect bookmark-alist-from-buffer error "Invalid bookmark list in %s" 0 bookmark-import-new-list 5 file-attributes bookmark-bmenu-surreptitiously-rebuild-list kill-buffer progress-reporter-done bookmark-file-coding-system] 12 (#$ . 50114) (byte-code "\303@\206 \304 !!\n\305\306\307\"\310!\311$\312F\207" [bookmark-bookmarks-timestamp bookmark-default-file current-prefix-arg abbreviate-file-name expand-file-name read-file-name format "Load bookmarks from: (%s) " file-name-directory confirm nil] 7)])
(defvar bookmark-bmenu-hidden-bookmarks nil)
(defvar bookmark-bmenu-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\317#\210\303\321\317#\210\303\322\317#\210\303\323\324#\210\303\325\326#\210\303\327\330#\210\303\331\330#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\333#\210\303\341\342#\210\303\343\342#\210\303\344\345#\210\303\346\347#\210\303\350\351#\210\303\352\353#\210\303\354\355#\210\303\356\357#\210\303\360\361#\210\303\362\363#\210\303\364\365#\210\303\366\367#\210\303\370\371#\210\303\372\373#\210\303\374\375#\210\211\207" [special-mode-map make-keymap set-keymap-parent define-key "v" bookmark-bmenu-select "w" bookmark-bmenu-locate "5" bookmark-bmenu-other-frame "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 "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 "/" bookmark-bmenu-search [mouse-2] bookmark-bmenu-other-window-with-mouse] 5))
#@15 Bookmark Menu
(defvar bookmark-menu nil (#$ . 53798))
(byte-code "\301\302\303\304$\210\305\306\307\310#\207" [bookmark-bmenu-mode-map easy-menu-do-define bookmark-menu "Bookmark Menu" ("Bookmark" ["Select Bookmark in This Window" bookmark-bmenu-this-window t] ["Select Bookmark in Full-Frame Window" bookmark-bmenu-1-window t] ["Select Bookmark in Other Window" bookmark-bmenu-other-window t] ["Select Bookmark in Other Frame" bookmark-bmenu-other-frame t] ["Select Marked Bookmarks" bookmark-bmenu-select t] "---" ["Mark Bookmark" bookmark-bmenu-mark t] ["Unmark Bookmark" bookmark-bmenu-unmark t] ["Unmark Backwards" bookmark-bmenu-backup-unmark t] ["Toggle Display of Filenames" bookmark-bmenu-toggle-filenames t] ["Display Location of Bookmark" bookmark-bmenu-locate t] "---" ("Edit Bookmarks" ["Rename Bookmark" bookmark-bmenu-rename t] ["Relocate Bookmark's File" bookmark-bmenu-relocate t] ["Mark Bookmark for Deletion" bookmark-bmenu-delete t] ["Delete Marked Bookmarks" bookmark-bmenu-execute-deletions t]) ("Annotations" ["Show Annotation for Current Bookmark" bookmark-bmenu-show-annotation t] ["Show Annotations for All Bookmarks" bookmark-bmenu-show-all-annotations t] ["Edit Annotation for Current Bookmark." bookmark-bmenu-edit-annotation t]) "---" ["Save Bookmarks" bookmark-bmenu-save t] ["Load Bookmarks" bookmark-bmenu-load t]) put bookmark-bmenu-mode mode-class special] 5)
#@77 Rebuild the Bookmark List if it exists.
Don't affect the buffer ring order.
(defalias 'bookmark-bmenu-surreptitiously-rebuild-list #[0 "\301!\205 \212\302 \303\304\305\306\307!\310\"\311$\216\312 )\262)\207" [bookmark-bmenu-buffer get-buffer current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 bookmark-bmenu-list] 7 (#$ . 55200)])
#@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 #[0 "\306 \210\307!\310\311!\203 \312!\210\202 \211q\210\210\313\314 \210\n\204# \315c\210\316e`\317#\210\320 \211\203q \211@\321!\322!`\323\203G \324\230\204G \325\202H \326\261\210`\262\327 \\\330$\210\331 \203f \316 \\\332#\210\333c\266A\266\202\202+ \210\334\f\335U?!\210eb\210\336 \210\n\203\211 \337 \210\202\214
y\210!\205\231 \205\231 \340\313!)\207" [bookmark-bmenu-buffer inhibit-read-only bookmark-bmenu-use-header-line bookmark-bmenu-marks-width bookmark-alist-modification-count bookmark-bmenu-inline-header-height bookmark-maybe-load-default-file get-buffer-create called-interactively-p interactive switch-to-buffer t erase-buffer "% Bookmark\n- --------\n" add-text-properties (font-lock-face bookmark-menu-heading) bookmark-maybe-sort-alist bookmark-name-from-full-record bookmark-get-annotation nil "" " *" " " put-text-property bookmark-name-prop display-mouse-p (font-lock-face bookmark-menu-bookmark mouse-face highlight follow-link t help-echo "mouse-2: go to this bookmark in other window") "\n" set-buffer-modified-p 0 bookmark-bmenu-mode bookmark-bmenu-set-header bookmark-bmenu-toggle-filenames bookmark-alist] 11 (#$ . 55597) nil])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias list-bookmarks bookmark-bmenu-list edit-bookmarks] 3)
#@32 Set the immutable header line.
(defalias 'bookmark-bmenu-set-header #[0 "\303\203 \211\304 G\305ZZ\306\"\307Q\262\310\311\312#\2032 \310\225\262\313\310\224\314\315\316SE%\210\202 \210\313\310\317\320\321%\210\322\323\314\324#P\262\211\211\207" [bookmark-bmenu-toggle-filenames bookmark-bmenu-file-column header-line-format "%% Bookmark" make-string 3 32 "File" 0 string-match "[ \n]+" put-text-property display space :align-to 2 face fixed-pitch propertize " " (space :align-to 0)] 9 (#$ . 57141)])
(defvar bookmark-bmenu-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [bookmark-bmenu-mode-hook variable-documentation put "Hook run after entering Bookmark Menu mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp bookmark-bmenu-mode-map definition-name bookmark-bmenu-mode] 4)
(defvar bookmark-bmenu-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [bookmark-bmenu-mode-abbrev-table bookmark-bmenu-mode-map variable-documentation put purecopy "Keymap for `bookmark-bmenu-mode'." boundp bookmark-bmenu-mode-syntax-table definition-name bookmark-bmenu-mode (lambda (#1=#:def-tmp-var) (defvar bookmark-bmenu-mode-syntax-table #1#)) make-syntax-table "Syntax table for `bookmark-bmenu-mode'." (lambda (#1#) (defvar bookmark-bmenu-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `bookmark-bmenu-mode'." derived-mode-parent special-mode] 5)
#@2545 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-other-frame] -- select this bookmark in another frame.
\[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.
\[bookmark-bmenu-search] -- incrementally search for bookmarks.
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `bookmark-bmenu-mode-hook', as the final or penultimate step
during initialization.
(defalias 'bookmark-bmenu-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
=\204R \326
\325C#\210\327 !\210\330\f!\210
\307\211 )\331\332!\207" [delay-mode-hooks major-mode mode-name bookmark-bmenu-mode-map bookmark-bmenu-mode-syntax-table bookmark-bmenu-mode-abbrev-table make-local-variable t special-mode bookmark-bmenu-mode "Bookmark Menu" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks bookmark-bmenu-mode-hook local-abbrev-table truncate-lines buffer-read-only] 6 (#$ . 58927) nil])
#@135 Toggle whether filenames are shown in the bookmark list.
Optional argument SHOW means show them unconditionally.
(fn &optional SHOW)
(defalias 'bookmark-bmenu-toggle-filenames #[256 "\211\203 \302\303 \210\304\202 \203 \305 \210\302\202 \303 \210\304 \205% \306 \207" [bookmark-bmenu-toggle-filenames bookmark-bmenu-use-header-line nil bookmark-bmenu-show-filenames t bookmark-bmenu-hide-filenames bookmark-bmenu-set-header] 2 (#$ . 62297) nil])
#@229 In an interactive bookmark list, show filenames along with bookmarks.
Non-nil FORCE forces a redisplay showing the filenames. FORCE is used
mainly for debugging, and should not be necessary in normal use.
(fn &optional FORCE)
(defalias 'bookmark-bmenu-show-filenames #[256 "\211?\205 ?\205p \306 \307\310\311\312\313!\314\"\315$\216\212\316 \307\310\311\312\313!\317\"\315$\216eb\210 \2041 \ny\210\320\321 `dW\205j \322 \211 B\323 \324
\321\"\210\325 \203S \326`\327#\210\210`\320\210`|\210\330c\210\331\321\"\210\332y\266\2025 *\262*\262\207" [bookmark-bmenu-toggle-filenames bookmark-bmenu-use-header-line bookmark-bmenu-inline-header-height bookmark-bmenu-hidden-bookmarks inhibit-read-only bookmark-bmenu-file-column buffer-modified-p make-byte-code 0 "\301\300!\207" vconcat vector [set-buffer-modified-p] 2 current-window-configuration [set-window-configuration] nil t bookmark-bmenu-bookmark line-end-position move-to-column display-mouse-p remove-text-properties (mouse-face nil help-echo nil) " " bookmark-insert-location 1] 9 (#$ . 62760)])
#@229 In an interactive bookmark list, hide the filenames of the bookmarks.
Non-nil FORCE forces a redisplay showing the filenames. FORCE is used
mainly for debugging, and should not be necessary in normal use.
(fn &optional FORCE)
(defalias 'bookmark-bmenu-hide-filenames #[256 "\211?\205Y \205Y \306 \307\310\311\312\313!\314\"\315$\216\212eb\210 \204\" \ny\210 \237\316 \205V \317
\316\"\210\320 \210 \211A\242`c\210\321`\322$\210\323 \203N \324`\325#\210\266\326y\210\202' +\262\207" [bookmark-bmenu-toggle-filenames bookmark-bmenu-use-header-line bookmark-bmenu-inline-header-height bookmark-bmenu-hidden-bookmarks inhibit-read-only bookmark-bmenu-marks-width buffer-modified-p make-byte-code 0 "\301\300!\207" vconcat vector [set-buffer-modified-p] 2 t move-to-column bookmark-kill-line put-text-property bookmark-name-prop display-mouse-p add-text-properties (font-lock-face bookmark-menu-bookmark mouse-face highlight follow-link t help-echo "mouse-2: go to this bookmark in other window") 1] 9 (#$ . 63833)])
#@196 If point is not on a bookmark line, move it to one.
If before the first bookmark line, move to the first; if after the
last full line, move to the last full line. The return value is undefined.
(defalias 'bookmark-bmenu-ensure-position #[0 "\204 \302e`\" W\203 eb\210 y\207n\205 m\205 \303\304!\207" [bookmark-bmenu-use-header-line bookmark-bmenu-inline-header-height count-lines beginning-of-line 0] 3 (#$ . 64865)])
#@75 Return the bookmark for this line in an interactive bookmark list buffer.
(defalias 'bookmark-bmenu-bookmark #[0 "\301 \210\212\302 \210u\210\303`\304\")\207" [bookmark-bmenu-marks-width bookmark-bmenu-ensure-position beginning-of-line get-text-property bookmark-name-prop] 3 (#$ . 65295)])
#@141 Display the annotation for BOOKMARK-NAME-OR-RECORD in a buffer.
If the annotation does not exist, do nothing.
(fn BOOKMARK-NAME-OR-RECORD)
(defalias 'bookmark-show-annotation #[257 "\301!\211\205/ \211\302\230?\205/ \212p\303\304\305!\306\"\210\307\310 \210c\210eb\210\311\307!\210)\306\312!\262)\207" [buffer-read-only bookmark-get-annotation "" pop-to-buffer get-buffer-create "*Bookmark Annotation*" t nil erase-buffer set-buffer-modified-p switch-to-buffer-other-window] 6 (#$ . 65594)])
#@56 Display the annotations for all bookmarks in a buffer.
(defalias 'bookmark-show-all-annotations #[0 "\301 r\302\303\304\305\306!\307\"\310$\216\311\312\313!\314\"\210\315\316 \210\317 \211\203b \211@\320!\321!\322Pc\210\211\203Y \211\323\230\204Y \212\211c\210n\204C \324c\210)`dW\203Y \325 \210\326c\210\315y\210\315\210\202D \266A\266\202\202 \210eb\210\327\315!\210)\314\211*\207" [buffer-read-only internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 pop-to-buffer get-buffer-create "*Bookmark Annotation*" t nil erase-buffer bookmark-maybe-sort-alist bookmark-name-from-full-record bookmark-get-annotation ":\n" "" "\n" beginning-of-line " " set-buffer-modified-p] 7 (#$ . 66099)])
#@99 Mark bookmark on this line to be displayed by \<bookmark-bmenu-mode-map>\[bookmark-bmenu-select].
(defalias 'bookmark-bmenu-mark #[0 "\301 \210\302 \210\303 \304\305\306\307\310!\311\"\312$\216\313\314\315!\210\316c\210\315y\210\302 *\207" [inhibit-read-only beginning-of-line bookmark-bmenu-ensure-position buffer-modified-p make-byte-code 0 "\301\300!\207" vconcat vector [set-buffer-modified-p] 2 t delete-char 1 62] 7 (#$ . 66879) 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 #[0 "\301 p\302\211eb\210\303\304\302\305#\2032 \301 \262\305\306\307!\210\310c\210)\211\230\204 \211\235\204 \211B\262\202 \237\262\311 SGT\245\262\312 \210\313!\210\314!\210\203g \205j \315\302\"\210\316\317!\210\313@!\210A\262\202N \316\317!\207" [inhibit-read-only 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] 8 (#$ . 67329) nil])
#@65 Return non-nil if any bookmarks are marked in the marks column.
(defalias 'bookmark-bmenu-any-marks #[0 "\212eb\210\300 \210\3012( m\204& \302 \210\303\304!\203 \305\301\306\"\210\202 \307y\210\202 \3100)\207" [bookmark-bmenu-ensure-position found-mark beginning-of-line looking-at "^\\S-" throw t 1 nil] 3 (#$ . 67998)])
#@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 #[0 "\212\300 \301\302\303\304\305!\306\"\307$\216\310\311!\210\312\313!)\262)\207" [current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 call-interactively bookmark-save set-buffer-modified-p nil] 7 (#$ . 68330) nil])
#@62 Load the bookmark file and rebuild the bookmark menu-buffer.
(defalias 'bookmark-bmenu-load #[0 "\300 \210\212\301 \302\303\304\305\306!\307\"\310$\216\311\312!)\262)\207" [bookmark-bmenu-ensure-position current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 call-interactively bookmark-load] 7 (#$ . 68740) nil])
#@52 Select this line's bookmark, alone, in full frame.
(defalias 'bookmark-bmenu-1-window #[0 "\300\301 !\210\302\303 !\210\304 \207" [bookmark-jump bookmark-bmenu-bookmark bury-buffer other-buffer delete-other-windows] 2 (#$ . 69113) nil])
#@69 Select this line's bookmark, with previous buffer in second window.
(defalias 'bookmark-bmenu-2-window #[0 "\301 p\302\303 \210\304\305 \306\302#\210\307\310\"\210\311!)\207" [pop-up-windows bookmark-bmenu-bookmark t delete-other-windows switch-to-buffer other-buffer nil bookmark--jump-via pop-to-buffer bury-buffer] 6 (#$ . 69356) nil])
#@45 Select this line's bookmark in this window.
(defalias 'bookmark-bmenu-this-window #[0 "\300\301 !\207" [bookmark-jump bookmark-bmenu-bookmark] 2 (#$ . 69704) nil])
#@77 Select this line's bookmark in other window, leaving bookmark menu visible.
(defalias 'bookmark-bmenu-other-window #[0 "\300 \301\302\"\207" [bookmark-bmenu-bookmark bookmark--jump-via switch-to-buffer-other-window] 4 (#$ . 69874) nil])
#@45 Select this line's bookmark in other frame.
(defalias 'bookmark-bmenu-other-frame #[0 "\301 \302\303!)\207" [pop-up-frames bookmark-bmenu-bookmark t bookmark-jump-other-window] 3 (#$ . 70118) nil])
#@89 Make the other window select this line's bookmark.
The current window remains selected.
(defalias 'bookmark-bmenu-switch-other-window #[0 "\300 \301\302\"\207" [bookmark-bmenu-bookmark #[257 "\300\301\"\207" [display-buffer t] 4 "\n\n(fn B)"] bookmark--jump-via] 5 (#$ . 70324) nil])
#@155 Jump to bookmark at mouse EVENT position in other window.
Move point in menu buffer to the position of EVENT and leave
bookmark menu visible.
(fn EVENT)
(defalias 'bookmark-bmenu-other-window-with-mouse #[257 "r\300\301!\211@\262!q\210\212\302\301!!b\210\303 *\207" [window-buffer event-end posn-point bookmark-bmenu-other-window] 4 (#$ . 70618) "e"])
#@65 Show the annotation for the current bookmark in another window.
(defalias 'bookmark-bmenu-show-annotation #[0 "\300 \301!\207" [bookmark-bmenu-bookmark bookmark-show-annotation] 3 (#$ . 70980) nil])
#@58 Show the annotation for all bookmarks in another window.
(defalias 'bookmark-bmenu-show-all-annotations #[0 "\300 \207" [bookmark-show-all-annotations] 1 (#$ . 71186) nil])
#@65 Edit the annotation for the current bookmark in another window.
(defalias 'bookmark-bmenu-edit-annotation #[0 "\300 \301\302\"\207" [bookmark-bmenu-bookmark bookmark-edit-annotation t] 4 (#$ . 71365) nil])
#@127 Cancel all requested operations on bookmark on this line and move down.
Optional BACKUP means move up.
(fn &optional BACKUP)
(defalias 'bookmark-bmenu-unmark #[256 "\301 \210\302 \210\303 \304\305\306\307\310!\311\"\312$\216\313\314\315!\210\316c\210)\203& \317\202' \315y\210\302 )\207" [inhibit-read-only beginning-of-line bookmark-bmenu-ensure-position buffer-modified-p make-byte-code 0 "\301\300!\207" vconcat vector [set-buffer-modified-p] 2 t delete-char 1 " " -1] 8 (#$ . 71579) "P"])
#@72 Move up and cancel all requested operations on bookmark on line above.
(defalias 'bookmark-bmenu-backup-unmark #[0 "\300y\210\301 \210\302 \210\300y\210\301 \207" [-1 bookmark-bmenu-ensure-position bookmark-bmenu-unmark] 1 (#$ . 72082) 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 #[0 "\301 \210\302 \210\303 \304\305\306\307\310!\311\"\312$\216\313\314\315!\210\316c\210\315y\210\302 *\207" [inhibit-read-only beginning-of-line bookmark-bmenu-ensure-position buffer-modified-p make-byte-code 0 "\301\300!\207" vconcat vector [set-buffer-modified-p] 2 t delete-char 1 68] 7 (#$ . 72331) 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 #[0 "\300 \210\301y\210\302 \210\303y\210\302 \207" [bookmark-bmenu-delete -2 bookmark-bmenu-ensure-position 1] 1 (#$ . 72841) nil])
#@31 Delete bookmarks flagged `D'.
(defalias 'bookmark-bmenu-execute-deletions #[0 "\301\302!`\212\303 \210g\304U?\205 `\305\210`{)ieb\210\204! \306y\210\307\310d\311#\2032 \312\313 \311\"\210\202! \314 \210\203I eb\210\315!\210\303 \210\211u\210\202L b\210\303 \210\316!\207" [bookmark-bmenu-use-header-line make-progress-reporter "Deleting bookmarks..." beginning-of-line 68 nil 1 re-search-forward "^D" t bookmark-delete bookmark-bmenu-bookmark bookmark-bmenu-list search-forward progress-reporter-done] 8 (#$ . 73202) nil])
#@59 Rename bookmark on current line. Prompts for a new name.
(defalias 'bookmark-bmenu-rename #[0 "\300 `\301!\210\211b\207" [bookmark-bmenu-bookmark bookmark-rename] 4 (#$ . 73738) nil])
#@65 Display location of this bookmark. Displays in the minibuffer.
(defalias 'bookmark-bmenu-locate #[0 "\300 \301\302\303!\"\207" [bookmark-bmenu-bookmark message "%s" bookmark-location] 5 (#$ . 73930) nil])
#@109 Change the absolute file name of the bookmark on the current line.
Prompt with completion for the new path.
(defalias 'bookmark-bmenu-relocate #[0 "\300 `\301!\210\211b\207" [bookmark-bmenu-bookmark bookmark-relocate] 4 (#$ . 74144) nil])
#@87 Filter `bookmark-alist' with bookmarks matching REGEXP and rebuild list.
(fn REGEXP)
(defalias 'bookmark-bmenu-filter-alist-by-regexp #[257 "\301\211:\203! @\262\302@\"\203 \211C\244\262A\262\202 \266\202\303 )\207" [bookmark-alist nil string-match bookmark-bmenu-list] 7 (#$ . 74390)])
#@67 Incremental search of bookmarks, hiding the non-matches as we go.
(defalias 'bookmark-bmenu-search #[0 "\300 \301C\302\303\304\305\306\"\307\"\310$\216\302\303\311\305\306!\312\"\313$\301C\211\302\303\314\305\306\"\315\"\316$\240\210\302\303\317\305\306!\320\"\316$\216\321\322\242\"\210\323\324!\210\242\205T \325\242!\210\301\240)\266\202)\207" [bookmark-bmenu-bookmark nil make-byte-code 0 "\301\242\205 \302\301\242!\210\303 \210\304\300!\207" vconcat vector [cancel-timer bookmark-bmenu-list bookmark-bmenu-goto-bookmark] 2 "\300\302 \303\304p$\240\207" [bookmark-search-delay run-with-idle-timer repeat #[257 "r\211q\210\300\301 !)\207" [bookmark-bmenu-filter-alist-by-regexp minibuffer-contents] 3 "\n\n(fn BUF)"]] 6 "\302\303\301\242\"\210\300 \207" [remove-hook minibuffer-setup-hook] 3 "\301\302\300\242\"\207" [remove-hook minibuffer-setup-hook] add-hook minibuffer-setup-hook read-string "Pattern: " cancel-timer] 12 (#$ . 74697) nil])
#@51 Move point to bookmark with name NAME.
(fn NAME)
(defalias 'bookmark-bmenu-goto-bookmark #[257 "eb\210\211\300 \232\204 m\204 \301y\210\202 \302y\207" [bookmark-bmenu-bookmark 1 0] 3 (#$ . 75666)])
#@323 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.
(fn EVENT NAME ENTRIES)
(defalias 'bookmark-menu-popup-paned-menu #[771 "\301 \302\245\303\304\203P \303\304\211W\203: \203: @\211GV\203' \305\304#\202( \211BB\262A\262T\266\202\202\f T\262\306\307#\237BB\262\266\202 \310\311\312Q\237B\"\207" [bookmark-menu-length frame-height 2 nil 0 substring format "-*- %s (%d) -*-" x-popup-menu "-*- " " -*-"] 13 (#$ . 75875)])
(defvar menu-bar-bookmark-map (byte-code "\300\301!\302\303\304#\210\302\305\306#\210\302\307\310#\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\211\207" [make-sparse-keymap "Bookmark functions" bindings--define-key [load] (menu-item "Load a Bookmark File..." bookmark-load :help "Load bookmarks from a bookmark file)") [write] (menu-item "Save Bookmarks As..." bookmark-write :help "Write bookmarks to a file (reading the file name with the minibuffer)") [save] (menu-item "Save Bookmarks" bookmark-save :help "Save currently defined bookmarks") [edit] (menu-item "Edit Bookmark List" bookmark-bmenu-list :help "Display a list of existing bookmarks") [delete] (menu-item "Delete Bookmark..." bookmark-delete :help "Delete a bookmark from the bookmark list") [rename] (menu-item "Rename Bookmark..." bookmark-rename :help "Change the name of a bookmark") [locate] (menu-item "Insert Location..." bookmark-locate :help "Insert the name of the file associated with a bookmark") [insert] (menu-item "Insert Contents..." bookmark-insert :help "Insert the text of the file pointed to by a bookmark") [set] (menu-item "Set Bookmark..." bookmark-set :help "Set a bookmark named inside a file.") [jump] (menu-item "Jump to Bookmark..." bookmark-jump :help "Jump to a bookmark (a point in some file)")] 5))
(byte-code "\302\300\"\210\303\301!\203 \203 \304 B\202 \305\302\207" [menu-bar-bookmark-map menu-bar-final-items defalias boundp bookmark (bookmark)] 3)
#@55 Hook run at the end of loading library `bookmark.el'.
(defvar bookmark-load-hook nil (#$ . 78121))
#@28 Hook run when Emacs exits.
(defvar bookmark-exit-hook nil (#$ . 78226))
#@93 Save bookmark state, if necessary, at Emacs exit time.
This also runs `bookmark-exit-hook'.
(defalias 'bookmark-exit-hook-internal #[0 "\300\301!\210\302\303!\205\f \304 \207" [run-hooks bookmark-exit-hook bookmark-time-to-save-p t bookmark-save] 2 (#$ . 78304)])
(byte-code "\204 \301\302\303\"\210\301\207" [noninteractive add-hook kill-emacs-hook bookmark-exit-hook-internal] 3)
#@30 Unload the Bookmark library.
(defalias 'bookmark-unload-function #[0 "\203 \301 \210\302\207" [bookmark-save-flag bookmark-save nil] 1 (#$ . 78694)])
(byte-code "\300\301!\210\302\303!\207" [run-hooks bookmark-load-hook provide bookmark] 2)
Mini Shell