;ELC ;;; Compiled by proclus@darwintel on Wed Jan 2 15:45:52 2008 ;;; from file /mnt/gmirror/ports/deskutils/howm/work/howm-1.3.4/riffle.el ;;; in Emacs version 21.2.1 ;;; with bytecomp version 1.1.1.4 ;;; 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 "`riffle.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require howm-cl gfunc] 2) #@47 Size of summary window, or nil for half size. (custom-declare-variable 'howm-view-summary-window-size 'nil '(#$ . 692) :type '(radio (const :tag "Half" nil) integer) :group 'howm-list-bufwin) #@139 If t, split window horizontally to show summary and contents. If nil, split vertically. Otherwise, split horizontally at only first time. (custom-declare-variable 'howm-view-split-horizontally 'nil '(#$ . 891) :type '(radio (const :tag "Vertically" nil) (const :tag "Horizontally" t) (const :tag "Horizontally at only first time" 1)) :group 'howm-list-bufwin) #@107 If nil, split windows automatically for summary and contents even if you delete other windows explicitly. (custom-declare-variable 'howm-view-keep-one-window 'nil '(#$ . 1258) :type 'boolean :group 'howm-list-bufwin) #@40 If non-nil, Override `pop-up-windows'. (custom-declare-variable 'howm-view-pop-up-windows 't '(#$ . 1481) :type 'boolean :group 'howm-list-bufwin) (byte-code "\301B\306\301!\204\f\307\302B\306\302!\204\310\303B\306\303!\204$\311\304B\306\304!\2040\311\305B\306\305!\204<\311\312B\306\312!\204I\311\n\313B\306\313!\204V\311 \314\303!\210\314\304!\210\314\305!\210\314\312!\210\314\313!\207" [current-load-list howm-view-search-recenter *riffle-summary-check* riffle-name riffle-item-list riffle-type boundp 5 t nil riffle-summary-last-line riffle-contents-end make-variable-buffer-local] 2) (defalias 'riffle-name #[nil "\207" [riffle-name] 1]) (defalias 'riffle-item-list #[nil "\207" [riffle-item-list] 1]) (defalias 'riffle-set-item-list #[(item-list) "\211\207" [item-list riffle-item-list] 2]) (defalias 'riffle-p #[nil "\207" [riffle-type] 1]) (defalias 'riffle-contents-first-time-p #[nil "?\207" [riffle-contents-end] 1]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list *riffle-preview-p* boundp nil] 2) (defalias 'riffle-preview-p #[nil "\207" [*riffle-preview-p*] 1]) (put 'riffle-define-derived-mode 'lisp-indent-hook 3) (defalias 'riffle-define-derived-mode '(macro . #[(child parent name &optional docstring &rest body) "\305 \n \306\307\310\307\fBBBBBBBBB\207" [child parent name docstring body define-derived-mode :syntax-table nil :abbrev-table] 10])) (defalias 'riffle-type #[(&rest r) "\207" [riffle-type] 1]) (byte-code "\301B\303\301!\204 \304C\301\301\207" [current-load-list riffle-dispatchers *gfunc-dispatchers-var* boundp riffle-type] 2) #@237 Generic function. ARGS = (item) Internally, riffle-home___ is called according to the type of ARGS. The type part ___ is determined by functions in the list `riffle-dispatchers'. This function is generated by `gfunc-define-function'. (defalias 'riffle-home #[(&rest args) "\302\303 #\207" [riffle-dispatchers args gfunc-call riffle-home] 4 (#$ . 3114)]) #@245 Generic function. ARGS = (item) Internally, riffle-summary-item___ is called according to the type of ARGS. The type part ___ is determined by functions in the list `riffle-dispatchers'. This function is generated by `gfunc-define-function'. (defalias 'riffle-summary-item #[(&rest args) "\302\303 #\207" [riffle-dispatchers args gfunc-call riffle-summary-item] 4 (#$ . 3478)]) #@246 Generic function. ARGS = (item) Internally, riffle-contents-item___ is called according to the type of ARGS. The type part ___ is determined by functions in the list `riffle-dispatchers'. This function is generated by `gfunc-define-function'. (defalias 'riffle-contents-item #[(&rest args) "\302\303 #\207" [riffle-dispatchers args gfunc-call riffle-contents-item] 4 (#$ . 3866)]) #@246 Generic function. ARGS = nil Internally, riffle-summary-set-mode___ is called according to the type of ARGS. The type part ___ is determined by functions in the list `riffle-dispatchers'. This function is generated by `gfunc-define-function'. (defalias 'riffle-summary-set-mode #[(&rest args) "\302\303 #\207" [riffle-dispatchers args gfunc-call riffle-summary-set-mode] 4 (#$ . 4257)]) #@247 Generic function. ARGS = nil Internally, riffle-contents-set-mode___ is called according to the type of ARGS. The type part ___ is determined by functions in the list `riffle-dispatchers'. This function is generated by `gfunc-define-function'. (defalias 'riffle-contents-set-mode #[(&rest args) "\302\303 #\207" [riffle-dispatchers args gfunc-call riffle-contents-set-mode] 4 (#$ . 4654)]) #@249 Generic function. ARGS = nil Internally, riffle-summary-name-format___ is called according to the type of ARGS. The type part ___ is determined by functions in the list `riffle-dispatchers'. This function is generated by `gfunc-define-function'. (defalias 'riffle-summary-name-format #[(&rest args) "\302\303 #\207" [riffle-dispatchers args gfunc-call riffle-summary-name-format] 4 (#$ . 5054)]) #@250 Generic function. ARGS = nil Internally, riffle-contents-name-format___ is called according to the type of ARGS. The type part ___ is determined by functions in the list `riffle-dispatchers'. This function is generated by `gfunc-define-function'. (defalias 'riffle-contents-name-format #[(&rest args) "\302\303 #\207" [riffle-dispatchers args gfunc-call riffle-contents-name-format] 4 (#$ . 5460)]) #@244 Generic function. ARGS = (item) Internally, riffle-post-update___ is called according to the type of ARGS. The type part ___ is determined by functions in the list `riffle-dispatchers'. This function is generated by `gfunc-define-function'. (defalias 'riffle-post-update #[(&rest args) "\302\303 #\207" [riffle-dispatchers args gfunc-call riffle-post-update] 4 (#$ . 5869)]) #@47 Hook run at the end of function `riffle-mode' (custom-declare-variable 'riffle-mode-hook 'nil '(#$ . 6253) :type 'hook :group 'howm-hook) (byte-code "\301B\304\301!\204\f\305\302B\304\302!\204\306 \303B\304\303!\204%\305\305\207" [current-load-list riffle-mode-map riffle-mode-syntax-table riffle-mode-abbrev-table boundp nil make-syntax-table] 2) #@9 not yet (defalias 'riffle-mode #[nil "\304\305\306\n!\210\307 !\210\310\311\312\"\210\313\314!\207" [major-mode mode-name riffle-mode-map riffle-mode-syntax-table riffle-mode "Riffle" use-local-map set-syntax-table define-abbrev-table riffle-mode-abbrev-table nil run-hooks riffle-mode-hook] 3 (#$ . 6619)]) #@227 Create summary buffer for NAME, ITEM-LIST, and TYPE. When NAME is nil, default values for them are selected. Created buffer is shown immediately as far as BACKGROUND is nil. This function returns effective value of ITEM-LIST. (defalias 'riffle-summary #[(&optional name item-list type background) "\204\f\306 \307 \n \205'\f\310\311 $\210  \204%\312 \"\210 )\207" [name item-list riffle-type type default-directory d riffle-name riffle-item-list riffle-setup-buffer riffle-summary-name-format riffle-summary-subr background] 5 (#$ . 6936)]) (defalias 'riffle-summary-subr #[(name item-list) "\301 \210\302!\210\303\304!\207" [item-list riffle-summary-set-mode riffle-summary-show riffle-summary-check t] 2]) (defalias 'riffle-summary-show #[(item-list) "\304 \210\305\306 \210\307\310 \"\210\311\305!\210\312\312eb\210\313\211\207" [buffer-read-only item-list truncate-lines riffle-summary-last-line buffer-disable-undo nil erase-buffer mapc riffle-summary-show-item set-buffer-modified-p t -777] 3]) (defalias 'riffle-summary-show-item #[(item) "\301!\302\261\207" [item riffle-summary-item "\n"] 2]) (byte-code "\301B\303\301!\204 \304 \302B\303\302!\204\305\306\307\"\310B\311\310\307\"\210\312\313\314\315#\207" [current-load-list riffle-summary-mode-map riffle-summary-mode-syntax-table boundp make-sparse-keymap make-char-table syntax-table nil riffle-summary-mode-abbrev-table define-abbrev-table put riffle-summary-mode derived-mode-parent riffle-mode] 4) #@202 not yet In addition to any hooks its parent mode `riffle-mode' might have run, this mode runs the hook `riffle-summary-mode-hook', as the final step during initialization. \{riffle-summary-mode-map} (defalias 'riffle-summary-mode #[nil "\306 \210\306\307N\203\310\311\307\312#\210\311\313\314\n!\204\315\n\316 \"\210\317 !\211\203.\f\320 =\2034\321 \322 \"\210) \203>\323\324 \"\210\325\n!\210\326 !\210\327\330!\210\331\330\332\312\211$\210\333\334!\207" [major-mode mode-name riffle-summary-mode-map riffle-summary-mode-syntax-table parent local-abbrev-table riffle-mode special put riffle-summary-mode t "RiffleS" keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table mapatoms #[(symbol) "\302\303! \"\206\304 \303!JK$\207" [symbol riffle-summary-mode-abbrev-table intern-soft symbol-name define-abbrev] 5] use-local-map set-syntax-table make-local-hook post-command-hook add-hook riffle-post-command run-hooks riffle-summary-mode-hook riffle-summary-mode-abbrev-table] 6 (#$ . 8438) nil]) (defalias 'riffle-post-command #[nil "\203\301 \207\302\211\207" [*riffle-summary-check* riffle-summary-check t] 2]) (defalias 'riffle-summary-current-item #[nil "\301 \211S\302 8)\207" [n riffle-line-number riffle-item-list] 3]) (defalias 'riffle-summary-check #[(&optional force) "\n\203 \306 \210\307\310 \211\fU\203\n\205- \311 \211\205, \205,\312 \n\")+\207" [howm-view-keep-one-window keep-one force n riffle-summary-last-line item riffle-refresh-window-configuration nil riffle-line-number riffle-summary-current-item riffle-summary-update *riffle-summary-check*] 4]) (defalias 'riffle-summary-update #[(item &optional new) "\305\306 \203 \203\307\202\n\305=\203\310 \210\205!\311 \f\")\207" [execute howm-view-keep-one-window howm-view-split-horizontally item new t one-window-p nil split-window-horizontally riffle-summary-update-subr] 3]) (defalias 'riffle-summary-update-subr #[(item &optional new) "\306\307 !\310 \f\206 \311 \312\n\"\210\313C$\210eb\210\314!\211\247\203@b\210\315!\210\316 !\210\317!.\207" [*riffle-preview-p* new vbuf cwin pop-up-windows howm-view-pop-up-windows t riffle-contents-buffer selected-window riffle-name riffle-pop-to-buffer riffle-contents riffle-home recenter select-window riffle-post-update name riffle-type type howm-view-summary-window-size item default-directory home howm-view-search-recenter] 6]) (defalias 'riffle-pop-window #[nil "\301 \211\203 \302\303!\210)\207" [r one-window-p riffle-summary-check t] 3 nil nil]) (defalias 'riffle-pop-or-scroll-other-window #[nil "\300 \206\301 \207" [riffle-pop-window scroll-other-window] 1 nil nil]) (defalias 'riffle-toggle-window #[nil "\300 \206\301 \207" [riffle-pop-window delete-other-windows] 1 nil nil]) (defalias 'riffle-summary-to-contents #[nil "p\304 \210q\210\305 \306\307 \310 \n $\210\311 S!b*\207" [b n riffle-type default-directory delete-other-windows riffle-line-number riffle-contents riffle-name riffle-item-list riffle-contents-beginning] 5 nil nil]) (defalias 'riffle-contents #[(name item-list type default-dir) "\204\305\306!\207\307\310 \n$\210 \311 \203\312 \210\313!\207" [item-list name type default-dir default-directory message "Empty." riffle-setup-buffer riffle-contents-name-format riffle-contents-first-time-p riffle-contents-set-mode riffle-contents-show] 5]) (byte-code "\301B\303\301!\204 \304 \302B\303\302!\204\305\306\307\"\310B\311\310\307\"\210\312\313\314\315#\207" [current-load-list riffle-contents-mode-map riffle-contents-mode-syntax-table boundp make-sparse-keymap make-char-table syntax-table nil riffle-contents-mode-abbrev-table define-abbrev-table put riffle-contents-mode derived-mode-parent riffle-mode] 4) #@204 not yet In addition to any hooks its parent mode `riffle-mode' might have run, this mode runs the hook `riffle-contents-mode-hook', as the final step during initialization. \{riffle-contents-mode-map} (defalias 'riffle-contents-mode #[nil "\306 \210\306\307N\203\310\311\307\312#\210\311\313\314\n!\204\315\n\316 \"\210\317 !\211\203.\f\320 =\2034\321 \322 \"\210) \203>\323\324 \"\210\325\n!\210\326 !\210\327\330!\207" [major-mode mode-name riffle-contents-mode-map riffle-contents-mode-syntax-table parent local-abbrev-table riffle-mode special put riffle-contents-mode t "RiffleC" keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table mapatoms #[(symbol) "\302\303! \"\206\304 \303!JK$\207" [symbol riffle-contents-mode-abbrev-table intern-soft symbol-name define-abbrev] 5] use-local-map set-syntax-table run-hooks riffle-contents-mode-hook riffle-contents-mode-abbrev-table] 5 (#$ . 12282) nil]) (defalias 'riffle-contents-show #[(item-list) "\303 \210\304\305 \210\306\307 \"\310\304!\210\311eb\207" [buffer-read-only item-list riffle-contents-end buffer-disable-undo nil erase-buffer mapcar #[(item) "\301!\207" [item riffle-contents-show-item] 2] set-buffer-modified-p t] 3]) (defalias 'riffle-contents-show-item #[(item) "\301!c\210`\207" [item riffle-contents-item] 2]) (defalias 'riffle-contents-item-number #[(position) "\304\n\203\n@ X\203\nA T\202 GS^*\207" [riffle-contents-end n rest position 0] 2]) (defalias 'riffle-contents-current-item #[nil "\300`!\301 8\207" [riffle-contents-item-number riffle-item-list] 2]) (defalias 'riffle-contents-beginning #[(n) "\302 B8\207" [n riffle-contents-end 1] 3]) (defalias 'riffle-contents-to-summary #[nil "\302`!\303\304 \305 #\210\306T!)\207" [n riffle-type riffle-contents-item-number riffle-summary riffle-name riffle-item-list goto-line] 4 nil nil]) (defalias 'riffle-contents-goto-next-item #[(&optional n) "`\306\307\310\311 !BB\312\"!\313\n\"\211\f\\\211\314W\203'eb\210\315\316!\202; \nGY\2037db\210\315\317!\202; \n8b,\207" [c riffle-contents-end stops pos n new howm-cl-remove-duplicates sort 1 copy-sequence < howm-cl-position 0 error "Beginning of buffer" "End of buffer"] 7 nil "p"]) (defalias 'riffle-contents-goto-previous-item #[(&optional n) "\301[!\207" [n riffle-contents-goto-next-item] 2 nil "p"]) (defalias 'riffle-summary-buffer #[(&optional new) "\301\302 \303#\207" [new riffle-get-buffer riffle-summary-name-format nil] 4]) (defalias 'riffle-contents-buffer #[(&optional new) "\301\302 \303#\207" [new riffle-get-buffer riffle-contents-name-format nil] 4]) (defalias 'riffle-get-buffer #[(name-format &optional name new) "\305 \206\306 \"\307\n!\f\203 \203\310 !\210\311\n!*\207" [name-format name bufname buf new format riffle-name get-buffer kill-buffer get-buffer-create] 3]) (defalias 'riffle-kill-buffer #[nil "\303 \205\"\304 \305 \306!\211\203\307\n!\210\310!\210\310 !\210\311 +\207" [s c sw riffle-p riffle-summary-buffer riffle-contents-buffer get-buffer-window select-window kill-buffer riffle-restore-window-configuration] 3 nil nil]) (defalias 'riffle-setup-buffer #[(name-format-func name item-list type) "\n )\306\307 \f\"!\210\f\211 )\207" [type riffle-type name-format-func name-format name riffle-name switch-to-buffer riffle-get-buffer item-list riffle-item-list] 4]) (defalias 'riffle-line-number #[(&optional pos) "\212\203b\210\302e`\"n\203 T\202 *\207" [pos raw count-lines] 3]) (defalias 'riffle-persistent-p #[(z) "\301!\207" [z riffle-get-value] 2]) (defalias 'riffle-get-value #[(z) "\301!\203  \207\207" [z functionp] 2]) (defalias 'riffle-restore-window-configuration #[nil "\300 \207" [riffle-refresh-window-configuration] 1]) (defalias 'riffle-refresh-window-configuration #[nil "\300 \203\301 \207\302 \207" [riffle-p riffle-setup-window-configuration delete-other-windows] 1]) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list riffle-window-initializer boundp delete-other-windows] 2) (defalias 'riffle-setup-window-configuration #[nil "p\305 \306 \307 !\203 \210\310!\210\311\f\"\210\310 !\210\312\313\n!!+\207" [c s orig riffle-window-initializer howm-view-summary-window-size riffle-summary-buffer riffle-contents-buffer functionp switch-to-buffer riffle-pop-to-buffer select-window get-buffer-window] 3]) (defalias 'riffle-scroll-up #[(count) "\301!\207" [count scroll-up] 2 nil "p"]) (defalias 'riffle-scroll-down #[(count) "\301!\207" [count scroll-down] 2 nil "p"]) (defalias 'riffle-scroll-other-window #[(count) "\301!\207" [count scroll-other-window] 2 nil "p"]) (defalias 'riffle-scroll-other-window-down #[(count) "\301!\207" [count scroll-other-window-down] 2 nil "p"]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list even-window-heights boundp nil] 2) (defalias 'riffle-pop-to-buffer #[(buf &optional size) "\304 \203 \305\306 #\210?\205\n\307 !)\207" [size howm-view-split-horizontally even-window-heights buf one-window-p split-window nil pop-to-buffer] 4]) (defalias 'riffle-set-place #[(place) "\301!\207" [place goto-line] 2]) (defalias 'riffle-get-place #[(&optional point) "\301!\207" [point riffle-line-number] 2]) (defalias 'riffle-set-mode-maybe #[(mode) " =?\205 \207" [major-mode mode] 2]) (byte-code "\306 \307\310\311#\210\307\312\313#\210\307\314\315#\210\307\316\317#\210)\n\307\320\321#\210\307\322\323#\210\307\324\323#\210\307\325\326#\210\307\327\330#\210\307\331\332#\210\307\333\332#\210\307\334\335#\210\307\336\337#\210\307\340\341#\210) \307\320\342#\210\307\343\344#\210\307\324\344#\210\307\325\345#\210\307\327\346#\210\307\331\347#\210\307\333\347#\210\307\350\351#\210\307\352\353#\210\307\354\351#\210\307\355\353#\210)\305\fB\356\305!\204\256\357\360\fB\356\360!\204\273\3610\362\fB\356\362!\204\310\3632\364\fB\356\364!\204\325\3654\306\207" [m riffle-mode-map riffle-summary-mode-map riffle-contents-mode-map current-load-list riffle-sample-item-list make-sparse-keymap define-key "n" next-line "p" previous-line "?" describe-mode "q" riffle-kill-buffer " " riffle-pop-or-scroll-other-window [backspace] scroll-other-window-down "" "j" riffle-scroll-other-window "k" riffle-scroll-other-window-down "@" riffle-summary-to-contents "0" "1" delete-other-windows "2" riffle-pop-window "v" riffle-toggle-window scroll-up [backspace] scroll-down riffle-scroll-up riffle-scroll-down riffle-contents-to-summary " " riffle-contents-goto-next-item "\211" riffle-contents-goto-previous-item [tab] [(meta tab)] boundp (("foo1" "foo1 line1\nfoo1 line2\nfoo1 line3\nfoo1 line4\n") ("foo2" "foo2 line1\nfoo2 line2\nfoo2 line3\nfoo2 line4\n") ("bar1" "bar1 line1\nbar1 line2\nbar1 line3\nbar1 line4\n") ("bar2" "bar2 line1\nbar2 line2\nbar2 line3\nbar2 line4\n")) riffle-sample-summary-name "sampleS:%s" riffle-sample-contents-name "sampleC:%s" riffle-sample-cursor-point 3] 4) (defalias 'riffle-home:sample #[(item) "\207" [riffle-sample-cursor-point] 1]) (defalias 'riffle-summary-item:sample #[(item) "@\207" [item] 1]) (defalias 'riffle-contents-item:sample #[(item) "\302\303@\"\211A@)\304Q\207" [item x format "<%s>\n" "\n"] 4]) (defalias 'riffle-summary-set-mode:sample #[nil "\300 \207" [riffle-sample-summary-mode] 1]) (defalias 'riffle-contents-set-mode:sample #[nil "\300 \207" [riffle-sample-contents-mode] 1]) (defalias 'riffle-summary-name-format:sample #[nil "\207" [riffle-sample-summary-name] 1]) (defalias 'riffle-contents-name-format:sample #[nil "\207" [riffle-sample-contents-name] 1]) (defalias 'riffle-post-update:sample #[(item) "\301\302@\"\207" [item message "%s"] 3]) (byte-code "\301B\303\301!\204 \304 \302B\303\302!\204\305\306\307\"\310B\311\310\307\"\210\312\313\314\315#\207" [current-load-list riffle-sample-summary-mode-map riffle-sample-summary-mode-syntax-table boundp make-sparse-keymap make-char-table syntax-table nil riffle-sample-summary-mode-abbrev-table define-abbrev-table put riffle-sample-summary-mode derived-mode-parent riffle-summary-mode] 4) #@747 Sample summary mode. key binding --- ------- \[next-line] Next item \[previous-line] Previous item \[riffle-pop-or-scroll-other-window] Pop and scroll contents \[scroll-other-window-down] Scroll contents \[riffle-scroll-other-window] Scroll contents one line \[riffle-scroll-other-window-down] Scroll contents one line \[riffle-summary-to-contents] Concatenate all contents \[delete-other-windows] Delete contents window \[riffle-pop-window] Pop contents window \[riffle-toggle-window] Toggle contents window \[describe-mode] This help \[riffle-kill-buffer] Quit In addition to any hooks its parent mode `riffle-summary-mode' might have run, this mode runs the hook `riffle-sample-summary-mode-hook', as the final step during initialization. (defalias 'riffle-sample-summary-mode #[nil "\306 \210\306\307N\203\310\311\307\312#\210\311\313\314\n!\204\315\n\316 \"\210\317 !\211\203.\f\320 =\2034\321 \322 \"\210) \203>\323\324 \"\210\325\n!\210\326 !\210\327\330!\207" [major-mode mode-name riffle-sample-summary-mode-map riffle-sample-summary-mode-syntax-table parent local-abbrev-table riffle-summary-mode special put riffle-sample-summary-mode t "SampleS" keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table mapatoms #[(symbol) "\302\303! \"\206\304 \303!JK$\207" [symbol riffle-sample-summary-mode-abbrev-table intern-soft symbol-name define-abbrev] 5] use-local-map set-syntax-table run-hooks riffle-sample-summary-mode-hook riffle-sample-summary-mode-abbrev-table] 5 (#$ . 20426) nil]) (byte-code "\301B\303\301!\204 \304 \302B\303\302!\204\305\306\307\"\310B\311\310\307\"\210\312\313\314\315#\207" [current-load-list riffle-sample-contents-mode-map riffle-sample-contents-mode-syntax-table boundp make-sparse-keymap make-char-table syntax-table nil riffle-sample-contents-mode-abbrev-table define-abbrev-table put riffle-sample-contents-mode derived-mode-parent riffle-contents-mode] 4) #@605 Sample contents mode. key binding --- ------- \[next-line] Next line \[previous-line] Previous line \[scroll-up] Scroll up \[scroll-down] Scroll down \[riffle-scroll-up] Scroll one line up \[riffle-scroll-down] Scroll one line down \[riffle-contents-to-summary] Summary \[riffle-contents-goto-next-item] Next item \[riffle-contents-goto-previous-item] Previous item \[describe-mode] This help \[riffle-kill-buffer] Quit In addition to any hooks its parent mode `riffle-contents-mode' might have run, this mode runs the hook `riffle-sample-contents-mode-hook', as the final step during initialization. (defalias 'riffle-sample-contents-mode #[nil "\306 \210\306\307N\203\310\311\307\312#\210\311\313\314\n!\204\315\n\316 \"\210\317 !\211\203.\f\320 =\2034\321 \322 \"\210) \203>\323\324 \"\210\325\n!\210\326 !\210\327\330!\207" [major-mode mode-name riffle-sample-contents-mode-map riffle-sample-contents-mode-syntax-table parent local-abbrev-table riffle-contents-mode special put riffle-sample-contents-mode t "SampleC" keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table mapatoms #[(symbol) "\302\303! \"\206\304 \303!JK$\207" [symbol riffle-sample-contents-mode-abbrev-table intern-soft symbol-name define-abbrev] 5] use-local-map set-syntax-table run-hooks riffle-sample-contents-mode-hook riffle-sample-contents-mode-abbrev-table] 5 (#$ . 22434) nil]) (defalias 'riffle-sample #[nil "\301\302\303#\207" [riffle-sample-item-list riffle-summary "sample-list" :sample] 4 nil nil]) (provide 'riffle)