[elpa] externals/m-buffer 22660c5385 096/115: New function - m-buffer-at-string

[ELPA Syncer]

branch: externals/m-buffer
commit 22660c53850ef61814dd27b137a48eed98c97e3c
Author: Phillip Lord <phillip.lord@newcastle.ac.uk>
Commit: Phillip Lord <phillip.lord@newcastle.ac.uk>

    New function - m-buffer-at-string
---
 m-buffer-at.el           | 5 +++++
 test/m-buffer-at-test.el | 8 ++++++++
 2 files changed, 13 insertions(+)

diff --git a/m-buffer-at.el b/m-buffer-at.el
index 2128ce4815..c879971574 100644
--- a/m-buffer-at.el
+++ b/m-buffer-at.el
@@ -79,6 +79,11 @@ See also `bolp'"
       buffer
     (buffer-narrowed-p)))
 
+(defun m-buffer-at-string (buffer)
+  (with-current-buffer
+      buffer
+    (buffer-string)))
+
 (provide 'm-buffer-at)
 ;;; m-buffer-at.el ends here
 ;; #+end_src
diff --git a/test/m-buffer-at-test.el b/test/m-buffer-at-test.el
index 026232a133..d313445b92 100644
--- a/test/m-buffer-at-test.el
+++ b/test/m-buffer-at-test.el
@@ -29,3 +29,11 @@
      (m-buffer-at-eolp
       (current-buffer)
       (point)))))
+
+(ert-deftest m-buffer-string ()
+  (should
+   (string=
+    "hello"
+    (with-temp-buffer
+      (insert "hello")
+      (m-buffer-at-string (current-buffer))))))