stgit.el: Fix some too wide lines

Signed-off-by: Gustav Hållberg <gustav@virtutech.com>
Signed-off-by: Karl Hasselström <kha@treskal.com>

diff --git a/contrib/stgit.el b/contrib/stgit.el
index f3b573dae34de716ec58a0eacf0062f2d36712ee..dbc4e36af9ddbc985e8293b02be0234828f48315 100644 (file)
--- 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))
   "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)
         (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)
   (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 "-"))
              (setq description (substring description (match-end 0))))
             ((string-match "\\` +" description)
              (setq patch (concat patch "-"))