(flyspell-emacs-popup, flypell-xemacs-popup): Default to disabling the

"Save affix" question.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 981bbbf299351d2785510dafccc35bb58d4380bf..9ab2b2a4b748b61b60d97926aa0407c5bdc5a514 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-01-21  Agustin Martin  <agustin.martin@hispalinux.es>
+
+       * textmodes/flyspell.el (flyspell-emacs-popup, flypell-xemacs-popup):
+       Default to disabling the "Save affix" question.
+
 2006-01-21  Marien Zwart  <marienz@gentoo.org>  (tiny change)
 
        * progmodes/python.el (python-mode) <eldoc-mode-hook>: Pass nil as

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index a4930324e95b219aef8d35227f8a293b716dfee6..61192bbbe1c3d389e800609d16d2b4c18f787db7 100644 (file)
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -2080,7 +2080,8 @@ The word checked is the word at the mouse position."
                                 corrects)
                       '()))
         (affix      (car (cdr (cdr (cdr poss)))))
-        (base-menu  (let ((save (if (consp affix)
+        show-affix-info
+        (base-menu  (let ((save (if (and (consp affix) show-affix-info)
                                     (list
                                      (list (concat "Save affix: " (car affix))
                                            'save)
@@ -2121,7 +2122,8 @@ The word checked is the word at the mouse position."
                                 corrects)
                       '()))
         (affix      (car (cdr (cdr (cdr poss)))))
-        (menu       (let ((save (if (consp affix)
+        show-affix-info
+        (menu       (let ((save (if (and (consp affix) show-affix-info)
                                     (vector
                                      (concat "Save affix: " (car affix))
                                      (list 'flyspell-do-correct