[Emacs-diffs] /srv/bzr/emacs/trunk r107519: pc-win.el doc fix for bug#10783

[Glenn Morris]

------------------------------------------------------------
revno: 107519
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2012-03-06 14:48:46 -0500
message:
  pc-win.el doc fix for bug#10783
  
  * lisp/term/pc-win.el (x-selection-owner-p, x-own-selection-internal)
  (x-disown-selection-internal, x-get-selection-internal):
  Doc fix (add arglist signatures).
modified:
  lisp/ChangeLog
  lisp/term/pc-win.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-03-06 08:37:38 +0000
+++ b/lisp/ChangeLog    2012-03-06 19:48:46 +0000
@@ -1,3 +1,9 @@
+2012-03-06  Glenn Morris  <address@hidden>
+
+       * term/pc-win.el (x-selection-owner-p, x-own-selection-internal)
+       (x-disown-selection-internal, x-get-selection-internal):
+       Doc fix (add arglist signatures).  (Bug#10783)
+
 2012-03-06  Kaushik Srenevasan  <address@hidden>  (tiny change)
 
        * progmodes/gdb-mi.el (gdb-breakpoints-list-handler-custom):

=== modified file 'lisp/term/pc-win.el'
--- a/lisp/term/pc-win.el       2012-02-12 03:13:13 +0000
+++ b/lisp/term/pc-win.el       2012-03-06 19:48:46 +0000
@@ -159,6 +159,12 @@
 ;; returned value matters.  Also, by the way, recall that `ignore' is
 ;; a useful function for returning 'nil regardless of argument.
 
+;; Note: Any re-definition in this file of a function that is defined
+;; in C on other platforms, should either have no doc-string, or one
+;; that is identical to the C version, but with the arglist signature
+;; at the end.  Otherwise help-split-fundoc gets confused on other
+;; platforms.  (Bug#10783)
+
 ;; From src/xfns.c
 (defun x-list-fonts (pattern &optional face frame maximum width)
   (if (or (null width) (and (numberp width) (= width 1)))
@@ -261,7 +267,9 @@
 server to query.  If omitted or nil, that stands for the selected
 frame's display, or the first available X display.
 
-On Nextstep, TERMINAL is unused."
+On Nextstep, TERMINAL is unused.
+
+\(fn &optional SELECTION TERMINAL)"
     (if x-select-enable-clipboard
       (let (text)
        ;; Don't die if w16-get-clipboard-data signals an error.
@@ -289,7 +297,9 @@
 FRAME should be a frame that should own the selection.  If omitted or
 nil, it defaults to the selected frame.
 
-On Nextstep, FRAME is unused."
+On Nextstep, FRAME is unused.
+
+\(fn SELECTION VALUE &optional FRAME)"
   (ignore-errors
     (x-select-text value))
   value)
@@ -306,7 +316,9 @@
 frame's display, or the first available X display.
 
 On Nextstep, the TIME-OBJECT and TERMINAL arguments are unused.
-On MS-DOS, all this does is return non-nil if we own the selection."
+On MS-DOS, all this does is return non-nil if we own the selection.
+
+\(fn SELECTION &optional TIME-OBJECT TERMINAL)"
   (if (x-selection-owner-p selection)
       t))
 
@@ -324,7 +336,9 @@
 server to query.  If omitted or nil, that stands for the selected
 frame's display, or the first available X display.
 
-On Nextstep, TIME-STAMP and TERMINAL are unused."
+On Nextstep, TIME-STAMP and TERMINAL are unused.
+
+\(fn SELECTION-SYMBOL TARGET-TYPE &optional TIME-STAMP TERMINAL)"
   (x-get-selection-value))
 
 ;; From src/fontset.c: