.emacs-my
changeset 1548 f7b46111fd5a
parent 1547 a4e4e54c257a
child 1549 4ede173a315f
--- a/.emacs-my	Tue Nov 07 22:00:04 2017 +0200
+++ b/.emacs-my	Sat Nov 25 23:16:04 2017 +0200
@@ -3692,6 +3692,23 @@
   (define-key sql-mode-map (kbd "C-c C-e") 'my-sql-explain-paragraph))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "hideshow")
+
+(require 'hideshow)
+
+(define-key hs-minor-mode-map (kbd "s--") #'hs-toggle-hiding)
+
+(add-to-list
+ 'hs-special-modes-alist
+ '(nxml-mode
+   "<!--\\|<[^/>]*[^/]>"
+   "-->\\|</[^/>]*[^/]>"
+   "<!--"
+   nil
+   nil))
+(add-hook 'nxml-mode-hook #'hs-minor-mode)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "backuping")
 
 (setq