X-Git-Url: https://git.shemshak.org/gitweb.cgi/~bandali/configs/blobdiff_plain/5e07a0910b5ee74100ef0a42ab5210d47292d52f..f2a5794494de4bf1b018c6c540365bad40b0dafb:/init.org

diff --git a/init.org b/init.org
index 5006e56..3ae9946 100644
--- a/init.org
+++ b/init.org
@@ -667,9 +667,7 @@ Based on https://stackoverflow.com/a/17788551, with changes to use
       (around inhibit-display
               (command &optional mode name-function highlight-regexp))
     (if (not (string-match "^\\(find\\|grep\\)" command))
-        (cl-letf (((symbol-function 'display-buffer)   #'ignore)
-                  ((symbol-function 'set-window-point) #'ignore)
-                  ((symbol-function 'goto-char)        #'ignore))
+        (cl-letf (((symbol-function 'display-buffer) #'ignore))
           (save-window-excursion ad-do-it))
       ad-do-it))
   (ad-activate 'compilation-start))
@@ -825,7 +823,8 @@ file.
     (let* ((file-tangle-start-time (current-time))
            (file (buffer-file-name))
            (file-nodir (file-name-nondirectory file))
-           (async-quiet-switch "-q"))
+           ;; (async-quiet-switch "-q")
+           )
       (async-start
        `(lambda ()
           (require 'org)
@@ -912,8 +911,9 @@ There's no way I could top that, so I won't attempt to.
 
 #+begin_src emacs-lisp
 (use-package swiper
-  :bind (("C-s" . swiper)
-         ("C-r" . swiper)))
+  :bind (("C-s"   . swiper)
+         ("C-r"   . swiper)
+         ("C-S-s" . isearch-forward)))
 #+end_src
 
 **** Counsel
@@ -955,7 +955,7 @@ There's no way I could top that, so I won't attempt to.
 
   (defun amin|eshell-setup ()
     (make-local-variable 'company-idle-delay)
-    (setq company-idle-delay nil)
+    (defvar company-idle-delay nil)
     (bind-keys :map eshell-mode-map
                ("C-d"   . amin/eshell-quit-or-delete-char)
                ("C-S-l" . amin/eshell-clear)
@@ -1990,6 +1990,13 @@ Hopefully temporary.
   (global-page-break-lines-mode))
 #+end_src
 
+** expand-region
+
+#+begin_src emacs-lisp
+(use-package expand-region
+  :bind ("C-=" . er/expand-region))
+#+end_src
+
 * Email
 
 #+begin_src emacs-lisp