.emacs-my
changeset 1548 f7b46111fd5a
parent 1547 a4e4e54c257a
child 1549 4ede173a315f
equal deleted inserted replaced
1547:a4e4e54c257a 1548:f7b46111fd5a
  3690 
  3690 
  3691 (my--eval-after-load sql
  3691 (my--eval-after-load sql
  3692   (define-key sql-mode-map (kbd "C-c C-e") 'my-sql-explain-paragraph))
  3692   (define-key sql-mode-map (kbd "C-c C-e") 'my-sql-explain-paragraph))
  3693 
  3693 
  3694 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3694 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       
  3695 (message "hideshow")
       
  3696 
       
  3697 (require 'hideshow)
       
  3698 
       
  3699 (define-key hs-minor-mode-map (kbd "s--") #'hs-toggle-hiding)
       
  3700 
       
  3701 (add-to-list
       
  3702  'hs-special-modes-alist
       
  3703  '(nxml-mode
       
  3704    "<!--\\|<[^/>]*[^/]>"
       
  3705    "-->\\|</[^/>]*[^/]>"
       
  3706    "<!--"
       
  3707    nil
       
  3708    nil))
       
  3709 (add-hook 'nxml-mode-hook #'hs-minor-mode)
       
  3710 
       
  3711 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3695 (message "backuping")
  3712 (message "backuping")
  3696 
  3713 
  3697 (setq
  3714 (setq
  3698  make-backup-files t
  3715  make-backup-files t
  3699  ;; In other case (by renaming) you loose original file creation date.
  3716  ;; In other case (by renaming) you loose original file creation date.