;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312%\210\305\313\307\314\311\306\311\315&\207" [require cl-lib help-mode bui-button bui-utils custom-declare-group bui-history nil "Settings for BUI buffers history." :group bui bui-history-faces "Faces for history buttons." bui-faces] 8) #@123 Current item of the history. A list of the form (FUNCTION [ARGS ...]). The item is used by calling (apply FUNCTION ARGS). (defvar bui-history-stack-item nil (#$ . 413)) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local bui-history-stack-item put permanent-local t] 4) #@97 Stack (list) of visited items. Each element of the list has a form of `bui-history-stack-item'. (defvar bui-history-back-stack nil (#$ . 713)) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local bui-history-back-stack put permanent-local t] 4) #@121 Stack (list) of items visited with `bui-history-back'. Each element of the list has a form of `bui-history-stack-item'. (defvar bui-history-forward-stack nil (#$ . 988)) (byte-code "\300\301!\210\302\301\303\304#\210\305\306\307\310\311DD\312\313\314\315\316&\210\302\306\303\304#\207" [make-variable-buffer-local bui-history-forward-stack put permanent-local t custom-declare-variable bui-history-size funcall function #[0 "\300\207" [16] 1] "Maximum number of items saved in history.\nIf 0, the history is disabled.\nIf nil, the history is infinite (until Emacs eats all your memory :-))." :type (choice integer (const :tag "Infinite" nil)) :group bui-history] 8) #@33 Add ITEM to history. (fn ITEM) (defalias 'bui-history-add #[257 "\203 B\304\211 \205A G Y\205A \304\305 \304:\203;@\262X\203;B\262A\262T\262\202\211\237\266\205\211\207" [bui-history-stack-item bui-history-back-stack bui-history-forward-stack bui-history-size nil 1] 8 (#$ . 1661)]) #@55 Replace current item in history with ITEM. (fn ITEM) (defalias 'bui-history-replace #[257 "\211\211\207" [bui-history-stack-item] 3 (#$ . 1977)]) #@94 Go to the ITEM of history. ITEM should have the form of `bui-history-stack-item'. (fn ITEM) (defalias 'bui-history-goto #[257 "\211<\204 \301\302!\210\211\303@A\"\207" [bui-history-stack-item error "Wrong value of history element" apply] 4 (#$ . 2131)]) #@67 Go back to the previous element of history in the current buffer. (defalias 'bui-history-back #[0 "\204\303\304!\210 \nB\305\211A\242!\207" [bui-history-back-stack bui-history-stack-item bui-history-forward-stack user-error "No previous element in history" bui-history-goto] 3 (#$ . 2396) nil]) #@66 Go forward to the next element of history in the current buffer. (defalias 'bui-history-forward #[0 "\204\303\304!\210 \nB\305\211A\242!\207" [bui-history-forward-stack bui-history-stack-item bui-history-back-stack user-error "No next element in history" bui-history-goto] 3 (#$ . 2703) nil]) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\304\316&\210\306\317\310\311\320DD\321\314\315\304\316&\210\322\316\323\324\325\301%\207" [custom-declare-face bui-history-button ((t :inherit button)) "Face used for history buttons (back/forward)." :group bui-history-faces custom-declare-variable bui-history-back-label funcall function #[0 "\207" [help-back-label] 1] "Label of a button used to move backward by history." :type string bui-history bui-history-forward-label #[0 "\207" [help-forward-label] 1] "Label of a button used to move forward by history." define-button-type :supertype bui face] 8) #@264 Insert history button with LABEL at point. ACTION is a function called without arguments when the button is pressed. MESSAGE is a button help message. See `insert-text-button' for the meaning of PROPERTIES. (fn LABEL ACTION &optional MESSAGE &rest PROPERTIES) (defalias 'bui-history-insert-button #[898 "\300\301\302\303\304\305 \"\306&\207" [apply bui-insert-button bui-history action make-closure #[257 "\300 \207" [V0] 2 "\n\n(fn BTN)"] help-echo] 13 (#$ . 3646)]) #@57 Insert back/forward history buttons at point if needed. (defalias 'bui-history-insert-buttons #[0 " \206 \211\203\304 \210\203\305\n\306\307#\210\203)\203#\310c\210\305 \311\312#\210\211\205/\304 \207" [bui-history-back-stack bui-history-forward-stack bui-history-back-label bui-history-forward-label bui-newline bui-history-insert-button bui-history-back "Go back to the previous info" " " bui-history-forward "Go forward to the next info"] 7 (#$ . 4130)]) (provide 'bui-history)