diff options
| author | Bozhidar Batsov <bozhidar@batsov.com> | 2016-02-29 19:21:26 +0200 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar@batsov.com> | 2016-02-29 19:21:26 +0200 |
| commit | 9b5d2ef2ecd62d47f67cff811d624a0e6371b7fc (patch) | |
| tree | 05432164ad68058b58ed6249f7ef21e5035510e4 /nrepl-client.el | |
| parent | af93884e7f6524cc9fd93d2bde65a8fd6a079ddc (diff) | |
Use arrows with the same length in the nREPL messages buffer
Diffstat (limited to 'nrepl-client.el')
| -rw-r--r-- | nrepl-client.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/nrepl-client.el b/nrepl-client.el index a72b5829..2d9d3413 100644 --- a/nrepl-client.el +++ b/nrepl-client.el @@ -1200,14 +1200,14 @@ operations.") (setq-local electric-indent-chars nil) (setq-local comment-start ";") (setq-local comment-end "") - (setq-local paragraph-start "(--->\\|(<-") - (setq-local paragraph-separate "(<-")) + (setq-local paragraph-start "(-->\\|(<--") + (setq-local paragraph-separate "(<--")) (defun nrepl-decorate-msg (msg type) "Decorate nREPL MSG according to its TYPE." (pcase type - (`request (cons '---> (cdr msg))) - (`response (cons '<- (cdr msg))))) + (`request (cons '--> (cdr msg))) + (`response (cons '<-- (cdr msg))))) (defun nrepl-log-message (msg type) "Log the nREPL MSG. @@ -1256,7 +1256,7 @@ Set this to nil to prevent truncation." (defun nrepl--pp (object &optional foreground) "Pretty print nREPL OBJECT, delimited using FOREGROUND." (if (not (and (listp object) - (memq (car object) '(<- ---> dict)))) + (memq (car object) '(<-- --> dict)))) (progn (when (stringp object) (setq object (substring-no-properties object))) (pp object (current-buffer)) |