emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Appease almighty byte-compiler sama

Browse source
This commit is contained in:
Henrik Lissner 2017-06-19 12:41:30 +02:00
parent 14e69ca830
commit 3762d877b1
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

1
core/core-editor.el
View file

@ -154,6 +154,7 @@ fundamental-mode) for performance sake."
(set! :editorconfig :remove 'emacs-lisp-mode) (set! :editorconfig :remove 'emacs-lisp-mode)
(set! :editorconfig :remove 'lisp-mode) (set! :editorconfig :remove 'lisp-mode)
(defvar whitespace-style)
(defun doom|editorconfig-whitespace-mode-maybe (&rest _) (defun doom|editorconfig-whitespace-mode-maybe (&rest _)
"Show whitespace-mode when file uses TABS (ew)." "Show whitespace-mode when file uses TABS (ew)."
(when indent-tabs-mode (when indent-tabs-mode

10
core/core-ui.el
View file

@ -195,21 +195,21 @@ mode is detected.")
(def-package! highlight-indentation (def-package! highlight-indentation
:commands (highlight-indentation-mode highlight-indentation-current-column-mode) :commands (highlight-indentation-mode highlight-indentation-current-column-mode)
:config :config
(defun doom|inject-trailing-whitespace (&optional start end) (defun doom|inject-trailing-whitespace (start end)
"The opposite of `delete-trailing-whitespace'. Injects whitespace into "The opposite of `delete-trailing-whitespace'. Injects whitespace into
buffer so that `highlight-indentation-mode' will display uninterrupted indent buffer so that `highlight-indentation-mode' will display uninterrupted indent
markers. This whitespace is stripped out on save, as not to affect the resulting markers. This whitespace is stripped out on save, as not to affect the resulting
file." file."
(interactive (if (use-region-p) (interactive (if (use-region-p)
(list (region-beginning) (region-end)) (list (region-beginning) (region-end))
(list nil nil))) (list (point-min) (point-max))))
(barf-if-buffer-read-only) (barf-if-buffer-read-only)
(unless indent-tabs-mode (unless indent-tabs-mode
(with-silent-modifications (with-silent-modifications
(save-excursion (save-excursion
(goto-char (or start (point-min))) (goto-char start)
(save-match-data (save-match-data
(while (and (re-search-forward "^$" nil t) (< (point) (point-max))) (while (and (re-search-forward "^$" nil t) (<= (point) end))
(let (line-start line-end next-start next-end) (let (line-start line-end next-start next-end)
(save-excursion (save-excursion
;; Check previous line indent ;; Check previous line indent
@ -290,7 +290,7 @@ file."
:config :config
(setq nlinum-highlight-current-line t) (setq nlinum-highlight-current-line t)
(defun doom-nlinum-format-fn (line width) (defun doom-nlinum-format-fn (line _width)
"A more customizable `nlinum-format-function'. See `doom-ui-nlinum-lpad', "A more customizable `nlinum-format-function'. See `doom-ui-nlinum-lpad',
`doom-ui-nlinum-rpad' and `doom-ui-nlinum-spacer'. Allows a fix for `doom-ui-nlinum-rpad' and `doom-ui-nlinum-spacer'. Allows a fix for
`whitespace-mode' space-marks appearing inside the line number." `whitespace-mode' space-marks appearing inside the line number."