(require (quote hactypes))

(byte-code "ÀÁ!ˆÂÃÄ\"ˆÅÃÆÇ#ˆÀÈ!ˆÂÉÊ\"ˆÅÉÆÇ#ˆÀÈ!ˆÂËÌ\"ˆÅËÆÇ#ˆÀÈ!ˆË‡" [run-hooks hibtypes:begin-load-hook setplist ibtypes::annot-bib (variable-documentation "Displays annotated bibliography entries referenced internally.
References must be delimited by square brackets, must begin with a
word constituent character, and must not be in buffers whose
names begin with a ' ' or '*' character." at-p (and (not (bolp)) (let ((chr (aref (buffer-name) 0))) (not (or (= chr 32) (= chr 42)))) (let* ((ref-and-pos (hbut:label-p t "[" "]" t)) (ref (car ref-and-pos))) (and ref (= 119 (char-syntax (aref ref 0))) (progn (ibut:label-set ref-and-pos) (hact (quote annot-bib) ref))))) to-p nil style nil) symset:add ibtypes types htype:create-hook ibtypes::rfc-toc (variable-documentation "Summarizes contents of an Internet rfc from anywhere within rfc buffer.
Each line in summary may be selected to jump to section." at-p (let ((case-fold-search t) (toc) (opoint (point))) (if (and (string-match "rfc" (buffer-name)) (goto-char (point-min)) (progn (setq toc (search-forward "Table of Contents" nil t)) (re-search-forward "^[ 	]*1.0?[ 	]+[^ 	
]" nil t (and toc 2)))) (progn (beginning-of-line) (ibut:label-set (buffer-name)) (hact (quote rfc-toc) (buffer-name) opoint)) (goto-char opoint) nil)) to-p nil style nil) ibtypes::dir-summary (variable-documentation "Detects filename buttons in files named \"MANIFEST\" or \"DIR\".
Displays selected files.
Each file name must be at the beginning of the line and must be followed
by one or more spaces and then another non-space, non-parenthesis, non-brace
character." at-p (if buffer-file-name (let ((file (file-name-nondirectory buffer-file-name)) entry start end) (if (or (string= file "DIR") (string= file "MANIFEST")) (save-excursion (beginning-of-line) (if (looking-at "\\([^(){}* 	
]+\\)[ 	]+[^(){}* 	
]") (progn (setq entry (buffer-substring (match-beginning 1) (match-end 1)) start (match-beginning 1) end (match-end 1)) (if (file-exists-p entry) (progn (ibut:label-set entry start end) (hact (quote link-to-file) entry))))))))) to-p nil style nil)] 12)

(require (quote hib-kbd))

(byte-code "ÀÁÂ\"ˆÃÁÄÅ#ˆÆÇ!ˆÀÈÉ\"ˆÃÈÄÅ#ˆÆÇ!ˆÀÊË\"ˆÃÊÄÅ#ˆÆÇ!ˆÀÌÍ\"ˆÃÌÄÅ#ˆÆÇ!ˆÀÎÏ\"ˆÃÎÄÅ#ˆÆÇ!ˆÀÐÑ\"ˆÃÐÄÅ#ˆÆÇ!ˆÀÒÓ\"ˆÃÒÄÅ#ˆÆÇ!ˆÆÔ!ˆÕÖ!‡" [setplist ibtypes::grep-msg (variable-documentation "Jumps to line associated with grep or compilation error msgs.
Messages are recognized in any buffer." at-p (progn (if (equal (buffer-name) "*compilation*") (progn (require (quote compile)) (if (eq compilation-error-list t) (progn (compilation-forget-errors) (setq compilation-parsing-end 1))) (if (not compilation-error-list) (save-excursion (set-buffer-modified-p nil) (compilation-parse-errors))))) (let* ((file) (line-num) (but-label)) (save-excursion (beginning-of-line) (if (looking-at "\\([^ 	

]+\\):\\([0-9]+\\):") (progn (setq file (buffer-substring (match-beginning 1) (match-end 1)) line-num (buffer-substring (match-beginning 2) (match-end 2)) but-label (concat file ":" line-num) line-num (string-to-int line-num)) (ibut:label-set but-label) (hact (quote link-to-file-line) file line-num)))))) to-p nil style nil) symset:add ibtypes types run-hooks htype:create-hook ibtypes::rfc (variable-documentation "Retrieves and displays an Internet rfc referenced at point.
Requires ange-ftp.  The following formats are recognized:  RFC822, rfc-822,
and RFC 822." at-p (if (and (featurep (quote ange-ftp)) (not (eq major-mode (quote dired-mode)))) (let ((case-fold-search t) (rfc-num nil)) (save-excursion (skip-chars-backward "-rRfFcC0-9") (if (looking-at "rfc[- ]?\\([0-9]+\\)") (progn (setq rfc-num (buffer-substring (match-beginning 1) (match-end 1))) (ibut:label-set (buffer-substring (match-beginning 0) (match-end 0))) (hact (quote link-to-rfc) rfc-num)))))) to-p nil style nil) ibtypes::hyp-address (variable-documentation "Makes Hyperbole mail address a button which inserts Hyperbole envir info.
Useful when sending mail to a Hyperbole mail list.
See `hyp-envir' action type." at-p (if (memq major-mode (list hmail:composer hnews:composer)) (let ((addr (find-tag-default))) (cond ((set:member addr (list "hyperbole" "hyperbole@cs.brown.edu")) (hact (quote hyp-config))) ((set:member addr (list "hyperbole-request" "hyperbole-request@cs.brown.edu")) (hact (quote hyp-request)))))) to-p nil style nil) ibtypes::hyp-source (variable-documentation "Makes source entries in Hyperbole reports into buttons that jump to source." at-p (save-excursion (beginning-of-line) (if (looking-at hbut:source-prefix) (let ((src (hbut:source))) (if src (progn (if (not (stringp src)) (setq src (prin1-to-string src))) (ibut:label-set src (point) (progn (end-of-line) (point))) (hact (quote hyp-source) src)))))) to-p nil style nil) ibtypes::man-apropos (variable-documentation "Makes man apropos entries display associated man pages when selected." at-p (save-excursion (beginning-of-line) (let ((nm "[^ 	
!@,][^ 	
,]*") topic) (and (looking-at (concat "^\\(\\*[ 	]+[!@]\\)?\\(" nm "[ 	]*,[ 	]*\\)*\\(" nm "\\)[ 	]*" "\\(([-0-9a-zA-z]+)\\)\\(::\\)?[ 	]+-[ 	]+[^ 	
]")) (setq topic (concat (buffer-substring (match-beginning 3) (match-end 3)) (buffer-substring (match-beginning 4) (match-end 4)))) (ibut:label-set topic (match-beginning 3) (match-end 4)) (hact (quote man-show) topic)))) to-p nil style nil) ibtypes::pathname (variable-documentation "Makes a delimited, valid pathname display the path entry.
Also works for delimited and non-delimited ange-ftp pathnames.
See 'hpath:at-p' for possible delimiters." at-p (let ((path (hpath:at-p))) (if path (progn (ibut:label-set path) (hact (quote link-to-file) path)))) to-p nil style nil) ibtypes::Info-node (variable-documentation "Makes \"(file)node\" buttons display the associated Info node." at-p (let ((node-ref (hpath:is-p (hbut:label-p t "\"" "\"") nil t))) (and node-ref (string-match "([^)]+)" node-ref) (ibut:label-set node-ref) (hact (quote link-to-Info-node) node-ref))) to-p nil style nil) hibtypes:end-load-hook provide hibtypes] 24)