mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-31 20:02:42 +00:00
Code Issues Releases Activity

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

Browse Source 
(shell-quote-argument, field-at-pos): Fix typos in docstrings.
This commit is contained in:
Juanma Barranquero 2009-01-12 20:34:48 +00:00
parent 24f0147080
commit d7f90d6c85
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

8
lisp/subr.el
View File

@ -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)