From 05fbc63b3224b3b51c35b4d4a4d8b0e82d3a9cd6 Mon Sep 17 00:00:00 2001 From: djcb Date: Sat, 11 Aug 2012 12:23:53 +0300 Subject: [PATCH] * mu4e: don't use glyphless-char-display on emacs23 --- mu4e/mu4e-headers.el | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/mu4e/mu4e-headers.el b/mu4e/mu4e-headers.el index fbb90df3..6a59703d 100644 --- a/mu4e/mu4e-headers.el +++ b/mu4e/mu4e-headers.el @@ -511,12 +511,13 @@ after the end of the search results." ;; borrowed from `tabulated-list' (defvar mu4e~glyphless-char-display - (let ((table (make-char-table 'glyphless-char-display nil))) - (set-char-table-parent table glyphless-char-display) - ;; Some text terminals can't display the Unicode arrows; be safe. - (aset table 9650 (cons nil "^")) - (aset table 9660 (cons nil "v")) - table) + (when (boundp 'glyphless-char-display) + (let ((table (make-char-table 'glyphless-char-display nil))) + (set-char-table-parent table glyphless-char-display) + ;; Some text terminals can't display the Unicode arrows; be safe. + (aset table 9650 (cons nil "^")) + (aset table 9660 (cons nil "v")) + table)) "The `glyphless-char-display' table in mu4e heders buffers.") @@ -574,8 +575,9 @@ after the end of the search results." (make-local-variable 'mu4e~highlighted-docid) (make-local-variable 'global-mode-string) (set (make-local-variable 'hl-line-face) 'mu4e-header-highlight-face) - (set (make-local-variable 'glyphless-char-display) - mu4e~glyphless-char-display) + (when (boundp 'glyphless-char-display) + (set (make-local-variable 'glyphless-char-display) + mu4e~glyphless-char-display)) (setq truncate-lines t