(help-make-xrefs): Default info references to an

[gnu-emacs] / lisp / auto-show.el

diff --git a/lisp/auto-show.el b/lisp/auto-show.el
index 2cae3c334e06895cb295a6e5789e788888c012a8..34b8ae75ad7fb009465ba93db711c01cef0a3e2d 100644 (file)
--- a/lisp/auto-show.el
+++ b/lisp/auto-show.el
@@ -37,22 +37,33 @@
 
 ;;; Code:
 
-(defvar auto-show-mode t
+(defgroup auto-show nil
+  "Perform automatic horizontal scrolling as point moves."
+  :group 'editing)
+
+(defcustom auto-show-mode t
   "*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 has no effect when lines are not being truncated.
+This variable is automatically local in each buffer where it is set."
+  :type 'boolean
+  :group 'auto-show)
 
 (make-variable-buffer-local 'auto-show-mode)
 
-(defvar auto-show-shift-amount 8 
-  "*Extra columns to scroll. for automatic horizontal scrolling.")
+(defcustom auto-show-shift-amount 8 
+  "*Extra columns to scroll. for automatic horizontal scrolling."
+  :type 'integer
+  :group 'auto-show)
 
-(defvar auto-show-show-left-margin-threshold 50
+(defcustom auto-show-show-left-margin-threshold 50
   "*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.")
+visible.  Setting this to 0 disables this feature."
+  :type 'integer
+  :group 'auto-show)
 
 (defun auto-show-truncationp ()
   "True if line truncation is enabled for the selected window."
@@ -63,7 +74,9 @@ visible.  Setting this to 0 disables this feature.")
 ;;;###autoload
 (defun auto-show-mode (arg)
   "Turn automatic horizontal scroll mode on or off.
-With arg, turn auto scrolling on if arg is positive, off otherwise."
+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."
   (interactive "P")
   (setq auto-show-mode
        (if (null arg)
@@ -74,7 +87,7 @@ With arg, turn auto scrolling on if arg is positive, off otherwise."
   "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'."
+See also the command `auto-show-mode'."
   (interactive)
   (if (and auto-show-mode (auto-show-truncationp)
           (equal (window-buffer) (current-buffer)))