;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\"\207" [require w3m-util autoload seq-position "seq"] 3) #@445 Which session-group is open. If a session-group is currently open, i.e., when displaying a list of buffers for an individual session, this should be set to the session (session-group) number. There is a legacy terminology problem that needs to be addressed here. The documentation and symbol names currently confuse 'sessions', 'buffers`, and 'session-groups'. A 'session-group' is identical to a 'session' that has more than one 'buffer'. (defvar w3m-session-group-open nil (#$ . 183)) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\210\300\314\311\315\304\305\306\313&\210\300\316\311\317\304\305\306\313&\210\300\320\321\322\304\305\306\323&\210\300\324\325\326\304\305\306\323&\210\300\327\330\331\304\305\306\323&\210\300\332\333\334\304\305\306\323&\210\300\335\336\337\304\305\306\340&\210\300\341\336\342\304\305\306\340&\210\300\343\344\345\304\305\306\323&\210\300\346\347\350\304\305\306\351&\210\300\352\353\354\304\305\306\355&\210\356\357\360\361\304\305%\210\356\362\363\364\304\305%\207" [custom-declare-variable w3m-session-file (expand-file-name ".sessions" w3m-profile-directory) "File name to keep sessions." :group w3m :type file w3m-session-autosave t "Non-nil means save automatically when w3m quit." boolean w3m-session-deleted-save "Non-nil means save deleted sessions." w3m-session-crash-recovery "If non-nil, recover session by auto-saved one when emacs-w3m crashes." w3m-session-time-format (if (equal "Japanese" w3m-language) "%Y年%m月%d日(%a) %H:%M" "%Y-%m-%d (%a) %H:%M") "Format of saved time." string w3m-session-automatic-title (if (equal "Japanese" w3m-language) "自動保存" "Automatic saved sessions") "String of title to save session automatically." w3m-session-deleted-title (if (equal "Japanese" w3m-language) "削除セッション" "Removed sessions") "String of title to save session when buffer delete." w3m-session-crash-recovery-title (if (equal "Japanese" w3m-language) "クラッシュ回復" "Crash recovery sessions") "String of title to save session to use for crash recovering." w3m-session-deleted-keep-number 5 "Number to keep sessions when buffers delete." integer w3m-session-automatic-keep-number "Number to keep sessions automatically." w3m-session-unknown-title "" "String of title to use when title is not specified." w3m-session-load-last-sessions nil "Whether to reload the most recent session when emacs-w3m\nstarts." (radio (const :format "Reload the last session automatically\n" t) (const :format "Ask whether to reload the last session\n" ask) (const :format "Never reload the last session automatically" nil)) w3m-session-load-crashed-sessions 'ask "Whether to reload a crashed session when emacs-w3m starts.\nThis is used when emacs-w3m determines that the most recent session crashed." (radio (const :format "Reload the crashed session automatically\n" t) (const :format "Ask whether to reload the crashed session\n" ask) (const :format "Never reload the crashed session automatically" nil)) custom-declare-face w3m-session-select ((((class color) (background light) (type nil)) (:foreground "black")) (((class color) (background dark) (type nil)) (:foreground "cyan")) (((class color) (background light)) (:foreground "dark blue")) (((class color) (background dark)) (:foreground "white")) (t nil)) "Face of w3m-session." w3m-session-selected ((((class color) (background light) (type nil)) (:foreground "blue" :bold t :underline t)) (((class color) (background dark) (type nil)) (:foreground "cyan" :bold t :underline t)) (((class color) (background light)) (:foreground "dark blue" :bold t :underline t)) (((class color) (background dark)) (:foreground "white" :bold t :underline t)) (t (:bold t :underline t))) "Face of selected w3m-session."] 8) #@64 Return a copy of `w3m-history-flat' without current page data. (defalias 'w3m-session-history-to-save #[nil "@A@\302\303\304\305\306\307 !\"\")\207" [w3m-history pos apply append mapcar #[(x) "\3028 \232?\205 C\207" [x pos 2] 2] copy-sequence w3m-history-slimmed-history-flat] 6 (#$ . 3983)]) #@70 Run FORMS. Remove `w3m-session-file' and quit if any error happens. (defalias 'w3m-session-ignore-errors '(macro . #[(&rest forms) "\301\302\303B\304BBB\207" [forms condition-case err progn ((error (if (and (file-exists-p w3m-session-file) (yes-or-no-p (format "An error was found in \"%s\"; may we remove it? " (abbreviate-file-name w3m-session-file)))) (progn (delete-file w3m-session-file) (run-at-time 0.1 nil #'message "\"%s\" has been removed; try again." (abbreviate-file-name w3m-session-file)) (keyboard-quit)) (signal (car err) (cdr err)))))] 4 (#$ . 4287)])) #@276 Save the current session (all currently open emacs-w3m buffers). The user will be prompted for a name for the saved session. The saved session information will include, for each currently open emacs-w3m buffer: the current url and page title, and the buffer's url history. (defalias 'w3m-session-save #[nil "\3061\307!\310 \311\312\211\313\211\211\211\211\211\211/012345\314\3155\"\2106\206:r4@q\2106)\2110\211B B/\204v\3163 \313\2110\3130&\211/\317\230\204o\320/5\"\203B\321\322\323/\"!\204B\313\211/\203Gpr4@\211\203\2614A4\nq\2107\203y p=\203\230121T17\3248@A@!\325 6F\fB\202y)\f\204\276\326\327/\"\202\fG\f\237\320/5\"\203\331\330\320/5\"5\"5/\331 \f2F5B5\3325\"\210\326\333/ \211\334U\203\373\317\202\374\335$\210\336\337!\211\205\340\n\341\"\205\342 9r\343\216\344 +.\f0\207:\345!\203A\346\322\347\350!\"!\203A\351!\210\352\353\313\326\354\350!%\210\355 \202I\356:@:A\")\207" [w3m-session-file cbuf buf len urls titles (error) w3m-load-list w3m-list-buffers "New session title: " 0 nil mapc #[(x) "@@B B\211\207" [x titles] 2] completing-read "" assoc y-or-n-p format "\"%s\" exists. Overwrite? " copy-sequence w3m-session-history-to-save message "%s: no buffers saved...done" delq current-time w3m-save-list "%s: %d buffer%s saved...done" 1 "s" get-buffer " *w3m-session select*" get-buffer-window visible internal--before-save-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-save-selected-window] 2] w3m-session-select file-exists-p yes-or-no-p "An error was found in \"%s\"; may we remove it? " abbreviate-file-name delete-file run-at-time 0.1 "\"%s\" has been removed; try again." keyboard-quit signal title otitle i cnum prompt bufs sessions w3m-current-title w3m-current-url w3m-history save-selected-window--state err] 13 (#$ . 4866) nil]) #@47 Save list of displayed session automatically. (defalias 'w3m-session-automatic-save #[nil "\205%\3061\366\307 !\310 \n\311P\312\313\n!\314Q\315\211\316\211\211\211\211\211\211\211\"#$%&'()*+,+\205\362p$r+@\211%\203~+A+%q\210-\203B$p=\203d'('T'-\317.@@!\320 /F&B&\202B)&\205\362\321',@\211#\203\325,A,\322)#@\"\203\313'0X\203\207\323\n\324P'\"#A@\321#8 \f \316F\"B\"'T'\202\207#\"B\"\202\207\"\237,&\237&*\325 &(F,B,\326 ,\".0\2071\327 !\203\330\323\331\332 !\"!\203\333 !\210\334\335\316\336\337\332 !%\210\340 \202$\3411@1A\")\207" [w3m-session-autosave w3m-session-file w3m-session-automatic-title tmpurls tmptime tmptitle (error) w3m-load-list w3m-list-buffers "-1" "\\`" regexp-quote "-[0-9]+\\'" 0 nil copy-sequence w3m-session-history-to-save 2 string-match format "-%d" current-time w3m-save-list file-exists-p yes-or-no-p "An error was found in \"%s\"; may we remove it? " abbreviate-file-name delete-file run-at-time 0.1 message "\"%s\" has been removed; try again." keyboard-quit signal tmp session cbuf buf urls i cnum titleregex title bufs sessions w3m-current-url w3m-history w3m-current-title w3m-session-automatic-keep-number err] 14 (#$ . 6756)]) #@31 Save list of deleted session. (defalias 'w3m-session-deleted-save #[(buffers) "\205\3061\344\307 !\n\310P\311\312\n!\313Q\314 !\315\316\211\211\211\211\211\211\"#$%&'()*+(\205\340\317(\320\"(r(@\211%\203n(A(%q\210,\203B,\314-@@!\321 .F&B&\202B)&\205\340+@\211$\203\304+A+\322)$@\"\203\272'/X\203t\323\n\324P'\"\"$A@\315$8\" \f\316F#B#'T'\202t$#B#\202t#\237+&\237&*\325 &\316F+B+\326 +\".\f0\2070\327 !\203\n\330\323\331\332 !\"!\203\n\333 !\210\334\335\316\336\337\332 !%\210\340 \202\3410@0A\")\207" [w3m-session-deleted-save w3m-session-file w3m-session-deleted-title buffers tmpurls tmptime (error) w3m-load-list "-1" "\\`" regexp-quote "-[0-9]+\\'" copy-sequence 2 nil sort w3m-buffer-name-lessp w3m-session-history-to-save string-match format "-%d" current-time w3m-save-list file-exists-p yes-or-no-p "An error was found in \"%s\"; may we remove it? " abbreviate-file-name delete-file run-at-time 0.1 message "\"%s\" has been removed; try again." keyboard-quit signal tmptitle tmp session buf urls i bufs titleregex title sessions w3m-current-url w3m-history w3m-current-title w3m-session-deleted-keep-number err] 12 (#$ . 8013)]) #@33 Save list of displayed session. (defalias 'w3m-session-crash-recovery-save #[nil "\205\246\3061w\307 !\310 \n\311\211\211\205sr@\211\203HA\fq\210\203 \312 @@!\313 !F B\202 ) \205s \237\314\"\211\203b\315 \"\316 \311FB\317 \".0\207\"\320 !\203\235\321\322\323\324 !\"!\203\235\325 !\210\326\327\311\330\331\324 !%\210\332 \202\245\333\"@\"A\")\207" [w3m-session-crash-recovery w3m-session-file w3m-session-crash-recovery-title tmp buf urls (error) w3m-load-list w3m-list-buffers nil copy-sequence w3m-session-history-to-save assoc delq current-time w3m-save-list file-exists-p yes-or-no-p format "An error was found in \"%s\"; may we remove it? " abbreviate-file-name delete-file run-at-time 0.1 message "\"%s\" has been removed; try again." keyboard-quit signal title bufs sessions w3m-current-url w3m-history w3m-current-title err] 8 (#$ . 9235)]) #@36 Remove crash recovery session set. (defalias 'w3m-session-crash-recovery-remove #[nil "\205M\3061!\307 !\310 \n\"\211\205\311\f\n\"\312 \n\"*0\207\313 !\203F\314\315\316\317 !\"!\203F\320 !\210\321\322\323\324\325\317 !%\210\326 \202L\327 @ A\")\207" [w3m-session-crash-recovery w3m-session-file sessions w3m-session-crash-recovery-title item err (error) w3m-load-list assoc delq w3m-save-list file-exists-p yes-or-no-p format "An error was found in \"%s\"; may we remove it? " abbreviate-file-name delete-file run-at-time 0.1 nil message "\"%s\" has been removed; try again." keyboard-quit signal] 8 (#$ . 10150)]) (defvar w3m-session-select-mode-map nil) (byte-code "\204\230\302 \303 !\210\304 \305\306#\210\304 \307\306#\210\304 \310\306#\210\304 \311\312#\210\304 \313\314#\210\304 \315\316#\210\304 \317\316#\210\304 \320\321#\210\304 \322\321#\210\304 \323\324#\210\304 \325\324#\210\304 \326\327#\210\304 \330\327#\210\304 \331\332#\210\304 \333\332#\210\304 \334\335#\210\304 \336\335#\210\304 \337\335#\210\304 \340\335#\210\304 \341\342#\210\304 \343\342#\210\304 \344\342#\210\304 \345\342#\210 )\302\207" [w3m-session-select-mode-map map make-keymap suppress-keymap define-key "q" w3m-session-select-quit "Q" "" " " w3m-session-select-select "\363" w3m-session-select-open-session-group "c" w3m-session-select-copy "C" "d" w3m-session-select-delete "D" "s" w3m-session-select-save "S" "r" w3m-session-select-rename "R" "m" w3m-session-select-merge "M" "n" w3m-session-select-next "j" "" [down] "p" w3m-session-select-previous "k" "" [up]] 4) #@36 Buffer-local copy of session list. (defvar w3m-session-select-sessions nil (#$ . 11730)) (make-variable-buffer-local 'w3m-session-select-sessions) #@629 Major mode for selecting emacs-w3m session. \ \[w3m-session-select-select] Select the session. \[w3m-session-select-open-session-group] Open the session group. \[w3m-session-select-copy] Copy the session. \[w3m-session-select-delete] Delete the session. \[w3m-session-select-rename] Rename the session. \[w3m-session-select-merge] Merge the session into another one. \[w3m-session-select-save] Save the session. \[w3m-session-select-next] Move the point to the next session. \[w3m-session-select-previous] Move the point to the previous session. \[w3m-session-select-quit] Exit selecting session.  (defalias 'w3m-session-select-mode #[(&optional sessions) "\3061:\206 \307 !\310 \210\311\312\313\314 \315!\312\313\"\316#!\210\317 \210\320\321\322\312\211$\210\320\323\322\312\211$)0\207$\324 !\203`\325\326\327\330 !\"!\203`\331 !\210\332\333\313\334\335\330 !%\210\336 \202h\337$@$A\")\207" [sessions w3m-session-file mode-name truncate-lines buffer-read-only major-mode (error) w3m-load-list buffer-disable-undo "w3m session" t nil w3m-session-select-mode w3m-session-select-quit use-local-map w3m-session-select-list-all-sessions add-hook pre-command-hook w3m--session-update-faces post-command-hook file-exists-p yes-or-no-p format "An error was found in \"%s\"; may we remove it? " abbreviate-file-name delete-file run-at-time 0.1 message "\"%s\" has been removed; try again." keyboard-quit signal w3m-session-select-sessions buffer-quit-function w3m-session-group-open w3m-session-select-mode-map err] 7 (#$ . 11884)]) #@116 A hook function for `w3m-session-select' buffers. Meant for use with `pre-command-hook' and `post-command-hook'. (defalias 'w3m--session-update-faces #[nil "\302 \303\304 \305 \306\"\307\310 \307\"\311=\203\312\202\311$*\207" [inhibit-read-only beg line-beginning-position t put-text-property next-single-property-change w3m-session-number face get-text-property w3m-session-select w3m-session-selected] 7 (#$ . 13466)]) #@26 List all saved sessions. (defalias 'w3m-session-select-list-all-sessions #[nil "\306\211\307\310\211\211\211\211\211\211\204&\311\312!\210\313 \202\211\314\315\"\210 \237 \237\316\\\317 \210 @\211\203z @\211\203z A A`c\210\320 `\321\322\323F#\210T\324\325!Z\326\"c\210\f\327\261\210\202;\330\331!\210eb\210\332\310!\210\307\211 .\n\207" [w3m-session-select-sessions pos wid times time titles 0 t nil message "No saved session" w3m-session-select-quit mapc #[(x) "\306\307@\3108G#\311 !\211 V\203\n \fB\312 A@\" B\211 \207" [x title wid max titles w3m-session-time-format format "%s[%d]" 2 string-width format-time-string times] 6] 2 erase-buffer add-text-properties face w3m-session-select w3m-session-number make-string string-width 32 "\n" delete-char -1 set-buffer-modified-p title inhibit-read-only max num sessions buffer-read-only] 11 (#$ . 13901)]) #@208 List all buffers (i.e., tabs) within a session. The list can be acted upon similarly to a session list, i.e., entries can be individually deleted, renamed, or opened as a new buffer in the current session. (defalias 'w3m-session-select-list-session-group #[(arg) "\306 88\307\211\310\311\211\211\211\211\211\211\203\230\312\313\"\210\f\237 \237\306\\\314 \210\315c\210`\316c\210\317\n`\320\321\322F#\210\323c\210\f@\211\203\217 @\211\203\217\fA A`c\210\317\n`\320\324\322BF#\210T\325\326!Z\327\"c\210\323\261\210\202Leb\210\330`\322\"b\210\331\311!\210\310\211 .\n\207" [arg w3m-session-select-sessions pos urls titles wid 2 0 t nil mapc #[(x) "\306\307\3108\206 \"\311\n!\211\fV\203 \n B@\nB\211\n\207" [x w3m-session-unknown-title title wid max titles format "%s" 3 string-width urls] 5] erase-buffer "Select session:\n\n" "Open all sessions" add-text-properties face w3m-session-selected w3m-session-number "\n" w3m-session-select make-string string-width 32 next-single-property-change set-buffer-modified-p url title inhibit-read-only max num session buffer-read-only] 11 (#$ . 14824)]) #@37 Move the point to the next session. (defalias 'w3m-session-select-next #[(&optional arg) "\204\302\303\304`!\\S\304d!\"Teb\210 Sy\210\305\306!)\207" [arg target 1 mod line-number-at-pos set-buffer-modified-p nil] 4 (#$ . 15990) "p"]) #@41 Move the point to the previous session. (defalias 'w3m-session-select-previous #[(&optional arg) "\301[!\207" [arg w3m-session-select-next] 2 (#$ . 16236) "p"]) #@36 Exit from w3m session select mode. (defalias 'w3m-session-select-quit #[nil "\203\303\304 \210 y)\207p\305 \204\306 \210\307\n!)\207" [w3m-session-group-open num buffer nil w3m-session-select-list-all-sessions one-window-p delete-window kill-buffer] 2 (#$ . 16404) nil]) #@21 Select the session. (defalias 'w3m-session-select-select #[nil "\305 \210\306`\307\"\211:\203A@ 8AA@8\202 8:\2034\nAAA@\206, \310\nC\310F\2025\n\311\f!+\207" [num w3m-session-select-sessions item w3m-session-unknown-title session beginning-of-line get-text-property w3m-session-number nil w3m-session-goto-session] 5 (#$ . 16690) nil]) #@25 Open the session group. (defalias 'w3m-session-select-open-session-group #[(&optional arg) "\306 \210\206 \307`\310\"\311\211:\203\312\313!\202:\n\n\f8AA@G\314\\ ]\31516\316 \317 Z!0\210\2027\210\320\n!*\207" [arg wheight num w3m-session-group-open w3m-session-select-sessions window-min-height beginning-of-line get-text-property w3m-session-number nil message "This is not a session group." 6 (error) enlarge-window window-height w3m-session-select-list-session-group] 4 (#$ . 17046) nil]) #@19 Save the session. (defalias 'w3m-session-select-save #[nil "\300\301!\205\302 \210\303 \210\304 \207" [y-or-n-p "Save this session? " w3m-session-select-quit w3m-session-save w3m-session-select] 2 (#$ . 17555) nil]) #@22 Rename this session. (defalias 'w3m-session-select-rename #[nil "\304 \210\305`\306\"\307 \n\"\210 \204\310\n!\202\311 !*\207" [w3m-session-select-sessions sessions num w3m-session-group-open beginning-of-line get-text-property w3m-session-number w3m-session-rename w3m-session-select w3m-session-select-open-session-group] 3 (#$ . 17779) nil]) #@49 Delete an entry (either a session or a buffer). (defalias 'w3m-session-select-delete #[nil "\304\305!\205<\306 \210\307`\310\"\311 \n\"\210 \204-\312\n:\203$\n@\202%\n GS^!\202;\313 !\210\nAT\314d!\315Z^y*\207" [w3m-session-select-sessions sessions num w3m-session-group-open y-or-n-p "Delete this entry? " beginning-of-line get-text-property w3m-session-number w3m-session-delete w3m-session-select w3m-session-select-open-session-group line-number-at-pos 4] 3 (#$ . 18137) nil]) #@38 Copy the currently selected session. (defalias 'w3m-session-select-copy #[nil "\306 \210\307\310`\311\"\312\211\211\211\211\211#$%&%#$\250\204-\313\314!\210\2025$&8\211 @\n\204\224\315'\316#\312\211\211\211 &)\n\317\230\203Z\312%#\2028\n \230\203k\n\320P#\312\211\2029\321\n&\"\2038\322\323\324\n\"!\204\206%#\312\211\2029\325\321\n&\"&\"&\2028\n\326 \327 8\330 8F&B&\331(&\"\210\332\333 \n#\210\334\335!\211\205\311\336 \337\"\205\311\340 )r\341\216\342 +. \207" [w3m-session-select-sessions buf title otitle target-session source-session beginning-of-line "Name for new session: " get-text-property w3m-session-number nil error "Only for sessions, not their elements." #[nil "c\207" [otitle] 1] read-from-minibuffer "" " is same as original title (C-g to abort): " assoc y-or-n-p format "\"%s\" exists. Overwrite? " delq current-time 2 3 w3m-save-list w3m-message "Session %s copied to %s." get-buffer " *w3m-session select*" get-buffer-window visible internal--before-save-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-save-selected-window] 2] w3m-session-select prompt source-number default-prompt sessions minibuffer-setup-hook w3m-session-file save-selected-window--state] 10 (#$ . 18632) nil]) #@204 Copy the elements of the selected session into another one. The user will be prompted for the receiving session. If point is on a single element within a session, then only that element will be copied. (defalias 'w3m-session-select-merge #[nil "\306 \210\307\310`\311\"\312\211\211\211\211\250\203(8\2026@8\211A\313 88\314\315\"\210\316 @\n\"\317\320\n\312\321$\" A@\322 A@ \"\203d A\211 \240\210) AA\211\323\313 8\f\206u\313 8\244!\240\210)\324\"\210\204\222\325GS^!\202\241\326!\210A\327d!\330Z^y.\207" [w3m-session-select-sessions target titles source-time source-element source-session beginning-of-line "Merge into session: " get-text-property w3m-session-number nil 2 mapc #[(x) "@ B\211\207" [x titles] 2] delete assoc completing-read t time-less-p delete-dups w3m-save-list w3m-session-select w3m-session-select-open-session-group line-number-at-pos 4 source-number prompt sessions #1=#:c #2=#:c w3m-session-file w3m-session-group-open] 9 (#$ . 19929) nil]) #@196 Select session from session list. Position point at N-th session if N is given. With the prefix-argument, toggles the position of the popup window between being below or beside the main window. (defalias 'w3m-session-select #[(&optional n toggle nomsg) "\3061X\307!\310\311\211\203&\312\f\n #\210\313 !\210#\205U\314#!\202U\315\n!\211\203R\316\n\317\"\320\n!\210\211\203R\321 $r\322\216\323 !\210\324\317\211\"\204Q\325 !\210+\326\327!+0\207%\330!\203~\331\332\333\334!\"!\203~\335!\210\336\337\311\326\340\334!%\210\341 \202\206\342%@%A\")\207" [w3m-session-file window showbuf sessions toggle nomsg (error) w3m-load-list " *w3m-session select*" nil w3m--setup-popup-window w3m-session-select-mode w3m-session-select-next get-buffer get-buffer-window t kill-buffer internal--before-save-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-save-selected-window] 2] select-window one-window-p delete-window message "No saved session" file-exists-p yes-or-no-p format "An error was found in \"%s\"; may we remove it? " abbreviate-file-name delete-file run-at-time 0.1 "\"%s\" has been removed; try again." keyboard-quit signal n save-selected-window--state err] 8 (#$ . 20964) (list nil current-prefix-arg nil)]) #@315 Create buffer(s) for the selected SESSION url(s). If point is selecting a session, then a buffer will be created for each element (url) of that session that does not already exist. If point is selecting a session element, then only a single buffer for that url will be created, only if it does not already exist. (defalias 'w3m-session-goto-session #[(session) "@\3068\3078\310e\311 \"\312p(\313 )\314\315\316 \"*\3172Tr\320 \321+\211,\205R,@+\322+!q\210\323\324!\203H\325\317+\"\210,A\211,\2041\321+0\206Y)-\321\211./\321\21101\321\21123\321\21145-\204|\326\327!\210\330-!6r\331\216\3326@\333\"\210\334\335 \"\210\n\211A\242\211.\203 .;\204\271.A@1\306.82\307.83.@.\336.*\"A\211/\204\221\337.\321\211\211\211\340&\210\341\316 !@0 \247\203\343 U\204\355 \204\361 \312U\203\3610/0\2031\2032\2030q\210.\3423D1E2B\21127\3431!\210 T\202\221+\344(!\204,\345\f!\210/\2038\346-/\"\210\334\347 \".\207" [session title urls cnum snum i 2 3 count-lines line-beginning-position 0 selected-window mapcar #[(x) "rq\210 )B\207" [x w3m-current-url] 2] w3m-list-buffers window-to-use window-list nil window-buffer derived-mode-p w3m-mode throw error "No visible w3m window found" internal--before-with-selected-window #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord w3m-message "Session goto(%s)..." assoc w3m-goto-url-new-session t last :title w3m-history-tree get-buffer-window w3m-session-select set-window-buffer "Session goto(%s)...done" session-buf session-win w3m-urls win --dolist-tail-- cwin url cbuf buf pos history url-title w3m-pop-up-windows w3m-pop-up-frames save-selected-window--state w3m-history-flat] 8 (#$ . 22237)]) #@303 Rename an entry (either a session or a buffer). Rename session number NUM of the SESSIONS data structure, when NUM is an integer. NUM may also be a cons cell, for which the car is a session number and the cdr is a buffer entry (i.e., a tab) within that session. In that case rename the buffer entry. (defalias 'w3m-session-rename #[(sessions num) "\306\211\307\211\f:\205\310\f@ 88\211\203!\fA8\202$\f 8\f:\2033\310A8\2026@ \204\261\311\312 \307\211\211\211&) \313\230\203X\307\2028 \230\203i \314P\307\211\2029\204\232\315 \"\203\232\316\317\320 \"!\204\206\307\211\2029\321\315 \" \"\322 \315 \"\"\2028\2038 \323\324\"\235\2038\325\307\211\203<\203\340AAA\211 \240\210)\fA\233\211\240\210)\f@ 8AA\211\240\210)\202\354 \240\210\f \233\240\210\326 \".\207" [default-prompt prompt overwrite title num sessions "Enter new session title (C-g to abort): " nil 2 #[nil "c\207" [otitle] 1] read-from-minibuffer "" " is same as original title (C-g to abort): " assoc y-or-n-p format "\"%s\" exists. Overwrite? " delq seq-position mapcar #[(x) "\301!@\207" [x last] 2] "Not yet supported. Manually delete the other entry, or try again. " w3m-save-list group tmp otitle minibuffer-setup-hook #1=#:c #2=#:c #3=#:c w3m-session-file] 8 (#$ . 24023)]) #@309 Delete an entry (either a session or a buffer). Delete from the SESSIONS data structure the session number NUM, when NUM is an integer. NUM may also be a cons cell, for which the car is a session number and the cdr is a buffer entry (i.e., a tab) within that session. In that case delete the buffer entry. (defalias 'w3m-session-delete #[(sessions num) ":\2038\306@ 88\307A\n8\n\"\211G\310U\204*@ 8AA\211 \240\210)\2024\307@ 8 \"\311*\202?\307 8 \" \203I\312 \"\207\313!\314!\205a\315!\205a\316!)\207" [num sessions item tmp #1=#:c w3m-session-group-open 2 delq 0 nil w3m-save-list expand-file-name file-exists-p file-writable-p delete-file w3m-session-file file] 4 (#$ . 25365)]) #@33 List of the session menu items. (defvar w3m-session-menu-items (byte-code "\300\301\302\303\304\"\305B\"\300\301\302\306\307\"\310B\"\311\300\301\302\312\313\"\314B\"\300\301\302\315\316\"\317B\"\311\300\301\302\320\321\"\322B\"\300\301\302\323\324\"\325B\"\300\301\302\326\327\"\330B\"\300\301\302\331\332\"\333B\"\257\n\207" [apply vector w3m-make-menu-item "新しいセッションを作る..." "Create New Session..." (w3m-goto-new-session-url t) "このセッションを複製する" "Copy This Session" (w3m-copy-buffer w3m-current-url) "----" "前のセッションに移動する" "Move Previous Session" (w3m-previous-buffer (> (safe-length (w3m-list-buffers)) 1)) "次のセッションに移動する" "Move Next Session" (w3m-next-buffer (> (safe-length (w3m-list-buffers)) 1)) "このセッションを閉じる" "Close This Session" (w3m-delete-buffer (> (safe-length (w3m-list-buffers)) 1)) "他のセッションを閉じる" "Close Other Sessions" (w3m-delete-other-buffers (> (safe-length (w3m-list-buffers)) 1)) "現在のセッションを保存する" "Save Displayed Sessions" (w3m-session-save t) "セッションを選択する" "Select Sessions" (w3m-session-select t)] 14) (#$ . 26085)) #@37 Setup w3m session items in menubar. (defalias 'w3m-setup-session-menu #[nil "\301\302\"?\205\303\304!\210\305\306\307\310$\210\311\312\313\"\207" [w3m-mode-map lookup-key [menu-bar Session] (lambda (def-tmp-var) (defvar w3m-session-menu def-tmp-var #1="")) nil easy-menu-do-define w3m-session-menu #1# ("Session") add-hook menu-bar-update-hook w3m-session-menubar-update] 5 (#$ . 27306)]) (defvar w3m-session-menu-items-pre nil) (defvar w3m-session-menu-items-time nil) #@29 Update w3m session menubar. (defalias 'w3m-session-menubar-update #[nil "\306=\205( \205(\n\307 \310\311!\210\312\313 \314\315 \203$\316\f\317 #\202%\fB$*\207" [major-mode menu-bar-mode w3m-session-menu-items pages items w3m-mode-map w3m-mode w3m-session-make-menu-items (lambda (def-tmp-var) (defvar w3m-session-menu def-tmp-var #1="The menu kepmap for the emacs-w3m session.")) nil easy-menu-do-define w3m-session-menu #1# "Session" append ("----")] 9 (#$ . 27786)]) #@165 Return the modification time of the session file `w3m-session-file'. The value is a list of two time values `(HIGH LOW)' if the session file exists, otherwise nil. (defalias 'w3m-session-file-modtime #[nil "\301\302!8\207" [w3m-session-file 5 file-attributes] 3 (#$ . 28269)]) (defalias 'w3m-session-make-item #[(item) "\207" [item] 1]) #@32 Create w3m session menu items. (defalias 'w3m-session-make-menu-items #[nil "\203 \203 \305 \232\203\207\3061)\307\n!\305  \205$\310\311 \"\211)0\207\312\n!\203N\313\314\315\316\n!\"!\203N\317\n!\210\320\321\322\323\324\316\n!%\210\325 \202T\326\f@\fA\")\207" [w3m-session-menu-items-pre w3m-session-menu-items-time w3m-session-file sessions err w3m-session-file-modtime (error) w3m-load-list mapcar #[(entry) "@\301\302\303\304DD\"\305\306\3078\"BB\207" [entry vector "Open all sessions" w3m-session-goto-session quote mapcar #[(item) "\3038\206 \304\n\305\306\n\307C\307FDD\")\207" [item w3m-session-unknown-title title 3 vector w3m-session-goto-session quote nil] 8] 2] 6] file-exists-p yes-or-no-p format "An error was found in \"%s\"; may we remove it? " abbreviate-file-name delete-file run-at-time 0.1 nil message "\"%s\" has been removed; try again." keyboard-quit signal] 7 (#$ . 28614)]) (defalias 'w3m-session-last-autosave-session #[nil "\205\206\3061W\307 !\310\311\3122; W\203\"\313\312\311\"\210\2025\314\315\316 #\f\"\211\2035\313\312\n\"\210 T\202+\211\205T\317=\203N\320\321!\204R\205T)0\207\322 !\203}\323\315\324\325 !\"!\203}\326 !\210\327\330\311\331\332\325 !%\210\333 \202\205\334@A\")\207" [w3m-session-load-last-sessions w3m-session-file x n sessions w3m-session-automatic-keep-number (error) w3m-load-list 1 nil loop throw assoc format "%s-%d" ask y-or-n-p "Load the last sessions? " file-exists-p yes-or-no-p "An error was found in \"%s\"; may we remove it? " abbreviate-file-name delete-file run-at-time 0.1 message "\"%s\" has been removed; try again." keyboard-quit signal w3m-session-automatic-title item err] 8]) (defalias 'w3m-session-last-crashed-session #[nil "\205Y \205Y\3061-\307\n\310 !\"\211\205* \311=\203#\312\313!\204) \314=\205*\f)0\207\315 !\203R\316\317\320\321 !\"!\203R\322 !\210\323\324\325\326\327\321 !%\210\330 \202X\331 @ A\")\207" [w3m-session-crash-recovery w3m-session-load-crashed-sessions w3m-session-crash-recovery-title w3m-session-file item err (error) assoc w3m-load-list ask y-or-n-p "Load the crashed sessions? " t file-exists-p yes-or-no-p format "An error was found in \"%s\"; may we remove it? " abbreviate-file-name delete-file run-at-time 0.1 nil message "\"%s\" has been removed; try again." keyboard-quit signal] 8]) (byte-code "\300\301\302\303#\210\300\301\304\303#\210\305\306!\207" [add-hook w3m-arrived-shutdown-functions w3m-session-crash-recovery-remove t w3m-session-automatic-save provide w3m-session] 4)