feature/integration-of-dictionary-el 62d14e1 17/17: * lisp/net/dictionary.el (dictionary-pre-buffer): Unify casing

[Torsten Hilbrich]

branch: feature/integration-of-dictionary-el
commit 62d14e10f9dc52136d951a5702ba70d4be171d84
Author: Torsten Hilbrich <torsten.hilbrich@gmx.net>
Commit: Torsten Hilbrich <torsten.hilbrich@gmx.net>

    * lisp/net/dictionary.el (dictionary-pre-buffer): Unify casing
    
    Let all the buttons begins with an upper-case character and the rest of
    the text is lower-case.
---
 lisp/net/dictionary.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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