Add suppress-redisplay? optional arg to clojure-sort-ns

This avoids unwanted flicker when jumping from current location
to ns form and back. Espeically useful when `clojure-sort-ns` is
called from `before-save-hook`, and would otherwise distract the user.

Author: tomdl89

CHANGELOG.md

@@ -6,6 +6,7 @@
 
 * [#571](https://github.com/clojure-emacs/clojure-mode/issues/571): Remove `project.el` integration.
 * [#574](https://github.com/clojure-emacs/clojure-mode/issues/574): Remove `clojure-view-grimoire` command.
+* `clojure-sort-ns` now takes an optional `suppress-redispaly?` arg to prevent jumping to ns form and back
 
 ## 5.12.0 (2020-08-13)
 

clojure-mode.el

@@ -1820,14 +1820,15 @@ content) are considered part of the preceding sexp."
     (when (nth 4 (parse-partial-sexp (point-min) (point)))
       (insert "\n"))))
 
-(defun clojure-sort-ns ()
-  "Internally sort each sexp inside the ns form."
+(defun clojure-sort-ns (&optional suppress-redisplay?)
+  "Internally sort each sexp inside the ns form.
+Jump to the ns form and back if SUPPRESS-REDISPLAY? is nil"
   (interactive)
   (comment-normalize-vars)
   (if (clojure-find-ns)
       (save-excursion
         (goto-char (match-beginning 0))
-        (redisplay)
+        (unless suppress-redisplay? (redisplay))
         (let ((beg (point))
               (ns))
           (forward-sexp 1)
@@ -1843,7 +1844,7 @@ content) are considered part of the preceding sexp."
           (if (looking-at (regexp-quote ns))
               (message "ns form is already sorted")
             (sleep-for 0.1)
-            (redisplay)
+            (unless suppress-redisplay? (redisplay))
             (message "ns form has been sorted")
             (sleep-for 0.1))))
     (user-error "Can't find ns form")))