;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\302\311\312&\210\304\313\314\315\310\302\311\316&\210\304\317\320\321\310\302\311\322&\210\304\323\320\324\310\302\311\325&\210\304\326\320\327\310\302\311\330&\207" [require w3m-util w3m easymenu custom-declare-variable w3m-bookmark-file (expand-file-name "bookmark.html" w3m-profile-directory) "Bookmark file of w3m." :group :type file w3m-bookmark-file-coding-system 'euc-japan "Coding system for a created bookmark file.\nThis option is used when a new bookmark file is created, or when an\nexisting bookmark file includes ASCII characters only. If the coding\nsystem which is used to encode your using bookmark file is different\nfrom the value of this option, emacs-w3m does not change the encoding\nof your bookmark file." coding-system w3m-bookmark-default-section nil "Default section to add new entry." (radio (const :tag "Not specified" nil) (string :format "Default section name: %v")) w3m-bookmark-mode-hook "Hook run at the end of function `w3m-bookmark-mode'." hook w3m-bookmark-menu-open-new-session "If non-nil, \"Bookmark\" menu item open new session." boolean] 8) (defconst w3m-bookmark-section-delimiter "\n") (defconst w3m-bookmark-section-format "

%s

\n\n") (defconst w3m-bookmark-initial-format "Bookmarks\n\n

Bookmarks

\n

%s

\n\n\n\n") (defvar w3m-bookmark-section-history nil) (defvar w3m-bookmark-title-history nil) #@72 Non-nil means that `w3m-bookmark-file' has been loaded to this buffer. (defvar w3m-bookmark-buffer-file-name nil (#$ . 1812)) (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$\210 A\211\204 *\311\312\313 $\210 *\207" [table map pair --dolist-tail-- 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) (#$ . -2004)) #@42 Non-nil if w3m bookmark mode is enabled. (defvar w3m-bookmark-mode nil (#$ . 2404)) (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 (#$ . 2704) "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 (#$ . 3148)]) (add-hook 'w3m-display-functions 'w3m-bookmark-mode-setter) #@168 Return the modification time of the bookmark file `w3m-bookmark-file'. The value is a list of two time values `(HIGH LOW)' if the bookmark file exists, otherwise nil. (defalias 'w3m-bookmark-file-modtime #[nil "\301\302\303!!8\207" [w3m-bookmark-file 5 file-attributes file-chase-links] 4 (#$ . 3510)]) #@56 Return the buffer reading `w3m-bookmark-file' current. (defalias 'w3m-bookmark-buffer #[(&optional no-verify-modtime) "\306!\211\203\307\310!\210 \202br\311\310!q\210\n\203& \204`\312 \313 \232\204`\314!\203R\315 \210\316 \210\317\320!\210)\321\322!!\210\323 \324>\203K\202L !\210\325\326!\210\327\313 \206[\330!\210\331 \210p))\207" [w3m-bookmark-file buffer w3m-bookmark-buffer-file-name no-verify-modtime coding-system-for-read w3m-current-coding-system get-file-buffer w3m-kill-buffer " *w3m bookmark*" w3m-get-buffer-create visited-file-modtime w3m-bookmark-file-modtime file-readable-p buffer-disable-undo 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 (0 0) buffer-enable-undo w3m-bookmark-file-coding-system] 4 (#$ . 3820)]) (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 #[nil "\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 "\301r\302 q\210eb\210\303\304\301\305#\203+\306`\303\307\301\305#\203!\310\224\202#\311 \"CB\202\n)\237)\207" [sections nil w3m-bookmark-buffer search-forward "

" t buffer-substring-no-properties "

" 0 point-at-eol] 6 (#$ . 5199)]) #@50 Save this current buffer to `w3m-bookmark-file'. (defalias 'w3m-bookmark-save-buffer #[nil "\306 \203\307 \207\310 \205n\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\205m@\3241b\325 !0\210\202c\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 (file-error) delete-file --dolist-tail--] 5 (#$ . 5534)]) #@53 Make new bookmark with specified spec, and save it. (defalias 'w3m-bookmark-write-file #[(url title section) "r\306 q\210\307\211 \310\"\n\311\")\312 \313U\203(\314 \n\f $c\210\315 !\210\202leb\210\316\314\317\n\"\320\321#\203R\316\320\321#\204D\322\323\n\"\210\313\224b\210\314\324\f #c\210\202l\316\325\320\321#\204_\322\326\327\"\210\313\224b\210\314\n\f $c\210\330 )\207" [#1=#:--cl-safe-string-- title section w3m-bookmark-initial-format url w3m-bookmark-file-coding-system w3m-bookmark-buffer #[(string format) "\303\304 \" \"\230\203\207\305\n\"\207" [string buffer-file-coding-system format decode-coding-string encode-coding-string error] 5] "Specified title includes unsafe character(s): %s" "Specified section includes unsafe character(s): %s" buffer-size 0 format set-buffer-file-coding-system search-forward "

%s

" nil t error "Can't find section delimiter: %s" "
  • %s\n" "\n" "%s" "Can't find terminator of bookmark" w3m-bookmark-save-buffer w3m-bookmark-section-delimiter w3m-bookmark-section-format] 6 (#$ . 6227)]) #@64 Add URL to bookmark. Optional argument TITLE is title of link. (defalias 'w3m-bookmark-add #[(url &optional title) "\305\203\f\306\307\"\202 \310\311 \312\211\211\313&\211\314\230\203 \203)\315\316 \"\203.\317\320\321\"\210\322\323\n\324#\211\203?\315\316\n\"\203D\317\320\325\"\210\326\n!\327 \n\326 !#\210) \fB\n\fB\211\207" [w3m-bookmark-default-section section title url w3m-input-url-history completing-read format "Section (default %s): " "Section: " w3m-bookmark-sections nil w3m-bookmark-section-history "" string-match "\\`[ ]*\\'" error "%s" "You must specify a bookmark section name" read-string "Title: " w3m-bookmark-title-history "You must specify a bookmark title" w3m-encode-specials-string w3m-bookmark-write-file] 8 (#$ . 7319)]) #@36 Add link under cursor to bookmark. (defalias 'w3m-bookmark-add-this-url #[nil "`\304\305 \306\"\2069n\204#\305 S\306\"\211\203# Sb\203#\2069l?\2059\305 T\306\"\211\2059 Tb\2059*\204A\307\310!\207`\304\305 \306\"\206zn\204d\305 S\306\"\211\203d Sb\203d\206zl?\205z\305 T\306\"\211\205z Tb\205z*\311\312`T\306\"\313`\306\"\"\314 \n\"\210*\307\315!\207" [value position title url nil get-text-property w3m-href-anchor message "No anchor" buffer-substring-no-properties previous-single-property-change next-single-property-change w3m-bookmark-add "Added"] 6 (#$ . 8092) nil]) #@107 Add a url of the current page to the bookmark. With prefix, ask for a new url instead of the present one. (defalias 'w3m-bookmark-add-current-url #[(&optional arg) "\303\203\f\304\305 !\202 \n\"\210\306\307!\207" [arg w3m-current-url w3m-current-title w3m-bookmark-add w3m-canonicalize-url w3m-input-url message "Added"] 3 (#$ . 8702) "P"]) #@54 Add urls of all pages being visited to the bookmark. (defalias 'w3m-bookmark-add-all-urls #[nil "\306 \211G\307\310\311 \"\312\313\211\313! \312U\203!\314\315!\202\346 \316U\203,\317 \202\346 \316V\205\346\320\321\322\n\"\323\nCC\324 \"\313\211\211\325&\211\203T\f;\203T\f\326\230\203V\n\327\330\f\"\203c\314\331!\202\346\203\307\211A\242q\210\"\332\230\203\220p\211#!\235\203\205!\210\202\214#!B!)\202c\333$\206\230\"!\"\203\270\334\" \333\f!#\210\"%B% %B%\202c\335\336p\"$$\210 T\202c \312V\203\322\314\337 \"\210!\205\346!\211A!\242q\210\340 \210\202\322.\207" [buffers len default-section error-count section title w3m-list-buffers format-time-string "Saved bookmarks: %Y-%m-%d %H:%M:%S" current-time 0 nil w3m-message "No w3m buffers found to bookmark" 1 w3m-bookmark-add-current-url completing-read format "Section (default %s): " append w3m-bookmark-sections w3m-bookmark-section-history "" string-match "\\`[ ]*\\'" "You must specify a bookmark section name" "about://bookmark/" w3m-encode-specials-string w3m-bookmark-write-file message "w3m-bookmark: Error saving buffer %s\n url: %s\n title: %s" "%s Errors encountered. See *Messages* buffer for details" w3m-redisplay-this-page bookmark-buffers w3m-current-url #1=#:x w3m-current-title w3m-input-url-history] 8 (#$ . 9053) nil]) #@56 Add link of the group of current urls to the bookmark. (defalias 'w3m-bookmark-add-current-url-group #[nil "\300\301\302\303\304\305\306 \"\307#P!\210\310\311!\207" [w3m-bookmark-add "group:" mapconcat w3m-url-encode-string mapcar #[(buffer) "rq\210 )\207" [buffer w3m-current-url] 1] w3m-list-buffers "&" message "Added as URL group"] 7 (#$ . 10412) nil]) #@50 Display the bookmark list in the current buffer. (defalias 'w3m-bookmark-view #[(&optional reload) "\302!\203\303 \210\304\305 \"\207\306\307!\207" [w3m-bookmark-file reload file-exists-p w3m-history-store-position w3m-goto-url "about://bookmark/" message "No bookmark file is available"] 3 (#$ . 10776) "P"]) #@44 Display the bookmark list in a new buffer. (defalias 'w3m-bookmark-view-new-session #[(&optional reload) "\303=\204\n\304\305!\207\306 !\203\307\310\n\"\207\304\311!\207" [major-mode w3m-bookmark-file reload w3m-mode message "This command can be used in w3m mode only" file-exists-p w3m-goto-url-new-session "about://bookmark/" "No bookmark file is available"] 3 (#$ . 11095) "P"]) (defalias 'w3m-about-bookmark #[(&rest args) "\303\304 !\210\305\306\211eb\210\307\310\311 \"\211\305\312#\203! T\202\306eb\210\313\314\305\312#\203O\315u\210\316\224\203B\310\317\n T\211$\202J\310\320\n T\211#c\210\202&+\321\207" [j i ident insert-buffer-substring w3m-bookmark-buffer nil 0 search-forward format "w3mbk%d." t re-search-forward "\n<\\(?:h2\\|\\(li\\)\\)>" -1 1 " id=\"%s%d.%d\"" " id=\"%s%d\"" "text/html"] 6]) #@58 Return the ordinal number of the current bookmark entry. (defalias 'w3m-bookmark-current-number #[nil "\301\302 \303\"@\211\205\304\305\"\205\306\307\310\"!)\207" [x get-text-property point-at-eol w3m-name-anchor string-match "\\`w3mbk[0-9]+\\.[0-9]+\\.\\([0-9]+\\)\\'" string-to-number match-string 1] 5 (#$ . 11931)]) #@103 Kill the bookmark entry of the current line. With prefix argument, kill that many entries from point. (defalias 'w3m-bookmark-kill-entry #[(num) "\302 \211\205,C S\211\303V\203@TB\202\n\3041(\305!0\210\202)\210\306\307!)\207" [entries num w3m-bookmark-current-number 0 (file-supersession) w3m-bookmark-kill-entries w3m-bookmark-view t] 3 (#$ . 12265) "p"]) (defalias 'w3m-bookmark-kill-entries #[(entries) "r\305\306!q\210\307 \210eb\210\310\311\312\313\306#\203CT\211 >\203\314 \311\n!\210\310\224\211b\311\312 \306#\2038\314 \2029 |\210\fSb\210*\202)\315 )\207" [i entries w3m-bookmark-section-delimiter end beg w3m-bookmark-buffer t w3m-bookmark-verify-modtime 0 search-forward "\n
  • " nil point-at-bol w3m-bookmark-save-buffer] 6]) #@41 Undo some previous changes on bookmark. (defalias 'w3m-bookmark-undo #[(&optional arg) "\3011r\302\303!q\210\304 \210\305!\210\306 )0\210\202\210\307\303!\207" [arg (file-supersession) w3m-bookmark-buffer t w3m-bookmark-verify-modtime undo w3m-bookmark-save-buffer w3m-bookmark-view] 2 (#$ . 13034) "p"]) #@25 Edit the bookmark file. (defalias 'w3m-bookmark-edit #[nil "\301\302!!\207" [w3m-bookmark-file w3m-edit-url w3m-expand-file-name-as-url] 3 (#$ . 13350) nil]) #@109 *List of the bookmark menu items. The car is used if `w3m-bookmark-mode' is nil, otherwise the cdr is used. (defvar w3m-bookmark-menu-items (byte-code "\205\302\303\304\305\306 \307Q\310\"\311B\"\303\304\305\312 \307Q\313\"\314B\"\303\304\305\315\316\"\317B\"\320\303\304\305\321\322\"\323B\"\303\304\305\324\325\"\326B\"\303\304\305\327\330\"\331B\"\257\303\304\305\332\333\"\334B\"\303\304\305\335\336\"\337B\"\303\304\305\315\316\"\340B\"F)\207" [w3m-use-japanese-menu etsu "閲" apply vector w3m-make-menu-item "ブックマークの" "覧" "View Bookmark" (w3m-bookmark-view t) "新セッションでブックマークの" "View Bookmark in a New Session" (w3m-bookmark-view-new-session t) "ブックマークの編集" "Edit Bookmark" (w3m-bookmark-edit t) "----" "このページをブックマーク" "Add Current URL to Bookmark" (w3m-bookmark-add-current-url t) "すべての URL をブックマーク" "Add These URLs to Bookmark" (w3m-bookmark-add-current-url-group t) "この URL をブックマーク" "Add This URL to Bookmark" (w3m-bookmark-add-this-url (w3m-anchor)) "このエントリを消去" "Kill Current Entry" (w3m-bookmark-kill-entry (text-property-not-all (point-at-bol) (point-at-eol) 'w3m-href-anchor nil)) "もとに戻す" "Undo" (w3m-bookmark-undo t) (w3m-bookmark-edit t)] 11) (#$ . -13516)) #@38 Setup w3m bookmark items in menubar. (defalias 'w3m-setup-bookmark-menu #[nil "\301\302\"?\205\303\304!\210\305\306\307\310$\210\311\312\313\"\207" [w3m-mode-map lookup-key [menu-bar Bookmark] (lambda (def-tmp-var) (defvar w3m-bookmark-menu def-tmp-var #1="")) nil easy-menu-do-define w3m-bookmark-menu #1# ("Bookmark") add-hook menu-bar-update-hook w3m-bookmark-menubar-update] 5 (#$ . 14852)]) #@30 Update w3m bookmark menubar. (defalias 'w3m-bookmark-menubar-update #[nil "\306=\2053 \2053\n\203 A\202 @\307 \310\311!\210\312\313\314\315\f\203/\316 \317\f#\2020 B$*\207" [major-mode menu-bar-mode w3m-bookmark-mode w3m-bookmark-menu-items pages items w3m-mode w3m-bookmark-make-menu-items (lambda (def-tmp-var) (defvar w3m-bookmark-menu def-tmp-var #1="The menu kepmap for the emacs-w3m bookmark.")) nil easy-menu-do-define w3m-bookmark-menu #1# "Bookmark" append ("----") w3m-mode-map] 9 (#$ . 15258)]) #@104 Iteration bookmark groups/entries. Format as (list ("Group name" . ("Entry URL" . "Entry name")* )* ). (defalias 'w3m-bookmark-iterator #[nil "\306r\307 q\210eb\210\306\211\211\211\310\311\306\312#\203Y\313\314!\315\224\310\316\306\312#\212\306\n }\210eb\210\310\317\306\312#\203F\313\314!\313\320!B B\2021\f \237B\211B~\210*\315\225b\210\202,\237*\207" [entries end beg entry group urls nil w3m-bookmark-buffer re-search-forward "

    \\([^<]+\\)

    " t match-string-no-properties 1 0 "" "\\([^<]+\\)" 2] 5 (#$ . 15784)]) #@32 Open URL at current/new buffer (defalias 'w3m-bookmark-menu-open-item #[(url) "\203\302 !\207\303 !\207" [w3m-bookmark-menu-open-new-session url w3m-goto-url-new-session w3m-goto-url] 2 (#$ . 16366)]) (defvar w3m-bookmark-menu-items-pre nil) (defvar w3m-bookmark-menu-items-time nil) #@33 Create w3m bookmark menu items. (defalias 'w3m-bookmark-make-menu-items #[(&optional nomenu) "?\205- \203\n\203\n\305 \232\203 \207\305 \306 !\205!\307 \211\205*\310\311\f\"\211)\207" [nomenu w3m-bookmark-menu-items-pre w3m-bookmark-menu-items-time w3m-bookmark-file entries w3m-bookmark-file-modtime file-exists-p w3m-bookmark-iterator mapcar #[(entry) "@A\211 \205\303\304 \"*B\207" [entry items group mapcar #[(item) "\301A\302@D\"\207" [item vector w3m-bookmark-menu-open-item] 4]] 5]] 4 (#$ . 16659)]) (provide 'w3m-bookmark)