From 8439f6574d720ecc6c488efca08818af0a709522 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Gustav=20H=C3=A5llberg?= Date: Mon, 29 Dec 2008 15:32:58 +0100 Subject: [PATCH] stgit.el: Fix some too wide lines MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Signed-off-by: Gustav Hållberg Signed-off-by: Karl Hasselström --- contrib/stgit.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/contrib/stgit.el b/contrib/stgit.el index f3b573d..dbc4e36 100644 --- a/contrib/stgit.el +++ b/contrib/stgit.el @@ -568,7 +568,8 @@ the new file names instead of just one name." "Move point to the line containing PATCH." (let ((p (point))) (goto-char (point-min)) - (if (re-search-forward (concat "^[>+-][ *]" (regexp-quote patch) " ") nil t) + (if (re-search-forward (concat "^[>+-][ *]" (regexp-quote patch) " ") + nil t) (progn (move-to-column goal-column) t) (goto-char p) @@ -761,7 +762,8 @@ end of the patch." (let ((patch "")) (while (> (length description) 0) (cond ((string-match "\\`[a-zA-Z_-]+" description) - (setq patch (downcase (concat patch (match-string 0 description)))) + (setq patch (downcase (concat patch + (match-string 0 description)))) (setq description (substring description (match-end 0)))) ((string-match "\\` +" description) (setq patch (concat patch "-")) -- 2.11.0