equal
deleted
inserted
replaced
312 (when (eq major-mode 'gadict-mode) |
312 (when (eq major-mode 'gadict-mode) |
313 (let ( (headword (condition-case nil (gadict-nearest-headword) (error nil))) ) |
313 (let ( (headword (condition-case nil (gadict-nearest-headword) (error nil))) ) |
314 (unless (eq headword gadict-espeak-ipa-headword) |
314 (unless (eq headword gadict-espeak-ipa-headword) |
315 (setq gadict-espeak-ipa-headword headword) |
315 (setq gadict-espeak-ipa-headword headword) |
316 (setq header-line-format (if headword (gadict-espeak-ipa-line headword) nil)) |
316 (setq header-line-format (if headword (gadict-espeak-ipa-line headword) nil)) |
317 (force-window-update))))) |
317 (force-mode-line-update))))) |
318 |
318 |
319 (defvar gadict-espeak-ipa-timer nil) |
319 (defvar gadict-espeak-ipa-timer nil) |
320 (defun gadict-espeak-ipa-enable () |
320 (defun gadict-espeak-ipa-enable () |
321 (unless gadict-espeak-ipa-timer |
321 (unless gadict-espeak-ipa-timer |
322 (setq gadict-espeak-ipa-timer (run-with-idle-timer 1 t #'gadict-espeak-ipa-display)))) |
322 (setq gadict-espeak-ipa-timer (run-with-idle-timer 1 t #'gadict-espeak-ipa-display)))) |