aboutsummaryrefslogtreecommitdiffstats
path: root/admin
diff options
context:
space:
mode:
authorPaul Eggert2014-11-28 23:54:57 -0800
committerPaul Eggert2014-11-28 23:55:17 -0800
commitdbff8fd118824163f4d2780fa8566cf92e1d8e86 (patch)
treebd10e81fa371c868420410b24a9c5029151bbe16 /admin
parent366c1ceb038b42ed8590486e1a3c3cebba87e9da (diff)
downloademacs-dbff8fd118824163f4d2780fa8566cf92e1d8e86.tar.gz
emacs-dbff8fd118824163f4d2780fa8566cf92e1d8e86.zip
Spelling fix.
Diffstat (limited to 'admin')
-rw-r--r--admin/gitmerge.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/admin/gitmerge.el b/admin/gitmerge.el
index 88c633393a6..d2f906806c8 100644
--- a/admin/gitmerge.el
+++ b/admin/gitmerge.el
@@ -157,7 +157,7 @@ Auto-commit"
157 (delete-char 1) 157 (delete-char 1)
158 (insert (if skip "M" " ")) 158 (insert (if skip "M" " "))
159 (setq buffer-read-only t)))))) 159 (setq buffer-read-only t))))))
160 160
161(defun gitmerge-highlight-skip-regexp () 161(defun gitmerge-highlight-skip-regexp ()
162 "Highlight strings that match `gitmerge-skip-regexp'." 162 "Highlight strings that match `gitmerge-skip-regexp'."
163 (save-excursion 163 (save-excursion
@@ -361,7 +361,7 @@ Throw an user-error if we cannot resolve automatically."
361 (goto-char (point-min)) 361 (goto-char (point-min))
362 (while (not (eobp)) 362 (while (not (eobp))
363 (push (buffer-substring (point) (line-end-position)) files) 363 (push (buffer-substring (point) (line-end-position)) files)
364 (forward-line)) 364 (forward-line))
365 (dolist (file files) 365 (dolist (file files)
366 (if (gitmerge-resolve file) 366 (if (gitmerge-resolve file)
367 ;; File still has conflicts 367 ;; File still has conflicts
@@ -393,7 +393,7 @@ Throw an user-error if we cannot resolve automatically."
393 (call-process "git" nil t nil 393 (call-process "git" nil t nil
394 "diff" "--name-only") 394 "diff" "--name-only")
395 (zerop (buffer-size)))) 395 (zerop (buffer-size))))
396 396
397(defun gitmerge-maybe-resume () 397(defun gitmerge-maybe-resume ()
398 "Check if we have to resume a merge. 398 "Check if we have to resume a merge.
399If so, add no longer conflicted files and commit." 399If so, add no longer conflicted files and commit."
@@ -420,7 +420,7 @@ If so, add no longer conflicted files and commit."
420 (unless (zerop (call-process "git" nil t nil 420 (unless (zerop (call-process "git" nil t nil
421 "commit" "--no-edit")) 421 "commit" "--no-edit"))
422 (error "Git error during merge - fix it manually")))) 422 (error "Git error during merge - fix it manually"))))
423 ;; Sucesfully resumed. 423 ;; Successfully resumed.
424 t)))) 424 t))))
425 425
426(defun gitmerge-get-all-branches () 426(defun gitmerge-get-all-branches ()