В Emacs flyspell-mode, как добавить новое слово в словарь?

В Aquamacs в режиме flyspell, когда flyspell обозначает слово с ошибкой, я могу щелкнуть правой кнопкой мыши, чтобы добавить слово в словарь, если оно действительно правильно написано.

В GNU Emacs на OSX, когда режим flyspell выделяет слово, которое, по его мнению, ошибочно, как я могу добавить слово в словарь? Если посмотреть на документацию, я не вижу функции типа flyspell-learn-word или ispell-add-word-to-personal-dictionary.

Ответы

Ответ 1

Функция, которую вы ищете, - flyspell-correct-word-before-point. По умолчанию он привязан к клавишам C-c $. Переместите свою точку на неверное слово и выполните команду. Вы получите всплывающее меню с возможными исправлениями и вариант сохранения слова в словаре.

Если вы хотите, чтобы одна команда сохраняла текущее слово, это то, что я смог извлечь из flyspell.el

(defun my-save-word ()
  (interactive)
  (let ((current-location (point))
         (word (flyspell-get-word)))
    (when (consp word)    
      (flyspell-do-correct 'save nil (car word) current-location (cadr word) (caddr word) current-location))))