From 62d14e10f9dc52136d951a5702ba70d4be171d84 Mon Sep 17 00:00:00 2001 From: Torsten Hilbrich Date: Mon, 14 Dec 2020 11:44:12 +0100 Subject: [PATCH] * 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 f06efaea375..0df9d8b1423 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"))) -- 2.39.2