From: Stefan Kangas <stefankangas@gmail.com>
Date: Fri, 3 Jan 2025 20:32:16 +0000 (+0100)
Subject: ; Fix indentation
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bcb64e0698cd2a43d118bbc89f31ba8d0e701aa5;p=emacs.git

; Fix indentation

(cherry picked from commit e825502ded0d526716e0f22704f7ebef7720deb5)
---

diff --git a/lisp/man.el b/lisp/man.el
index 94d7b9ceb3b..bdbb868e966 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -1265,22 +1265,22 @@ Return the buffer in which the manpage will appear."
 	(old-size (buffer-size))
 	(inhibit-read-only t)
 	(buffer-read-only nil))
-     (erase-buffer)
-     (Man-start-calling
-      (process-file
-       (Man-shell-file-name) nil (list (current-buffer) nil) nil
-       shell-command-switch
-       (format (Man-build-man-command) Man-arguments)))
-     (if Man-fontify-manpage-flag
-	 (Man-fontify-manpage)
-       (Man-cleanup-manpage))
-     (goto-char old-pos)
-     ;;restore the point, not strictly right.
-     (unless (or (eq text nil) (= old-size (buffer-size)))
-       (let ((case-fold-search nil))
-	 (if (> old-size (buffer-size))
-	     (search-backward text nil t))
-	 (search-forward text nil t)))))
+    (erase-buffer)
+    (Man-start-calling
+     (process-file
+      (Man-shell-file-name) nil (list (current-buffer) nil) nil
+      shell-command-switch
+      (format (Man-build-man-command) Man-arguments)))
+    (if Man-fontify-manpage-flag
+	(Man-fontify-manpage)
+      (Man-cleanup-manpage))
+    (goto-char old-pos)
+    ;;restore the point, not strictly right.
+    (unless (or (eq text nil) (= old-size (buffer-size)))
+      (let ((case-fold-search nil))
+	(if (> old-size (buffer-size))
+	    (search-backward text nil t))
+	(search-forward text nil t)))))
 
 (defvar Man--window-state-change-timer nil)