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

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/01/12 20:34:52

Modified files:
        lisp           : ChangeLog subr.el 

Log message:
        * subr.el (play-sound): Doc fix.  (Bug#250)
          (shell-quote-argument, field-at-pos): Fix typos in docstrings.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15095&r2=1.15096
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/subr.el?cvsroot=emacs&r1=1.630&r2=1.631

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15095
retrieving revision 1.15096
diff -u -b -r1.15095 -r1.15096
--- ChangeLog   12 Jan 2009 04:24:39 -0000      1.15095
+++ ChangeLog   12 Jan 2009 20:34:48 -0000      1.15096
@@ -1,3 +1,8 @@
+2009-01-12  Juanma Barranquero  <address@hidden>
+
+       * subr.el (play-sound): Doc fix.  (Bug#250)
+       (shell-quote-argument, field-at-pos): Fix typos in docstrings.
+
 2009-01-12  Alan Mackenzie  <address@hidden>
 
        * textmodes/paragraphs.el (forward-sentence): Change limit of

Index: subr.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/subr.el,v
retrieving revision 1.630
retrieving revision 1.631
diff -u -b -r1.630 -r1.631
--- subr.el     10 Jan 2009 21:57:00 -0000      1.630
+++ subr.el     12 Jan 2009 20:34:51 -0000      1.631
@@ -2255,7 +2255,9 @@
 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 @@
 (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 @@
   (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)