equal
deleted
inserted
replaced
3853 "<!--\\|<[^/>][^>]*>" "-->\\|</[^/>]+>" "<!--" nxml-forward-element nil)) |
3853 "<!--\\|<[^/>][^>]*>" "-->\\|</[^/>]+>" "<!--" nxml-forward-element nil)) |
3854 (add-hook 'nxml-mode-hook #'hs-minor-mode) |
3854 (add-hook 'nxml-mode-hook #'hs-minor-mode) |
3855 ;; (setcdr (assoc 'nxml-mode hs-special-modes-alist) (list "<!--\\|<[^/>][^>]*>" "-->\\|</[^/>]+>" "<!--" #'nxml-forward-element nil)) |
3855 ;; (setcdr (assoc 'nxml-mode hs-special-modes-alist) (list "<!--\\|<[^/>][^>]*>" "-->\\|</[^/>]+>" "<!--" #'nxml-forward-element nil)) |
3856 |
3856 |
3857 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3857 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
3858 (message "prettyprint, pp") |
|
3859 |
|
3860 (defun my-pp () |
|
3861 (interactive) |
|
3862 (let ( (fname (buffer-file-name)) ) |
|
3863 (cond |
|
3864 ((eq major-mode 'nxml-mode) |
|
3865 (my-nxml-pp)) |
|
3866 ((string-match "\\.json\\'" fname) |
|
3867 (json-pretty-print-buffer))))) |
|
3868 |
|
3869 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3858 (message "backuping") |
3870 (message "backuping") |
3859 |
3871 |
3860 (setq |
3872 (setq |
3861 make-backup-files t |
3873 make-backup-files t |
3862 ;; In other case (by renaming) you loose original file creation date. |
3874 ;; In other case (by renaming) you loose original file creation date. |