[emacs] silence ediff-after-quit-hook-internal related warning

[~bandali/configs] / init.org

diff --git a/init.org b/init.org
index d148363..14941a2 100644 (file)
--- a/init.org
+++ b/init.org
@@ -1079,7 +1079,7 @@ TODO: break this giant source block down into individual org sections.
   ;; https://oremacs.com/2017/03/18/dired-ediff/
   (defun dired-ediff-files ()
     (interactive)
   ;; https://oremacs.com/2017/03/18/dired-ediff/
   (defun dired-ediff-files ()
     (interactive)

-    (require 'ediff)
+    (defvar ediff-after-quit-hook-internal)

     (let ((files (dired-get-marked-files))
           (wnd (current-window-configuration)))
       (if (<= (length files) 2)
     (let ((files (dired-get-marked-files))
           (wnd (current-window-configuration)))
       (if (<= (length files) 2)


@@ -1098,11 +1098,13 @@ TODO: break this giant source block down into individual org sections.
                         (set-window-configuration wnd))))
         (error "no more than 2 files should be marked"))))
   :bind (:map dired-mode-map
                         (set-window-configuration wnd))))
         (error "no more than 2 files should be marked"))))
   :bind (:map dired-mode-map

-              ("e" . dired-ediff-files)
-              ("E" . dired-toggle-read-only)
-              ("z" . (lambda ()
-                       (interactive)
-                       (a/dired-start-process "zathura")))))
+              ("e"  . dired-ediff-files)
+              ("E"  . dired-toggle-read-only)
+              ("\\" . dired-hide-details-mode)
+              ("z"  . (lambda ()
+                        (interactive)
+                        (a/dired-start-process "zathura"))))
+  :hook (dired-mode . dired-hide-details-mode))

 
 (use-package eldoc
   :when (version< "25" emacs-version)
 
 (use-package eldoc
   :when (version< "25" emacs-version)


@@ -1891,6 +1893,20 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
   :bind ("C-=" . er/expand-region))
 #+end_src
 
   :bind ("C-=" . er/expand-region))
 #+end_src
 

+** multiple-cursors
+
+#+begin_src emacs-lisp
+(use-package multiple-cursors
+  :bind
+  (("C-S-<mouse-1>" . mc/add-cursor-on-click)
+   (:prefix-map a/mc-prefix-map
+               :prefix "C-c m"
+               ("c" . mc/edit-lines)
+               ("n" . mc/mark-next-like-this)
+               ("p" . mc/mark-previous-like-this)
+               ("a" . mc/mark-all-like-this))))
+#+end_src
+

 * Email
 :PROPERTIES:
 :CUSTOM_ID: email
 * Email
 :PROPERTIES:
 :CUSTOM_ID: email


@@ -1911,9 +1927,7 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
  read-mail-command 'gnus)
 
 (use-package gnus
  read-mail-command 'gnus)
 
 (use-package gnus

-  :bind (("C-c m" . gnus)
-         ("C-c M" . gnus-unplugged)
-         ("s-m"   . gnus)
+  :bind (("s-m"   . gnus)

          ("s-M"   . gnus-unplugged))
   :init
   (setq
          ("s-M"   . gnus-unplugged))
   :init
   (setq