;ELC   
;;; compiled by roland@churchy.gnu.ai.mit.edu on Sat Jun 18 13:35:11 1994
;;; from file /gd/gnu/emacs/19.0/lisp/thingatpt.el
;;; emacs version 19.25.9.
;;; 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/thingatpt.el' was compiled for Emacs 19"))

(provide (quote thingatpt))
(defalias 'forward-thing #[(THING &optional N) "БN†\f ВГД\"!Е	!ѓ 	† З!‚\" ИЙ\")‡" [THING forward-op intern-soft format "forward-%s" fboundp N 1 error "Can't determine how to move over %ss"] 4 "\
Move forward to the end of the next THING."])
(defalias 'bounds-of-thing-at-point #[(THING) "`БВГЏ)‡" [orig nil (byte-code "ЉБN† В €`ГN† Д €`…4 …4 X…4 W…4 B+‡" [THING end-op #[nil "А	В\"‡" [forward-thing THING 1] 3] beginning-op #[nil "А	В\"‡" [forward-thing THING -1] 3] beg end orig] 3) ((error))] 3 "\
Determine the start and end buffer locations for the THING at point,
where THING is an entity for which there is a either a corresponding
forward-THING operation, or corresponding beginning-of-THING and
end-of-THING operations, eg. 'word, 'sentence, 'defun.
  Return a cons cell '(start . end) giving the start and end positions."])
(defalias 'thing-at-point #[(THING) "А	!‰… \n@\nA{)‡" [bounds-of-thing-at-point THING bounds] 3 "\
Return the THING at point, where THING is an entity defined by
bounds-of-thing-at-point."])
(byte-code "АБВ\"€АГД\"€АЕЖ\"€АЗИ\"€ЙКЛЗ#€ЙМЛН#€ЙМОП#‡" [defalias beginning-of-thing #[(THING) "А	!‰„ ГД	\"€\n@b)‡" [bounds-of-thing-at-point THING bounds error "No %s here"] 4] end-of-thing #[(THING) "А	!‰„ ГД	\"€\nAb)‡" [bounds-of-thing-at-point THING bounds error "No %s here"] 4] in-string-p #[nil "`ЉБ €ВГ`\"8*‡" [orig beginning-of-defun 3 parse-partial-sexp] 4] end-of-sexp #[nil "`fz‰Б=„ В=ѓ Г ѓ Дu‚ ЕД!)‡" [char-syntax 41 34 in-string-p 1 forward-sexp] 3] put sexp end-op list #[nil "АБ!‡" [up-list 1] 2] beginning-op backward-sexp] 4)
(defvar file-name-chars "~/A-Za-z0-9---_.${}#%," "\
Characters allowable in filenames.")
(byte-code "АБВГ#€АБДЕ#€ЖЗИ\"€АЙВК#€АЙДЛ#€ЖМН\"€ЖОП\"€ЖРС\"‡" [put filename end-op #[nil "Бw‡" [file-name-chars nil] 2] beginning-op #[nil "ex‡" [file-name-chars] 2] defalias forward-whitespace #[(ARG) "А	!ѓ ВГД‰	$‡	ЕW…. ЖГД‰#ѓ' Е”fЗ=„' ИДx€	T‰‚ ‡" [natnump ARG re-search-forward "[ 	]+\\|\n" nil 0 re-search-backward 10 " 	"] 6 nil "p"] buffer end-of-buffer beginning-of-buffer forward-symbol #[(ARG) "А	!ѓ ВГД‰	$‡	ЕW…& ЖГД‰#ѓ ЗИ!€	T‰‚ ‡" [natnump ARG re-search-forward "\\(\\sw\\|\\s_\\)+" nil 0 re-search-backward skip-syntax-backward "w_"] 6 nil "p"] word-at-point #[nil "АБ!‡" [thing-at-point word] 2] sentence-at-point #[nil "АБ!‡" [thing-at-point sentence] 2]] 4)
(defalias 'read-from-whole-string #[(STR) "А	!ГДЕЏ‰ѓ ЗИ!‚ \n@*‡" [read-from-string STR read-data nil (byte-code "А	\nAГO!€Д‡" [read-from-string STR read-data nil t] 4) ((end-of-file)) more-left error "Can't read whole string"] 4 "\
Read a lisp expression from STR, signalling an error if the entire string
was not used."])
(byte-code "АБВ\"€АГД\"€АЕЖ\"€АЗИ\"€АЙК\"‡" [defalias form-at-point #[(&optional THING PRED) "АБВЏ\fѓ \f!… )‡" [nil (byte-code "АБ\n† Г!!‡" [read-from-whole-string thing-at-point THING sexp] 3) ((error)) sexp PRED] 3] sexp-at-point #[nil "АБ!‡" [form-at-point sexp] 2] symbol-at-point #[nil "АБВ\"‡" [form-at-point sexp symbolp] 3] number-at-point #[nil "АБВ\"‡" [form-at-point sexp numberp] 3] list-at-point #[nil "АБВ\"‡" [form-at-point list listp] 3]] 3)