[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 7522038 1/2: Use match-string-no-properties
From: |
Tino Calancha |
Subject: |
[elpa] master 7522038 1/2: Use match-string-no-properties |
Date: |
Sat, 12 Aug 2017 23:58:35 -0400 (EDT) |
branch: master
commit 7522038a70ca849bfc504330ad23d7304414649f
Author: Tino Calancha <address@hidden>
Commit: Tino Calancha <address@hidden>
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!")