;ELC   
;;; Compiled
;;; in Emacs version 24.5.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.

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


(defvar anything-ipa-version "$Id: anything-ipa.el,v 1.6 2009-03-01 22:52:44 rubikitch Exp $")
(byte-code "\300\301!\210\300\302\303\304#\207" [require anything ipa nil t] 4)
#@45 `anything' source of ipa in current-buffer.
(defvar anything-c-source-ipa '((name . "In Place Annotations (Current Buffer)") (candidates . anything-ipa-candidates) (action ("Go To" . goto-char) ("Edit (empty string to delete)" lambda (p) (save-excursion (goto-char p) (ipa-edit t))) ("Move" lambda (p) (goto-char p) (ipa-move t))) (migemo)) (#$ . 585))
(defalias 'anything-ipa-candidates #[nil "\212q\210	\306\211\306\211\306\211\n:\203Q \n@\211\211A\242\307\f!\211b\210\310 \311 {\312!\313\314\315\316#$BB\nA\211\202 \237.\207" [anything-current-buffer ipa-annotations-in-buffer #1=#:--cl-var-- text overlay pos nil overlay-start point-at-bol point-at-eol line-number-at-pos format "%5d:[%s]%s" propertize face line lineno #2=#:--cl-var-- ipa-annotation-face] 8])
#@30 `anything' interface of ipa.
(defalias 'anything-ipa #[nil "\300\301!\207" [anything anything-c-source-ipa] 2 (#$ . 1393) nil])
#@32 `anything' source of all IPAs.
(defvar anything-c-source-ipa-global '((name . "In Place Annotations (global)") (init lambda nil (anything-candidate-buffer (ipa-find-storage-file))) (get-line lambda (s e) (unless (= s e) (cons (buffer-substring s e) s))) (candidates-in-buffer) (migemo) (action ("Go To" . anything-ipa-go-to-annotation))) (#$ . 1527))
(defalias 'anything-ipa-go-to-annotation #[(pos) "r\301 q\210b\210\302 )\207" [pos ipa-find-storage-file ipa-go-to-annotation] 1])
#@39 `anything' interface of ipa (global).
(defalias 'anything-ipa-global #[nil "\300\301!\207" [anything anything-c-source-ipa-global] 2 (#$ . 2016) nil])
(provide 'anything-ipa)