diff options
| author | Paul Eggert | 2014-11-28 23:54:57 -0800 |
|---|---|---|
| committer | Paul Eggert | 2014-11-28 23:55:17 -0800 |
| commit | dbff8fd118824163f4d2780fa8566cf92e1d8e86 (patch) | |
| tree | bd10e81fa371c868420410b24a9c5029151bbe16 /admin | |
| parent | 366c1ceb038b42ed8590486e1a3c3cebba87e9da (diff) | |
| download | emacs-dbff8fd118824163f4d2780fa8566cf92e1d8e86.tar.gz emacs-dbff8fd118824163f4d2780fa8566cf92e1d8e86.zip | |
Spelling fix.
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/gitmerge.el | 8 |
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. |
| 399 | If so, add no longer conflicted files and commit." | 399 | If 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 () |