From 837453ec06a2f4617d688b1d5010f1576892fee9 Mon Sep 17 00:00:00 2001 From: Maciej Barć Date: Fri, 3 Feb 2023 20:50:06 +0100 Subject: elogt.el: guard vector length MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Maciej Barć --- elogt.el | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) diff --git a/elogt.el b/elogt.el index f5d7fd9..a067747 100644 --- a/elogt.el +++ b/elogt.el @@ -123,15 +123,19 @@ A logfile priority level is one of: None, Info, Warn, Error." (defun elogt--logfile-properties (file-name) "Extract the properties form given FILE-NAME." - (let* ((splitted-file-name (split-string (file-name-base file-name) ":")) - (category (car splitted-file-name)) - (package (cadr splitted-file-name)) - (time (caddr splitted-file-name))) - (vector (elogt--logfile-priority-level file-name) - category - (propertize package 'face 'bold) - (propertize time 'face 'italic) - (elogt--file-size file-name)))) + (let ((splitted-file-name (split-string (file-name-base file-name) ":"))) + (cond + ((= (length splitted-file-name) 3) + (let ((category (car splitted-file-name)) + (package (cadr splitted-file-name)) + (time (caddr splitted-file-name))) + (vector (elogt--logfile-priority-level file-name) + category + (propertize package 'face 'bold) + (propertize time 'face 'italic) + (elogt--file-size file-name)))) + (t + (make-vector 5 ""))))) (defun elogt--make-log-table-contents () "Make ElogT table contents." -- cgit v1.2.3-65-gdbad