(scrolling): New group.

(automatic-hscrolling): New user-option.

diff --git a/lisp/frame.el b/lisp/frame.el
index cdfb9551aced83c3ab1a8bd1c2e067b72d5f3f0f..f741730ff96c10fb24a191005d8df0638638bb82 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -995,6 +995,22 @@ FRAME nil or omitted means delete all frames except the selected frame."
   :group 'font-lock)
 
 
+\f
+;;; Scrolling
+
+(defgroup scrolling nil
+  "Scrolling windows."
+  :version "21.1"
+  :group 'frames)
+
+(defcustom automatic-hscrolling t
+  "*Allow or disallow autmatic scrolling windows horizontally.
+If non-nil, windows are autmatically scrolled horizontally to make
+point visible."
+  :version "21.1"
+  :type 'boolean
+  :group 'scrolling)
+
 \f
 ;;; Blinking cursor