* subr.el (error, sit-for, start-process-shell-command)

  (start-file-process-shell-command): Set the calling convention
  after the function definition.

2 files changed, 12 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a83cfa4d122..d48b95612b3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2009-10-16  Juanma Barranquero  <lekktu@gmail.com>
+
+        * subr.el (error, sit-for, start-process-shell-command)
+        (start-file-process-shell-command): Set the calling convention
+        after the function definition.
+
 2009-10-16  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * subr.el (error, sit-for, start-process-shell-command)
diff --git a/lisp/subr.el b/lisp/subr.el
index 070f472a3b6..ad5a061584d 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -230,7 +230,6 @@ This function accepts any number of arguments, but ignores them."
   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
@@ -238,6 +237,7 @@ letter but *do not* end with a period.  Please follow this convention
 for the sake of consistency."
   (while t
     (signal 'error (list (apply 'format args)))))
+(set-advertised-calling-convention 'error '(string &rest args))
 
 ;; We put this here instead of in frame.el so that it's defined even on
 ;; systems where frame.el isn't loaded.
@@ -2011,7 +2011,6 @@ The value of DEFAULT is inserted into PROMPT."
             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.
@@ -2052,6 +2051,7 @@ floating point support."
                 (setq read (cons t read)))
             (push read unread-command-events)
             nil))))))
+(set-advertised-calling-convention 'sit-for '(seconds &optional nodisp))
 
 ;;; Atomic change groups.
 
@@ -2564,8 +2564,6 @@ Strip text properties from the inserted text according to
 
 ;;;; 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.
@@ -2583,9 +2581,9 @@ discouraged."
    ;; 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
+(set-advertised-calling-convention 'start-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'."
@@ -2594,6 +2592,8 @@ Similar to `start-process-shell-command', but calls `start-file-process'."
    (if (file-remote-p default-directory) "/bin/sh" shell-file-name)
    (if (file-remote-p default-directory) "-c" shell-command-switch)
    (mapconcat 'identity args " ")))
+(set-advertised-calling-convention 'start-file-process-shell-command
+                                   '(name buffer command))
 
 (defun call-process-shell-command (command &optional infile buffer display
                                            &rest args)