branch: externals/m-buffer
commit 22660c53850ef61814dd27b137a48eed98c97e3c
Author: Phillip Lord <phillip.l...@newcastle.ac.uk>
Commit: Phillip Lord <phillip.l...@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))))))
