[Emacs-diffs] emacs/lisp ChangeLog simple.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/11/14 04:18:13

Modified files:
        lisp           : ChangeLog simple.el 

Log message:
        (x-selection-owner-p): Declare.
        (read-mail-command): Use custom radio type rather than choice.
        (completion-no-auto-exit): Doc fix.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16622&r2=1.16623
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/simple.el?cvsroot=emacs&r1=1.1027&r2=1.1028

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16622
retrieving revision 1.16623
diff -u -b -r1.16622 -r1.16623
--- ChangeLog   14 Nov 2009 04:14:49 -0000      1.16622
+++ ChangeLog   14 Nov 2009 04:18:10 -0000      1.16623
@@ -1,5 +1,9 @@
 2009-11-14  Glenn Morris  <address@hidden>
 
+       * 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.

Index: simple.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/simple.el,v
retrieving revision 1.1027
retrieving revision 1.1028
diff -u -b -r1.1027 -r1.1028
--- simple.el   13 Nov 2009 22:19:54 -0000      1.1027
+++ simple.el   14 Nov 2009 04:18:13 -0000      1.1028
@@ -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,9 +5502,10 @@
   "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)
+  :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.