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

"Save affix" question.

2 files changed, 9 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 981bbbf2993..9ab2b2a4b74 100644
--- 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 a4930324e95..61192bbbe1c 100644
--- 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