From: Gustav Hållberg Date: Mon, 29 Dec 2008 14:32:58 +0000 (+0100) Subject: stgit.el: Fix some too wide lines X-Git-Tag: v0.15-rc1~65 X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/stgit/commitdiff_plain/8439f6574d720ecc6c488efca08818af0a709522?ds=inline stgit.el: Fix some too wide lines Signed-off-by: Gustav Hållberg Signed-off-by: Karl Hasselström --- 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 @@ (defun stgit-goto-patch (patch) "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 @@ (defun stgit-create-patch-name (description) (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 "-"))