branch: elpa/helm
commit 7ec8337a40599aedf399b44a9619377dd22c0a42
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Untabify
---
helm-epa.el | 20 ++++++++++----------
helm-files.el | 20 ++++++++++----------
helm-grep.el | 6 +++---
helm-lib.el | 8 ++++----
helm-locate.el | 2 +-
helm-mode.el | 16 ++++++++--------
helm-occur.el | 6 +++---
helm-packages.el | 2 +-
8 files changed, 40 insertions(+), 40 deletions(-)
diff --git a/helm-epa.el b/helm-epa.el
index 4f80745053..1c07e6e856 100644
--- a/helm-epa.el
+++ b/helm-epa.el
@@ -178,7 +178,7 @@
(keys (helm-marked-candidates)))
(message "Deleting gpg keys..")
(condition-case error
- (epg-delete-keys context keys)
+ (epg-delete-keys context keys)
(error
(epa-display-error context)
(signal (car error) (cdr error))))
@@ -201,7 +201,7 @@
(with-no-warnings
(setf (epg-context-armor context) t))
(condition-case error
- (kill-new (epg-export-keys-to-string context keys))
+ (kill-new (epg-export-keys-to-string context keys))
(error
(epa-display-error context)
(signal (car error) (cdr error))))))
@@ -214,16 +214,16 @@
(save-excursion
(goto-char (point-min))
(if (search-forward mail-header-separator nil t)
- (forward-line))
+ (forward-line))
(setq epa-last-coding-system-specified
- (or coding-system-for-write
- (select-safe-coding-system (point) (point-max))))
+ (or coding-system-for-write
+ (select-safe-coding-system (point) (point-max))))
(let ((verbose current-prefix-arg))
(setq start (point)
end (point-max)
mode (if verbose
- (epa--read-signature-type)
- 'clear))))
+ (epa--read-signature-type)
+ 'clear))))
;; TODO Make non-interactive functions to replace epa-sign-region
;; and epa-encrypt-region and inline them.
(with-no-warnings
@@ -237,12 +237,12 @@
(save-excursion
(goto-char (point-min))
(when (search-forward mail-header-separator nil t)
- (forward-line))
+ (forward-line))
(setq start (point)
end (point-max))
(setq epa-last-coding-system-specified
- (or coding-system-for-write
- (select-safe-coding-system start end))))
+ (or coding-system-for-write
+ (select-safe-coding-system start end))))
;; Don't let some read-only text stop us from encrypting.
(let ((inhibit-read-only t)
(keys (helm-epa-collect-keys-from-candidates cands))
diff --git a/helm-files.el b/helm-files.el
index 4b8e6ae27b..70f4b24acf 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -388,7 +388,7 @@ and \"..\" are still displayed as full path when
"Show full path of dotted directories when non nil."
:type 'boolean
:set (lambda (var val)
- (set-default var val)
+ (set-default var val)
(clrhash helm-ff--list-directory-cache)))
(defcustom helm-ff-signal-error-on-dot-files t
@@ -905,8 +905,8 @@ If your system have no file notification package available
turn this
to nil to avoid error messages when using `helm-find-files'."
:type 'boolean
:set (lambda (var val)
- (set-default var val)
- (unless (symbol-value var)
+ (set-default var val)
+ (unless (symbol-value var)
(cl-loop for dir being the hash-keys of
helm-ff--file-notify-watchers
do (remhash dir helm-ff--list-directory-cache)))))
@@ -1979,7 +1979,7 @@ this working."
;; we can just stick the new command at the end of the current
;; one, and everything will happen as it should
(setcdr (last (cdr eshell-current-command))
- (list `(let ((here (and (eobp) (point))))
+ (list `(let ((here (and (eobp) (point))))
,(and input
`(insert-and-inherit ,(concat input "\n")))
(if here
@@ -1991,7 +1991,7 @@ this working."
(insert "command: \"" input "\"\n")))
(setq eshell-current-command command)
(let* ((delim (catch 'eshell-incomplete
- (eshell-resume-eval)))
+ (eshell-resume-eval)))
(val (car-safe delim)))
;; If the return value of `eshell-resume-eval' is wrapped in a
;; list, it indicates that the command was run asynchronously.
@@ -3085,7 +3085,7 @@ when `helm-pattern' is equal to \"~/\"."
;; Try to shut up persistent tramp error with adb method when
;; adding tilde to path.
(tramp-tolerate-tilde (equal (file-remote-p pat 'method)
- tramp-adb-method))
+ tramp-adb-method))
(completed-p (helm-aand (expand-file-name
(substitute-in-file-name pat))
(string= (file-name-as-directory it)
@@ -6121,10 +6121,10 @@ Return the \"files\" subdirectory of trash directory.
When `helm-trash-default-directory' is set use it as trash directory."
(let* ((xdg-data-dir
(or helm-trash-default-directory
- (directory-file-name
- (expand-file-name "Trash"
- (or (getenv "XDG_DATA_HOME")
- "~/.local/share")))))
+ (directory-file-name
+ (expand-file-name "Trash"
+ (or (getenv "XDG_DATA_HOME")
+ "~/.local/share")))))
(trash-files-dir (expand-file-name "files" xdg-data-dir)))
;; Just return nil if the Trash directory is not yet created. It will be
;; created later by `delete-directory'.
diff --git a/helm-grep.el b/helm-grep.el
index 5878d13286..18d7882ce8 100644
--- a/helm-grep.el
+++ b/helm-grep.el
@@ -930,11 +930,11 @@ RESET non-nil means rewind to the first match.
This is the `next-error-function' for `helm-grep-mode'."
(interactive "p")
(goto-char (cond (reset (point-min))
- ((and (< argp 0) helm-current-error)
+ ((and (< argp 0) helm-current-error)
(line-beginning-position))
- ((and (> argp 0) helm-current-error)
+ ((and (> argp 0) helm-current-error)
(line-end-position))
- ((point))))
+ ((point))))
(let ((fun (if (> argp 0)
#'next-single-property-change
#'previous-single-property-change)))
diff --git a/helm-lib.el b/helm-lib.el
index 374d045445..6e028392c8 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -399,10 +399,10 @@ This is done recursively."
object
(let ((vec (string-to-vector object)))
(unless (multibyte-string-p object)
- (dotimes (i (length vec))
- (let ((k (aref vec i)))
- (when (> k 127)
- (setf (aref vec i) (+ k ?\M-\C-@ -128))))))
+ (dotimes (i (length vec))
+ (let ((k (aref vec i)))
+ (when (> k 127)
+ (setf (aref vec i) (+ k ?\M-\C-@ -128))))))
vec))))
(defun helm-proper-list-p (obj)
diff --git a/helm-locate.el b/helm-locate.el
index 970a7ded15..e4dbcd9e85 100644
--- a/helm-locate.el
+++ b/helm-locate.el
@@ -461,7 +461,7 @@ Sort is done on basename of CANDIDATES."
(guard* (string-match-p "\\`es" it))
(format it (replace-regexp-in-string
"/" "\\\\\\\\" (helm-get-attr 'basedir))
- (helm-get-attr 'subdir)))
+ (helm-get-attr 'subdir)))
(;; Locate
(guard* (string-match-p "\\`locate" it))
;; Try to use a locale DB if some.
diff --git a/helm-mode.el b/helm-mode.el
index 74a45bfe94..9992743340 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1319,17 +1319,17 @@ is used."
(defun helm--get-theme-doc-1 (sym)
(let ((fn (locate-file (concat (symbol-name sym) "-theme.el")
- (custom-theme--load-path)
- '("" "c")))
+ (custom-theme--load-path)
+ '("" "c")))
doc)
;; Avoid loading theme as much as possible.
(when fn
(with-temp-buffer
(insert-file-contents fn)
(helm-awhile (let ((read-circle nil))
- (condition-case nil
- (read (current-buffer))
- (end-of-file nil)))
+ (condition-case nil
+ (read (current-buffer))
+ (end-of-file nil)))
(when (eq (car-safe it) 'deftheme)
(cl-return (setq doc (car (split-string (nth 2 it) "\n"))))))
(unless doc
@@ -1445,11 +1445,11 @@ is used."
(cl-loop for buffer in (buffer-list) thereis
(with-current-buffer buffer
(when (and (derived-mode-p 'Info-mode)
- (stringp Info-current-file)
- (string-match
+ (stringp Info-current-file)
+ (string-match
manual-re Info-current-file))
(setq prefix "*")
- Info-current-file))))
+ Info-current-file))))
(assoc-default comp helm-info--files-cache)
(helm-aif (Info-find-file comp t)
(prog1 it (push (cons comp it)
helm-info--files-cache)))))
diff --git a/helm-occur.el b/helm-occur.el
index 3ed9f916b0..727a646031 100644
--- a/helm-occur.el
+++ b/helm-occur.el
@@ -799,11 +799,11 @@ RESET non-nil means rewind to the first match.
This is the `next-error-function' for `helm-occur-mode'."
(interactive "p")
(goto-char (cond (reset (point-min))
- ((and (< argp 0) helm-current-error)
+ ((and (< argp 0) helm-current-error)
(line-beginning-position))
- ((and (> argp 0) helm-current-error)
+ ((and (> argp 0) helm-current-error)
(line-end-position))
- ((point))))
+ ((point))))
(let ((fun (if (> argp 0)
#'next-single-property-change
#'previous-single-property-change)))
diff --git a/helm-packages.el b/helm-packages.el
index 371490f8c0..da515b03d4 100644
--- a/helm-packages.el
+++ b/helm-packages.el
@@ -277,7 +277,7 @@ Arg PACKAGES is a list of strings."
(defun helm-finder--list-matches (key)
(let* ((id (intern key))
(built-in (gethash id finder-keywords-hash))
- (exts (cl-loop for p in package-archive-contents
+ (exts (cl-loop for p in package-archive-contents
for sym = (car p)
when (package--has-keyword-p
(package-get-descriptor sym)
