.emacs-my
changeset 1594 cf7966919bd9
parent 1593 8f9430c7d2f7
child 1595 0f4f0205ef3e
equal deleted inserted replaced
1593:8f9430c7d2f7 1594:cf7966919bd9
  3793 (define-key hs-minor-mode-map (kbd "s--") #'hs-toggle-hiding)
  3793 (define-key hs-minor-mode-map (kbd "s--") #'hs-toggle-hiding)
  3794 
  3794 
  3795 (add-to-list
  3795 (add-to-list
  3796  'hs-special-modes-alist
  3796  'hs-special-modes-alist
  3797  '(nxml-mode
  3797  '(nxml-mode
  3798    "<!--\\|<[^/>]*[^/]>"
  3798    "<!--\\|<[^/>][^>]*>" "-->\\|</[^/>]+>" "<!--" #'nxml-forward-element nil))
  3799    "-->\\|</[^/>]*[^/]>"
       
  3800    "<!--"
       
  3801    nil
       
  3802    nil))
       
  3803 (add-hook 'nxml-mode-hook #'hs-minor-mode)
  3799 (add-hook 'nxml-mode-hook #'hs-minor-mode)
       
  3800 ;; (setcdr (assoc 'nxml-mode hs-special-modes-alist) (list "<!--\\|<[^/>][^>]*>" "-->\\|</[^/>]+>" "<!--" #'nxml-forward-element nil))
  3804 
  3801 
  3805 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3802 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3806 (message "backuping")
  3803 (message "backuping")
  3807 
  3804 
  3808 (setq
  3805 (setq