;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May  2 20:13:13 1995
;;; from file /gd/gnu/emacs/19.0/lisp/auto-show.el
;;; emacs version 19.28.90.69.
;;; 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/auto-show.el' was compiled for Emacs 19"))


#@267 *Non-nil enables automatic horizontal scrolling, when lines are truncated.
The default value is t.  To change the default, do this:
	(set-default 'auto-show-mode nil)
See also command `auto-show-mode'.
This variable has no effect when lines are not being truncated.
(defvar auto-show-mode t (#$ . -488))
(make-variable-buffer-local (quote auto-show-mode))
#@63 *Extra columns to scroll. for automatic horizontal scrolling.
(defvar auto-show-shift-amount 8 (#$ . -850))
#@192 *Threshold column for automatic horizontal scrolling to the right.
If point is before this column, we try to scroll to make the left margin
visible.  Setting this to 0 disables this feature.
(defvar auto-show-show-left-margin-threshold 50 (#$ . -965))
#@61 True if line truncation is enabled for the selected window.
(defalias 'auto-show-truncationp #[nil "† 	… В Г W‡" [truncate-lines truncate-partial-width-windows window-width frame-width] 2 (#$ . 1223)])
#@118 Turn automatic horizontal scroll mode on or off.
With arg, turn auto scrolling on if arg is positive, off otherwise.
(defalias 'auto-show-mode #[(arg) "„	 	?‚ В!ГV‰‡" [arg auto-show-mode prefix-numeric-value 0] 2 (#$ . 1435) "P"])
#@228 Scroll horizontally to make point visible, if that is enabled.
This function only does something if `auto-show-mode' is non-nil
and longlines are being truncated in the selected window.
See also the command `auto-show-toggle'.
(defalias 'auto-show-make-point-visible #[(&optional ignore-arg) "…u Б …u В pљ…u iД Ж ЗVѓ! И‚\" ЙZ\n\n\\\fWѓE Ж WѓE ЗVѓE Н!‚t WѓV НZ\\!‚t V„i U…t l?…t П\n\\Z\\!,‡" [auto-show-mode auto-show-truncationp window-buffer col window-hscroll scroll window-width 0 2 1 w-width right-col auto-show-show-left-margin-threshold scroll-right auto-show-shift-amount scroll-left] 5 (#$ . 1677) nil])
(byte-code "АБВ\"€АГВД#€ЕЖ!‡" [add-hook post-command-hook auto-show-make-point-visible comint-output-filter-functions t provide auto-show] 4)