;ELC
;;; Compiled by root@revel.ossh.com on Sun Oct 23 11:01:34 2005
;;; from file /home/lcandell/emacs-w3m-1.4.4/w3m-bookmark.el
;;; in Emacs version 21.3.1
;;; with bytecomp version 2.85.4.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 "`w3m-bookmark.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require w3m-util w3m] 2)
#@23 Bookmark file of w3m.
(custom-declare-variable 'w3m-bookmark-file '(expand-file-name "bookmark.html" w3m-profile-directory) '(#$ . 687) :group 'w3m :type '(file :size 0))
#@344 Coding system for a created bookmark file.
This option is used when a new bookmark file is created, or when an
existing bookmark file includes ASCII characters only. If the coding
system which is used to encode your using bookmark file is different
from the value of this option, emacs-w3m does not change the encoding
of your bookmark file.
(custom-declare-variable 'w3m-bookmark-file-coding-system ''euc-japan '(#$ . 865) :group 'w3m :type '(coding-system :size 0))
#@35 Default section to add new entry.
(custom-declare-variable 'w3m-bookmark-default-section 'nil '(#$ . 1340) :group 'w3m :type '(radio (const :tag "Not specified" nil) (string :format "Default section name: %v\n" :size 0)))
#@55 *Hook run at the end of function `w3m-bookmark-mode'.
(custom-declare-variable 'w3m-bookmark-mode-hook 'nil '(#$ . -1568) :group 'w3m :type 'hook)
(byte-code "\301B\306\302B\307\303B\310\304B\311\304!\204 \312\305B\311\305!\204* \312\312\207" [current-load-list w3m-bookmark-section-delimiter w3m-bookmark-section-format w3m-bookmark-initial-format w3m-bookmark-section-history w3m-bookmark-title-history "\n" "
%s
\n\n" "Bookmarks\n\nBookmarks
\n%s
\n\n\n\n" boundp nil] 2)
#@72 Non-nil means that `w3m-bookmark-file' has been loaded to this buffer.
(defvar w3m-bookmark-buffer-file-name nil (#$ . 2372))
(make-variable-buffer-local 'w3m-bookmark-buffer-file-name)
#@34 *Keymap for `w3m-bookmark-mode'.
(defvar w3m-bookmark-mode-map (byte-code "\306 \307\310\211\203 @\311\n@\nA \f$\210A\211\204
*\311\312\313
$\210 *\207" [table map pair #1=#:--dolist-temp--55091 global-map w3m-mode-map make-sparse-keymap ((kill-line . w3m-bookmark-kill-entry) (undo . w3m-bookmark-undo)) nil substitute-key-definition w3m-edit-current-url w3m-bookmark-edit] 6) (#$ . -2564))
#@42 Non-nil if w3m bookmark mode is enabled.
(defvar w3m-bookmark-mode nil (#$ . 2974))
(byte-code "\303\304!\210\304\236\204 \304\305DB\304 \236\204 \304\nB B\303\207" [minor-mode-alist minor-mode-map-alist w3m-bookmark-mode-map make-variable-buffer-local w3m-bookmark-mode " bookmark"] 2)
#@238 \
Minor mode to edit bookmark.
\[w3m-bookmark-kill-entry] Kill the current entry of this bookmark.
\[w3m-bookmark-undo] Undo some previous changes on this bookmark.
\[w3m-bookmark-edit] Open `w3m-bookmark-file'.
(defalias 'w3m-bookmark-mode #[(&optional arg) "\203\f \302!\303V\202 ?\211\205 \304\305!\207" [arg w3m-bookmark-mode prefix-numeric-value 0 run-hooks w3m-bookmark-mode-hook] 2 (#$ . 3274) "P"])
#@66 Activate `w3m-bookmark-mode', when visiting page shows bookmark.
(defalias 'w3m-bookmark-mode-setter #[(url) "\303\304\305\"\203 \306 !\307\202 \310!\207" [url w3m-bookmark-file default-directory w3m-bookmark-mode string-match "\\`about://bookmark/" file-name-directory 1 0] 4 (#$ . 3718)])
(add-hook 'w3m-display-functions 'w3m-bookmark-mode-setter)
#@206 Return the bookmark file modification time.
The value is a list of the form (HIGH . LOW), like the time values
that `visited-file-modtime' returns. When the bookmark file does not
exist, returns (0 . 0).
(defalias 'w3m-bookmark-file-modtime #[nil "\303!\203 \304\305!8\211@ \211A@*B\207\306\211B\207" [w3m-bookmark-file time x file-exists-p 5 file-attributes 0] 4 (#$ . 4080)])
#@56 Return the buffer reading `w3m-bookmark-file' current.
(defalias 'w3m-bookmark-buffer #[(&optional no-verify-modtime) "\306!\211\203' \307\307;\203 \310 !\311 !\203 \312 !\210\313 \n\") \202\215 r\307\310!\206> \314!\211\nB\315\f!\210\f))q\210
\203R \204\213 \316 \317 \232\204\213 \320!\203\201 \321 \210\322\211\323!\210*\324\325!!\210\326\327>\203y \202{ !\210\330\331!\210\332\317 !\210\333 \210p))\207" [w3m-bookmark-file buffer w3m-work-buffer-list name buf w3m-bookmark-buffer-file-name get-file-buffer " *w3m bookmark*" get-buffer buffer-live-p kill-buffer delq get-buffer-create buffer-disable-undo visited-file-modtime w3m-bookmark-file-modtime file-readable-p erase-buffer binary insert-file-contents w3m-decode-buffer w3m-expand-file-name-as-url set-buffer-file-coding-system (undecided undecided-dos undecided-mac undecided-unix) set-buffer-modified-p nil set-visited-file-modtime buffer-enable-undo no-verify-modtime file-coding-system-for-read coding-system-for-read w3m-current-coding-system w3m-bookmark-file-coding-system] 4 (#$ . 4470)])
(defalias 'w3m-bookmark-verify-modtime #[nil "\303 \304 \232?\205\" \305 \203 \306!\207\307 \310 \311\216\312!\210\306!+\207" [w3m-bookmark-file name modified visited-file-modtime w3m-bookmark-file-modtime buffer-file-name ask-user-about-supersession-threat buffer-modified-p buffer-name ((byte-code "\302\303!\210\304!\210\305 !\207" [name modified set-visited-file-name nil rename-buffer set-buffer-modified-p] 2)) set-visited-file-name] 2])
#@43 Return collection of registered sections.
(defalias 'w3m-bookmark-sections #[nil "\301\212\302 q\210eb\210\303\304\301\305#\203, \306`\303\307\301\305#\203! \310\224\202# \311 \"\301BB\202\n )\237)\207" [sections nil w3m-bookmark-buffer search-forward "" t buffer-substring-no-properties "
" 0 line-end-position] 6 (#$ . 6013)])
#@50 Save this current buffer to `w3m-bookmark-file'.
(defalias 'w3m-bookmark-save-buffer #[nil "\306 \203 \307 \207\310 \205f \311!\312!\205 \313! \2030 \2030 \f!\2030 \314\n@\315#\210\316ed#\210 \203? \317 \"\210\320\321 !\210\322\323!\210\nA\323\211\203d @\323\324\325\217\210A\211\204R ,\323\207" [w3m-bookmark-file modes backup-info make-backup-files backup-enable-predicate file buffer-file-name basic-save-buffer buffer-modified-p find-backup-file-name file-exists-p file-modes rename-file t write-region set-file-modes set-visited-file-modtime w3m-bookmark-file-modtime set-buffer-modified-p nil (delete-file file) ((file-error)) #1=#:--dolist-temp--55092] 4 (#$ . 6360)])
(defalias 'w3m-bookmark-safe-string #[(string format) "\306\300\307L\210 \300J\n\"\230\206+ \f\205+ \300J
\203! \310\202\" \311\"\211\300J\n\"\230)\2033 \2028 \312\")\207" [#1=#:--G55093--55094 buffer-file-coding-system encoding string w3m-use-mule-ucs w3m-accept-japanese-characters nil #[(s c) "\302\303 \" \"\207" [s c decode-coding-string encode-coding-string] 4] w3m-euc-japan w3m-iso-latin-1 error format] 4])
#@53 Make new bookmark with specified spec, and save it.
(defalias 'w3m-bookmark-write-file #[(url title section) "\212\306 q\210\307\310\"\307 \311\"\312\313 !\203% \314\n $c\210\315\f!\210\202h eb\210\316\314\317 \"\320\321#\203N \316
\320\321#\204@ \322\323 \"\210\324\224b\210\314\325#c\210\202h \316\326\320\321#\204[ \322\327\330\"\210\324\224b\210\314 $c\210\331 )\207" [title section w3m-bookmark-initial-format url w3m-bookmark-file-coding-system w3m-bookmark-section-delimiter w3m-bookmark-buffer w3m-bookmark-safe-string "Specified title includes unsafe character(s): %s" "Specified section includes unsafe character(s): %s" zerop buffer-size format set-buffer-file-coding-system search-forward "%s
" nil t error "Can't find section delimiter: %s" 0 "%s\n" "