Mercurial > emacs
comparison lisp/textmodes/flyspell.el @ 68314:e5fac4fecc67
(flyspell-emacs-popup, flypell-xemacs-popup): Default to disabling the
"Save affix" question.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 21 Jan 2006 13:09:16 +0000 |
| parents | aa1b3e649cc8 |
| children | 6c8eee5f9e6e 5b7d410e31f9 |
comparison
equal
deleted
inserted
replaced
| 68313:20ff812ba5b3 | 68314:e5fac4fecc67 |
|---|---|
| 2078 (mapcar (lambda (correct) | 2078 (mapcar (lambda (correct) |
| 2079 (list correct correct)) | 2079 (list correct correct)) |
| 2080 corrects) | 2080 corrects) |
| 2081 '())) | 2081 '())) |
| 2082 (affix (car (cdr (cdr (cdr poss))))) | 2082 (affix (car (cdr (cdr (cdr poss))))) |
| 2083 (base-menu (let ((save (if (consp affix) | 2083 show-affix-info |
| 2084 (base-menu (let ((save (if (and (consp affix) show-affix-info) | |
| 2084 (list | 2085 (list |
| 2085 (list (concat "Save affix: " (car affix)) | 2086 (list (concat "Save affix: " (car affix)) |
| 2086 'save) | 2087 'save) |
| 2087 '("Accept (session)" session) | 2088 '("Accept (session)" session) |
| 2088 '("Accept (buffer)" buffer)) | 2089 '("Accept (buffer)" buffer)) |
| 2119 save) | 2120 save) |
| 2120 t)) | 2121 t)) |
| 2121 corrects) | 2122 corrects) |
| 2122 '())) | 2123 '())) |
| 2123 (affix (car (cdr (cdr (cdr poss))))) | 2124 (affix (car (cdr (cdr (cdr poss))))) |
| 2124 (menu (let ((save (if (consp affix) | 2125 show-affix-info |
| 2126 (menu (let ((save (if (and (consp affix) show-affix-info) | |
| 2125 (vector | 2127 (vector |
| 2126 (concat "Save affix: " (car affix)) | 2128 (concat "Save affix: " (car affix)) |
| 2127 (list 'flyspell-do-correct | 2129 (list 'flyspell-do-correct |
| 2128 ''save | 2130 ''save |
| 2129 (list 'quote poss) | 2131 (list 'quote poss) |