;ELC   
;;; Compiled by rms@psilocin.gnu.org on Mon Dec 22 01:08:03 1997
;;; from file /gd/gnu/emacs/lisp/auto-show.el
;;; in Emacs version 20.2.83.1
;;; with bytecomp version 2.35
;;; with all optimizations.
;;; This file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`auto-show.el' was compiled for Emacs 19.29 or later"))


(custom-declare-group 'auto-show nil "Perform automatic horizontal scrolling as point moves." :group 'editing)
#@336 *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.
This variable is automatically local in each buffer where it is set.
(custom-declare-variable 'auto-show-mode 't '(#$ . -645) :type 'boolean :group 'auto-show)
(make-variable-buffer-local 'auto-show-mode)
#@63 *Extra columns to scroll. for automatic horizontal scrolling.
(custom-declare-variable 'auto-show-shift-amount '8 '(#$ . -1122) :type 'integer :group 'auto-show)
#@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.
(custom-declare-variable 'auto-show-show-left-margin-threshold '50 '(#$ . -1291) :type 'integer :group 'auto-show)
#@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 (#$ . 1603)])
#@236 Turn automatic horizontal scroll mode on or off.
With arg, turn auto scrolling on if arg is positive, off otherwise.
This mode is enabled or disabled for each buffer individually.
It takes effect only when `truncate-lines' is non-nil.
(defalias 'auto-show-mode #[(arg) "„	 	?‚ В!ГV‰‡" [arg auto-show-mode prefix-numeric-value 0] 2 (#$ . 1815) "P"])
#@226 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-mode'.
(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 (#$ . 2175) nil])
(byte-code "АБВ\"€АГВД#€ЕЖ!‡" [add-hook post-command-hook auto-show-make-point-visible comint-output-filter-functions t provide auto-show] 4)