(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))
(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)
#+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
(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)
(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