branch: externals/greader commit 813a824faca45f76ca53c0e7a92192eb08b1dcb8 Author: Michelangelo Rodriguez <michelangelo.rodrig...@gmail.com> Commit: Michelangelo Rodriguez <michelangelo.rodrig...@gmail.com>
greader-dict.el: fixed Now filters are updated correctly with `greader-dict-change-dictionary'. --- greader-dict.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/greader-dict.el b/greader-dict.el index f2e7037525..a6b0690e5f 100644 --- a/greader-dict.el +++ b/greader-dict.el @@ -408,6 +408,10 @@ user-error and aborts the reading process." (setq greader-dict-filename (buffer-local-value 'greader-dict-filename greader-dict--current-reading-buffer)) + (setq greader-filters (buffer-local-value 'greader-filters + greader-dict--current-reading-buffer)) + (setq greader-dict-toggle-filters (buffer-local-value + 'greader-dict-toggle-filters greader-dict--current-reading-buffer)) (insert-file-contents (greader-dict--get-file-name)) (when-let ((lines (string-lines (buffer-string) t))) (dolist (line lines) @@ -653,11 +657,14 @@ asked." greader-dict--saved-flag t)))) (clrhash greader-dictionary) + (clrhash greader-filters) (greader-dict--set-file (intern new-dict)) (unless (file-exists-p (greader-dict--get-file-name)) (shell-command-to-string (concat "touch " greader-dict-filename))) - (greader-dict-read-from-dict-file)))) + (greader-dict--update) + (greader-dict--update)))) + ;; (remove-hook 'buffer-list-update-hook #'greader-dict--update))))) (defun greader-dict--update ()