pabbrev.elc

;ELC
;;; Compiled by oceanhug@fc07-11-77.srfc01.resnet.ubc.ca on Fri Oct  1 12:33:11 2010
;;; from file /Users/oceanhug/.emacs.d/pabbrev.el
;;; in Emacs version 22.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`pabbrev.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\302\303!\203/\300\304!\210\305\306!\204\307\306\310\"\210\305\311!\204$\307\311\312\"\210\305\313!\204/\307\313\314\"\210\300\207" [require thingatpt featurep xemacs overlay fboundp line-beginning-position defalias point-at-bol line-end-position point-at-eol cancel-timer delete-itimer] 3)
#@54 Non-nil if we are running in the XEmacs environment.
(defconst pabbrev-xemacs-p (byte-code "\300\301\302 \"\207" [string-match "XEmacs" emacs-version] 3) (#$ . 912))
(custom-declare-group 'pabbrev nil "Predicative abbreviation expansion." :tag "Predictive Abbreviations." :group 'abbrev :group 'convenience)
#@94 *Will not activate function `global-pabbrev-mode' in buffers with a major mode in this list.
(custom-declare-variable 'pabbrev-global-mode-excluded-modes ''(shell-mode custom-mode dired-mode telnet-mode) '(#$ . -1226) :type '(repeat (symbol :tag "Mode name")) :group 'pabbrev)
#@78 *Will not activate function `global-pabbrev-mode' if buffers have this name.
(custom-declare-variable 'pabbrev-global-mode-not-buffer-names ''("*Messages*") '(#$ . -1509) :type '(repeat (string :tag "Buffer name")) :group 'pabbrev)
#@108 *Will not activate function `global-pabbrev-mode' if buffers are over this size (in bytes) (when non-nil).
(custom-declare-variable 'pabbrev-global-mode-buffer-size-limit 'nil '(#$ . -1748) :type 'integer :group 'pabbrev)
#@52 Minimal distance moved before we wish to scavenge.
(custom-declare-variable 'pabbrev-marker-distance-before-scavenge '2000 '(#$ . 1976) :type 'integer :group 'pabbrev)
#@58 Set of commands after which expansion should be offered.
(custom-declare-variable 'pabbrev-expand-after-command-list ''(self-insert-command mouse-set-point delete-char backward-delete-char-untabify pabbrev-expand-maybe) '(#$ . 2150) :type '(repeat (function :tag "Command name")) :group 'pabbrev)
#@269 *If non NIL, scavenge when a large buffer move has occured.
This can make Emacs' handling a little bumpy.  See also
`pabbrev-scavenge-some-chunk-size', as reducing this, or increasing
`pabbrev-marker-distance-before-scavenge'  is an alternative
to setting this to nil
(custom-declare-variable 'pabbrev-scavenge-on-large-move 't '(#$ . -2454) :type 'boolean :group 'pabbrev)
#@500 Symbol defining THING which function `pabbrev-mode' works on.
This symbol should be understandable by
`bounds-of-thing-at-point'.  This symbol defines what function `pabbrev-mode'
considers to be the basic unit of expansion.  If if it set to `symbol',
for example, "pabbrev-mode" would be offered as an expansion, while
if it is set to `word' "pabbrev" and "mode" would be offered.
You could also set it to `whitespace' which would be really daft,
or `page' which would be silly in a different way.
(custom-declare-variable 'pabbrev-thing-at-point-constituent ''symbol '(#$ . 2835) :group 'pabbrev :type 'symbol :options '(symbol word))
#@388 Number of words that `pabbrev-scavenge-words' gathers.
This also affects the speed with which pabbrev will scan through
the buffer during idle, so decrease this if too much processor
is being used, increase it if you want more.  It's set quite
conservatively.  If you get choppy performance when moving
around the buffer you should also consider
`pabbrev-scavenge-on-large-move' to nil.
(custom-declare-variable 'pabbrev-scavenge-some-chunk-size '40 '(#$ . 3479) :type 'integer :group 'pabbrev)
#@289 If non NIL, print messages while scavenging on idle timer.

At the moment this is set to t by default.  The idle timer function,
`pabbrev-idle-timer-function' uses quite a bit of processor power, and
I want the users to known what is eating their CPU.  I may change
this at a later date.
(custom-declare-variable 'pabbrev-idle-timer-verbose 't '(#$ . 3981) :type 'boolean :group 'pabbrev)
#@394 If non NIL, signal an error when in a read only buffer.

`pabbrev-mode' works by alterating the local buffer, so it's pointless
within a read only buffer. So, normally, it signals an error when an 
attempt is made to use it in this way. But this is a pain if you toggle
buffers read only a lot. Set this to NIL, and pabbrev-mode will disable 
it's functionality in read only buffers silently.
(custom-declare-variable 'pabbrev-read-only-error 't '(#$ . 4377) :type 'boolean :group 'pabbrev)
#@451 If t offer minimal expansion.

pabbrev can select the optimal expansion in two different ways. The
normal way is to offer the expansion which occurs most frequently in
the words which pabbrev has scavenged (in any buffer in the same
mode). The other method is to take the minimal occuring substring
present in any potential expansion; this is a lot more like standard
completion seen on a command line. 

I'm not telling you which version, I prefer.
(custom-declare-variable 'pabbrev-minimal-expansion-p 'nil '(#$ . 4875) :type 'boolean :group 'pabbrev)
(byte-code "\203\301\302\303\304\305\306%\210\202\301\302\307\304\305\306%\210\203&\301\310\311\312\305\306%\210\202.\301\310\313\314\305\306%\210\311\207" [pabbrev-xemacs-p custom-declare-face pabbrev-suggestions-face ((((class color) (background dark)) (:foreground "tan")) (((class color) (background light)) (:foreground "green4")) (((class grayscale) (background light)) (:foreground "DimGray" :italic t)) (((class grayscale) (background dark)) (:foreground "LightGray" :italic t)) (t (:bold t))) "Face for displaying suggestions." :group pabbrev ((((type tty) (class color)) (:foreground "green")) (((class grayscale) (background light)) (:foreground "Gray90" :bold t)) (((class grayscale) (background dark)) (:foreground "DimGray" :bold t)) (((class color) (background light)) (:foreground "ForestGreen")) (((class color) (background dark)) (:foreground "PaleGreen")) (t (:bold t :underline t))) pabbrev-suggestions-label-face nil "Font lock mode face used to highlight suggestions" ((t :inverse-video t)) "Font Lock mode face used to highlight suggestions"] 6)
#@51 List of modes with associated usage dictionaries.
(defvar pabbrev-usage-hash-modes nil (#$ . 6512))
#@52 List of modes with associated prefix dictionaries.
(defvar pabbrev-prefix-hash-modes nil (#$ . 6618))
#@55 Eval BODY without affected buffer modification status
(defalias 'pabbrev-save-buffer-modified-p '(macro . #[(&rest body) "\301\302\303\304\"BB\207" [body let ((buffer-modified (buffer-modified-p))) append ((set-buffer-modified-p buffer-modified))] 5 (#$ . 6726)]))
#@41 Returns the usage hash for this buffer.
(defalias 'pabbrev-get-usage-hash #[nil "\303N\211\204\304\303\305\306\307\"\211#\210\nB	)\207" [major-mode hash pabbrev-usage-hash-modes pabbrev-usage-hash put make-hash-table :test equal] 7 (#$ . 6998)])
#@37 Returns the size of the usage hash.
(defalias 'pabbrev-get-usage-dictionary-size #[nil "\300\301 !\207" [hash-table-count pabbrev-get-usage-hash] 2 (#$ . 7258)])
#@56 Returns the total number of usages from the usage hash
(defalias 'pabbrev-get-total-usages-dictionary #[nil "\301\302\303\304 \"\210)\207" [size 0 maphash #[(key value) "	A\\\211\207" [size value] 2] pabbrev-get-usage-hash] 3 (#$ . 7426) nil])
#@49 Returns the prefix hash for the current buffer.
(defalias 'pabbrev-get-prefix-hash #[nil "\303N\211\204\304\303\305\306\307\"\211#\210\nB	)\207" [major-mode hash pabbrev-prefix-hash-modes pabbrev-prefix-hash put make-hash-table :test equal] 7 (#$ . 7680)])
#@154 Add a WORD to the usage hash.
This is a function internal to the data structures.  The
`pabbrev-add-word' is the main entry point to this functionality.
(defalias 'pabbrev-add-word-usage #[(word) "\302\303 \"\211\203	\211AT\241\210\202\304B\305	\303 #\210	)\207" [word value gethash pabbrev-get-usage-hash 1 puthash] 5 (#$ . 7952)])
#@266 Add a word usage, and a PREFIX.
This function is internal to the data structures, and should normally
only be called, by `pabbrev-add-word'.  CONSCELL should be cons
returned from `pabbrev-add-word-usage', while PREFIX should be a
prefix of the from the cons cell.
(defalias 'pabbrev-add-word-cons-with-prefix #[(prefix conscell) "\303\304 \"\211\203\n	\235\204\n	B\202\nC\305\306	\n\"\304 #)\207" [prefix value conscell gethash pabbrev-get-prefix-hash puthash pabbrev-sort-alist] 6 (#$ . 8301)])
(defalias 'pabbrev-sort-alist #[(alist cons) "\301\302\"\207" [alist sort #[(a b) "A	AV\207" [a b] 2]] 3])
(defalias 'pabbrev-comparitor-function #[(a b) "A	AV\207" [a b] 2])
#@52 Add the usage of a WORD to the current dictionary.
(defalias 'pabbrev-add-word #[(word) "\304!GS\305\nW\203 \306\305\nTO	\"\210\nT\211\202+\307\207" [word conscell i #1=#:--cl-dotimes-temp-- pabbrev-add-word-usage 0 pabbrev-add-word-cons-with-prefix nil] 5 (#$ . 8993)])
#@232 Returns the suggestions for a given PREFIX.
Results are an alist, with cons with car of the word, and cdr of the
number of usages seen so far. This alist should NOT be altered, its
it's ordering is part of the core data structures
(defalias 'pabbrev-fetch-all-suggestions-for-prefix #[(prefix) "\301\302 \"\207" [prefix gethash pabbrev-get-prefix-hash] 3 (#$ . 9282)])
#@32 Keymap for pabbrev-minor-mode.
(defvar pabbrev-mode-map (make-keymap) (#$ . 9658))
(byte-code "\303\304\305#\210\303\306\305#\210	\2047\307\nB\310\307\311\312#\210\313\307!\204%\314\307\315\"\210\316\307!\210\317\307\320\"\210\321\307\322#\210\202[\307\nB\310\307\311\312#\210\313\307!\204L\314\307\315\"\210\316\307!\210\317\307\323\"\210\321\307\322#\210\324\325!\203\305\326\nB\313\326!\204p\314\326\315\"\210\316\326!\210\327\330\315\331\332\333\334\335\336\337\340\341&\210\317\330\342\"\210\321\330\315\343\344!\205\223\344J#\210\345\nB\313\345!\204\244\314\345\315\"\210\317\346\347\"\210\310\346\350\330#\210\317\351\352\"\210\310\351\350\330#\210\317\353\354\"\210\310\353\350\330#\210\315\207" [pabbrev-mode-map pabbrev-xemacs-p current-load-list define-key "	" pabbrev-expand-maybe [tab] pabbrev-mode put variable-documentation "Non-nil if Pabbrev mode is enabled.\nUse the command `pabbrev-mode' to change this variable." default-boundp set-default nil make-variable-buffer-local defalias #[(&optional arg) "\306 	\307=\203\n?\202(	\203\310	!\311V\202(\n\204\"\312\202(\313\314\302\"\210\315\2039\f\2039
\2039\316\317!\210\320\321\n\203C\322\202D\323\"\210\324 \203d\306 \203W\306 \232\203d\313\325\n\203a\326\202b\327\"\210)\330 \210\n\207" [#:last-message arg pabbrev-mode pabbrev-mode-map buffer-read-only pabbrev-read-only-error current-message toggle prefix-numeric-value 0 t message #1="Toggling %s off; better pass an explicit argument." nil error "Can not use pabbrev-mode in read only buffer" run-hooks pabbrev-mode-hook pabbrev-mode-on-hook pabbrev-mode-off-hook called-interactively-p "Pabbrev mode %sabled" #2="en" #3="dis" force-mode-line-update] 3 "Toggle pabbrev mode.\nWith arg, turn on Predicative Abbreviation mode if and only if arg is\npositive.\n\nThis mode is another abbreviation expansion mode somewhat like\n`dabbrev-expand', in that it looks through the current buffer for\nsymbols that can complete the current symbol. Unlike `dabbrev-expand',\nit does this by discovering the words during the Emacs idle time, and\nplaces the results into data structures which enable very rapid\nextraction of expansions. The upshot of this is that it can offer\nsuggestions as you type, without causing an unacceptable slow down.\n\nThere is an associated `global-pabbrev-mode' which turns on the mode\non in all buffers.\n" #4=(list (or current-prefix-arg 'toggle))] add-minor-mode " Pabbrev" #[(&optional arg) "\303 	\304=\203\n?\202(	\203\305	!\306V\202(\n\204\"\307\202(\310\311\302\"\210\312\313\314\n\2033\315\2024\316\"\210\317 \203T\303 \203G\303 \232\203T\310\320\n\203Q\321\202R\322\"\210)\323 \210\n\207" [#:last-message arg pabbrev-mode current-message toggle prefix-numeric-value 0 t message #1# nil run-hooks pabbrev-mode-hook pabbrev-mode-on-hook pabbrev-mode-off-hook called-interactively-p "Pabbrev mode %sabled" #2# #3# force-mode-line-update] 3 "Toggle pabbrev mode.\nThis mode is an abbreviation expansion mode. It looks through the\ncurrent buffer, and offers expansions based on the words already\nthere.\n\nI have only just recently ported this to XEmacs, and I don't\npersonally use XEmacs, so it has received little or no testing." #4#] fboundp easy-mmode-define-global-mode pabbrev-mode-major-mode custom-declare-variable global-pabbrev-mode "Non-nil if Global-Pabbrev mode is enabled.\nSee the command `global-pabbrev-mode' for a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-pabbrev-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group pabbrev :type boolean #[(&optional arg) "\306 	\307=\203\n?\202(	\203\310	!\311V\202(\n\204\"\312\202(\313\314\302\"\210\315\211\203?\316\317\320\"\210\316\321\322\"\210\316\323\324\"\210\202N\325\317\320\"\210\325\321\322\"\210\325\323\324\"\210\326 \315\211\203x\f@rq\210\n\203h\327 \210\202p
\203p\305\330!\210)\fA\211\204W*\331\332\n\203\203\333\202\204\334\"\210\335 \203\250\336\302!\210\306 \203\233\306 \232\203\250\313\337\n\203\245\340\202\246\341\"\210)\342 \210\n\207" [#:last-message arg global-pabbrev-mode buf #:--cl-dolist-temp-- pabbrev-mode current-message toggle prefix-numeric-value 0 t message #1# nil add-hook after-change-major-mode-hook global-pabbrev-mode-enable-in-buffers find-file-hook global-pabbrev-mode-check-buffers change-major-mode-hook global-pabbrev-mode-cmhh remove-hook buffer-list pabbrev-global-mode -1 run-hooks global-pabbrev-mode-hook global-pabbrev-mode-on-hook global-pabbrev-mode-off-hook called-interactively-p customize-mark-as-set "Global-Pabbrev mode %sabled" #2# #3# force-mode-line-update] 4 "Toggle Pabbrev mode in every possible buffer.\nWith prefix ARG, turn Global-Pabbrev mode on if and only if ARG is positive.\nPabbrev mode is enabled in all buffers where `pabbrev-global-mode' would do it.\nSee `pabbrev-mode' for more information on Pabbrev mode." #4#] boundp global-pabbrev-mode-map global-pabbrev-mode-buffers global-pabbrev-mode-enable-in-buffers #[nil "\306\211\2038\n@\307	!\2031r	q\210\203+\f
=\2040\303\310!\210\311 \210
\2020\311 \210
)\nA\211\204*\306\207" [global-pabbrev-mode-buffers buf #:--cl-dolist-temp-- pabbrev-mode pabbrev-mode-major-mode major-mode nil buffer-live-p -1 pabbrev-global-mode] 3] definition-name global-pabbrev-mode-check-buffers #[nil "\301 \210\302\303\304\305\"\207" [global-pabbrev-mode-buffers global-pabbrev-mode-enable-in-buffers nil remove-hook post-command-hook global-pabbrev-mode-check-buffers] 3] global-pabbrev-mode-cmhh #[nil "\300\301p\"\210\302\303\304\"\207" [add-to-list global-pabbrev-mode-buffers add-hook post-command-hook global-pabbrev-mode-check-buffers] 3]] 12)
#@146 Switch on `pabbrev-mode' in current buffer if appropriate.
Currently appropriate means, if the buffer is not read only, and is
not a minibuffer.
(defalias 'pabbrev-global-mode #[nil "\206.	\206.\n\235\206.\306 \307\310O\311\232\206.\f\203#\312 \fV\206.\306 
\235\206.\313\314 !?\2058\307
\301 )\207" [buffer-read-only pabbrev-mode major-mode pabbrev-global-mode-excluded-modes pabbrev-global-mode-buffer-size-limit pabbrev-global-mode-not-buffer-names buffer-name 0 1 " " buffer-size window-minibuffer-p selected-window pabbrev-scavenge-some-chunk-size] 3 (#$ . 15497)])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [add-hook pabbrev-mode-on-hook pabbrev-mode-on pabbrev-mode-off-hook pabbrev-mode-off] 3)
#@118 Location of current insertion, or nil.
This variable is not actually a marker, but a cons of
start and end positions
(defvar pabbrev-marker nil (#$ . 16226))
(make-variable-buffer-local 'pabbrev-marker)
#@40 Currently displayed expansion, or nil.
(defvar pabbrev-expansion nil (#$ . 16435))
(make-variable-buffer-local 'pabbrev-expansion)
#@40 Current expansion suggestions, or nil.
(defvar pabbrev-expansion-suggestions nil (#$ . 16572))
(make-variable-buffer-local 'pabbrev-expansion-suggestions)
#@46 Marks where the last possible expansion was.
(defvar pabbrev-marker-last-expansion nil (#$ . 16733))
(make-variable-buffer-local 'pabbrev-marker-last-expansion)
#@25 Turn `pabbrev-mode' on.
(defalias 'pabbrev-mode-on #[nil "\300\301!\210\302\301\303\304\305$\210\300\306!\210\302\306\307\304\305$\207" [make-local-hook pre-command-hook add-hook pabbrev-pre-command-hook nil t post-command-hook pabbrev-post-command-hook] 5 (#$ . 16900)])
#@26 Turn `pabbrev-mode' off.
(defalias 'pabbrev-mode-off #[nil "\300\301\302\303#\210\300\304\305\303#\207" [remove-hook pre-command-hook pabbrev-pre-command-hook t post-command-hook pabbrev-post-command-hook] 4 (#$ . 17178)])
#@92 Offer expansion if appropriate.
This function is normally run off the `post-command-hook'.
(defalias 'pabbrev-post-command-hook #[nil "\300\301\302\217\207" [err (byte-code "\206\306\307 !?\205@\212	\203\310 \210\311 \312 \313
>\205?\f\205?`AU\205?\314\f!\211\205?\315\fA\n#\210\316 ,\207" [buffer-read-only pabbrev-marker suggestions bounds word last-command window-minibuffer-p selected-window pabbrev-delete-last-suggestion pabbrev-thing-at-point pabbrev-bounds-of-thing-at-point nil pabbrev-fetch-all-suggestions-for-prefix pabbrev-insert-suggestion pabbrev-post-command-check-movement pabbrev-expand-after-command-list] 4) ((error (pabbrev-command-hook-fail err "post")))] 3 (#$ . 17407)])
#@41 Remove previously inserted suggestions.
(defalias 'pabbrev-delete-last-suggestion #[nil "\302 \303 \210	@	A|\210\304\305!)\207" [buffer-modified pabbrev-marker buffer-modified-p pabbrev-delete-overlay nil set-buffer-modified-p] 2 (#$ . 18126)])
#@113 Remove offering expansion from the buffer, if present.
This function is normally run off the `pre-command-hook'
(defalias 'pabbrev-pre-command-hook #[nil "\300\301\302\217\207" [err (byte-code "	>\204\n\305\211\f\205\306 \207" [this-command pabbrev-expand-commands pabbrev-expansion pabbrev-expansion-suggestions pabbrev-marker nil pabbrev-delete-last-suggestion] 3) ((error (pabbrev-command-hook-fail err "pre")))] 3 (#$ . 18381)])
#@198 Advise user of a failure command-hooks.
This function should only run as the result of a bug.
A message is sent, as we can do little else safely,
on the `post-command-hook', or `pre-command-hook'.
(defalias 'pabbrev-command-hook-fail #[(err hook) "\303\304\305	!#\210\306\307\310\311#\210\306\312\313\311#\210\314\220\315\316!\210\315\317!\210\315\305	!!\210\315\320!\210\321\314!\322 )\221\210\323\324\314!!\210\325\326!\207" [hook err standard-output message "pabbrev mode has failed on %s hook: %s " error-message-string remove-hook pre-command-hook pabbrev-pre-command-hook t post-command-hook pabbrev-post-command-hook "*pabbrev-fail*" princ "There has been an error in pabbrev-mode. This mode normally\nmakes use of \"post-command-hook\", which runs after every command. If this\nerror continued Emacs could be made unusable, so pabbrev-mode has attempted\nto disable itself. So although it will appear to still be on, it won't do\nanything. Toggling it off, and then on again will usually restore functionality.\n" "The following is debugging information\n\n" "\n\nBacktrace is: \n" get-buffer backtrace select-window get-buffer-window error "Error in pabbrev-mode"] 5 (#$ . 18827)])
#@42 Fetch marker for last offered expansion.
(defalias 'pabbrev-marker-last-expansion #[nil "\204\n\301 `p\223\207" [pabbrev-marker-last-expansion make-marker] 3 (#$ . 20026)])
(defalias 'pabbrev-update-marker #[nil "\300 `p\223\207" [pabbrev-marker-last-expansion] 3])
(defalias 'pabbrev-post-command-check-movement #[nil "\302`\303\304 !Z!\211	V\205\305\306!\210\307 \210\310 )\207" [distance pabbrev-marker-distance-before-scavenge abs marker-position pabbrev-marker-last-expansion pabbrev-debug-message "Scavenge due to buffer marker" pabbrev-scavenge-some pabbrev-update-marker] 5])
#@33 Overlay for offered completion.
(defvar pabbrev-overlay nil (#$ . 20623))
(make-variable-buffer-local 'pabbrev-overlay)
#@37 Move overlay to START END location.
(defalias 'pabbrev-set-overlay #[(start end) "\204	\303\304\211\"\305\306\307#\210\310	\np$\207" [pabbrev-overlay start end make-overlay 1 overlay-put face pabbrev-suggestions-face move-overlay] 5 (#$ . 20749)])
#@25 Make overlay invisible.
(defalias 'pabbrev-delete-overlay #[nil "\205\301!\207" [pabbrev-overlay delete-overlay] 2 (#$ . 21008)])
#@118 Insert a suggestion into the buffer.
The suggestion should start with PREFIX, and be entered
at buffer position END.
(defalias 'pabbrev-insert-suggestion #[(prefix end suggestions) "\204\n	@@\202\306\307	\"\211\203\nG\310O\202\307\212\311\fGW\205M\312 \313\f\314\261\210\f	`B`S\315\fGZ\"\210)\316
!)+\207" [pabbrev-minimal-expansion-p suggestions suggestion prefix expansion buffer-modified try-completion "" nil 0 buffer-modified-p "[" "]" pabbrev-set-overlay set-buffer-modified-p pabbrev-expansion pabbrev-expansion-suggestions end pabbrev-marker point-1] 4 (#$ . 21149) nil])
#@139 Expand abbreviation, or run previous command.
If there is no expansion the command on `pabbrev-tab-previously-bound'
will be run instead.
(defalias 'pabbrev-expand-maybe #[nil "\305=\203	G\306V\203\307 \207\n\203\310 \207\311\312\313!\206\"\312\314!)\315\f!\2053\f\305=?\2053\f )\207" [last-command pabbrev-expansion-suggestions pabbrev-expansion pabbrev-mode prev-binding pabbrev-expand-maybe 1 pabbrev-suggestions-goto-buffer pabbrev-expand nil key-binding [tab] "	" fboundp] 2 (#$ . 21764) nil])
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list pabbrev-expand-previous-word default-boundp set-default nil] 3)
#@21 Expand abbreviation
(defalias 'pabbrev-expand #[nil "\302 	\203
	c\210\202\303\304!\210\305\211\207" [pabbrev-expand-previous-word pabbrev-expansion pabbrev-thing-at-point message "No expansion" nil] 2 (#$ . 22426)])
#@135 List of commands which will be used expand.
We need to know this, or the possible expansions are deleted
before the command gets run.
(defvar pabbrev-expand-commands '(pabbrev-expand-maybe pabbrev-expand) (#$ . 22655))
#@32 Delete the suggestions window.
(defalias 'pabbrev-suggestions-delete-window #[nil "\206\302 \303=?\205\304\305\303!!\210\306	!\207" [pabbrev-mode pabbrev-window-configuration buffer-name " *pabbrev suggestions*" delete-window get-buffer-window set-window-configuration] 3 (#$ . 22880) nil])
#@68 Stores the window configuration before presence of a window buffer
(defvar pabbrev-window-configuration nil (#$ . 23182))
#@35 Jump into the suggestions buffer.
(defalias 'pabbrev-suggestions-goto-buffer #[nil "\302 \303	\304\"\210\305\306\307\310!!!\207" [pabbrev-window-configuration pabbrev-expansion-suggestions current-window-configuration pabbrev-suggestions-buffer "" shrink-window-if-larger-than-buffer select-window get-buffer-window " *pabbrev suggestions*"] 4 (#$ . 23310)])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\304\207" [current-load-list pabbrev-suggestions-from-buffer default-boundp set-default nil pabbrev-suggestions-done-suggestions pabbrev-suggestions-best-suggestion] 3)
#@30 Form the suggestions buffer.
(defalias 'pabbrev-suggestions-buffer #[(suggestions prefix) "\306\220p	@\307	!\211\304 S\212\310\306!q\210\311 \210\312\313\n@\314Q!\210	\205\202\315\211\316X\203\200
	GW\203ydb\210\317
!\320
	8@\321R\322 \323 Z
\315V\203`\fG\\W\203`\312\314!\210\312!\210`GZ\324\325\211\326\\\"\327\330#\210+
T\211\202))\331*\221\210\332\333\306!!\207" [pabbrev-suggestions-from-buffer suggestions pabbrev-suggestions-best-suggestion pabbrev-suggestions-done-suggestions window-width i " *pabbrev suggestions*" pabbrev-suggestions-limit-alpha-sort get-buffer pabbrev-suggestions-setup princ "Best Match: " "\n" 0 9 number-to-string ") " " " line-end-position line-beginning-position overlay-put make-overlay 2 face pabbrev-suggestions-label-face nil shrink-window-if-larger-than-buffer get-buffer-window line-length next-suggestion start] 8 (#$ . 23977)])
#@29 Limit suggestions and sort.
(defalias 'pabbrev-suggestions-limit-alpha-sort #[(suggestions) "\301\302\303\304\305\306#\307\"\"\207" [suggestions delq nil sort pabbrev-suggestions-subseq 0 10 #[(a b) "@	@\231\207" [a b] 2]] 7 (#$ . 24882)])
#@367 Return subsequence from seq.
FROM starting here
TO finishing here.
Amazing though it seems the implementation of this differs between Emacs,
and XEmacs. Irritating or what!
The Emacs version copes with numbers past the end, and backs with nil
values. XEmacs uses its own builtin rather than the one in the CL package.
It crashes under the same circumstances. Yeech.
(defalias 'pabbrev-suggestions-subseq #[(sequence from to) "\203
\304	\n	G^#\207\304	\n#\207" [pabbrev-xemacs-p sequence from to subseq] 5 (#$ . 25131)])
#@32 Set up suggestions major mode.
(defalias 'pabbrev-suggestions-setup #[nil "\303\304!\204\264\305\306N\204\307\305\306\310#\210\311\301!\204\307\301\312\304#\210\313\301!\204*\314\301\315 \"\210\311\316!\2046\307\316\312\304#\210\313\316!\204B\314\316\317 \"\210\307\300\312\304#\210\313\300!\204X\314\300\320\300\321\"\210\"\210\307\304\322\321#\210\323\304\324\"\210\315 \325\211\326X\203}\327	\330\n!\331#\210\nT\211\202i)\327	\332\333#\210\327	\334\335#\210\327	\336\335#\210\327	\337\340#\210\327	\341\342#\210\343\211\344X\203\263\327	\345\n!\346#\210\nT\211\202\237)\304 \207" [pabbrev-select-mode-abbrev-table pabbrev-select-mode-map i fboundp pabbrev-select-mode pabbrev-select-mode-hook variable-documentation put "Hook run when entering Pabbrev Select mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp definition-name default-boundp set-default make-sparse-keymap pabbrev-select-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent defalias #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
)\315\316!\203#\316\317!\207\320\317!\207" [delay-mode-hooks major-mode mode-name pabbrev-select-mode-map pabbrev-select-mode-syntax-table pabbrev-select-mode-abbrev-table make-local-variable t kill-all-local-variables pabbrev-select-mode "Pabbrev Select" use-local-map set-syntax-table fboundp run-mode-hooks pabbrev-select-mode-hook run-hooks local-abbrev-table] 2 "Major mode for selecting `pabbrev-mode' expansions.\nThe number keys selects the various possible expansions. \\[pabbrev-suggestions-delete]\nremoves the previously added expansion, \\[pabbrev-suggestions-minimum] selects the minimum\nmatching substring, while \\[pabbrev-suggestions-delete-window] just deletes the window\n\\{pabbrev-select-mode-map}\n\nThis mode runs the hook `pabbrev-select-mode-hook', as the final step\nduring initialization." nil] 33 126 define-key char-to-string pabbrev-noop "	" pabbrev-suggestions-select-default [delete] pabbrev-suggestions-delete [backspace] "
" pabbrev-suggestions-minimum " " pabbrev-suggestions-delete-window 0 9 number-to-string pabbrev-suggestions-select] 5 (#$ . 25661)])
#@103 Do absolutely nothing.
This command is used to nobble the suggestions buffer
self inserting commands.
(defalias 'pabbrev-noop #[nil "\300\207" [nil] 1 (#$ . 27917) nil])
#@43 Select the most commonly occuring string.
(defalias 'pabbrev-suggestions-select-default #[nil "\205\301@!\207" [pabbrev-suggestions-best-suggestion pabbrev-suggestions-insert] 2 (#$ . 28093) nil])
#@29 Delete the last suggestion.
(defalias 'pabbrev-suggestions-delete #[nil "\301!\207" [pabbrev-expand-previous-word pabbrev-suggestions-insert] 2 (#$ . 28300) nil])
#@42 Select the maximally occuring substring.
(defalias 'pabbrev-suggestions-minimum #[nil "\301\302\303\304\305\306#\"!\207" [pabbrev-suggestions-done-suggestions pabbrev-suggestions-insert try-completion "" pabbrev-suggestions-subseq 0 10] 7 (#$ . 28470) nil])
#@33 Actually insert the suggestion.
(defalias 'pabbrev-suggestions-insert #[(insertion) "\304\212	q\210\305 \211@\nA|\210c\210`*\306 \210\205b)\207" [point pabbrev-suggestions-from-buffer bounds insertion nil pabbrev-bounds-of-thing-at-point pabbrev-suggestions-delete-window] 3 (#$ . 28735)])
#@41 Select one of the numbered suggestions.
(defalias 'pabbrev-suggestions-select #[(&optional index) "\206	\304\305	!!\211GW\205\306\n8@!)\207" [index last-command-event insert-index pabbrev-suggestions-done-suggestions string-to-number char-to-string pabbrev-suggestions-insert] 4 (#$ . 29039) nil])
#@56 Move forward a pabbrev word. Or backwards if number -1
(defalias 'pabbrev-forward-thing #[(&optional number) "\302	\"\207" [pabbrev-thing-at-point-constituent number forward-thing] 3 (#$ . 29350) nil])
#@21 Get thing at point.
(defalias 'pabbrev-thing-at-point #[nil "\301 \211\205
\302@A\")\207" [bounds pabbrev-bounds-of-thing-at-point buffer-substring-no-properties] 4 (#$ . 29559)])
#@38 Get the bounds of the thing at point
(defalias 'pabbrev-bounds-of-thing-at-point #[nil "\301!\207" [pabbrev-thing-at-point-constituent bounds-of-thing-at-point] 2 (#$ . 29749)])
#@55 Return t if anywhere between START and END is marked.
(defalias 'pabbrev-bounds-marked-p #[(start end) "\212\304	\211V\204\305\n\306\"\211\203\nT\211\202)*\207" [retn start i end nil get-text-property pabbrev-added] 4 (#$ . 29934)])
#@58 Add word in BOUNDS as abbreviation, and mark the buffer.
(defalias 'pabbrev-mark-add-word #[(bounds) "\205,@A\304\n	\"?\205+\305\n	\"\210\306 \307\n	\310#\210\311!\210)\312\313\n	\"!*\207" [bounds end start buffer-modified pabbrev-bounds-marked-p pabbrev-debug-display buffer-modified-p add-text-properties (pabbrev-added t) set-buffer-modified-p pabbrev-add-word buffer-substring-no-properties] 4 (#$ . 30187)])
#@40 Gather some words up from around point
(defalias 'pabbrev-scavenge-some #[nil "\212\301\302!\210\303\304\211\\\305\\\"\210\212\301\306!\210\303\307\"*\207" [pabbrev-scavenge-some-chunk-size pabbrev-forward-thing -2 pabbrev-scavenge-words -1 0 2 1] 4 (#$ . 30615) nil])
(defalias 'pabbrev-scavenge-region #[nil "\300 \301 }\210\302 \207" [region-beginning region-end pabbrev-scavenge-buffer] 2 nil nil])
(defalias 'pabbrev-scavenge-buffer #[nil "\302\303ed\"\212eb\210\304\305\306\307 \205(\303e`\"\310	\311_\245!\210\312\313 !\210\202\310\314!$\210\315\316\317 \"\210\320\321!+\207" [total-line current-line nil count-lines working-status-forms "pabbrev scavenging buffer" "done" pabbrev-forward-thing working-status 100 pabbrev-mark-add-word pabbrev-bounds-of-thing-at-point t pabbrev-debug-message "Dictionary size %s total usage %s" pabbrev-get-usage-dictionary-size message "pabbrev scavenging buffer...done."] 6 nil nil])
#@157 Scavenge words from current buffer, starting from point.
DIRECTION is in which direction we should work,
NUMBER is how many words we should try to scavenge
(defalias 'pabbrev-scavenge-words #[(&optional direction number) "\204\304	\204\f\305\212	\306\nW\203'\307!\210\310\311 !\210\nT\211\202*`)\207" [direction number i #1=#:--cl-dotimes-temp-- 1 20 0 pabbrev-forward-thing pabbrev-mark-add-word pabbrev-bounds-of-thing-at-point] 3 (#$ . 31558)])
(byte-code "\300\301\302\"\210\300\301\303\"\207" [add-hook pabbrev-mode-on-hook pabbrev-ensure-idle-timer pabbrev-scavenge-some] 3)
#@634 Timer which adds whole buffer.
There are two idle timers which run for function `pabbrev-mode'.  This
one doesn't start for a while, but once it has will work its way
through the whole buffer.  In prints out a message to say what its
doing, and stops on user input.  The variable
`pabbrev-short-idle-timer' is the other.
The idea here is that the short timer will pick up most of the recent
changes, and will not bother the user.  The long timer will slowly
gather up the whole buffer, telling the user what it is doing, in case
it takes up too much processor.  If this happened after a second it
would be irritating in the extreme.
(defvar pabbrev-long-idle-timer nil (#$ . 32160))
#@62 Timer which adds a few words.
See `pabbrev-long-idle-timer'.
(defvar pabbrev-short-idle-timer nil (#$ . 32849))
(defalias 'pabbrev-ensure-idle-timer #[nil "\205	?\205\302 \207" [pabbrev-short-idle-timer pabbrev-long-idle-timer pabbrev-start-idle-timer] 1])
(defalias 'pabbrev-start-idle-timer #[nil "\302\303\304\305#\302\306\304\301#\211\207" [pabbrev-long-idle-timer pabbrev-short-idle-timer run-with-idle-timer 5 t pabbrev-idle-timer-function 1] 4])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\304\207" [current-load-list pabbrev-disable-timers default-boundp set-default nil pabbrev-timer-buffer] 3)
#@36 Add a few words to the dictionary.
(defalias 'pabbrev-short-idle-timer #[(&optional buffer) "\212\206pq\210p\n\205!?\205!\304\305!\210\306 \210\304\307\310 \311 #)\207" [buffer pabbrev-timer-buffer pabbrev-mode pabbrev-disable-timers pabbrev-debug-message "running short idle timer" pabbrev-scavenge-some "Dictionary size %s total usage %s" pabbrev-get-usage-dictionary-size pabbrev-get-total-usages-dictionary] 4 (#$ . 33515)])
(defalias 'pabbrev-idle-timer-function #[(&optional buffer) "\212\206\n	\206\npq\210\n\203\204\304 \202\305\306!)\207" [buffer pabbrev-timer-buffer pabbrev-mode pabbrev-disable-timers pabbrev-idle-timer-function-0 pabbrev-debug-message "idle running in non pabbrev-mode"] 2])
#@181 Add all words to the buffer.
`pabbrev-scavenge-buffer' does this more efficiently interactively.
If this takes up too much processor power, see `pabbrev-scavenge-some-chunk-size'.
(defalias 'pabbrev-idle-timer-function-0 #[nil "``\306\211\307
\203\310\311!\210\312\313`\"\210\203t\n\203#	\204t\212	\204?b\210\314\315\211\\\316\\\"e=\312\317	#\210\n\204V\fb\210\314\320\"d\f=\312\321\f\n#\210)\312\322\323 \324 #\210
\203l\310\325\323 \326p!#\210\327\330!\211\204
\205\203\310\331!\210\327\332!\210\310\306!-\207" [repeat backward-complete forward-complete backward-marker forward-marker pabbrev-idle-timer-verbose nil t message "pabbrev scavenging..." pabbrev-debug-message "running idle timer at %s" pabbrev-scavenge-words -1 0 "searching backward to %s complete %s" 1 "searching forward to %s complete %s" "Dictionary size %s total usage %s" pabbrev-get-usage-dictionary-size pabbrev-get-total-usages-dictionary "pabbrev scavenging (%s words %s buffer)..." buffer-name sit-for 0.1 "pabbrev scavenging...done" 2 pabbrev-scavenge-some-chunk-size] 6 (#$ . 34244)])
#@32 Switch off verbose messages...
(defalias 'pabbrev-shut-up #[nil "\301\302!\210\303\211\207" [pabbrev-idle-timer-verbose message "Swiching off pabbrev messages" nil] 2 (#$ . 35343) nil])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\304\207" [current-load-list pabbrev-debug-buffer default-boundp set-default nil pabbrev-debug-enabled] 3)
(defalias 'pabbrev-debug-get-buffer #[nil "\300\301!\207" [get-buffer-create "*pabbrev-debug"] 2])
(defalias 'pabbrev-debug-message '(macro . #[(&rest body) "\301\302\303\304\305\306B\307BBDC\310BBE\207" [body if pabbrev-debug-enabled let insert concat format ("\n") ((save-excursion (set-buffer (pabbrev-debug-get-buffer)) (goto-char (point-max)) (insert insert) (pabbrev-debug-frame-scroll)))] 7]))
(defalias 'pabbrev-debug #[nil "\301 \210\302\211\207" [pabbrev-debug-enabled pabbrev-debug-frame t] 2 nil nil])
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list pabbrev-debug-frame default-boundp set-default nil] 3)
(defalias 'pabbrev-debug-frame #[nil "?\205\301\302!\303!\210\304\305 !\207" [pabbrev-debug-frame make-frame ((width . 30) (height . 30)) select-frame switch-to-buffer pabbrev-debug-get-buffer] 2 nil nil])
(defalias 'pabbrev-debug-frame-scroll #[nil "\212\205\301!\210\302\303 !\210db)\207" [pabbrev-debug-frame select-frame switch-to-buffer pabbrev-debug-get-buffer] 2])
#@286 If t visible mark the progress of function `pabbrev-mode' through the buffer.
This looks very ugly.  Note that this only shows newly added words.  Use
`pabbrev-debug-remove-properties' to clear this invisible markers.  Use
`pabbrev-debug-show-all-properties' to show existing markers.
(defvar pabbrev-debug-display nil (#$ . 36769))
(defalias 'pabbrev-debug-display #[(start end) "\205\f\303\304	\n\"\305\306#\207" [pabbrev-debug-display start end overlay-put make-overlay face pabbrev-debug-display-label-face] 4])
(custom-declare-face 'pabbrev-debug-display-label-face '((t (:underline "navy"))) "Font Lock mode face used to highlight suggestions" :group 'pabbrev)
#@53 Kill all visible overlays from the current buffer. 
(defalias 'pabbrev-debug-erase-all-overlays #[nil "\300 \210\301\302\303ed\"\"\207" [pabbrev-debug-remove-properties mapcar #[(overlay) "\301\302\"\303=\205\f\304!\207" [overlay overlay-get face pabbrev-debug-display-label-face delete-overlay] 3] overlays-in] 5 (#$ . 37444) nil])
#@53 Show all existing markers.
This can be rather slow.
(defalias 'pabbrev-debug-show-all-properties #[nil "eb\210\302\211\303`\304\"\305\306\307e`\"\"\210\203!	\204!`\2024	\2034\2044\310\311	`\"\312\313#\210\302\302u\210\202" [on-mark on-mark-state nil get-text-property pabbrev-added message "On line %s" count-lines overlay-put make-overlay face underline] 5 (#$ . 37786) nil])
#@35 Kill and restart the idle timers.
(defalias 'pabbrev-debug-restart-idle-timer #[nil "\300 \210\301 \207" [pabbrev-debug-kill-idle-timer pabbrev-ensure-idle-timer] 1 (#$ . 38183) nil])
#@124 Kill the idle timers.
Toggling `pabbrev-mode' will tend to turn them on again, as
will `pabbrev-debug-restart-idle-timer'.
(defalias 'pabbrev-debug-kill-idle-timer #[nil "\203\n\302!\210\303	\205\302	!\210\303\211\207" [pabbrev-short-idle-timer pabbrev-long-idle-timer cancel-timer nil] 2 (#$ . 38374) nil])
#@144 Remove all the `pabbrev-added' properties from the buffer.
This means all the words in the buffer will be open for addition
to the dictionary.
(defalias 'pabbrev-debug-remove-properties #[nil "\300ed\301#\207" [remove-text-properties (pabbrev-added)] 4 (#$ . 38696) nil])
#@64 Clear the dictionary for major mode MODE, or the current mode.
(defalias 'pabbrev-debug-clear-hashes #[(&optional mode) "\204	\304\n\"\304\"\305 \203 \306\305 !\210\307\310\311#\210\312 \205/\306\312 !\210\307\312\311#\207" [mode major-mode pabbrev-prefix-hash-modes pabbrev-usage-hash-modes delq pabbrev-get-usage-hash clrhash put pabbrev-usage-hash nil pabbrev-get-prefix-hash] 4 (#$ . 38974) nil])
#@33 Clear all hashes for all modes.
(defalias 'pabbrev-debug-clear-all-hashes #[nil "\301\302\"\207" [pabbrev-prefix-hash-modes mapcar pabbrev-debug-clear-hashes] 3 (#$ . 39394) nil])
#@40 Print the hashes for the current mode.
(defalias 'pabbrev-debug-print-hashes #[nil "\302 \303 \304\305\306!!\210\307 \210	\204\310c\210\311\312\313	!!\314\261\210\204*\315c\210\2024\316\312\313!!\314\261\210\317c\210\320	!\210\321c\210\320!*\207" [prefix usage pabbrev-get-usage-hash pabbrev-get-prefix-hash switch-to-buffer get-buffer-create "*pabbrev hash*" erase-buffer "Usage hash nil" "Usage hash size " number-to-string hash-table-count "\n" "Prefix hash nil" "Prefix hash size " "Usage hash:\n" pabbrev-debug-print-hash "Prefix hash:\n"] 4 (#$ . 39581) nil])
#@22 Pretty print a hash.
(defalias 'pabbrev-debug-print-hash #[(hash) "\205\301p\"\210\302c\210\303\304\"\207" [hash pp "\n" maphash #[(key value) "\302\303Qc\210\304	p\"\207" [key value "KEY: " "\n" pp] 3]] 3 (#$ . 40164)])
(byte-code "\300\301\302\217\210\303\304!\207" [nil (byte-code "\300\301!\207" [require working] 2) ((error (byte-code "\300\301M\210\302\303\304\"\210\302\305\306\"\210\307\300\310\311#\207" [working-status-forms (macro . #[(message donestr &rest forms) "\303\304D\305	D\306E\307\nBE\207" [message donestr forms let msg dstr (ref1 0) progn] 4 "Contain a block of code during which a working status is shown."]) defalias working-status #[(&optional percent &rest args) "\304\305\306\307	#\n\310=\203\311P\202#\307\312\n\206\"\313\314\315`!d\245_!\"#\207" [msg args percent dstr message "%s%s" apply format t "... " "... %3d%%" floor 100.0 float] 9 "Called within the macro `working-status-forms', show the status."] working-dynamic-status #[(&optional number &rest args) "\303\304\305\306	#\306\307\310\n\311\246H\"#\210\nT\211\207" [msg args ref1 message "%s%s" apply format "... %c" [45 47 124 92] 4] 8 "Called within the macro `working-status-forms', show the status."] put lisp-indent-function 2] 4))) provide pabbrev] 3)