Re: emacs-uptime - insert text with C-u [patch]

[Andreas Schwab]

address@hidden (Adam Sjøgren) writes:

> --- time.el.orig      2015-02-10 15:42:48.472482974 +0100
> +++ time.el   2015-02-10 15:45:27.743592919 +0100
> @@ -571,18 +571,22 @@
>              (cancel-timer elt)))))))
>  
>  ;;;###autoload
> -(defun emacs-uptime (&optional format)
> +(defun emacs-uptime (&optional format here)
>    "Return a string giving the uptime of this instance of Emacs.
>  FORMAT is a string to format the result, using `format-seconds'.
> -For example, the Unix uptime command format is \"%D, %z%2h:%.2m\"."
> -  (interactive)
> +For example, the Unix uptime command format is \"%D, %z%2h:%.2m\".
> +If the optional argument HERE is non-nil, insert string at
> +point."
> +  (interactive "i\nP")
>    (let ((str
>           (format-seconds (or format "%Y, %D, %H, %M, %z%S")
>                           (float-time
>                            (time-subtract (current-time) before-init-time)))))
> -    (if (called-interactively-p 'interactive)
> -        (message "%s" str)
> -      str)))
> +    (if here
> +        (insert str)
> +      (if (called-interactively-p 'interactive)
> +          (message "%s" str)
> +        str))))

It think you should always return the same value, which is str.

Andreas.

-- 
Andreas Schwab, SUSE Labs, address@hidden
GPG Key fingerprint = 0196 BAD8 1CE9 1970 F4BE  1748 E4D4 88E3 0EEA B9D7
"And now for something completely different."