(trap (or mdw-fast-startup (require 'tex-site)))
-(trap (or mdw-fast-startup (semantic-load-enable-minimum-features)))
+(trap (or mdw-fast-startup (semantic-load-enable-excessive-code-helpers)))
(setq semanticdb-default-save-directory "~/.emacs.d/semanticdb/")
+(eval-after-load "senator"
+ '(setq isearch-mode-hook
+ (remq 'senator-isearch-mode-hook isearch-mode-hook)
+ isearch-mode-end-hook
+ (remq 'senator-isearch-mode-hook isearch-mode-end-hook)))
;; Skeleton stuff.
(setq w3m-default-display-inline-images t)
+(eval-after-load "w3m"
+ '(let ((entries '(("application/pdf" "\\.pdf\\'" ("evince" file) nil)
+ ("application/x-pdf" "\\.pdf\\'" ("evince" file) nil))))
+ (dolist (e entries)
+ (setq w3m-content-type-alist
+ (cons e (remove* (car e) w3m-content-type-alist
+ :key #'car :test #'string=))))))
+
(setq w3-do-incremental-display t
w3-use-menus '(file edit view go bookmark options
buffers style search emacs nil help)
(setq completion-ignored-extensions
(append `(".hc" ".hi") completion-ignored-extensions))
+(dolist (dir (remove-if-not (lambda (ext)
+ (= (aref ext (- (length ext) 1)) ?/))
+ completion-ignored-extensions))
+ (if (/= (aref dir 0) ?/)
+ (setq completion-ignored-extensions
+ (cons (concat "/" dir)
+ (remove dir completion-ignored-extensions)))))
;; Some common local definitions.