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

Fix cl-loop indentation.

Browse source
This commit is contained in:
Janfel 2020-01-20 17:02:37 +01:00 • committed by Jan Felix Langenbach
parent e34b5decc6
commit 2fe3268dc2
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
modules/editor/format/autoload/format.el
View file

@ -138,11 +138,11 @@ See `+format/buffer' for the interactive version of this function, and
;; Ensure this temp buffer _seems_ as much like the origin ;; Ensure this temp buffer _seems_ as much like the origin
;; buffer as possible. ;; buffer as possible.
(cl-loop for (var . val) in (buffer-local-variables origin-buffer) (cl-loop for (var . val) in (buffer-local-variables origin-buffer)
;; Making enable-multibyte-characters buffer-local ;; Making enable-multibyte-characters buffer-local
;; causes an error. ;; causes an error.
unless (eq var 'enable-multibyte-characters) unless (eq var 'enable-multibyte-characters)
;; Using setq-local would quote var. ;; Using setq-local would quote var.
do (set (make-local-variable var) val)) do (set (make-local-variable var) val))
;; Since we're piping a region of text to the formatter, remove ;; Since we're piping a region of text to the formatter, remove
;; any leading indentation to make it look like a file. ;; any leading indentation to make it look like a file.
(when preserve-indent-p (when preserve-indent-p