1799 ;; (setq-default ispell-extra-args '("--sug-mode=ultra")) |
1799 ;; (setq-default ispell-extra-args '("--sug-mode=ultra")) |
1800 |
1800 |
1801 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1801 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1802 (message "dict, dictd, dictionary, gadict, gaphrase, gadialog") |
1802 (message "dict, dictd, dictionary, gadict, gaphrase, gadialog") |
1803 |
1803 |
|
1804 (defun my-gedict-enable-whitespace () |
|
1805 (setq show-trailing-whitespace nil) |
|
1806 (setq-local whitespace-style '(face trailing)) |
|
1807 (whitespace-mode 1)) |
|
1808 |
1804 (when (fboundp 'gadict-mode) |
1809 (when (fboundp 'gadict-mode) |
1805 (add-to-list 'auto-mode-alist '("\\.gadict$" . gadict-mode)) ) |
1810 (add-to-list 'auto-mode-alist '("\\.gadict$" . gadict-mode)) ) |
1806 (add-hook 'gadict-mode-hook 'whitespace-mode) |
1811 (add-hook 'gadict-mode-hook 'my-gedict-enable-whitespace) |
1807 |
1812 |
1808 (when (fboundp 'gaphrase-mode) |
1813 (when (fboundp 'gaphrase-mode) |
1809 (add-to-list 'auto-mode-alist '("\\.gaphrase$" . gaphrase-mode)) ) |
1814 (add-to-list 'auto-mode-alist '("\\.gaphrase$" . gaphrase-mode)) ) |
1810 (add-hook 'gaphrase-mode-hook 'whitespace-mode) |
1815 (add-hook 'gaphrase-mode-hook 'my-gedict-enable-whitespace) |
1811 |
1816 |
1812 (when (fboundp 'gadialog-mode) |
1817 (when (fboundp 'gadialog-mode) |
1813 (add-to-list 'auto-mode-alist '("\\.gadialog$" . gadialog-mode)) ) |
1818 (add-to-list 'auto-mode-alist '("\\.gadialog$" . gadialog-mode)) ) |
1814 (add-hook 'gadialog-mode-hook 'whitespace-mode) |
1819 (add-hook 'gadialog-mode-hook 'my-gedict-enable-whitespace) |
1815 |
1820 |
1816 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1821 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1817 (message "figlet") |
1822 (message "figlet") |
1818 |
1823 |
1819 (defun my-figlet-region (&optional b e) |
1824 (defun my-figlet-region (&optional b e) |