Mercurial > emacs
changeset 101142:1df37db69e4d
* subr.el (play-sound): Doc fix. (Bug#250)
(shell-quote-argument, field-at-pos): Fix typos in docstrings.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 12 Jan 2009 20:34:48 +0000 |
| parents | 706175eda1de |
| children | 5a1ab0e91281 |
| files | lisp/ChangeLog lisp/subr.el |
| diffstat | 2 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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 <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
--- 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)