[elpa] externals/ampc 376a9f6ece 070/111: * ampc.el (ampc-on-p): Make this function a command.

[Stefan Monnier]

branch: externals/ampc
commit 376a9f6ece22abfa780b374594dbba7e51d1ffe9
Author: Christopher Schmidt <christopher@ch.ristopher.com>
Commit: Christopher Schmidt <christopher@ch.ristopher.com>

    * ampc.el (ampc-on-p): Make this function a command.
---
 ampc.el | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/ampc.el b/ampc.el
index 00200911d2..f2c5f05823 100644
--- a/ampc.el
+++ b/ampc.el
@@ -55,9 +55,11 @@
 ;; interactively, `ampc' reads host address and port from the minibuffer.  If
 ;; called non-interactively, the first argument to `ampc' is the host, the
 ;; second is the port.  Both values default to nil, which will make ampc 
connect
-;; to localhost:6600.  Once ampc is connected to the daemon, it creates its
-;; window configuration in the selected window.  To make ampc use the full 
frame
-;; rather than the selected window, customise `ampc-use-full-frame'.
+;; to localhost:6600.  If the optional third argument is non-nil and ampc is
+;; connected to the daemon, it creates its window configuration in the selected
+;; window.  To make ampc use the full frame rather than the selected window,
+;; customise `ampc-use-full-frame'.  To check whether ampc is connected to the
+;; daemon, call `ampc-is-on-p'.
 ;;
 ;; ampc offers three independent views which expose different parts of the user
 ;; interface.  The current playlist view, the default view at startup, may be
@@ -685,10 +687,6 @@ all the time!"
 (defun ampc-quote (string)
   (concat "\"" (replace-regexp-in-string "\"" "\\\"" string) "\""))
 
-(defun ampc-on-p ()
-  (and ampc-connection
-       (member (process-status ampc-connection) '(open run))))
-
 (defun ampc-in-ampc-p ()
   (when (ampc-on-p)
     ampc-type))
@@ -2037,6 +2035,11 @@ ampc is connected to."
   (run-hooks 'ampc-quit-hook))
 
 ;;;###autoload
+(defun ampc-on-p ()
+  "Return non-nil if ampc is connected to the daemon."
+  (interactive)
+  (and ampc-connection (memq (process-status ampc-connection) '(open run))))
+
 ;;;###autoload
 (defun ampc (&optional host port suspend)
   "ampc is an asynchronous client for the MPD media player.