aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTorsten Hilbrich2020-12-14 11:44:12 +0100
committerTorsten Hilbrich2020-12-14 11:45:24 +0100
commit62d14e10f9dc52136d951a5702ba70d4be171d84 (patch)
treec3c772a717d6cd3136dca6ce7461cc37458b381d
parentca0de4d1e0bd718568dfca8daf5498754145941a (diff)
downloademacs-feature/integration-of-dictionary-el.tar.gz
emacs-feature/integration-of-dictionary-el.zip
* lisp/net/dictionary.el (dictionary-pre-buffer): Unify casingfeature/integration-of-dictionary-el
Let all the buttons begins with an upper-case character and the rest of the text is lower-case.
-rw-r--r--lisp/net/dictionary.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/net/dictionary.el b/lisp/net/dictionary.el
index f06efaea375..0df9d8b1423 100644
--- a/lisp/net/dictionary.el
+++ b/lisp/net/dictionary.el
@@ -742,7 +742,7 @@ of matching words."
742 'callback 'dictionary-restore-state 742 'callback 'dictionary-restore-state
743 'help-echo (purecopy "Mouse-2 to go backwards in history")) 743 'help-echo (purecopy "Mouse-2 to go backwards in history"))
744 (insert " ") 744 (insert " ")
745 (insert-button "[Search Definition]" :type 'dictionary-button 745 (insert-button "[Search definition]" :type 'dictionary-button
746 'callback 'dictionary-search 746 'callback 'dictionary-search
747 'help-echo (purecopy "Mouse-2 to look up a new word")) 747 'help-echo (purecopy "Mouse-2 to look up a new word"))
748 (insert " ") 748 (insert " ")
@@ -758,11 +758,11 @@ of matching words."
758 758
759 (insert "\n ") 759 (insert "\n ")
760 760
761 (insert-button "[Select Dictionary]" :type 'dictionary-button 761 (insert-button "[Select dictionary]" :type 'dictionary-button
762 'callback 'dictionary-select-dictionary 762 'callback 'dictionary-select-dictionary
763 'help-echo (purecopy "Mouse-2 to select dictionary for future searches")) 763 'help-echo (purecopy "Mouse-2 to select dictionary for future searches"))
764 (insert " ") 764 (insert " ")
765 (insert-button "[Select Match Strategy]" :type 'dictionary-button 765 (insert-button "[Select match strategy]" :type 'dictionary-button
766 'callback 'dictionary-select-strategy 766 'callback 'dictionary-select-strategy
767 'help-echo (purecopy "Mouse-2 to select matching algorithm")) 767 'help-echo (purecopy "Mouse-2 to select matching algorithm"))
768 (insert "\n\n"))) 768 (insert "\n\n")))