branch: master commit 7522038a70ca849bfc504330ad23d7304414649f Author: Tino Calancha <tino.calan...@gmail.com> Commit: Tino Calancha <tino.calan...@gmail.com>
Use match-string-no-properties * packages/gited/gited.el (gited-remote-tags) (gited--sync-with-trunk-target-name) (gited-log-last-n-commits, gited-status) (gited-trunk-branches, gited--list-files): Use `match-string-no-properties'. --- packages/gited/gited.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/packages/gited/gited.el b/packages/gited/gited.el index 8bbf45f..0230103 100644 --- a/packages/gited/gited.el +++ b/packages/gited/gited.el @@ -10,9 +10,9 @@ ;; Compatibility: GNU Emacs: 24.4 ;; Version: 0.3.2 ;; Package-Requires: ((emacs "24.4") (cl-lib "0.5")) -;; Last-Updated: Sun Jul 09 12:03:39 JST 2017 +;; Last-Updated: Sun Aug 13 12:47:49 JST 2017 ;; By: calancha -;; Update #: 680 +;; Update #: 681 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; @@ -901,7 +901,7 @@ You can then feed the file name(s) to other commands with \\[yank]." (gited-git-command '("status" "--porcelain") (current-buffer)) (goto-char (point-min)) (while (re-search-forward regexp nil t) - (push (match-string 1) res))) + (push (match-string-no-properties 1) res))) (nreverse res))) (defun gited-modified-files () @@ -960,7 +960,7 @@ You can then feed the file name(s) to other commands with \\[yank]." (gited-git-command '("config" "--local" "--list") (current-buffer)) (goto-char 1) (while (re-search-forward regexp nil t) - (push (match-string 1) res)) + (push (match-string-no-properties 1) res)) (nreverse res)))) (defun gited--get-unmerged-branches () @@ -1950,7 +1950,7 @@ show similar info as that command." (when (re-search-forward "# first bad commit: \\[\\([[:xdigit:]]+\\)\\]" nil t) - (setq bad-commit (match-string 1)))) + (setq bad-commit (match-string-no-properties 1)))) (while (re-search-forward "^[^#]+$" nil t) (push (buffer-substring-no-properties (point-at-bol) (point)) res)) @@ -2138,8 +2138,8 @@ If optional arg SHORT is non-nil use a short format." (with-current-buffer buf (let* ((inhibit-read-only t) (skip (and (string-match "\\([0-9]+\\)-\\([0-9]+\\)" n) - (string-to-number (match-string 1 n)))) - (max (string-to-number (if skip (match-string 2 n) n))) + (string-to-number (match-string-no-properties 1 n)))) + (max (string-to-number (if skip (match-string-no-properties 2 n) n))) (args (append (if short gited-short-log-cmd '("log")) (and skip (list (format "--skip=%d" skip))) (list (format "--max-count=%d" max)) @@ -2234,7 +2234,7 @@ Optional arg WRITE-FILE if non-nil, then write the patches to disk." (unless branch (setq branch (gited-get-branchname))) (if (string-match "-new\\([0-9]*\\)\\'" branch) (format "%s%d" (substring branch 0 (match-beginning 1)) - (1+ (string-to-number (match-string 1 branch)))) + (1+ (string-to-number (match-string-no-properties 1 branch)))) (concat branch "-new1"))) (defun gited-sync-with-trunk (branch-target) @@ -2550,7 +2550,7 @@ This does not delete the local tag with same name." (with-current-buffer buf (goto-char 1) (while (re-search-forward "refs/tags/\\(.*\\)" nil t) - (let ((match (match-string 1))) + (let ((match (match-string-no-properties 1))) (unless (string-match-p "\\^{}$" match) (push match res))))) (message "Done!")