.emacs-my
changeset 619 d5b22e5edae1
parent 618 568cb811ee5b
child 620 bf8dd15f71a3
equal deleted inserted replaced
618:568cb811ee5b 619:d5b22e5edae1
   640 (modify-coding-system-alist 'file "\\.\\(war\\|ear\\|sar\\|egg\\)\\'" 'no-conversion)
   640 (modify-coding-system-alist 'file "\\.\\(war\\|ear\\|sar\\|egg\\)\\'" 'no-conversion)
   641 
   641 
   642 (add-to-list 'auto-mode-alist '("\\.\\(war\\|ear\\|sar\\|egg\\)\\'" . archive-mode))
   642 (add-to-list 'auto-mode-alist '("\\.\\(war\\|ear\\|sar\\|egg\\)\\'" . archive-mode))
   643 
   643 
   644 ;;; ----------------------------------------------------------------
   644 ;;; ----------------------------------------------------------------
   645 (message "image")
   645 (message "image, png, svg")
   646 
   646 
   647 (when (fboundp 'auto-image-file-mode)
   647 (when (fboundp 'auto-image-file-mode)
   648   (auto-image-file-mode 1))
   648   (auto-image-file-mode 1))
       
   649 (eval-after-load 'image-file
       
   650   '(progn
       
   651      ;; Exclude .svg image from supported image list, as Emacs doesn't come
       
   652      ;; with SVG shared library.
       
   653      (setq image-file-name-extensions (remove "svg" image-file-name-extensions))
       
   654      (when auto-image-file-mode
       
   655        ;; Re-initialize the image-file handler.
       
   656        (auto-image-file-mode t))
       
   657      ))
   649 
   658 
   650 ;;; ----------------------------------------------------------------
   659 ;;; ----------------------------------------------------------------
   651 (message "revert buffer")
   660 (message "revert buffer")
   652 
   661 
   653 (global-set-key [f5]    'revert-buffer)
   662 (global-set-key [f5]    'revert-buffer)