Current File : //usr/local/share/emacs/27.2/lisp/textmodes/page-ext.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315%\210\306\316\310\311\317DD\320\314\315%\210\306\321\310\311\322DD\323\314\315%\210\306\324\310\311\325DD\326\314\327%\210\306\330\310\311\331DD\332\314\315%\210\306\333\310\311\334DD\335\314\315%\210\306\336\310\311\337DD\340\314\315%\207" [custom-declare-group pages nil "Extended page-handling commands." :group extensions custom-declare-variable pages-directory-buffer-narrowing-p funcall function #[0 "\300\207" [t] 1] "If non-nil, `pages-directory-goto' narrows pages buffer to entry." :type boolean pages-directory-for-adding-page-narrowing-p #[0 "\300\207" [t] 1] "If non-nil, `add-new-page' narrows page buffer to new entry." pages-directory-for-adding-new-page-before-current-page-p #[0 "\300\207" [t] 1] "If non-nil, `add-new-page' inserts new page before current page." pages-addresses-file-name #[0 "\300\207" [#1="~/addresses"] 1 #1#] "Standard name for file of addresses. Entries separated by page-delimiter.\nUsed by `pages-directory-for-addresses' function." file pages-directory-for-addresses-goto-narrowing-p #[0 "\300\207" [t] 1] "If non-nil, `pages-directory-goto' narrows addresses buffer to entry." pages-directory-for-addresses-buffer-keep-windows-p #[0 "\300\207" [t] 1] "If nil, `pages-directory-for-addresses' deletes other windows." pages-directory-for-adding-addresses-narrowing-p #[0 "\300\207" [t] 1] "If non-nil, `add-new-page' narrows addresses buffer to new entry."] 6)
#@65 Keymap for subcommands of C-x C-p, which are for page handling.
(defvar pages--ctl-x-ctl-p-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\211\207" [make-sparse-keymap define-key "" pages-next-page "" pages-previous-page "" pages-add-new-page "
" mark-page "" pages-search "s" pages-sort-buffer "\f" pages-set-delimiter "" pages-directory "d" pages-directory-for-addresses] 5) (#$ . 1887))
(byte-code "\302\303!\210\304\305\306#\210\307\310\306\311#\210\312\310\306\313#\210\307\306 \"\210\307\314\315\311#\210\312\314\315\313#\207" [ctl-x-map pages--ctl-x-ctl-p-map global-unset-key "" define-key "" pages-ctl-x-ctl-p-prefix defalias ctl-x-ctl-p-prefix nil make-obsolete "27.1" next-page pages-next-page] 4)
#@143 Move to the next page bounded by the `page-delimiter' variable.
With arg (prefix if interactive), move that many pages.
(fn &optional COUNT)
(defalias 'pages-next-page #[256 "\211\204 \301\262~\210\211\302Y\203+ \211\302V\203T m\204T \303\304\305#\204$ db\210\211S\262\202 \211\301W\203T o\204T \306\304\305#\203J \211\302U\203M \302\225b\210\202M eb\210\211T\262\202+ \307 \210eb\210\310\302!\207" [page-delimiter 1 0 re-search-forward nil t re-search-backward narrow-to-page recenter] 5 (#$ . 2748) "p"])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias previous-page pages-previous-page nil make-obsolete "27.1"] 4)
#@147 Move to the previous page bounded by the `page-delimiter' variable.
With arg (prefix if interactive), move that many pages.
(fn &optional COUNT)
(defalias 'pages-previous-page #[256 "\211\204 \300\262\301[!\207" [1 pages-next-page] 3 (#$ . 3399) "p"])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias add-new-page pages-add-new-page nil make-obsolete "27.1"] 4)
#@561 Insert new page. Prompt for header line.
If point is in the pages directory buffer, insert the new page in the
buffer associated with the directory.
Insert the new page just before current page if
`pages-directory-for-adding-new-page-before-current-page-p' is non-nil.
Else insert at exact location of point.
Narrow to new page if `pages-directory-for-adding-page-narrowing-p' is
non-nil.
Page begins with a `^L' as the default `page-delimiter'.
Use \[set-page-delimiter] to change the page-delimiter.
Point is left in the body of page.
(fn HEADER-LINE)
(defalias 'pages-add-new-page #[257 "~\210\304=\203 \203 \305 \210\202 \305 \210\306 \210m\204 \307y\210~\210 \203L \310\n\311\312#\2034 \313\224b\210\202L eb\210\314\315\316\n!@\317=\205F \320\n\321\"\"c\210eb\210\322\323!\204U \321y\210\314\324\316\n!@\317=\205d \320\n\321\"#c\210\307y\210 \205q \325 \207" [major-mode pages-directory-for-adding-new-page-before-current-page-p page-delimiter pages-directory-for-adding-page-narrowing-p pages-directory-mode pages-directory-goto forward-page -1 re-search-backward nil t 0 format "%s\n" read-from-string ^ substring 1 looking-at "^." "%s\n%s\n\n\n" narrow-to-page] 6 (#$ . 3789) "sHeader line: "])
#@53 Value of last regexp searched for. Initially, nil.
(defvar pages-last-search nil (#$ . 5011))
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias search-pages pages-search nil make-obsolete "27.1"] 4)
#@83 Search for REGEXP, starting from point, and narrow to page it is in.
(fn REGEXP)
(defalias 'pages-search #[257 "\211\301\232\203\f \262\202 \211~\210\302!\210\303 \207" [pages-last-search "" re-search-forward narrow-to-page] 3 (#$ . 5233) (byte-code "\301\302\303\206 \304\"!C\207" [pages-last-search read-string format-message "Search for `%s' (end with RET): " "regexp"] 4)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias sort-pages-in-region pages-sort-region nil make-obsolete "27.1"] 4)
#@213 Sort pages in region alphabetically. Prefix arg means reverse order.
Called from a program, there are three arguments:
REVERSE (non-nil means reverse order), BEG and END (region to sort).
(fn REVERSE BEG END)
(defalias 'pages-sort-region #[771 "\214}\210eb\210\300\301\302#)\207" [sort-subr #[0 "\301\302\303#\210\304\302w\207" [page-delimiter re-search-forward nil t " \n"] 4] #[0 "\301\302\303#\203\f \304\224b\207db\207" [page-delimiter re-search-forward nil t 0] 4]] 7 (#$ . 5760) "P\nr"])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias sort-pages-buffer pages-sort-buffer nil make-obsolete "27.1"] 4)
#@129 Sort pages alphabetically in buffer. Prefix arg means reverse order.
(Non-nil arg if not interactive.)
(fn &optional REVERSE)
(defalias 'pages-sort-buffer #[256 "\211\204 \300\262~\210ed\301#\207" [nil pages-sort-region] 7 (#$ . 6401) "P"])
#@154 Value of previous regexp used by `pages-directory'.
(This regular expression may be used to select only those pages that
contain matches to the regexp.)
(defvar pages-directory-previous-regexp nil (#$ . 6656))
#@74 The buffer for which the pages-directory function creates the directory.
(defvar pages-buffer nil (#$ . 6872))
(make-variable-buffer-local 'pages-buffer)
#@57 Prefix of name of temporary buffer for pages-directory.
(defvar pages-directory-prefix "*Directory for:" (#$ . 7032))
#@65 List containing the positions of the pages in the pages-buffer.
(defvar pages-pos-list nil (#$ . 7156))
(byte-code "\300\301!\210\302\303\304\305#\210\306\211\203, \211@\303N\203% \304N\204% \307\304\303N#\210A\266\202\202 \210\310\303\304\311#\207" [make-variable-buffer-local pages-pos-list defvaralias pages-directory-map pages-directory-mode-map nil (saved-value saved-variable-comment) put make-obsolete-variable "26.1"] 7)
#@40 Keymap for the pages-directory-buffer.
(defvar pages-directory-mode-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\306#\210\301\307\303#\210\211\207" [make-sparse-keymap define-key "" pages-directory-goto "
" "" pages-add-new-page [mouse-2]] 5) (#$ . 7597))
#@25 Default page delimiter.
(defvar pages-original-delimiter "^\f" (#$ . 7887))
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias set-page-delimiter pages-set-delimiter nil make-obsolete "27.1"] 4)
#@307 Set buffer local value of page-delimiter to REGEXP.
Called interactively with a prefix argument, reset `page-delimiter' to
its original value.
In a program, non-nil second arg causes first arg to be ignored and
resets the page-delimiter to the original value.
(fn REGEXP RESET-P &optional INTERACTIVELY)
(defalias 'pages-set-delimiter #[770 "\302\300!\210\206 \302\301!\210\204 \202 \211\205 \303\304 \"\207" [pages-original-delimiter page-delimiter make-local-variable message "The value of `page-delimiter' is now: %s"] 6 (#$ . 8104) (byte-code "\203 \303\211E\207\304\305\n\"\306\303E\207" [current-prefix-arg pages-original-delimiter page-delimiter t read-regexp "Set page-delimiter to regexp: " nil] 3)])
#@1153 Display a directory of the page headers in a temporary buffer.
A header is the first non-blank line after the `page-delimiter'.
\[pages-directory-mode]
You may move point to one of the lines in the temporary buffer,
then use \<pages-directory-goto> to go to the same line in the pages buffer.
In interactive use:
1. With no prefix arg, display all headers.
2. With prefix arg, display the headers of only those pages that
contain matches to a regular expression for which you are
prompted.
3. With numeric prefix arg, for every page, print the number of
lines within each page.
4. With negative numeric prefix arg, for only those pages that
match a regular expression, print the number of lines within
each page.
When called from a program, non-nil first arg means list all headers;
non-nil second arg means print numbers of lines in each page; if first
arg is nil, optional third arg is regular expression.
If the buffer is narrowed, the `pages-directory' command creates a
directory for only the accessible portion of the buffer.
(fn PAGES-LIST-ALL-HEADERS-P COUNT-LINES-P &optional REGEXP)
(defalias 'pages-directory #[770 "\211\306\232\203\f \262\202 \211\307\310!\203 \311\312\313 \"\210p \314\313 Q`\315
r\316!q\210p\317 \210\320\211 !\321\211\"\321 # $\322 \210\323\324!\210+\211 %r%q\210\325 \210\320 \326\327\261\210\f&\320')\203\242 \212eb\210\214\212\330(\320\321#)\203\204 \315\224\331U\203\204 \315\225b\210\332 \210\333!\210)\330(\320\321#\203\236 \333!\210\202\215 )\202\333 \212eb\210\214\332 \210\212\330\320\321#)\203\271 \333!\210)\330(\320\321#\203\332 \214\332 \210\212\330\320\321#)\203\326 \333!\210)\202\272 )%q\210\321 '\237'\307\310!\203\367 \311\334'G\313\f!#\210\335!\210)\266\336!\210\337\315!\210\n\315U\203\331\202\ny+\207" [pages-directory-previous-regexp pages-directory-prefix pages-buffer-original-page pages-buffer-original-position pages-target-buffer default-directory "" called-interactively-p interactive message "Creating directory for: %s " buffer-name " " 0 get-buffer-create kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook pages-directory-mode "==== Pages Directory: use `C-c C-c' to go to page under cursor. ====" 10 re-search-forward 1 narrow-to-page pages-copy-header-and-position "%d matching lines in: %s" internal-temp-output-buffer-show pop-to-buffer sit-for buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only standard-output pages-buffer pages-pos-list page-delimiter] 13 (#$ . 8838) (byte-code "\204 \302\303\211E\207<\203 \303\211\304\305\306 \206 \307\"!E\207\310!\311V\203) \302\211\303E\207\310!\311W\205> \303\302\304\305\306 \206; \307\"!E\207" [current-prefix-arg pages-directory-previous-regexp t nil read-string format-message "Select according to `%s' (end with RET): " "regexp" prefix-numeric-value 0] 6)])
#@179 Copy page header and its position to the Pages Directory.
Only arg non-nil, count lines in page and insert before header.
Used by `pages-directory' function.
(fn COUNT-LINES-P)
(defalias 'pages-copy-header-and-position #[257 "\305\211\203 \212\214\306 \210\307ed\"\262*`X\203 T\212\310\305w\210\311 \262`\305\223\210`\312 \305\nq\210 B`\262\313\f#\210\314`\315#\210\316`\317\320$\266\203Z \212\321 \210\322\323\"c\210)\324 \210)\325\207" [pages-buffer-original-position pages-buffer-original-page standard-output pages-pos-list pages-target-buffer nil narrow-to-page count-lines " \n" make-marker line-end-position insert-buffer-substring add-text-properties (mouse-face highlight help-echo "mouse-2: go to this page") put-text-property rear-nonsticky highlight beginning-of-line format "%3d: " terpri 1] 11 (#$ . 11803)])
(defvar pages-directory-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [pages-directory-mode-hook variable-documentation put "Hook run after entering Pages-Directory mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp pages-directory-mode-map definition-name pages-directory-mode] 4)
(defvar pages-directory-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [pages-directory-mode-abbrev-table pages-directory-mode-map variable-documentation put purecopy "Keymap for `pages-directory-mode'." boundp pages-directory-mode-syntax-table definition-name pages-directory-mode (lambda (#1=#:def-tmp-var) (defvar pages-directory-mode-syntax-table #1#)) make-syntax-table "Syntax table for `pages-directory-mode'." (lambda (#1#) (defvar pages-directory-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `pages-directory-mode'." derived-mode-parent special-mode] 5)
#@354 Mode for handling the pages-directory buffer.
Move point to one of the lines in this buffer, then use \[pages-directory-goto] to go
to the same line in the pages buffer.
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `pages-directory-mode-hook', as the final or penultimate step
during initialization.
(defalias 'pages-directory-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
=\204R \326
\325C#\210\327 !\210\330\f!\210
)\331\332!\207" [delay-mode-hooks major-mode mode-name pages-directory-mode-map pages-directory-mode-syntax-table pages-directory-mode-abbrev-table make-local-variable t special-mode pages-directory-mode "Pages-Directory" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks pages-directory-mode-hook local-abbrev-table] 5 (#$ . 13931) nil])
#@73 Go to the corresponding line in the pages buffer.
(fn &optional EVENT)
(defalias 'pages-directory-goto #[256 "\211\203 \303!\210\203 \304!\204 \305\211\306\307!\210\310 \210\311e`\"S\211 8m\n\312!\210~\210\2035 d\2028 \313!b\210\211\205@ \314 \207" [pages-buffer pages-pos-list pages-directory-buffer-narrowing-p mouse-set-point buffer-name nil error "Buffer in which pages were found is deleted" beginning-of-line count-lines pop-to-buffer marker-position narrow-to-page] 8 (#$ . 15073) (list last-nonmenu-event)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias pages-directory-goto-with-mouse pages-directory-goto nil make-obsolete "26.1"] 4)
#@672 Find addresses file and display its directory.
By default, create and display directory of `pages-addresses-file-name'.
Optional argument is FILENAME. In interactive use, with prefix
argument, prompt for file name and provide completion.
Move point to one of the lines in the displayed directory,
then use \[pages-directory-goto] to go to the same line
in the addresses buffer.
If `pages-directory-for-addresses-goto-narrowing-p' is non-nil,
`pages-directory-goto' narrows addresses buffer to entry.
If `pages-directory-for-addresses-buffer-keep-windows-p' is nil,
this command deletes other windows when it displays the addresses
directory.
(fn &optional FILENAME)
(defalias 'pages-directory-for-addresses #[256 "\304\305!\203 \306\307\206
\"\210\310\206 !\203J \311\312\206 !!q\210~\210\313\314\315\211#\210\316\302!\210 \2049 \317 \210\212eb\210`\320 |\210\321c\210\322\315!)\207\323\324!\207" [pages-addresses-file-name pages-directory-for-addresses-goto-narrowing-p pages-directory-buffer-narrowing-p pages-directory-for-addresses-buffer-keep-windows-p called-interactively-p interactive message "Creating directory for: %s " file-exists-p find-file-noselect expand-file-name pages-directory t nil make-local-variable delete-other-windows line-end-position "=== Address List Directory: use `C-c C-c' to go to page under cursor. ===" set-buffer-modified-p error "No addresses file found!"] 5 (#$ . 15756) (byte-code "\205 \302\303 \"C\207" [current-prefix-arg pages-addresses-file-name read-file-name "Filename: "] 3)])
(defvar pages-directory-address-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [pages-directory-address-mode-hook variable-documentation put "Hook run after entering Addresses Directory mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp pages-directory-address-mode-map definition-name pages-directory-address-mode] 4)
(defvar pages-directory-address-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\300!\204# \303\300\307\310#\210\311\312\300\313\"\210!\210\300\302N\2041 \303\300\302\304\314!#\210\303\310\315\316#\207" [pages-directory-address-mode-abbrev-table pages-directory-address-mode-map variable-documentation put purecopy "Keymap for `pages-directory-address-mode'." boundp definition-name pages-directory-address-mode (lambda (#1=#:def-tmp-var) (defvar pages-directory-address-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `pages-directory-address-mode'." derived-mode-parent pages-directory-mode] 5)
#@374 Mode for handling the Addresses Directory buffer.
Move point to one of the lines in this buffer,
then use \[pages-directory-goto] to go
to the same line in the pages buffer.
In addition to any hooks its parent mode `pages-directory-mode' might have run,
this mode runs the hook `pages-directory-address-mode-hook', as the final or penultimate step
during initialization.
(defalias 'pages-directory-address-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f\321\"\204; \f
=\204; \322\f\321
C#\210\323 !\210\f)\324\325!\207" [delay-mode-hooks major-mode mode-name pages-directory-address-mode-map pages-directory-address-mode-abbrev-table local-abbrev-table make-local-variable t pages-directory-mode pages-directory-address-mode "Addresses Directory" mode-class put keymap-parent set-keymap-parent current-local-map abbrev-table-get :parents abbrev-table-put use-local-map run-mode-hooks pages-directory-address-mode-hook] 5 (#$ . 18434) nil])
(provide 'page-ext)
Mini Shell