# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1258172290 0
# Node ID acba2c6db48c6fa630d8a7d3c8b8786f782def5a
# Parent  d75b0b0c50e6be106c956a652daae11bf1ffdfed
(x-selection-owner-p): Declare.
(read-mail-command): Use custom radio type rather than choice.
(completion-no-auto-exit): Doc fix.

diff -r d75b0b0c50e6 -r acba2c6db48c lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Nov 14 04:16:17 2009 +0000
+++ b/lisp/ChangeLog	Sat Nov 14 04:18:10 2009 +0000
@@ -1,5 +1,9 @@
 2009-11-14  Glenn Morris  <rgm@gnu.org>
 
+	* simple.el (x-selection-owner-p): Declare.
+	(read-mail-command): Use custom radio type rather than choice.
+	(completion-no-auto-exit): Doc fix.
+
 	* custom.el (defgroup):
 	* epg-config.el (epg):
 	* ps-print.el (postscript): Doc fixes.
diff -r d75b0b0c50e6 -r acba2c6db48c lisp/simple.el
--- a/lisp/simple.el	Sat Nov 14 04:16:17 2009 +0000
+++ b/lisp/simple.el	Sat Nov 14 04:18:10 2009 +0000
@@ -3539,6 +3539,8 @@
   :group 'killing
   :version "23.1")
 
+(declare-function x-selection-owner-p "xselect.c" (&optional selection))
+
 ;; Many places set mark-active directly, and several of them failed to also
 ;; run deactivate-mark-hook.  This shorthand should simplify.
 (defsubst deactivate-mark (&optional force)
@@ -5500,10 +5502,11 @@
   "Your preference for a mail reading package.
 This is used by some keybindings which support reading mail.
 See also `mail-user-agent' concerning sending mail."
-  :type '(choice (function-item rmail)
-		 (function-item gnus)
-		 (function-item mh-rmail)
-		 (function :tag "Other"))
+  :type '(radio (function-item :tag "Rmail" :format "%t\n" rmail)
+                (function-item :tag "Gnus" :format "%t\n" gnus)
+                (function-item :tag "Emacs interface to MH"
+                               :format "%t\n" mh-rmail)
+                (function :tag "Other"))
   :version "21.1"
   :group 'mail)
 
@@ -5736,8 +5739,7 @@
 
 (defvar completion-no-auto-exit nil
   "Non-nil means `choose-completion-string' should never exit the minibuffer.
-This also applies to other functions such as `choose-completion'
-and `mouse-choose-completion'.")
+This also applies to other functions such as `choose-completion'.")
 
 (defvar completion-base-position nil
   "Position of the base of the text corresponding to the shown completions.
@@ -5840,7 +5842,7 @@
        (or (and (buffer-live-p buffer)
 		(get-buffer-window buffer 0))
 	   owindow)))
-    
+
     (choose-completion-string
      choice buffer
      (or base-position