--- a/.emacs-my	Thu Mar 12 12:37:36 2020 +0200
+++ b/.emacs-my	Thu Mar 26 14:58:47 2020 +0200
@@ -3855,6 +3855,18 @@
 ;; (setcdr (assoc 'nxml-mode hs-special-modes-alist) (list "<!--\\|<[^/>][^>]*>" "-->\\|</[^/>]+>" "<!--" #'nxml-forward-element nil))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "prettyprint, pp")
+
+(defun my-pp ()
+  (interactive)
+  (let ( (fname (buffer-file-name)) )
+    (cond
+     ((eq major-mode 'nxml-mode)
+      (my-nxml-pp))
+     ((string-match "\\.json\\'" fname)
+       (json-pretty-print-buffer)))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "backuping")
 
 (setq