fix company mode map

diff --git a/emacs_el/configuration/don-configuration.org b/emacs_el/configuration/don-configuration.org
index 6265a5b3e969cd683e3e7f71d916132e82cdba1f..243b1336affdbe80d394492e600dfb52b546550b 100644 (file)
--- a/emacs_el/configuration/don-configuration.org
+++ b/emacs_el/configuration/don-configuration.org
@@ -373,32 +373,31 @@ value, scrolling continues until there is no more output.
 #+END_SRC
 ** Company
 #+BEGIN_SRC emacs-lisp
-  (use-package company
-    :ensure t
-    :bind (("M-/" . company-complete))
-    :config
-    (setq company-echo-delay 0     ; remove blinking
-          company-show-numbers t   ; show numbers for easy selection
-          company-selection-wrap-around t
-          company-require-match nil
-          company-dabbrev-ignore-case t
-          company-dabbrev-ignore-invisible t
-          company-dabbrev-other-buffers t
-          company-dabbrev-downcase nil
-          company-dabbrev-code-everywhere t
-          company-tooltip-align-annotations t
-          company-minimum-prefix-length 1
-          company-global-modes '(not)
-          company-lighter-base "(C)")
-    (global-company-mode 1)
-  
-    (bind-key "C-n"   #'company-select-next company-active-map)
-    (bind-key "C-p"   #'company-select-previous company-active-map)
-    ; (bind-key "<tab>" #'company-complete company-active-map)
-    (bind-key "M-?"   #'company-show-doc-buffer company-active-map)
-    (bind-key "M-."   #'company-show-location company-active-map)
-    (bind-key "M-/"   #'company-complete-common org-mode-map)
-    )
+(use-package company
+  :ensure t
+  :bind (("M-/" . company-complete))
+  :config
+  (setq company-echo-delay 0     ; remove blinking
+        company-show-numbers t   ; show numbers for easy selection
+        company-selection-wrap-around t
+        company-require-match nil
+        company-dabbrev-ignore-case t
+        company-dabbrev-ignore-invisible t
+        company-dabbrev-other-buffers t
+        company-dabbrev-downcase nil
+        company-dabbrev-code-everywhere t
+        company-tooltip-align-annotations t
+        company-minimum-prefix-length 1
+        company-global-modes '(not)
+        company-lighter-base "(C)")
+  (global-company-mode 1)
+  :bind (:map company-active-map
+              ("C-n" . company-select-next)
+              ("C-p" . company-select-previous)
+              ("M-?" . company-show-doc-buffer)
+              ("M-." . company-show-location)
+              )
+  )
 #+END_SRC
 *** C/C++
 #+BEGIN_SRC emacs-lisp