From 7c06f39332e5af8cdb39d952ad8b2aca74e75df4 Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Fri, 24 Jan 2020 22:19:27 +0900
Subject: [PATCH] Use C-x m for counsel-mark-ring

---
 emacs.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/emacs.el b/emacs.el
index 80a5cb1..5365ddf 100644
--- a/emacs.el
+++ b/emacs.el
@@ -242,12 +242,13 @@ Otherwize hook it."
   )
 ;; (add-to-list 'default-frame-alist '(cursor-type . box))
 (menu-bar-mode 1)
-(define-key ctl-x-map "m" 'menu-bar-open)
+(define-key ctl-x-map "M" 'menu-bar-open)
+(defalias 'menu 'menu-bar-open)
 (and (fboundp 'tool-bar-mode)
      (tool-bar-mode 0))
 (and (fboundp 'set-scroll-bar-mode)
      (set-scroll-bar-mode nil))
-
+?\C-h
 (eval-after-init
   (message "%s %s" invocation-name emacs-version)
   (message "Invocation directory: %s" default-directory)
@@ -508,6 +509,8 @@ Otherwize hook it."
   (exchange-point-and-mark)
   (deactivate-mark))
 (define-key ctl-x-map (kbd "C-x") 'my-exchange-point-and-mark)
+(when (fboundp 'counsel-mark-ring)
+  (define-key ctl-x-map "m" 'counsel-mark-ring))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; title and mode-line