emacs-diffs
[Top][All Lists]
Advanced

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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]