;;; compiled by jimb@wookumz.gnu.ai.mit.edu on Thu Jan 14 11:20:24 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/page-ext.el ;;; emacs version 19.0.484. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (global-unset-key "") (defvar ctl-x-ctl-p-map (make-sparse-keymap) "\ Keymap for subcommands of C-x C-p, which are for page handling.") (byte-code "ﾀ ﾂﾃ#暗 M安 ﾅﾆ#安 ﾂﾇ#安 ﾈﾉ#安 ﾊﾋ#安 ﾌﾍ#安 ﾎﾏ#安 ﾐﾑ#安 ﾒﾓ#安 ﾔﾕ#" [define-key ctl-x-map "" ctl-x-ctl-p-prefix ctl-x-ctl-p-map "" next-page previous-page "" add-new-page " " mark-page "" search-pages "s" sort-pages-buffer " " set-page-delimiter "" pages-directory "d" pages-directory-for-addresses] 4) (fset 'next-page (make-byte-code (quote (&optional count)) "ﾁﾂ ﾃV%m%ﾄ ﾆﾇ#dbS\nﾁWオoИﾈ ﾆﾇ#?ﾉﾃ!bBebT&ﾊ eb依ﾃ!" [count 1 widen 0 re-search-forward page-delimiter nil t re-search-backward match-beginning narrow-to-page recenter] 5 "\ Move to the next page bounded by the `page-delimiter' variable. With arg (prefix if interactive), move that many pages." "p")) (fset 'previous-page (make-byte-code (quote (&optional count)) "ﾁﾂ[!" [count 1 next-page] 2 "\ Move to the previous page bounded by the `page-delimiter' variable. With arg (prefix if interactive), move that many pages." "p")) (fset 'add-new-page (make-byte-code (quote (header-line)) "ﾀ 庵ﾂ \"c案ﾅ!" [widen format "\n \n%s\n\n" header-line forward-line -1] 3 "\ Insert new page at point; prompt for header line. Page begins with a `^L' as the page-delimiter. Point is left in the body of page." "sHeader line: ")) (defvar pages-last-search nil "\ Value of last regexp searched for. Initially, nil.") (fset 'search-pages (make-byte-code (quote (regexp)) "ﾀ ﾂ\"  ﾄ 闇 !鞍 " [equal regexp "" pages-last-search widen re-search-forward narrow-to-page] 3 "\ Search for REGEXP, starting from point, and narrow to page it is in." (quote (list (read-string (format "Search for `%s' (end with RET): " (or pages-last-search "regexp"))))))) (autoload (quote sort-subr) "sort" "\ Primary function for sorting." t nil) (fset 'sort-pages-in-region (make-byte-code (quote (reverse beg end)) "限 \n\"eb暗 ﾅﾆ#)" [narrow-to-region beg end sort-subr reverse (lambda nil (byte-code "ﾀ ﾂﾃ#案ﾅ!" [re-search-forward page-delimiter nil t skip-chars-forward " \n"] 4)) (lambda nil (byte-code "ﾀ ﾂﾃ# ﾄﾅ!bdb" [re-search-forward page-delimiter nil t match-beginning 0] 4))] 4 "\ 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)." "P\nr")) (fset 'sort-pages-buffer (make-byte-code (quote (&optional reverse)) "ﾁﾂ edﾅ #*" [reverse nil widen end beginning sort-pages-in-region] 4 "\ Sort pages alphabetically in buffer. Prefix arg means reverse order. (Non-nil arg if not interactive.)" "P")) (defvar pages-directory-buffer-narrowing-p nil "\ *If non-nil, `pages-directory-goto' narrows pages buffer to entry.") (defvar pages-directory-previous-regexp nil "\ 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-buffer nil "\ The buffer for which the pages-directory function creates the directory.") (defvar pages-directory-prefix "*Directory for:" "\ Prefix of name of temporary buffer for pages-directory.") (defvar pages-pos-list nil "\ List containing the positions of the pages in the pages-buffer.") (defvar pages-directory-map nil "\ Keymap for the pages-directory-buffer.") (byte-code " ﾁ ﾂﾃﾄ#庵" [pages-directory-map make-sparse-keymap define-key "" pages-directory-goto] 4) (fset 'set-page-delimiter (make-byte-code (quote (regexp reset-p)) "ﾀﾁ!安ﾂ! \n   t!ﾅﾆ\n\"" [make-local-variable original-page-delimiter page-delimiter reset-p regexp message "The value of `page-delimiter' is now: %s"] 3 "\ 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." (quote (byte-code " ﾂDﾃﾄ \"ﾂD" [current-prefix-arg original-page-delimiter nil read-string "Set page-delimiter to regexp: " page-delimiter] 3)))) (fset 'pages-directory (make-byte-code (quote (pages-list-all-headers-p count-lines-p &optional regexp)) "ﾀ ﾂ\"  tﾄﾅﾆ \"pﾈﾆ ﾈRﾉ`ﾊ   衰q尉 惟c意cﾕ)ユ各b穴ﾘﾕﾚ#)ドﾛﾊ!ﾉUドﾜﾊ!b胃 萎!)ﾘﾕﾚ#モﾞ!Ｒ)ち各b互 韓 ﾕﾚ#)ﾞ!)ﾘﾕﾚ#ｾ互 韓 ﾕﾚ#)ｺﾞ!))q謂!tﾗﾄGﾆ!#争!医ﾊ!井 ﾊUﾉを !-" [equal regexp "" pages-directory-previous-regexp message "Creating directory for: %s " buffer-name pages-directory-prefix " " 1 0 pages-buffer-original-page pages-buffer-original-position linenum pages-directory-buffer buffer standard-output pages-directory-mode "==== Pages Directory: use `C-c C-c' to go to page under cursor. ====" 10 pages-buffer nil pages-pos-list pages-list-all-headers-p re-search-forward page-delimiter t match-beginning match-end narrow-to-page pages-copy-header-and-position count-lines-p nreverse "%d matching lines in: %s" pop-to-buffer sit-for forward-line] 6 "\ 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 \\ 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." (quote (byte-code " ﾁﾂ右<ﾂ嘉ﾄﾅﾇ\"!Eﾈ!ﾉV*ﾁ可Eﾈ!ﾉW@ﾂﾁﾃﾄﾅ=ﾇ\"!E" [current-prefix-arg t nil read-string format "Select according to `%s' (end with RET): " pages-directory-previous-regexp "regexp" prefix-numeric-value 0] 6)))) (fset 'pages-copy-header-and-position (make-byte-code (quote (count-lines-p)) "ﾀ 褐ﾄ 闇ed\"*`XT簡ﾉ!位 ﾋ\n`\"`肝 `) q\nBﾑ #* ゼ鑑ﾔ!易ﾖ \"c)ﾗ )ﾓﾘ!*" [nil line-count position count-lines-p narrow-to-page count-lines pages-buffer-original-position pages-buffer-original-page skip-chars-forward " \n" make-marker set-marker end-of-line end start standard-output pages-pos-list insert-buffer-substring buffer forward-line 0 format "%3d: " terpri 1] 4 "\ 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.")) (fset 'pages-directory-mode (make-byte-code (quote nil) "ﾀ 庵\n!暗ﾅﾇﾈ!杏ﾉ!杏ﾊ!" [kill-all-local-variables use-local-map pages-directory-map pages-directory-mode major-mode "Pages-Directory" mode-name make-local-variable pages-buffer pages-pos-list pages-directory-buffer-narrowing-p] 2 "\ 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.")) (fset 'pages-directory-goto (make-byte-code (quote nil) "ソnﾁ!ﾂﾂﾄﾅ!鞍ﾇ!以e`\"S 8\nm   ﾎ!委  ;dbAﾐ\n!b Hﾑ ," [pages-buffer buffer-name nil pages-pos-list error "Buffer in which pages were found is deleted." forward-line 0 count-lines pages-number pos end-of-directory-p pages-directory-buffer-narrowing-p narrowing-p pop-to-buffer widen marker-position narrow-to-page] 4 "\ Go to the corresponding line in the pages buffer." nil)) (defvar pages-addresses-file-name "~/addresses" "\ *Standard name for file of addresses. Entries separated by `page-delimiter'. Used by `pages-directory-for-addresses' function.") (defvar pages-directory-for-addresses-narrowing-p t "\ *If non-nil, `pages-directory-goto' narrows addresses buffer to entry.") (fset 'pages-directory-for-addresses (make-byte-code (quote (&optional filename)) "t ﾀﾁ\n \"案\n !ガﾅﾆ\n !!q杏 以ﾉﾊ#依   ﾎ 各b委`諌 `)\"尉c惟ﾊ!)ﾓﾔ!" [message "Creating directory for: %s " filename pages-addresses-file-name file-exists-p find-file-noselect expand-file-name widen pages-directory t nil pages-directory-address-mode pages-directory-for-addresses-narrowing-p pages-directory-buffer-narrowing-p delete-other-windows delete-region end-of-line "=== Address List Directory: use `C-c C-c' to go to page under cursor. ===" set-buffer-modified-p error "No addresses file found!"] 4 "\ 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 C-c C-c to go to the same line in the addresses buffer." (quote (list (if current-prefix-arg (read-file-name "Filename: " pages-addresses-file-name)))))) (fset 'pages-directory-address-mode (make-byte-code (quote nil) "ﾀ !按ﾄﾆﾇ!鞍ﾈ!鞍ﾉ!" [use-local-map pages-directory-map pages-directory-address-mode major-mode "Addresses Directory" mode-name make-local-variable pages-buffer pages-pos-list pages-directory-buffer-narrowing-p] 2 "\ Mode for handling the Addresses Directory buffer. Move point to one of the lines in this buffer, then use C-c C-c to go to the same line in the pages buffer."))