; Fix indentation

(cherry picked from commit e825502ded0d526716e0f22704f7ebef7720deb5)

diff --git a/lisp/man.el b/lisp/man.el
index 94d7b9ceb3bc410b053b18019d04bc097fc65c30..bdbb868e9663049dffcac350739473bf93e35a9a 100644 (file)
--- 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)