From ba995d986b533881c949ba4035e35fe36fe4eeb8 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Sat, 9 Jul 2016 22:54:01 +0200
Subject: Emacs: Fix display of page break lines adaptively

---
 tag-emacs/emacs.d/init.org | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'tag-emacs/emacs.d')

diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org
index 8427a77b..13f42bfb 100644
--- a/tag-emacs/emacs.d/init.org
+++ b/tag-emacs/emacs.d/init.org
@@ -242,12 +242,20 @@ on the right things.
 ** Page Breaks
 
 By default, Emacs displays page breaks as ^L.  Lines look much nicer.
+On Windows, Emacs incorrectly detects that U+2500 (Box Drawings Light
+Horizontal) can only be displayed with a different font, which is not
+correct, at least for Liberation Mono.
 
 #+BEGIN_SRC emacs-lisp
   (use-package page-break-lines
     :defer 5
     :diminish page-break-lines-mode
-    :config (global-page-break-lines-mode))
+    :config (progn
+              (global-page-break-lines-mode)
+              (unless (eq (char-displayable-p ?─) (char-displayable-p ?a))
+                (set-fontset-font "fontset-default"
+                                  (cons page-break-lines-char page-break-lines-char)
+                                  (face-attribute 'default :family)))))
 #+END_SRC
 ** Modeline
 
-- 
cgit 1.4.1