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) |