From 63eb5e23be985bbc1f5b1bf5111ad173ddd41c21 Mon Sep 17 00:00:00 2001 From: PHO Date: Mon, 5 Oct 2009 17:18:39 +0900 Subject: [PATCH] Auto commit by The Sugar System. --- dot-files/_emacs_el | 49 ++++++++++++++++++++++----------------------- 1 file changed, 24 insertions(+), 25 deletions(-) diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el index f22629f..f519e5d 100644 --- a/dot-files/_emacs_el +++ b/dot-files/_emacs_el @@ -53,24 +53,24 @@ '("Hiragino Kaku Gothic Pro W3" . "unicode-bmp"))) ;; Hooks for newline-and-indent ------------------------------------------------ -(mapcar (lambda (hook) - (add-hook hook - (lambda () - (local-set-key "\C-m" 'newline-and-indent) - (local-set-key "\C-j" 'newline) - ))) - '(perl-mode-hook - cperl-mode-hook - java-mode-hook - javascript-mode-hook - c-mode-hook - c++-mode-hook - objc-mode-hook - emacs-lisp-mode-hook - lisp-mode-hook - yatex-mode-hook - css-mode-hook - scheme-mode-hook)) +;(mapcar (lambda (hook) +; (add-hook hook +; (lambda () +; (local-set-key "\C-m" 'newline-and-indent) +; (local-set-key "\C-j" 'newline) +; ))) +; '(perl-mode-hook +; cperl-mode-hook +; java-mode-hook +; javascript-mode-hook +; c-mode-hook +; c++-mode-hook +; objc-mode-hook +; emacs-lisp-mode-hook +; lisp-mode-hook +; yatex-mode-hook +; css-mode-hook +; scheme-mode-hook)) ;; Setting for Packages -------------------------------------------------------- (defun require-if-present (feature) @@ -246,12 +246,12 @@ ;; c-mode (mapcar (lambda (hook) - (add-hook hook - (lambda () (c-set-style "user")))) - '(c-mode-hook - c++-mode-hook - objc-mode-hook - java-mode-hook)) + (add-hook hook + (lambda () (c-set-style "user")))) + '(c-mode-hook + c++-mode-hook + objc-mode-hook + java-mode-hook)) ;; css (autoload 'css-mode "css-mode" "For editing CSS file" t) @@ -392,7 +392,6 @@ '(jabber-username "phonohawk") '(jaspace-highlight-tabs t) '(js2-basic-offset 4) - '(js2-indent-on-enter-key t) '(js2-use-font-lock-faces t) '(mew-field-spec (quote (("^Resent-\\(From\\|To\\|Cc\\|Date\\)" t mew-face-header-important mew-face-header-important) ("^Subject:$" t mew-face-header-important mew-face-header-subject) ("^From:$" t mew-face-header-important mew-face-header-from) ("^\\(To\\|Apparently-To\\):$" t mew-face-header-important mew-face-header-to) ("^\\(Cc\\|Dcc\\|Bcc\\):$" t mew-face-header-important mew-face-header-to) ("^Newsgroups:$" t mew-face-header-important mew-face-header-to) ("^Date:$" t mew-face-header-important mew-face-header-date) ("^Reply-To:$" t) ("^X-Mailer:$" t) ("^X-Mew:$" t mew-face-header-important mew-face-header-xmew) ("^\\(Received\\|Return-Path\\|Sender\\|Errors-To\\):$" nil) ("^\\(Path\\|Distribution\\|Xref\\):$" nil) ("^NNTP-Posting-" nil) ("^\\(Message-Id\\|Posted\\|In-Reply-To\\|References\\|Precedence\\):$" nil) ("^Delivered-" nil) ("^List-" nil) ("^\\(Mime-Version\\|Lines\\):$" nil) ("^From$" nil) ("^Status:$" nil) ("^Face:$" nil mew-face-header-private mew-face-header-marginal) ("^X-Text-Classification:$" t mew-face-header-important mew-face-header-important) ("^X-POPFile-Link:$" t mew-face-header-important mew-face-body-url) ("^\\(X\\|Original\\)-" nil mew-face-header-private mew-face-header-marginal)))) '(mew-refile-guess-alist (quote (("From:" ("noreply@adc1.apple.com" . "+mm/adc") ("mag2 ID 0000022139" . "+mm/2ch") ("noreply@sourceforge.net" . "+from/sf-net")) ("Subject:" ("w3m-dev" . "+ml/w3m-dev")) ("To:" ("glasgow-haskell-users@haskell.org" . "+ml/ghc-users") ("fink-devel@lists.sourceforge.net" . "+ml/fink-devel")) ("Reply-To:" ("yun@kokonoe.com" . "+mm/kokonoe")) ("Cc:" ("glasgow-haskell-users@haskell.org" . "+ml/ghc-users"))))) -- 2.40.0