# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1137848956 0
# Node ID e5fac4fecc67ce860a1ef3e93b332e230a8ce103
# Parent  20ff812ba5b34dfc6b9d31089ba18e35f9e6f48d
(flyspell-emacs-popup, flypell-xemacs-popup): Default to disabling the
"Save affix" question.

diff -r 20ff812ba5b3 -r e5fac4fecc67 lisp/textmodes/flyspell.el
--- a/lisp/textmodes/flyspell.el	Sat Jan 21 13:01:28 2006 +0000
+++ b/lisp/textmodes/flyspell.el	Sat Jan 21 13:09:16 2006 +0000
@@ -2080,7 +2080,8 @@
 				 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 @@
 				 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