[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog subr.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog subr.el |
Date: |
Mon, 12 Jan 2009 20:34:52 +0000 |
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)