.emacs-my
changeset 1581 ad08a623a8c4
parent 1580 dfdbb8f1922c
child 1582 f7dd0f7cb900
equal deleted inserted replaced
1580:dfdbb8f1922c 1581:ad08a623a8c4
  1761 (add-hook 'log-edit-mode-hook 'flyspell-mode)
  1761 (add-hook 'log-edit-mode-hook 'flyspell-mode)
  1762 
  1762 
  1763 ;; (setq-default ispell-extra-args  '("--sug-mode=ultra"))
  1763 ;; (setq-default ispell-extra-args  '("--sug-mode=ultra"))
  1764 
  1764 
  1765 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1765 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1766 (message "dict, dictd, dictionary, gadict")
  1766 (message "dict, dictd, dictionary, gadict, gaphrase")
  1767 
  1767 
  1768 (when (fboundp 'gadict-mode)
  1768 (when (fboundp 'gadict-mode)
  1769   (add-to-list 'auto-mode-alist '("\\.gadict$" . gadict-mode)) )
  1769   (add-to-list 'auto-mode-alist '("\\.gadict$" . gadict-mode)) )
  1770 
       
  1771 (add-hook 'gadict-mode-hook 'whitespace-mode)
  1770 (add-hook 'gadict-mode-hook 'whitespace-mode)
       
  1771 
       
  1772 (when (fboundp 'gaphrase-mode)
       
  1773   (add-to-list 'auto-mode-alist '("\\.gaphrase$" . gaphrase-mode)) )
       
  1774 (add-hook 'gaphrase-mode-hook 'whitespace-mode)
  1772 
  1775 
  1773 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1776 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1774 (message "figlet")
  1777 (message "figlet")
  1775 
  1778 
  1776 (defun my-figlet-region (&optional b e)
  1779 (defun my-figlet-region (&optional b e)