From b0e013f911e08eba96c0d91d1fabc93f6bf1c501 Mon Sep 17 00:00:00 2001 From: Peng Li Date: Fri, 9 Sep 2016 19:36:15 +0800 Subject: [PATCH] emacs - supress some warinig at startup --- emacs.d/config.org | 19 ++++++------------- 1 file changed, 6 insertions(+), 13 deletions(-) diff --git a/emacs.d/config.org b/emacs.d/config.org index 5b24108..817df9b 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -47,6 +47,9 @@ Set the emacs load path (show-paren-mode 1) ;; don't backupf (setq make-backup-files nil) + + ;;supress the redefined warning at startup + (setq ad-redefinition-action 'accept) #+END_SRC *** Custom file @@ -165,19 +168,13 @@ Check out [[http://tapoueh.org/emacs/el-get.html][el-get]]. #+END_SRC ** Font Setting - syntax highlighting - #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (global-font-lock-mode 1) - #+END_SRC [[https://github.com/i-tu/Hasklig][Hasklig]] and Source Code Pro, defined fonts family - #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (if window-system (defvar sd/fixed-font-family (cond ((x-list-fonts "Hasklig") "Hasklig") @@ -185,19 +182,15 @@ syntax highlighting ((x-list-fonts "Anonymous Pro") "Anonymous Pro") ((x-list-fonts "M+ 1mn") "M+ 1mn")) "The fixed width font based on what is installed, `nil' if not defined.")) - #+END_SRC Setting the fonts - #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (if window-system (when sd/fixed-font-family (set-frame-font sd/fixed-font-family) (set-face-attribute 'default nil :font sd/fixed-font-family :height 130) (set-face-font 'default sd/fixed-font-family))) - #+END_SRC ** Color Theme @@ -591,7 +584,7 @@ Use [[https://github.com/DarwinAwardWinner/ido-ubiquitous][ido-ubiquitous]] for (use-package ido-exit-target :ensure t :init - (mapcar '(lambda (map) + (mapcar #'(lambda (map) (define-key map (kbd "C-j") #'ido-exit-target-other-window) (define-key map (kbd "C-k") #'ido-exit-target-split-window-below)) (list ido-buffer-completion-map @@ -1246,7 +1239,7 @@ define =multi-term= mapping to disable some mapping which is used globally. :ensure t) (defun sd/term-mode-mapping () - (mapcar (lambda (map) + (mapcar #'(lambda (map) (define-key map (kbd "C-o") nil) (define-key map (kbd "C-g") nil)) (list term-mode-map @@ -1916,7 +1909,7 @@ C/C++ ide tools ;; "C-M-j" is my global binding for avy goto line below ;; disable it in c mode - (mapcar '(lambda (map) + (mapcar #'(lambda (map) (define-key map (kbd "C-M-j") nil)) (list c-mode-map c++-mode-map -- 2.11.0