;ELC ;;; compiled by jwz@thalidomide on Sun Apr 10 01:58:42 1994 ;;; from file /th/jwz/emacs19/lisp/utils/text-props.el ;;; emacs version 19.10 Lucid (beta13). ;;; bytecomp version 2.23; 22-dec-93. ;;; 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 "This file was compiled for Emacs 19.")) (fset 'get-text-property #[(pos prop &optional buffer) " \n # \")" [extent-at pos buffer prop e extent-property] 5 "\ Returns the value of the PROP property at the given position."]) (fset 'extent-properties-at-1 #[(position buffer text-props-only) "  $ \"\n \n\"D) ! ! \" ! !U @=@=AA AAAQ*\n  \n @\" @ A@\nBB AAi\n+" [nil new-props props extent extent-at position buffer text-props-only text-prop extent-property prop extent-properties extent-glyph begin-glyph extent-start-position extent-end-position prev rest end-glyph getf] 6]) (fset 'extent-properties-at #[(position &optional buffer) " \n#" [extent-properties-at-1 position buffer nil] 4 "\ Returns the properties of the character at the given position, by merging the properties of overlapping extents. The returned value is a property list, some of which may be shared with other structures. You must not modify it. This returns all properties on all extents."]) (fset 'text-properties-at #[(position &optional buffer) " \n#" [extent-properties-at-1 position buffer t] 4 "\ Returns the properties of the character at the given position, by merging the properties of overlapping extents. The returned value is a property list, some of which may be shared with other structures. You must not modify it. This returns only those properties added with `put-text-property'. See also `extent-properties-at'."]) (fset 'text-property-any #[(start end prop value &optional buffer) " %" [map-extents #[(e ignore) "\n \"= \n!]" [value extent-property e prop start extent-start-position] 4] nil start end buffer] 6 "\ Check text from START to END to see if PROP is ever `eq' to VALUE. If so, return the position of the first character whose PROP is `eq' to VALUE. Otherwise return nil."]) (fset 'text-property-not-all #[(start end prop value &optional buffer) " %" [map-extents #[(e ignore) "\n \"=? \n!]" [value extent-property e prop start extent-start-position] 4] nil start end buffer] 6 "\ Check text from START to END to see if PROP is ever not `eq' to VALUE. If so, return the position of the first character whose PROP is not `eq' to VALUE. Otherwise, return nil."]) (fset 'next-property-change-1 #[(pos limit buffer prop forward-p) " q \ne\nd %) ," [nil end start this best buffer map-extents #[(e ignore) "\n\"\n!\n! VW   \n\n ^\n ] \nˇ" [prop extent-property e extent-start-position start extent-end-position end forward-p pos this best nil] 3] forward-p pos limit] 6]) (fset 'next-property-change #[(pos &optional buffer limit) " \n %" [next-property-change-1 pos limit buffer nil t] 6 "\ Return the position of next property change. Scans forward from POS until it finds a change in some text property, then returns the position of the change. In other words, it returns the position of the first character beyond POS whose properties are not identical to those of the character just after POS. LIMIT bounds the search (defaults to point-max.) Returns nil if the properties remain unchanged all the way to the end."]) (fset 'next-single-property-change #[(pos prop &optional buffer limit) " \n %" [next-property-change-1 pos limit buffer prop t] 6 "\ Return the position of next property change for a specific property. Scans forward from POS until it finds a change in PROPERTY, then returns the position of the change. In other words, it returns the position of the first character beyond POS whose PROP property differs from that of the character just after POS. LIMIT bounds the search (defaults to point-max.) Returns nil if the property is the same all the way to the end."]) (fset 'previous-property-change #[(pos &optional buffer limit) " \n ĉ%" [next-property-change-1 pos limit buffer nil] 6 "\ Return the position of previous property change. Scans backward from POS until it finds a change in some text property, then returns the position of the change. In other words, it returns the position of the first character before POS whose properties are not identical to those of the character just after POS. LIMIT bounds the search (defaults to point-min.) Returns nil if the properties remain unchanged all the way to the beginning."]) (fset 'previous-single-property-change #[(pos prop &optional buffer limit) " \n %" [next-property-change-1 pos limit buffer prop nil] 6 "\ Return the position of previous property change for a specific property. Scans backward from POS until it finds a change in PROPERTY, then returns the position of the change. In other words, it returns the position of the first character before POS whose PROP property differs from that of the character just after POS. LIMIT bounds the search (defaults to point-min.) Returns nil if the property is the same all the way to the beginning."]) (provide 'text-props)