Browse Source
* Remove mark when doing clang-format regardless of whether anything was formatted * Remove pattern (unused)master

3 changed files with 25 additions and 5 deletions
@ -0,0 +1,20 @@ |
|||
(setq macoy-edict-location "C:/Users/mmadson/MacoyPrograms/Emacs27_Win64_WithDeps/dependencies/edict/edict") |
|||
(setq macoy-kanjidict-location nil) |
|||
|
|||
(add-to-list 'auto-coding-alist '("edict\\'" . euc-jp)) |
|||
(add-to-list 'auto-coding-alist '("kanjidic\\'" . euc-jp)) |
|||
|
|||
;; From https://www.emacswiki.org/emacs/UsingEdict |
|||
(defun macoy-find-region-translation-japanese (start end) |
|||
"Find the region in the EDICT file." |
|||
(interactive "r") |
|||
(let ((str (buffer-substring-no-properties start end)) |
|||
(conf (current-window-configuration))) |
|||
(if (and macoy-kanjidict-location (= (length str) 1)) |
|||
(find-file macoy-kanjidict-location) |
|||
(find-file macoy-edict-location)) |
|||
(goto-char (point-min)) |
|||
(when (occur str) |
|||
(set-window-configuration conf) |
|||
(switch-to-buffer "*Occur*") |
|||
(local-set-key (kbd "q") 'bury-buffer)))) |
Loading…
Reference in new issue