branch: externals/greader
commit 859ebebc3d4a7b9652f7eda6af467b060cf6ca6e
Author: Michelangelo Rodriguez <michelangelo.rodrig...@gmail.com>
Commit: Michelangelo Rodriguez <michelangelo.rodrig...@gmail.com>
greader-dict.el: modified.
Now we use a different test when creating the hash-table.
It allows us to don't worry about "caseness" of the key.
---
greader-dict.el | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/greader-dict.el b/greader-dict.el
index 955bd8aa0f..fefb3a467d 100644
--- a/greader-dict.el
+++ b/greader-dict.el
@@ -110,6 +110,14 @@
;;
;;; Code:
(require 'greader)
+
+;; THanks to the loved and alwais useful elisp reference.
+(defun string-hash-ignore-case (a)
+ (sxhash-equal (upcase a)))
+
+(define-hash-table-test 'ignore-case
+ 'string-equal-ignore-case 'string-hash-ignore-case)
+
(defvar-local greader-dictionary nil)
(defvar greader-dict-match-indicator "\%\*"
"Regexp that will be used for match delimiter.")
@@ -625,7 +633,7 @@ as a word definition."
:lighter " gr-dictionary"
(cond
(greader-dict-mode
- (setq greader-dictionary (make-hash-table :test 'equal))
+ (setq greader-dictionary (make-hash-table :test 'ignore-case))
(setq greader-dict--current-reading-buffer (current-buffer))
(greader-dict-read-from-dict-file)
(add-hook 'greader-after-get-sentence-functions
