;ELC ;;; compiled by erik@naggum.no on Sun Jan 14 06:58:42 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/thingatpt.el ;;; emacs version 19.30.70.6. ;;; 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.29"))) (error "`thingatpt.el' was compiled for Emacs 19.29 or later")) (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 (#$ . 496)]) #@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 ` 44 X4W4 B+" [THING end-op #[nil " \"" [forward-thing THING 1] 3] beginning-op #[nil " \"" [forward-thing THING -1] 3] beg end orig] 3) ((error))] 3 (#$ . 759)]) #@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 (#$ . 1385)]) (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 "nyy‡" [-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---_.${}#%," (#$ . 2250)) (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 'forward-same-syntax #[(&optional arg) "W`Sfz!!TV+`fz!!S" [arg 0 skip-syntax-backward char-to-string skip-syntax-forward] 4 nil "p"]) (defalias 'word-at-point #[nil "!" [thing-at-point word] 2]) (defalias 'sentence-at-point #[nil "!" [thing-at-point sentence] 2]) #@88 Read a lisp expression from STR, signaling 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 " \nAO!ć" [read-from-string STR read-data nil t] 4) ((end-of-file)) more-left error "Can't read whole string"] 4 (#$ . 3263)]) (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])