;ELC   
;;; compiled by jwz@thalidomide on Thu Dec 23 15:44:14 1993
;;; from file /th/jwz/emacs19/lisp/utils/atomic-extents.el
;;; emacs version 19.9 Lucid (beta6).
;;; bytecomp version 2.22; 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."))

(provide 'atomic-extents)
(defvar atomic-extent-old-point nil "\
The value of point when pre-command-hook is called.
Used to determine the direction of motion.")
(byte-code "ÀÁMˆÂÃMˆÄÅÀ\"ˆÄÆÂ\"‡" [atomic-extent-pre-hook #[nil "`Á‰‡" [atomic-extent-old-point nil atomic-extent-goto-char-p] 2] atomic-extent-post-hook #[nil "À`ÁÂ#‰­ÙÄ!Å!``­‚Æ 	\n\nU¬®«™\nZ	ZV«†	bˆª—\nbˆª‘V«†	bˆª„\nbˆ­‹\nU?­ƒÍÎ!,)‡" [extent-at nil atomic extent extent-start-position extent-end-position mark region-set pos end begin atomic-extent-goto-char-p atomic-extent-old-point run-hooks zmacs-update-region-hook] 5] add-hook pre-command-hook post-command-hook] 3)