Fix bug #6933 regarding `half' width fringes.

 fringe.el (fringe-mode, fringe-query-style): Use 4 pixels, not
 5, for `half' width fringes.  (Bug#6933)

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8ced74de42a..cd44a207ce2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-17  Eli Zaretskii  <eliz@gnu.org>
+
+        * fringe.el (fringe-mode, fringe-query-style): Use 4 pixels, not
+        5, for `half' width fringes.  (Bug#6933)
+
 2010-09-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * emacs-lisp/bytecomp.el (byte-compile-file-form-defvar)
diff --git a/lisp/fringe.el b/lisp/fringe.el
index 600ef7ca1e1..3763026514a 100644
--- a/lisp/fringe.el
+++ b/lisp/fringe.el
@@ -153,7 +153,7 @@ you can use the interactive function `set-fringe-style'."
                  (const :tag "No fringes" 0)
                  (const :tag "Only right" (0 . nil))
                  (const :tag "Only left" (nil . 0))
-                 (const :tag "Half width" (5 . 5))
+                 (const :tag "Half width" (4 . 4))
                  (const :tag "Minimal" (1 . 1))
                  (integer :tag "Specific width")
                  (cons :tag "Different left/right sizes"
@@ -187,7 +187,7 @@ frame parameter is used."
           ((eq mode 'default) nil)
           ((eq mode 'left-only) '(nil . 0))
           ((eq mode 'right-only) '(0 . nil))
-          ((eq mode 'half) '(5 . 5))
+          ((eq mode 'half) '(4 . 4))
           ((eq mode 'minimal) '(1 . 1))
           ((eq mode (intern ""))
            (if (eq 0 (cdr (assq 'left-fringe