From fc7e7c3fde37d2038b75b2e8c27cfbbd616c85fb Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 25 Jun 2023 14:31:23 +0200 Subject: [PATCH] Fix type check in tramp-get-buffer-string * lisp/net/tramp.el (tramp-get-buffer-string): Check, that BUFFER is really a bufferp. --- lisp/net/tramp.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index b46eeb8e374..20678ec8d1a 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -1960,8 +1960,11 @@ version, the function does nothing." "Return contents of BUFFER. If BUFFER is not a buffer or a buffer name, return the contents of `current-buffer'." - (with-current-buffer (or buffer (current-buffer)) - (substring-no-properties (buffer-string)))) + (or (let ((buf (or buffer (current-buffer)))) + (when (bufferp buf) + (with-current-buffer (or buffer (current-buffer)) + (substring-no-properties (buffer-string))))) + "")) (defun tramp-debug-buffer-name (vec) "A name for the debug buffer for VEC." -- 2.39.5