mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Use Unicode arrows in shortdoc results

Browse source 
* lisp/emacs-lisp/shortdoc.el (shortdoc--display-function): Use
Unicode arrows if possible.
This commit is contained in:
Lars Ingebrigtsen 2020-10-11 11:21:48 +02:00
parent 28592faa28
commit ed378c95b6
1 changed files with 13 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/emacs-lisp/shortdoc.el
View file

@ -983,7 +983,13 @@ There can be any number of :example/:result elements."
(insert "\n")
(add-face-text-property start-section (point) 'shortdoc-section t)
(let ((start (point))
(print-escape-newlines t))
(print-escape-newlines t)
(double-arrow (if (char-displayable-p ?⇒)
"⇒"
"=>"))
(single-arrow (if (char-displayable-p ?→)
"→"
"->")))
(cl-loop for (type value) on data by #'cddr
do
(cl-case type
@ -993,7 +999,7 @@ There can be any number of :example/:result elements."
(insert " ")
(prin1 value (current-buffer))
(insert "\n")
(insert " => ")
(insert " " double-arrow " ")
(prin1 (eval value) (current-buffer))
(insert "\n")))
(:no-eval*
@ -1001,7 +1007,7 @@ There can be any number of :example/:result elements."
(insert " " value "\n")
(insert " ")
(prin1 value (current-buffer)))
(insert "\n -> "
(insert "\n " single-arrow " "
(propertize "[it depends]"
'face 'variable-pitch)
"\n"))
@ -1018,19 +1024,19 @@ There can be any number of :example/:result elements."
(prin1 value (current-buffer)))
(insert "\n"))
(:result
(insert " => ")
(insert " " double-arrow " ")
(prin1 value (current-buffer))
(insert "\n"))
(:result-string
(insert " => ")
(insert " " double-arrow " ")
(princ value (current-buffer))
(insert "\n"))
(:eg-result
(insert " eg. => ")
(insert " eg. " double-arrow " ")
(prin1 value (current-buffer))
(insert "\n"))
(:eg-result-string
(insert " eg. => ")
(insert " eg. " double-arrow " ")
(princ value (current-buffer))
(insert "\n"))))
(put-text-property start (point) 'face 'shortdoc-example))