;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:47:58 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/page-ext.el ;;; emacs version 19.28.90.26. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/page-ext.el' was compiled for Emacs 19")) #@68 *If non-nil, `pages-directory-goto' narrows pages buffer to entry. (defvar pages-directory-buffer-narrowing-p t (#$ . -485)) #@63 *If non-nil, `add-new-page' narrows page buffer to new entry. (defvar pages-directory-for-adding-page-narrowing-p t (#$ . -616)) #@67 *If non-nil, `add-new-page' inserts new page before current page. (defvar pages-directory-for-adding-new-page-before-current-page-p t (#$ . -751)) #@126 *Standard name for file of addresses. Entries separated by page-delimiter. Used by `pages-directory-for-addresses' function. (defvar pages-addresses-file-name "~/addresses" (#$ . -905)) #@72 *If non-nil, `pages-directory-goto' narrows addresses buffer to entry. (defvar pages-directory-for-addresses-goto-narrowing-p t (#$ . -1097)) #@65 *If nil, `pages-directory-for-addresses' deletes other windows. (defvar pages-directory-for-addresses-buffer-keep-windows-p t (#$ . -1245)) #@68 *If non-nil, `add-new-page' narrows addresses buffer to new entry. (defvar pages-directory-for-adding-addresses-narrowing-p t (#$ . -1391)) (global-unset-key "") #@65 Keymap for subcommands of C-x C-p, which are for page handling. (defvar ctl-x-ctl-p-map (make-sparse-keymap) (#$ . 1561)) (byte-code "ﾀ ﾂﾃ#暗\fM安\fﾅﾆ#安\fﾂﾇ#安\fﾈﾉ#安\fﾊﾋ#安\fﾌﾍ#安\fﾎﾏ#安\fﾐﾑ#安\fﾒﾓ#安\fﾔﾕ#" [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 "\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) "ﾁ~ﾂV$m$ﾃ\fﾅﾆ#dbS ﾁWエoЖﾇ\fﾅﾆ#=ﾂ巴@ebT%ﾈ eb伊ﾂ!" [count 1 0 re-search-forward page-delimiter nil t re-search-backward narrow-to-page recenter] 5 (#$ . 2019) "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) "ﾁﾂ[!" [count 1 next-page] 2 (#$ . 2387) "p"]) #@563 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) "~ﾁ=\nﾃ ﾃ 案 mﾅy~\nグﾆﾈﾉ#5ﾊ巴０eb依ﾌﾍ!@ﾎ=IﾏﾈO\"ceb威ﾑ!Чﾏy依ﾒﾍ!@ﾎ=iﾏﾈO#c闇yxﾕ " [major-mode pages-directory-mode pages-directory-for-adding-new-page-before-current-page-p pages-directory-goto forward-page -1 re-search-backward page-delimiter nil t 0 format "%s\n" read-from-string ^ 1 looking-at "^." "%s\n%s\n\n\n" header-line pages-directory-for-adding-page-narrowing-p narrow-to-page] 5 (#$ . 2617) "sHeader line: "]) #@53 Value of last regexp searched for. Initially, nil. (defvar pages-last-search nil (#$ . 3693)) #@70 Search for REGEXP, starting from point, and narrow to page it is in. (defalias 'search-pages #[(regexp) "ﾁ噬 \n ~暗!案 " [regexp "" pages-last-search re-search-forward narrow-to-page] 2 (#$ . 3794) (list (read-string (format "Search for `%s' (end with RET): " (or pages-last-search "regexp"))))]) #@31 Primary function for sorting. (autoload (quote sort-subr) "sort" '(#$ . 4106) t nil) #@193 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) " }eb按 ﾄﾅ#)" [beg end sort-subr reverse #[nil "ﾀ ﾂﾃ#案ﾂw" [re-search-forward page-delimiter nil t " \n"] 4] #[nil "ﾀ ﾂﾃ#ソfﾄ巴db" [re-search-forward page-delimiter nil t 0] 4]] 4 (#$ . 4198) "P\nr"]) #@106 Sort pages alphabetically in buffer. Prefix arg means reverse order. (Non-nil arg if not interactive.) (defalias 'sort-pages-buffer #[(&optional reverse) "ﾁ~edﾄ \n#*" [reverse nil end beginning sort-pages-in-region] 4 (#$ . 4659) "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 (#$ . 4914)) #@74 The buffer for which the pages-directory function creates the directory. (defvar pages-buffer nil (#$ . 5130)) #@57 Prefix of name of temporary buffer for pages-directory. (defvar pages-directory-prefix "*Directory for:" (#$ . 5247)) #@65 List containing the positions of the pages in the pages-buffer. (defvar pages-pos-list nil (#$ . 5371)) #@40 Keymap for the pages-directory-buffer. (defvar pages-directory-map nil (#$ . 5481)) (byte-code "ﾁ ﾂﾃﾄ#按ﾅﾆ#庵" [pages-directory-map make-sparse-keymap define-key "" pages-directory-goto "" add-new-page] 4) #@25 Default page delimiter. (defvar original-page-delimiter "^\f" (#$ . 5706)) #@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) "ﾀﾁ!安ﾂ! \n \f t!ﾅﾆ\n\"" [make-local-variable original-page-delimiter page-delimiter reset-p regexp message "The value of `page-delimiter' is now: %s"] 3 (#$ . 5788) (byte-code " ﾂDﾃﾄ \"ﾆD" [current-prefix-arg original-page-delimiter "^\f" read-string "Set page-delimiter to regexp: " page-delimiter 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 \ 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) "ﾁ噬 \n tﾃﾄﾅ \"pﾇﾅ Qﾈ`ﾉ\n \f  衰q威 尉ﾒｱﾔ)メ各b穴ﾗﾔﾙ#)ツﾉ畔Uツﾉ秒移 維!)ﾗﾔﾙ#マﾛ!Ｍ)ぜ各b顧 陥ﾔﾙ#)ﾛ!)ﾗﾔﾙ#ｹ顧 陥ﾔﾙ#)Ψﾛ!)ｙ)qtﾑﾃﾝGﾅ!#争ﾞ !衣ﾉ!\nﾉUﾈる\ny-" [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 target-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 narrow-to-page pages-copy-header-and-position count-lines-p "%d matching lines in: %s" pop-to-buffer sit-for] 6 (#$ . 6438) (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)]) #@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) "ﾀ 褐ﾄ 闇ed\"*`XT簡ﾀw伊 `ﾀ嶋`澗`)\n \fq\n B ﾎ \n#* セ諌y尉ﾒ \"c)ﾓ )ﾔ*" [nil line-count position count-lines-p narrow-to-page count-lines pages-buffer-original-position pages-buffer-original-page " \n" make-marker end start standard-output pages-pos-list insert-buffer-substring target-buffer 0 format "%3d: " terpri 1] 5 (#$ . 8659)]) #@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 "ﾀ 庵\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 (#$ . 9256)]) #@51 Go to the corresponding line in the pages buffer. (defalias 'pages-directory-goto #[nil "ソnﾁ!ﾂﾂﾄﾅ!鞍y杏e`\"S 8 m\n \fﾍ!~\n9db?ﾎ !b\fFﾏ ," [pages-buffer buffer-name nil pages-pos-list error "Buffer in which pages were found is deleted." 0 count-lines pages-number pos end-of-directory-p pages-directory-buffer-narrowing-p narrowing-p pop-to-buffer marker-position narrow-to-page] 4 (#$ . 9719) nil]) #@657 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) "t ﾀﾁ\n \"案\n !クﾅﾆ\n !!q~杏ﾈﾉ#位  \f 9ﾎ 各b`緩`)|委c威ﾉ!)ﾑﾒ!" [message "Creating directory for: %s " filename pages-addresses-file-name file-exists-p find-file-noselect expand-file-name pages-directory t nil pages-directory-address-mode pages-directory-for-addresses-goto-narrowing-p pages-directory-buffer-narrowing-p pages-directory-for-addresses-buffer-keep-windows-p delete-other-windows "=== Address List Directory: use `C-c C-c' to go to page under cursor. ===" set-buffer-modified-p error "No addresses file found!"] 4 (#$ . 10156) (list (if current-prefix-arg (read-file-name "Filename: " pages-addresses-file-name)))]) #@176 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. (defalias 'pages-directory-address-mode #[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 (#$ . 11539)]) (provide (quote page-ext))