;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:53:35 1995
;;; from file /gd/gnu/emacs/19.0/lisp/thingatpt.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/thingatpt.el' was compiled for Emacs 19"))


(provide (quote thingatpt))
#@44 Move forward to the end of the next THING.
(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 (#$ . 515)])
#@331 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 '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 (#$ . 778)])
#@90 Return the THING at point, where THING is an entity defined by
bounds-of-thing-at-point.
(defalias 'thing-at-point #[(THING) "А	!‰… \n@\nA{)‡" [bounds-of-thing-at-point THING bounds] 3 (#$ . 1404)])
(defalias 'beginning-of-thing #[(THING) "А	!‰„ ГД	\"€\n@b)‡" [bounds-of-thing-at-point THING bounds error "No %s here"] 4])
(defalias 'end-of-thing #[(THING) "А	!‰„ ГД	\"€\nAb)‡" [bounds-of-thing-at-point THING bounds error "No %s here"] 4])
(put (quote line) (quote beginning-op) #[nil "nѓ Аy‡Бy€В‡" [-1 0 nil] 1])
(defalias 'in-string-p #[nil "`ЉБ €ВГ`\"8*‡" [orig beginning-of-defun 3 parse-partial-sexp] 4])
(defalias 'end-of-sexp #[nil "`fz‰Б=„ В=ѓ Г ѓ Дu‚ ЕД!)‡" [char-syntax 41 34 in-string-p 1 forward-sexp] 3])
(byte-code "АБВГ#€АДВЕ#€АДЖЗ#‡" [put sexp end-op end-of-sexp list #[nil "АБ!‡" [up-list 1] 2] beginning-op backward-sexp] 4)
#@36 Characters allowable in filenames.
(defvar file-name-chars "~/A-Za-z0-9---_.${}#%," (#$ . 2269))
(byte-code "АБВГ#€АБДЕ#‡" [put filename end-op #[nil "Бw‡" [file-name-chars nil] 2] beginning-op #[nil "ex‡" [file-name-chars] 2]] 4)
(defalias 'forward-whitespace #[(ARG) "А	!ѓ ВГД‰	$‡	ЕW…. ЖГД‰#ѓ' Е”fЗ=„' ИДx€	T‰‚ ‡" [natnump ARG re-search-forward "[ 	]+\\|\n" nil 0 re-search-backward 10 " 	"] 6 nil "p"])
(byte-code "АБВГ#€АБДЕ#‡" [put buffer end-op end-of-buffer beginning-op beginning-of-buffer] 4)
(defalias 'forward-symbol #[(ARG) "А	!ѓ ВГД‰	$‡	ЕW…& ЖГД‰#ѓ ЗИ!€	T‰‚ ‡" [natnump ARG re-search-forward "\\(\\sw\\|\\s_\\)+" nil 0 re-search-backward skip-syntax-backward "w_"] 6 nil "p"])
(defalias 'word-at-point #[nil "АБ!‡" [thing-at-point word] 2])
(defalias 'sentence-at-point #[nil "АБ!‡" [thing-at-point sentence] 2])
#@89 Read a lisp expression from STR, signalling an error if the entire string
was not used.
(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 (#$ . 3110)])
(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])
(defalias 'sexp-at-point #[nil "АБ!‡" [form-at-point sexp] 2])
(defalias 'symbol-at-point #[nil "АБВ\"‡" [form-at-point sexp symbolp] 3])
(defalias 'number-at-point #[nil "АБВ\"‡" [form-at-point sexp numberp] 3])
(defalias 'list-at-point #[nil "АБВ\"‡" [form-at-point list listp] 3])