diff options
| -rw-r--r-- | lisp/init-text.el | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/lisp/init-text.el b/lisp/init-text.el index c180cd3..c4fbecc 100644 --- a/lisp/init-text.el +++ b/lisp/init-text.el @@ -39,17 +39,16 @@ If a columnified buffer already exists, just switch to it." ((> (prefix-numeric-value current-prefix-arg) 4) (read-string "Delimiter: ")) (t nil)))) - (let* ((bufname (buffer-name)) - (output-buffer-name (concat "*cols: " bufname "*")) + (unless buffer-file-name + (user-error "Buffer not visiting a file")) + (let* ((output-buffer-name (concat "*cols: " (buffer-name) "*")) (output-buffer (get-buffer output-buffer-name)) (fname (file-relative-name buffer-file-name)) - (col-args '("-t"))) + (args (cons "--table" + (and delim (list "--separator" delim))))) (unless output-buffer (setq output-buffer (get-buffer-create output-buffer-name)) - (when delim - (add-to-list 'col-args (format "-s'%s'" delim))) - (apply 'call-process "column" fname output-buffer nil - col-args)) + (apply #'call-process "column" fname output-buffer nil args)) (switch-to-buffer output-buffer))) (provide 'init-text) |