diff options
| author | Eli Zaretskii <[email protected]> | 2010-09-17 23:07:57 +0200 |
|---|---|---|
| committer | Eli Zaretskii <[email protected]> | 2010-09-17 23:07:57 +0200 |
| commit | a67597d62dc993d95e45ffbb5862f92315f5914e (patch) | |
| tree | d8f9d98cfb32e6c18269bbd9183e27125cab1a44 | |
| parent | 283357a76d2f44c6899ea0456d5b8b97ece2055e (diff) | |
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)
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/fringe.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8ced74de42..cd44a207ce 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-09-17 Eli Zaretskii <[email protected]> + + * fringe.el (fringe-mode, fringe-query-style): Use 4 pixels, not + 5, for `half' width fringes. (Bug#6933) + 2010-09-17 Stefan Monnier <[email protected]> * emacs-lisp/bytecomp.el (byte-compile-file-form-defvar) diff --git a/lisp/fringe.el b/lisp/fringe.el index 600ef7ca1e..3763026514 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 |