From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 9 Feb 2024 19:13:29 +0000 (-0500)
Subject: * lisp/subr.el (with-output-to-temp-buffer): Add `indent` rule
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5030bc1f3a3b9df3273c8eb06440b35e95883f10;p=emacs.git

* lisp/subr.el (with-output-to-temp-buffer): Add `indent` rule

(cherry picked from commit 3c3702b9bbc79f63026606dc0f391da3d795226d)
---

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index ad0525e24be..3475d944337 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -1347,7 +1347,6 @@ Lisp function does not specify a special indentation."
 (put 'condition-case 'lisp-indent-function 2)
 (put 'handler-case 'lisp-indent-function 1) ;CL
 (put 'unwind-protect 'lisp-indent-function 1)
-(put 'with-output-to-temp-buffer 'lisp-indent-function 1)
 (put 'closure 'lisp-indent-function 2)
 
 (defun indent-sexp (&optional endpos)
diff --git a/lisp/subr.el b/lisp/subr.el
index f41bb34045e..c317d558e24 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -5019,7 +5019,7 @@ read-only, and scans it for function and variable names to make them into
 clickable cross-references.
 
 See the related form `with-temp-buffer-window'."
-  (declare (debug t))
+  (declare (debug t) (indent 1))
   (let ((old-dir (make-symbol "old-dir"))
         (buf (make-symbol "buf")))
     `(let* ((,old-dir default-directory)