[elpa] externals/mct 1b0ab0b 21/70: Untabify and re-indent

[ELPA Syncer]

branch: externals/mct
commit 1b0ab0b9d0ea97cb8919d64f6a2f9f8c81df17d5
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Untabify and re-indent
---
 mct.el | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/mct.el b/mct.el
index bb9714b..fe7f25d 100644
--- a/mct.el
+++ b/mct.el
@@ -139,8 +139,8 @@ Sample configuration:
 See Info node `(elisp) Displaying Buffers' for more details
 and/or the documentation string of `display-buffer'."
   :type '(cons (choice (function :tag "Display Function")
-                      (repeat :tag "Display Functions" function))
-              alist)
+                       (repeat :tag "Display Functions" function))
+               alist)
   :group 'mct)
 
 (defcustom mct-completions-format 'one-column
@@ -150,9 +150,9 @@ See `completions-format' for possible values.
 NOTE that setting this option with `setq' requires a restart of
 `mct-mode'."
   :set (lambda (var val)
-        (when (bound-and-true-p mct-mode)
-          (setq completions-format val))
-        (set var val))
+         (when (bound-and-true-p mct-mode)
+           (setq completions-format val))
+         (set var val))
   :type '(choice (const horizontal) (const vertical) (const one-column))
   :group 'mct)
 
@@ -228,7 +228,7 @@ Add this to `completion-list-mode-hook'."
   "Set up line highlighting for the completions' buffer.
 Add this to `completion-list-mode-hook'."
   (when (and (derived-mode-p 'completion-list-mode)
-            (eq mct-completions-format 'one-column))
+             (eq mct-completions-format 'one-column))
     (face-remap-add-relative 'hl-line 'mct-hl-line)
     (hl-line-mode 1)))
 
@@ -288,7 +288,7 @@ Meant to be added to `after-change-functions'."
                           ;; don't ring the bell in 
`minibuffer-completion-help'
                           ;; when <= 1 completion exists.
                           (ring-bell-function #'ignore))
-                     (mct--show-completions))))
+                      (mct--show-completions))))
               (quit (abort-recursive-edit)))
           (minibuffer-hide-completions))))))
 
@@ -354,7 +354,7 @@ Meant to be added to `after-change-functions'."
             (setq overlay (make-overlay pt (point)))
             (overlay-put overlay 'face 'mct-stripe)
             (overlay-put overlay 'priority -100)))))))
-  
+
 ;;;; Commands and helper functions
 
 ;;;;; Focus minibuffer and/or show completions
@@ -377,8 +377,8 @@ Meant to be added to `after-change-functions'."
 (defun mct--show-completions ()
   "Show the completions' buffer."
   (let ((display-buffer-alist
-        (cons (cons mct-completion-windows-regexp mct-display-buffer-action)
-              display-buffer-alist)))
+         (cons (cons mct-completion-windows-regexp mct-display-buffer-action)
+               display-buffer-alist)))
     (save-excursion (minibuffer-completion-help)))
   (fit-window-to-buffer (mct--get-completion-window)))
 
@@ -452,8 +452,8 @@ by `mct-completion-windows-regexp'."
     (goto-char (point-at-bol))
     (recenter
      (- -1
-       (min (max 0 scroll-margin)
-            (truncate (/ (window-body-height) 4.0))))
+        (min (max 0 scroll-margin)
+             (truncate (/ (window-body-height) 4.0))))
      t)))
 
 
@@ -476,11 +476,11 @@ point can no longer move in that direction it switches to 
the
 minibuffer."
   (interactive "p" mct-mode)
   (if (or (bobp)
-         (save-excursion
-           (previous-completion 1)
-           (and (get-text-property (point) 'completion--string)
-                (= (point) (point-min))))
-         (eq (point) (1+ (point-min)))) ; see hack in `mct--clean-completions'
+          (save-excursion
+            (previous-completion 1)
+            (and (get-text-property (point) 'completion--string)
+                 (= (point) (point-min))))
+          (eq (point) (1+ (point-min)))) ; see hack in `mct--clean-completions'
       (mct-focus-minibuffer)
     (previous-completion (if (natnump arg) arg 1))))