dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update indentation in some elisp files 

According to new elisp default indentation provided by
`common-lisp-indent-function`.
This commit is contained in:
Daniel - 2022-08-05 09:15:33 +02:00
parent f22ef5705c
commit 40ff1d3004
Signed by: dbo
GPG Key ID: 784AA8DF0CCDF625
2 changed files with 189 additions and 190 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
init.el
View File

@ -980,12 +980,11 @@ If DESCRIPTION, match it in the description. If TARGET, match it
in the target. If both DESCRIPTION and TARGET, match both,
respectively."
(cl-labels
((no-desc
(match) (rx-to-string `(seq (or bol (1+ blank))
((no-desc (match)
(rx-to-string `(seq (or bol (1+ blank))
"[[" (0+ (not (any "]"))) (regexp ,match) (0+ (not (any "]")))
"]]")))
(match-both
(description target)
(match-both (description target)
(rx-to-string `(seq (or bol (1+ blank))
"[[" (0+ (not (any "]"))) (regexp ,target) (0+ (not (any "]")))
;; Added .* wildcards
@ -993,14 +992,14 @@ respectively."
"]]")))
;; Note that these actually allow empty descriptions
;; or targets, depending on what they are matching.
(match-desc
(match) (rx-to-string `(seq (or bol (1+ blank))
(match-desc (match)
(rx-to-string `(seq (or bol (1+ blank))
"[[" (0+ (not (any "]")))
;; Added .* wildcards
"][" (regexp ".*") (regexp ,match) (regexp ".*")
"]]")))
(match-target
(match) (rx-to-string `(seq (or bol (1+ blank))
(match-target (match)
(rx-to-string `(seq (or bol (1+ blank))
"[[" (0+ (not (any "]"))) (regexp ,match) (0+ (not (any "]")))
;; Removed pattern for description
"][" ))))