diff options
| author | Torsten Hilbrich | 2020-12-14 11:44:12 +0100 |
|---|---|---|
| committer | Torsten Hilbrich | 2020-12-14 11:45:24 +0100 |
| commit | 62d14e10f9dc52136d951a5702ba70d4be171d84 (patch) | |
| tree | c3c772a717d6cd3136dca6ce7461cc37458b381d | |
| parent | ca0de4d1e0bd718568dfca8daf5498754145941a (diff) | |
| download | emacs-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.el | 6 |
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"))) |