1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp / textmodes /
Filename : page-ext.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:48 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/textmodes/page-ext.el
;;; in Emacs version 24.3.1
;;; 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\312\313\304\301&\210\306\314\310\315\312\313\304\301&\210\306\316\310\317\312\313\304\301&\210\306\320\321\322\312\323\304\301&\210\306\324\310\325\312\313\304\301&\210\306\326\310\327\312\313\304\301&\210\306\330\310\331\312\313\304\301&\210\332\333!\207" [custom-declare-group pages nil "Extended page-handling commands." :group extensions custom-declare-variable pages-directory-buffer-narrowing-p t "If non-nil, `pages-directory-goto' narrows pages buffer to entry." :type boolean pages-directory-for-adding-page-narrowing-p "If non-nil, `add-new-page' narrows page buffer to new entry." pages-directory-for-adding-new-page-before-current-page-p "If non-nil, `add-new-page' inserts new page before current page." pages-addresses-file-name "~/addresses" "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 "If non-nil, `pages-directory-goto' narrows addresses buffer to entry." pages-directory-for-addresses-buffer-keep-windows-p "If nil, `pages-directory-for-addresses' deletes other windows." pages-directory-for-adding-addresses-narrowing-p "If non-nil, `add-new-page' narrows addresses buffer to new entry." global-unset-key ""] 8)
#@65 Keymap for subcommands of C-x C-p, which are for page handling.
(defvar ctl-x-ctl-p-map (make-sparse-keymap) (#$ . 1894))
(byte-code "\302\303\304#\210\304	M\210\302	\305\306#\210\302	\303\307#\210\302	\310\311#\210\302	\312\313#\210\302	\314\315#\210\302	\316\317#\210\302	\320\321#\210\302	\322\323#\210\302	\324\325#\207" [ctl-x-map ctl-x-ctl-p-map define-key "" ctl-x-ctl-p-prefix "" next-page previous-page "" add-new-page "
" mark-page "" search-pages "s" sort-pages-buffer "\f" set-page-delimiter "" pages-directory "d" pages-directory-for-addresses] 4)
#@121 Move to the next page bounded by the `page-delimiter' variable.
With arg (prefix if interactive), move that many pages.
(defalias 'next-page #[(&optional count) "\204�\302~\210\303V\203$�m\204$�\304	\305\306#\204�db\210S\211\202	�\302W\203G�o\204G�\307	\305\306#\203=�\303\224b\210\202@�eb\210T\211\202%�\310 \210eb\210\311\303!\207" [count page-delimiter 1 0 re-search-forward nil t re-search-backward narrow-to-page recenter] 5 (#$ . 2468) "p"])
#@125 Move to the previous page bounded by the `page-delimiter' variable.
With arg (prefix if interactive), move that many pages.
(defalias 'previous-page #[(&optional count) "\204�\301\302[!\207" [count 1 next-page] 2 (#$ . 2933) "p"])
#@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  variable
is non-nil.  Else insert at exact location of point.

Narrow to new page if
  pages-directory-for-adding-page-narrowing-p variable
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.
(defalias 'add-new-page #[(header-line) "~\210\305=\203�	\203�\306 \210\202�\306 \210\307 \210m\204�\310y\210~\210	\203L�\311\n\312\313#\2034�\314\224b\210\202L�eb\210\315\316\317\n!@\320=\205F�\n\321\312O\"c\210eb\210\322\323!\204U�\321y\210\315\324\317\n!@\320=\205d�\n\321\312O#c\210\310y\210\f\205q�\325 \207" [major-mode pages-directory-for-adding-new-page-before-current-page-p page-delimiter header-line 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 ^ 1 looking-at "^." "%s\n%s\n\n\n" narrow-to-page] 5 (#$ . 3175) "sHeader line: "])
#@53 Value of last regexp searched for.  Initially, nil.
(defvar pages-last-search nil (#$ . 4402))
#@70 Search for REGEXP, starting from point, and narrow to page it is in.
(defalias 'search-pages #[(regexp) "\302\232\203�	\202
�~\210\303!\210\304 \207" [regexp pages-last-search "" re-search-forward narrow-to-page] 2 (#$ . 4503) (list (read-string (format "Search for `%s' (end with RET): " (or pages-last-search "regexp"))))])
#@31 Primary function for sorting.
(autoload 'sort-subr "sort" '(#$ . 4841) t nil)
#@191 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).
(defalias 'sort-pages-in-region #[(reverse beg end) "\214	}\210eb\210\303\n\304\305#)\207" [beg end reverse sort-subr #[nil "\301\302\303#\210\304\302w\207" [page-delimiter re-search-forward nil t " 	\n"] 4] #[nil "\301\302\303#\203\f�\304\224b\207db\207" [page-delimiter re-search-forward nil t 0] 4]] 4 (#$ . 4926) "P\nr"])
#@105 Sort pages alphabetically in buffer.  Prefix arg means reverse order.
(Non-nil arg if not interactive.)
(defalias 'sort-pages-buffer #[(&optional reverse) "\204�\303~\210ed\304\n	#*\207" [reverse end beginning nil sort-pages-in-region] 4 (#$ . 5452) "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 (#$ . 5721))
#@74 The buffer for which the pages-directory function creates the directory.
(defvar pages-buffer nil (#$ . 5937))
#@57 Prefix of name of temporary buffer for pages-directory.
(defvar pages-directory-prefix "*Directory for:" (#$ . 6054))
#@65 List containing the positions of the pages in the pages-buffer.
(defvar pages-pos-list nil (#$ . 6178))
#@40 Keymap for the pages-directory-buffer.
(defvar pages-directory-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210)\207" [map make-sparse-keymap define-key "" pages-directory-goto "" add-new-page [mouse-2] pages-directory-goto-with-mouse] 4) (#$ . 6288))
(defvaralias 'pages-directory-map 'pages-directory-mode-map)
#@25 Default page delimiter.
(defvar original-page-delimiter "^\f" (#$ . 6646))
#@262 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.
(defalias 'set-page-delimiter #[(regexp reset-p) "\304\300!\210\304\301!\210\206
�	\n\204�\202�\305\306!\205#�\307\310	\"\207" [original-page-delimiter page-delimiter reset-p regexp make-local-variable called-interactively-p interactive message "The value of `page-delimiter' is now: %s"] 3 (#$ . 6728) (byte-code "\203�	\303D\207\304\305\n\"\306D\207" [current-prefix-arg original-page-delimiter page-delimiter "^\f" read-string "Set page-delimiter to regexp: " nil] 3)])
#@1089 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.
(defalias 'pages-directory #[(pages-list-all-headers-p count-lines-p &optional regexp) "\306\232\203�	\202
�\307\310!\203�\311\312\313 \"\210p\n\314\313 Q\315`\316 !\"#r\317 !q\210p\320 \210#\"\321\211$%\322\211&\322'(\323 \210\324\325!\210+\211)*r*q\210\326 \210\327\330\261\210!+\321,)-\203\253�\212eb\210\214\212\331.\321\322#)\203\215�\316\224\315U\203\215�\316\225b\210\332 \210\333/!\210)\331.\321\322#\203\247�\333/!\210\202\226�)\202\344�\212eb\210\214\332 \210\212\331\321\322#)\203\302�\333/!\210)\331.\321\322#\203\343�\214\332 \210\212\331\321\322#)\203\337�\333/!\210)\202\303�)*q\210,\237,\307\310!\203\376�\311\334,G\313!!#\210\335)!\210+\336 !\210\337\316!\210\316U\203\315\202y-\207" [regexp pages-directory-previous-regexp pages-directory-prefix pages-buffer-original-page pages-buffer-original-position linenum "" called-interactively-p interactive message "Creating directory for: %s " buffer-name " " 1 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 narrow-to-page pages-copy-header-and-position "%d matching lines in: %s" internal-temp-output-buffer-show pop-to-buffer sit-for pages-directory-buffer pages-target-buffer default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output pages-buffer pages-pos-list pages-list-all-headers-p page-delimiter count-lines-p] 6 (#$ . 7480) (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 "Select according to `%s' (end with RET): " "regexp" prefix-numeric-value 0] 6)])
#@159 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.
(defalias 'pages-copy-header-and-position #[(count-lines-p) "\306\211\n\203�\212\214\307 \210\310ed\"*`X\203�\fT\212\311\306w\210\312 \211`\306\223\210`\313 \306q\210	B`\314#\210\315
`\316#\210\317
`\320\321$\210+\n\203d�\212\322 \210\323\324\"c\210)\325 \210)\326*\207" [line-count position count-lines-p pages-buffer-original-position pages-buffer-original-page inserted-at 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 end start standard-output pages-pos-list pages-target-buffer] 6 (#$ . 10514)])
#@172 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.
(defalias 'pages-directory-mode #[nil "\303 \210\304!\210\305\306\307\310!\210\307\311!\210\307\312!\210\313\314!\207" [pages-directory-mode-map major-mode mode-name kill-all-local-variables use-local-map pages-directory-mode "Pages-Directory" make-local-variable pages-buffer pages-pos-list pages-directory-buffer-narrowing-p run-mode-hooks pages-directory-mode-hook] 2 (#$ . 11419)])
#@51 Go to the corresponding line in the pages buffer.
(defalias 'pages-directory-goto #[nil "\203\n�\306!\204�\307\211\310\311!\210\312 \210\313e`\"S\211	8m
\314!\210~\210\f\2034�db\210\2029�\315!b\210\205@�\316 ,\207" [pages-buffer pages-pos-list pages-number pos end-of-directory-p pages-directory-buffer-narrowing-p 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 narrowing-p] 4 (#$ . 11985) nil])
#@75 Go to the corresponding line under the mouse pointer in the pages buffer.
(defalias 'pages-directory-goto-with-mouse #[(event) "r\302\303!\211@)!q\210\212\303!\304	8\206(�	A@:\203%�	A@@\202(�	A@)b\210\305 *\207" [event position window-buffer event-end 5 pages-directory-goto] 4 (#$ . 12497) "e"])
#@656 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.
(defalias 'pages-directory-for-addresses #[(&optional filename) "\305\306!\203�\307\310\206
�	\"\210\311\206�	!\203F�\312\313\206 �	!!q\210~\210\314\315\316\211#\210\n\f\2045�\317 \210\212eb\210`\320 |\210\321c\210\322\316!)\207\323\324!\207" [filename 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 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!"] 4 (#$ . 12805) (list (if current-prefix-arg (read-file-name "Filename: " pages-addresses-file-name)))])
(byte-code "\300\301N\204�\302\300\301\303\304!#\210\305\306!\204�\302\306\307\310#\210\300\207" [pages-directory-address-mode-hook variable-documentation put purecopy "Hook run when 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] 5)
(defvar pages-directory-address-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204�\302\300\301\303\304!#\210\302\305\306\307#\207" [pages-directory-address-mode-map variable-documentation put purecopy "Keymap for `pages-directory-address-mode'." pages-directory-address-mode-abbrev-table definition-name pages-directory-address-mode] 5)
(defvar pages-directory-address-mode-abbrev-table (progn (define-abbrev-table 'pages-directory-address-mode-abbrev-table nil) pages-directory-address-mode-abbrev-table))
(byte-code "\300\301N\204�\302\300\301\303\304!#\210\302\305\306\307#\207" [pages-directory-address-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `pages-directory-address-mode'." pages-directory-address-mode derived-mode-parent pages-directory-mode] 5)
#@359 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 step
during initialization.
(defalias 'pages-directory-address-mode #[nil "\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 (#$ . 15538) nil])
(provide 'page-ext)