.emacs-my
changeset 1447 8cde360dda53
parent 1445 b1f7af188fa2
child 1448 6e3c4ea65439
equal deleted inserted replaced
1446:78d0fef31a4b 1447:8cde360dda53
  3231       web-mode-style-padding 2)
  3231       web-mode-style-padding 2)
  3232 
  3232 
  3233 (setq web-mode-enable-comment-keywords t)
  3233 (setq web-mode-enable-comment-keywords t)
  3234 
  3234 
  3235 (ignore-errors (require 'web-mode))
  3235 (ignore-errors (require 'web-mode))
       
  3236 
  3236 (when (featurep 'web-mode)
  3237 (when (featurep 'web-mode)
       
  3238   ;; Replace html-mode  with web-mode.
       
  3239   (when (cl-some (lambda (spec) (eq (cdr spec) 'html-mode))
       
  3240                  magic-fallback-mode-alist)
       
  3241     (setq magic-fallback-mode-alist (copy-tree magic-fallback-mode-alist))
       
  3242     (mapc (lambda (spec) (when (eq (cdr spec) 'html-mode) (setcdr spec 'web-mode)))
       
  3243           magic-fallback-mode-alist))
  3237   (setq web-mode-engine-file-regexps (delq (assoc "jsp" web-mode-engine-file-regexps) web-mode-engine-file-regexps))
  3244   (setq web-mode-engine-file-regexps (delq (assoc "jsp" web-mode-engine-file-regexps) web-mode-engine-file-regexps))
  3238   (mapc (lambda (i) (add-to-list 'web-mode-engine-file-regexps i))
  3245   (mapc (lambda (i) (add-to-list 'web-mode-engine-file-regexps i))
  3239           '(("jsp" . "\\.tagf?\\'")
  3246           '(("jsp" . "\\.tagf?\\'")
  3240             ("jsp" . "\\.jspf?\\'")))
  3247             ("jsp" . "\\.jspf?\\'")))
  3241   (add-to-list 'auto-mode-alist '("\\.phtml\\'" . web-mode))
  3248   (add-to-list 'auto-mode-alist '("\\.phtml\\'" . web-mode))