diff options
| -rw-r--r-- | elisp/journalctl.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/elisp/journalctl.el b/elisp/journalctl.el index 98af8ce..84ec1e1 100644 --- a/elisp/journalctl.el +++ b/elisp/journalctl.el @@ -127,7 +127,7 @@ "List of possible options to be given to journalctl." ) (transient-define-prefix journalct-opts () - "prefix for opts" + "Prefix for opts." ["infixes" ("f" "follow" "--follow") ("h" "host" "--host=" :choices journalctl-hosts :prompt "hus: ") @@ -158,7 +158,7 @@ It seems I must kill the buffer for tramp to behave correctly on the new calls." (delq nil))))) (defun journalctl-read-system-units (_prompt host-location history) - "Query HOST-LOCATION (a tramp path) for its systemd units." + "Query HOST-LOCATION (a tramp path) for its systemd units, given command HISTORY." (completing-read "Unit: " (journalctl--system-units host-location) nil nil nil history)) @@ -189,7 +189,7 @@ If OPT is set, remove this option." (journalctl host)))) (defun journalctl-edit-opts () - "Edit the value of 'journalctl-current-opts'." + "Edit the value of `journalctl-current-opts'." (interactive) (let* ((host journalctl-current-host) (opts journalctl-current-opts) @@ -223,7 +223,8 @@ If OPT is set, remove this option." (interactive (let ((picked-host (completing-read "Tramp host: " journalctl-hosts))) (list picked-host - `(("--unit" ,(journalctl-read-system-units nil picked-host nil)) ("--follow"))))) + `(("--unit" ,(journalctl-read-system-units nil picked-host nil)) ("--follow") + ("--lines" "100"))))) (let ((buffer (journalctl--clean-buffer)) (default-directory host)) (apply #'start-file-process "Journal" buffer "journalctl" (flatten-tree options)) |