Merge branch 'maint'
This commit is contained in:
commit
f3b2b74baf
|
@ -542,7 +542,7 @@ Empty lines are not indented."
|
||||||
"Return string S with a partial box to its left.
|
"Return string S with a partial box to its left.
|
||||||
INFO is a plist used as a communication channel."
|
INFO is a plist used as a communication channel."
|
||||||
(let ((utf8p (eq (plist-get info :ascii-charset) 'utf-8)))
|
(let ((utf8p (eq (plist-get info :ascii-charset) 'utf-8)))
|
||||||
(format (if utf8p "╭────\n%s\n╰────" ",----\n%s\n`----")
|
(format (if utf8p "┌────\n%s\n└────" ",----\n%s\n`----")
|
||||||
(replace-regexp-in-string
|
(replace-regexp-in-string
|
||||||
"^" (if utf8p "│ " "| ")
|
"^" (if utf8p "│ " "| ")
|
||||||
;; Remove last newline character.
|
;; Remove last newline character.
|
||||||
|
|
Loading…
Reference in New Issue