From 6618b65c4b2f5d64d12cfb83604f1bc0d66ef7d1 Mon Sep 17 00:00:00 2001 From: PHO Date: Mon, 16 Feb 2009 12:23:03 +0900 Subject: [PATCH] Auto commit by The Sugar System. --- dot-files/_emacs_el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el index a836dec..edb2a1a 100644 --- a/dot-files/_emacs_el +++ b/dot-files/_emacs_el @@ -69,12 +69,13 @@ (require feature) (file-error (if (equal (cadr e) "Cannot open load file") - nil ; ignore + (message "Warning: feature %s is absent" feature) ; warn and ignore (apply 'signal (car e) (cdr e)))))) ; rethrow (defun load-file-if-present (path) (if (file-exists-p path) - (load-file path))) + (load-file path) + (message "Warning: file %s is absent" path))) ;; flyspell (require-if-present 'flyspell) @@ -111,6 +112,7 @@ ("~/sandbox/_haskell/HsSVN" "HsSVN") ("~/sandbox/_game/RoRo" "RoRo") ("~/sandbox/_haskell/HXT" "HXT") + ("~/sandbox/_haskell/hxt-compile" "hxt-compile") ("~/src/ghc-6.10.1" "ghc-6.10.1") ("~/sandbox/sugar" "sugar") )))) @@ -345,7 +347,7 @@ '(mew-summary-form (quote (type (5 date) " " (14 from) " " t (14 x-classification) " " (30 subj) "|" (0 body)))) '(mouse-wheel-progessive-speed nil) '(mouse-wheel-scroll-amount (quote (1 ((shift) . 5) ((control))))) - '(navi2ch-browse-url-browser-function (quote browse-url-with-firefox)) + '(navi2ch-browse-url-browser-function (quote browse-url-firefox)) '(navi2ch-mona-face-variable (quote navi2ch-mona16-face)) '(navi2ch-mona-on-message-mode t) '(newsticker-html-renderer (quote w3m-region)) -- 2.40.0