From 650f77436f58a0c67388d8d720dcf6be1269b095 Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Thu, 17 Apr 2014 12:43:32 -0400 Subject: [PATCH] keep package menu aligned when updating it Note that this problem only shows up in after (setq-default indent-tabs-mode nil) --- el-get-list-packages.el | 2 +- el-get-status.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/el-get-list-packages.el b/el-get-list-packages.el index 30cf3413..3fb73a3f 100644 --- a/el-get-list-packages.el +++ b/el-get-list-packages.el @@ -348,8 +348,8 @@ in el-get package menu." (insert status) (put-text-property (line-beginning-position) (line-end-position) 'font-lock-face face) + (indent-to 41 1) (when desc - (indent-to 41 1) (insert (propertize (replace-regexp-in-string "\n" " " desc) 'font-lock-face face) "\n")))) diff --git a/el-get-status.el b/el-get-status.el index 0cb8fef8..8d571d7a 100644 --- a/el-get-status.el +++ b/el-get-status.el @@ -88,7 +88,7 @@ (let ((inhibit-read-only t) (name (el-get-package-name package))) (when (re-search-forward - (format "^..%s[[:blank:]]+[^[:blank:]]+" + (format "^..%s[[:blank:]]+[^[:blank:]]+[[:blank:]]+" (regexp-quote name)) nil t) (delete-region (match-beginning 0) (match-end 0)) (el-get-print-package name status)))))