From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 21 Jan 2006 13:11:21 +0000 (+0000)
Subject: (flyspell-emacs-popup, flypell-xemacs-popup): Default to disabling the
X-Git-Tag: emacs-pretest-22.0.90~4648
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f60117ac2980966dc0de0fd1fd5447eb17589a3f;p=emacs.git

(flyspell-emacs-popup, flypell-xemacs-popup): Default to disabling the
"Save affix" question.
---

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