From d7f90d6c8512e4580c3c478285ffd0a14c23f14c Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 12 Jan 2009 20:34:48 +0000 Subject: [PATCH] * subr.el (play-sound): Doc fix. (Bug#250) (shell-quote-argument, field-at-pos): Fix typos in docstrings. --- lisp/ChangeLog | 5 +++++ lisp/subr.el | 8 +++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1687d8cfa74..87f34a67970 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 --git a/lisp/subr.el b/lisp/subr.el index 18c365d4d55..6a7b4ac54ff 100644 --- 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) -- 2.39.2