[elpa] externals/dtache 7f63c79a06 07/19: Update dtache-command-format

[ELPA Syncer]

branch: externals/dtache
commit 7f63c79a069ac09ca1819c0a30d324ef417b0a51
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>

    Update dtache-command-format
---
 dtache.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/dtache.el b/dtache.el
index dbb1a2991d..a41558a6c3 100644
--- a/dtache.el
+++ b/dtache.el
@@ -111,7 +111,7 @@
   :group 'dtache)
 
 (defcustom dtache-command-format
-  '(:width 50 :padding 4 :function dtache--command-str)
+  '(:width 90 :padding 4 :function dtache-command-str)
   "The format for displaying the command."
   :type 'integer
   :group 'dtache)
@@ -893,6 +893,13 @@ Optionally CONCAT the command return command into a 
string."
          (cand (completing-read "Select session: " collection nil t)))
     (dtache--decode-session cand)))
 
+(defun dtache-command-str (session max-length)
+  "Return SESSION's command as a string restrict it to MAX-LENGTH."
+  (let ((command (dtache--session-command session)))
+    (if (<= (length command) max-length)
+        command
+      (concat (substring (dtache--session-command session) 0 (- max-length 3)) 
"..."))))
+
 ;;;; Support functions
 
 ;;;;; Session
@@ -1279,13 +1286,6 @@ If event is cased by an update to the `dtache' database, 
re-initialize
 
 ;;;;; UI
 
-(defun dtache--command-str (session max-length)
-  "Return SESSION's command as a string restrict it to MAX-LENGTH."
-  (let ((command (dtache--session-command session)))
-    (if (<= (length command) max-length)
-        command
-      (concat (substring (dtache--session-command session) 0 (- max-length 3)) 
"..."))))
-
 (defun dtache--metadata-str (session)
   "Return SESSION's metadata as a string."
   (string-join