From f3ed9aca2816b6488ad2ea0733adfa22079dad57 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 16 Oct 2009 05:03:56 +0000 Subject: [PATCH] * subr.el (error, sit-for, start-process-shell-command) (start-file-process-shell-command): Set the calling convention after the function definition. --- lisp/ChangeLog | 6 ++++++ lisp/subr.el | 12 ++++++------ 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 + + * 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 * 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) -- 2.39.5