alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mu4e: don't use glyphless-char-display on emacs23

Browse Source
This commit is contained in:
djcb
2012-08-11 12:23:53 +03:00
parent 37b3e7f61f
commit 05fbc63b32
1 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
mu4e/mu4e-headers.el
View File

@ -511,12 +511,13 @@ after the end of the search results."
;; borrowed from `tabulated-list' ;; borrowed from `tabulated-list'
(defvar mu4e~glyphless-char-display (defvar mu4e~glyphless-char-display
(let ((table (make-char-table 'glyphless-char-display nil))) (when (boundp 'glyphless-char-display)
(set-char-table-parent table glyphless-char-display) (let ((table (make-char-table 'glyphless-char-display nil)))
;; Some text terminals can't display the Unicode arrows; be safe. (set-char-table-parent table glyphless-char-display)
(aset table 9650 (cons nil "^")) ;; Some text terminals can't display the Unicode arrows; be safe.
(aset table 9660 (cons nil "v")) (aset table 9650 (cons nil "^"))
table) (aset table 9660 (cons nil "v"))
table))
"The `glyphless-char-display' table in mu4e heders buffers.") "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 'mu4e~highlighted-docid)
(make-local-variable 'global-mode-string) (make-local-variable 'global-mode-string)
(set (make-local-variable 'hl-line-face) 'mu4e-header-highlight-face) (set (make-local-variable 'hl-line-face) 'mu4e-header-highlight-face)
(set (make-local-variable 'glyphless-char-display) (when (boundp 'glyphless-char-display)
mu4e~glyphless-char-display) (set (make-local-variable 'glyphless-char-display)
mu4e~glyphless-char-display))
(setq (setq
truncate-lines t truncate-lines t