From 0571b240759700a2036605691e1ac31dc59820aa Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Sat, 22 Dec 2018 14:09:56 -0500 Subject: [emacs] remove unnecessary overrides & silence some compile warnings --- init.org | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/init.org b/init.org index 5006e56..7f66c99 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) @@ -955,7 +954,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) -- cgit v1.2.3-60-g2f50