[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog subr.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog subr.el |
Date: |
Fri, 16 Oct 2009 03:21:22 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 09/10/16 03:21:22
Modified files:
lisp : ChangeLog subr.el
Log message:
(error, sit-for, start-process-shell-command)
(start-file-process-shell-command): Use the new
set-advertised-calling-convention feature.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16433&r2=1.16434
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/subr.el?cvsroot=emacs&r1=1.658&r2=1.659
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16433
retrieving revision 1.16434
diff -u -b -r1.16433 -r1.16434
--- ChangeLog 16 Oct 2009 00:48:52 -0000 1.16433
+++ ChangeLog 16 Oct 2009 03:21:18 -0000 1.16434
@@ -1,8 +1,14 @@
+2009-10-16 Stefan Monnier <address@hidden>
+
+ * subr.el (error, sit-for, start-process-shell-command)
+ (start-file-process-shell-command): Use the new
+ set-advertised-calling-convention feature.
+
2009-10-16 Taichi Kawabata <address@hidden>
- * international/ucs-normalize.el (ucs-normalize-version): Changed
- to 1.2.
- (check-range): Adjusted for Unicode 5.2.
+ * international/ucs-normalize.el (ucs-normalize-version):
+ Change to 1.2.
+ (check-range): Adjust for Unicode 5.2.
2009-10-15 Juri Linkov <address@hidden>
Index: subr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/subr.el,v
retrieving revision 1.658
retrieving revision 1.659
diff -u -b -r1.658 -r1.659
--- subr.el 1 Oct 2009 17:47:42 -0000 1.658
+++ subr.el 16 Oct 2009 03:21:21 -0000 1.659
@@ -229,13 +229,13 @@
(interactive)
nil)
+;; Signal a compile-error if the first arg is missing.
+(set-advertised-calling-convention 'error '(string &rest args))
(defun error (&rest args)
"Signal an error, making error message by passing all args to `format'.
In Emacs, the convention is that error messages start with a capital
letter but *do not* end with a period. Please follow this convention
-for the sake of consistency.
-
-\(fn STRING &rest ARGS)"
+for the sake of consistency."
(while t
(signal 'error (list (apply 'format args)))))
@@ -2011,6 +2011,7 @@
t)))
n))
+(set-advertised-calling-convention 'sit-for '(seconds &optional nodisp))
(defun sit-for (seconds &optional nodisp obsolete)
"Perform redisplay, then wait for SECONDS seconds or until input is
available.
SECONDS may be a floating-point value.
@@ -2026,9 +2027,7 @@
\(sit-for SECONDS &optional MILLISECONDS NODISP)
where the optional arg MILLISECONDS specifies an additional wait period,
in milliseconds; this was useful when Emacs was built without
-floating point support.
-
-\(fn SECONDS &optional NODISP)"
+floating point support."
(if (numberp nodisp)
(setq seconds (+ seconds (* 1e-3 nodisp))
nodisp obsolete)
@@ -2565,6 +2564,8 @@
;;;; Synchronous shell commands.
+(set-advertised-calling-convention 'start-process-shell-command
+ '(name buffer command))
(defun start-process-shell-command (name buffer &rest args)
"Start a program in a subprocess. Return the process object for it.
NAME is name for process. It is modified if necessary to make it unique.
@@ -2577,19 +2578,17 @@
An old calling convention accepted any number of arguments after COMMAND,
which were just concatenated to COMMAND. This is still supported but strongly
-discouraged.
-
-\(fn NAME BUFFER COMMAND)"
+discouraged."
;; We used to use `exec' to replace the shell with the command,
;; but that failed to handle (...) and semicolon, etc.
(start-process name buffer shell-file-name shell-command-switch
(mapconcat 'identity args " ")))
+(set-advertised-calling-convention 'start-file-process-shell-command
+ '(name buffer command))
(defun start-file-process-shell-command (name buffer &rest args)
"Start a program in a subprocess. Return the process object for it.
-Similar to `start-process-shell-command', but calls `start-file-process'.
-
-\(fn NAME BUFFER COMMAND)"
+Similar to `start-process-shell-command', but calls `start-file-process'."
(start-file-process
name buffer
(if (file-remote-p default-directory) "/bin/sh" shell-file-name)
- [Emacs-diffs] emacs/lisp ChangeLog subr.el,
Stefan Monnier <=