Fix indentation in utility library to conform to Common Lisp
This is the current indentation default.
This commit is contained in:
parent
28b9918325
commit
7db9f8d56c
|
@ -515,30 +515,30 @@ entries, even if I want to use the input directly."
|
|||
(stringp bn)
|
||||
(file-name-nondirectory bn)))
|
||||
(default-alias
|
||||
(and fn
|
||||
(let ((aliases (remove (assoc "all" grep-files-aliases)
|
||||
grep-files-aliases))
|
||||
alias)
|
||||
(while aliases
|
||||
(setq alias (car aliases)
|
||||
aliases (cdr aliases))
|
||||
(if (string-match (mapconcat
|
||||
#'wildcard-to-regexp
|
||||
(split-string (cdr alias) nil t)
|
||||
"\\|")
|
||||
fn)
|
||||
(setq aliases nil)
|
||||
(setq alias nil)))
|
||||
(cdr alias))))
|
||||
(and fn
|
||||
(let ((aliases (remove (assoc "all" grep-files-aliases)
|
||||
grep-files-aliases))
|
||||
alias)
|
||||
(while aliases
|
||||
(setq alias (car aliases)
|
||||
aliases (cdr aliases))
|
||||
(if (string-match (mapconcat
|
||||
#'wildcard-to-regexp
|
||||
(split-string (cdr alias) nil t)
|
||||
"\\|")
|
||||
fn)
|
||||
(setq aliases nil)
|
||||
(setq alias nil)))
|
||||
(cdr alias))))
|
||||
(default-extension
|
||||
(and fn
|
||||
(let ((ext (file-name-extension fn)))
|
||||
(and ext (concat "*." ext)))))
|
||||
(and fn
|
||||
(let ((ext (file-name-extension fn)))
|
||||
(and ext (concat "*." ext)))))
|
||||
(default
|
||||
(or default-alias
|
||||
default-extension
|
||||
(car grep-files-history)
|
||||
(car (car grep-files-aliases))))
|
||||
(or default-alias
|
||||
default-extension
|
||||
(car grep-files-history)
|
||||
(car (car grep-files-aliases))))
|
||||
(files (completing-read
|
||||
(format "Search for \"%s\" in files matching wildcard: "
|
||||
regexp)
|
||||
|
@ -617,7 +617,7 @@ duplicates when elements are considered as symbols."
|
|||
|
||||
(-each-indexed (string-to-list base45-alphabet)
|
||||
(-lambda (index char)
|
||||
(puthash char index decode-hash-table)
|
||||
(puthash char index decode-hash-table)
|
||||
;; Add an encode-hash-table here in case base45-encode-string will ever be
|
||||
;; written, like so: (puthash index char encode-hash-table)
|
||||
))
|
||||
|
|
Loading…
Reference in New Issue