# HG changeset patch # User Juanma Barranquero # Date 1231792488 0 # Node ID 1df37db69e4dfc483b190f31b7d1710613e2a67c # Parent 706175eda1de71ed99cd351c9e35a7046fc36b2d * subr.el (play-sound): Doc fix. (Bug#250) (shell-quote-argument, field-at-pos): Fix typos in docstrings. diff -r 706175eda1de -r 1df37db69e4d lisp/ChangeLog --- a/lisp/ChangeLog Mon Jan 12 16:18:31 2009 +0000 +++ b/lisp/ChangeLog Mon Jan 12 20:34:48 2009 +0000 @@ -1,3 +1,8 @@ +2009-01-12 Juanma Barranquero + + * subr.el (play-sound): Doc fix. (Bug#250) + (shell-quote-argument, field-at-pos): Fix typos in docstrings. + 2009-01-12 Alan Mackenzie * textmodes/paragraphs.el (forward-sentence): Change limit of diff -r 706175eda1de -r 1df37db69e4d lisp/subr.el --- a/lisp/subr.el Mon Jan 12 16:18:31 2009 +0000 +++ b/lisp/subr.el Mon Jan 12 20:34:48 2009 +0000 @@ -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)