procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/net/dictionary.el (dictionary-pre-buffer): Unify casing

Browse source 
Let all the buttons begins with an upper-case character and the rest of
the text is lower-case.
This commit is contained in:
Torsten Hilbrich 2020-12-14 11:44:12 +01:00
parent ca0de4d1e0
commit 62d14e10f9
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/net/dictionary.el
View file

@ -742,7 +742,7 @@ of matching words."
'callback 'dictionary-restore-state 'callback 'dictionary-restore-state
'help-echo (purecopy "Mouse-2 to go backwards in history")) 'help-echo (purecopy "Mouse-2 to go backwards in history"))
(insert " ") (insert " ")
(insert-button "[Search Definition]" :type 'dictionary-button (insert-button "[Search definition]" :type 'dictionary-button
'callback 'dictionary-search 'callback 'dictionary-search
'help-echo (purecopy "Mouse-2 to look up a new word")) 'help-echo (purecopy "Mouse-2 to look up a new word"))
(insert " ") (insert " ")
@ -758,11 +758,11 @@ of matching words."
(insert "\n ") (insert "\n ")
(insert-button "[Select Dictionary]" :type 'dictionary-button (insert-button "[Select dictionary]" :type 'dictionary-button
'callback 'dictionary-select-dictionary 'callback 'dictionary-select-dictionary
'help-echo (purecopy "Mouse-2 to select dictionary for future searches")) 'help-echo (purecopy "Mouse-2 to select dictionary for future searches"))
(insert " ") (insert " ")
(insert-button "[Select Match Strategy]" :type 'dictionary-button (insert-button "[Select match strategy]" :type 'dictionary-button
'callback 'dictionary-select-strategy 'callback 'dictionary-select-strategy
'help-echo (purecopy "Mouse-2 to select matching algorithm")) 'help-echo (purecopy "Mouse-2 to select matching algorithm"))
(insert "\n\n"))) (insert "\n\n")))