Use buffer-substring-no-properties in helm-moccur (emacs-helm#1815)

to make faster initialisation of the candidate buffer. * helm-regexp.el (helm-moccur-init): Do it. (helm-moccur-mode--revert-buffer-function): Do it.
emacsmirror · Jul 12, 2017 · 7614ade · 7614ade
1 parent 685a49f
commit 7614ade
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/helm-regexp.el b/helm-regexp.el
@@ -199,7 +199,8 @@ i.e Don't replace inside a word, regexp is surrounded with \\bregexp\\b."
                             (concat (if (memql (char-after (point-min))
                                                '(? ?\t ?\n))
                                         "" " ")
-                                    (buffer-string)))
+                                    (buffer-substring-no-properties
+                                     (point-min) (point-max))))
              do (add-text-properties
                  0 (length bufstr)
                  `(buffer-name ,(buffer-name (get-buffer buf)))
@@ -561,7 +562,8 @@ Special commands:
              (cl-loop for buf in buflst
                       for bufstr = (or (and (buffer-live-p (get-buffer buf))
                                             (with-current-buffer buf
-                                              (buffer-string)))
+                                              (buffer-substring-no-properties
+                                               (point-min) (point-max))))
                                        "")
                       unless (string= bufstr "")
                       do (add-text-properties