# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1284757677 -7200
# Node ID e4c19190baeff1060c4d0048145f68de5e294e65
# Parent  015a63c2574f1a1ef3a4ae500e520126fb4cc7ef
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)

diff -r 015a63c2574f -r e4c19190baef lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Sep 17 17:47:49 2010 +0200
+++ b/lisp/ChangeLog	Fri Sep 17 23:07:57 2010 +0200
@@ -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 -r 015a63c2574f -r e4c19190baef lisp/fringe.el
--- a/lisp/fringe.el	Fri Sep 17 17:47:49 2010 +0200
+++ b/lisp/fringe.el	Fri Sep 17 23:07:57 2010 +0200
@@ -153,7 +153,7 @@
 		 (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 @@
 	  ((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