From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 19 May 2017 07:01:23 +0000 (+0300)
Subject: Adjust defcustom form for 'auto-hscroll-mode'
X-Git-Tag: emacs-26.0.90~521^2~366
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=df9bec3b39b12b33db8f5a97d86797f6636e5e7d;p=emacs.git

Adjust defcustom form for 'auto-hscroll-mode'

* lisp/cus-start.el (standard) <auto-hscroll-mode>: Adjust the
defcustom form.  Suggested by Stephen Berman <stephen.berman@gmx.net>.
---

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 117b23debef..e11f749556b 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -556,7 +556,15 @@ since it could result in memory overflow and make Emacs crash."
 		      (const :tag "Text-image-horiz" :value text-image-horiz)
 		      (const :tag "System default" :value nil)) "24.1")
              (tool-bar-max-label-size frames integer "24.1")
-	     (auto-hscroll-mode scrolling boolean "21.1")
+	     (auto-hscroll-mode scrolling
+                                (choice
+                                 (const :tag "Don't scroll automatically"
+                                        :value nil)
+                                 (const :tag "Scroll the entire window"
+                                        :value t)
+                                 (const :tag "Scroll only the current line"
+                                        :value 'current-line))
+                                "26.1")
 	     (void-text-area-pointer cursor
 				     (choice
 				      (const :tag "Standard (text pointer)" :value nil)