* subr.el (play-sound): Doc fix. (Bug#250)

  (shell-quote-argument, field-at-pos): Fix typos in docstrings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1687d8cfa74a78553f29ba29e5e62133c5b7b608..87f34a679708bd355aedb84a2a947d3367b7b81d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-01-12  Juanma Barranquero  <lekktu@gmail.com>
+
+       * subr.el (play-sound): Doc fix.  (Bug#250)
+       (shell-quote-argument, field-at-pos): Fix typos in docstrings.
+
 2009-01-12  Alan Mackenzie  <acm@muc.de>
 
        * textmodes/paragraphs.el (forward-sentence): Change limit of

diff --git a/lisp/subr.el b/lisp/subr.el
index 18c365d4d551b0098e063cb9109170a4e3f43044..6a7b4ac54fffed9789d5b1761aecfe2793a4d41f 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2255,7 +2255,9 @@ range 0..100 or a float in the range 0..1.0.  If not specified,
 don't change the volume setting of the sound device.
 
   :device DEVICE - play sound on DEVICE.  If not specified,
-a system-dependent default device name is used."
+a system-dependent default device name is used.
+
+Note: :data and :device are currently not supported on Windows."
   (if (fboundp 'play-sound-internal)
       (play-sound-internal sound)
     (error "This Emacs binary lacks sound support")))
@@ -2263,7 +2265,7 @@ a system-dependent default device name is used."
 (declare-function w32-shell-dos-semantics "w32-fns" nil)
 
 (defun shell-quote-argument (argument)
-  "Quote an argument for passing as argument to an inferior shell."
+  "Quote ARGUMENT for passing as argument to an inferior shell."
   (if (or (eq system-type 'ms-dos)
           (and (eq system-type 'windows-nt) (w32-shell-dos-semantics)))
       ;; Quote using double quotes, but escape any existing quotes in
@@ -2301,7 +2303,7 @@ Otherwise, return nil."
   (memq object '(nil t)))
 
 (defun field-at-pos (pos)
-  "Return the field at position POS, taking stickiness etc into account"
+  "Return the field at position POS, taking stickiness etc into account."
   (let ((raw-field (get-char-property (field-beginning pos) 'field)))
     (if (eq raw-field 'boundary)
        (get-char-property (1- (field-end pos)) 'field)