;ELC ;;; compiled by amu@mit.edu on Sat Sep 13 16:20:57 1997 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.4.67/lisp/x-overlay.el ;;; emacs version 19.30.1. ;;; 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 "`x-overlay.el' was compiled for Emacs 19.29 or later")) #@35 Return t if OBJECT is an overlay. (defalias 'overlayp #[(object) "À !…\n Ã\"‡" [extentp object extent-property overlay] 3 (#$ . 496)]) #@353 Create a new overlay with range BEG to END in BUFFER. If omitted, BUFFER defaults to the current buffer. BEG and END may be integers or markers. The fourth arg FRONT-ADVANCE, if non-nil, makes the front delimiter advance when text is inserted there. The fifth arg REAR-ADVANCE, if non-nil, makes the rear delimiter advance when text is inserted there. (defalias 'make-overlay #[(beg end &optional buffer front-advance rear-advance) "À‰ „ p‚ÄÅ \"ˆVƒ$ È #É\nÂÊ#ˆ ƒ@É\nÌÊ#ˆ‚FÉ\nÍÊ#ˆƒTÉ\nÏÊ#ˆ‚ZÉ\nÐÊ#ˆ\n*‡" [nil temp overlay buffer check-argument-type bufferp beg end make-extent set-extent-property t front-advance start-open start-closed rear-advance end-closed end-open] 4 (#$ . 640)]) #@209 Set the endpoints of OVERLAY to BEG and END in BUFFER. If BUFFER is omitted, leave OVERLAY in the same buffer it inhabits now. If BUFFER is omitted, and OVERLAY is in no buffer, put it in the current buffer. (defalias 'move-overlay #[(overlay beg end &optional buffer) "ÀÂÃ\f\"ˆ „Æ\f! „pÂÇ \"ˆ Uƒ/Ê\fË\"ƒ/Ì\f!‚K VƒA   Í\f $ˆ\f)‡" [nil temp check-argument-type overlayp overlay buffer extent-object bufferp beg end extent-property evaporate delete-overlay set-extent-endpoints] 5 (#$ . 1364)]) #@45 Delete the overlay OVERLAY from its buffer. (defalias 'delete-overlay #[(overlay) "ÀÁ\n\"ˆÃ\n!ˆÄ‡" [check-argument-type overlayp overlay detach-extent nil] 3 (#$ . 1891)]) #@46 Return the position at which OVERLAY starts. (defalias 'overlay-start #[(overlay) "ÀÁ\n\"ˆÃ\n!‡" [check-argument-type overlayp overlay extent-start-position] 3 (#$ . 2069)]) #@44 Return the position at which OVERLAY ends. (defalias 'overlay-end #[(overlay) "ÀÁ\n\"ˆÃ\n!‡" [check-argument-type overlayp overlay extent-end-position] 3 (#$ . 2249)]) #@39 Return the buffer OVERLAY belongs to. (defalias 'overlay-buffer #[(overlay) "ÀÁ\n\"ˆÃ\n!‡" [check-argument-type overlayp overlay extent-object] 3 (#$ . 2423)]) #@127 Return a list of the properties on OVERLAY. This is a copy of OVERLAY's plist; modifying its conses has no effect on OVERLAY. (defalias 'overlay-properties #[(overlay) "ÀÁ\n\"ˆÃ\n!‡" [check-argument-type overlayp overlay extent-properties] 3 (#$ . 2590)]) #@58 Return a list of the overlays that contain position POS. (defalias 'overlays-at #[(pos) "À ‰\"‡" [overlays-in pos] 3 (#$ . 2852)]) #@283 Return a list of the overlays that overlap the region BEG ... END. Overlap means that at least one character is contained within the overlay and also contained within the specified region. Empty overlays are included in the result if they are located at BEG or between BEG and END. (defalias 'overlays-in #[(beg end) "ÀÂÃÄÀ #\"ˆ )‡" [nil lst mapcar #[(overlay) "À Á\"… C\"‰‡" [extent-property overlay append lst] 3] extent-list beg end] 6 (#$ . 2990)]) #@140 Return the next position after POS where an overlay starts or ends. If there are no more overlay boundaries after POS, return (point-max). (defalias 'next-overlay-change #[(pos) "dÀÃÄÅ \"\"ˆ\n*‡" [nil end next mapcar #[(overlay) "À !‰ W… \n‰‡" [extent-end-position overlay end next] 2] overlays-in pos] 5 (#$ . 3458)]) #@146 Return the previous position before POS where an overlay starts or ends. If there are no more overlay boundaries before POS, return (point-min). (defalias 'previous-overlay-change #[(pos) "eÀÃÄÅ\n\"\"ˆ\n*‡" [nil beg prev mapcar #[(overlay) "À !‰ V…\n\fW…\n‰‡" [extent-start-position overlay beg prev pos] 2] overlays-in pos] 5 (#$ . 3791)]) #@379 Return a pair of lists giving all the overlays of the current buffer. The car has all the overlays before the overlay center; the cdr has all the overlays after the overlay center. Recentering overlays moves overlays between these lists. The lists you get are copies, so that changing them has no effect. However, the overlays you get are the real objects that the buffer uses. (defalias 'overlay-lists #[nil "ÀÁ!„ÂdeZÃ¥!ˆ ĉÈÉÊ \"ˆ +D‡" [boundp xemacs-internal-overlay-center-pos overlay-recenter 2 nil after before pos mapcar #[(overlay) "À Á\"… \nà !VƒÄ C\"‰‡Ä C\"‰‡" [extent-property overlay pos extent-end-position append before after] 3] extent-list] 3 (#$ . 4149)]) #@66 Recenter the overlays of the current buffer around position POS. (defalias 'overlay-recenter #[(pos) "ÀÁ!\nL‡" [make-local-variable xemacs-internal-overlay-center-pos pos] 2 (#$ . 4846)]) #@62 Get the property of overlay OVERLAY with property name PROP. (defalias 'overlay-get #[(overlay prop) "ÀÁ\n\"ˆÃ\n\f\"‡" [check-argument-type overlayp overlay extent-property prop] 3 (#$ . 5040)]) #@70 Set one property of overlay OVERLAY: give property PROP value VALUE. (defalias 'overlay-put #[(overlay prop value) "ÀÁ\n\"ˆ Ä=ƒÅ\nÆ#ˆ‚N È=ƒ,Å\nÉÊËÌ #!#ˆ‚N Î=ƒCÅ\nÏÊËÌ #!#ˆ‚N Ð>ƒNÑÒ \"ˆÅ\n #‡" [check-argument-type overlayp overlay prop evaporate set-extent-property detachable value before-string begin-glyph make-glyph vector string :data after-string end-glyph (window insert-in-front-hooks insert-behind-hooks modification-hooks) error "cannot support overlay '%s property under XEmacs"] 8 (#$ . 5241)]) (provide (quote overlay))