Fixes whitespace

6 files changed, 66 insertions, 66 deletions

diff --git a/lisp/pdf-info.el b/lisp/pdf-info.el
index b1189cc..39ee1f6 100644
--- a/lisp/pdf-info.el
+++ b/lisp/pdf-info.el
@@ -63,15 +63,15 @@
 
 (defcustom pdf-info-epdfinfo-program
   (let ((executable (if (eq system-type 'windows-nt)
-			"epdfinfo.exe"
-		      "epdfinfo")))
+                        "epdfinfo.exe"
+                      "epdfinfo")))
     (or (executable-find executable)
-	(expand-file-name
-	 executable
-	 (let ((directory (file-name-directory (or load-file-name default-directory))))
-	   (cl-find-if 'file-exists-p
-		       `(,(expand-file-name "../server" directory)
-			 ,directory))))))
+        (expand-file-name
+         executable
+         (let ((directory (file-name-directory (or load-file-name default-directory))))
+           (cl-find-if 'file-exists-p
+                       `(,(expand-file-name "../server" directory)
+                         ,directory))))))
   "Filename of the epdfinfo executable."
   :group 'pdf-info
   :type '(file :must-match t))
diff --git a/lisp/pdf-isearch.el b/lisp/pdf-isearch.el
index fab1726..7964f47 100644
--- a/lisp/pdf-isearch.el
+++ b/lisp/pdf-isearch.el
@@ -479,14 +479,14 @@ coordinates, sorted top to bottom, then left to right."
       ;; the user adds and removes characters in the search string
       ;; (or when using nonincremental word isearch)
       (let ((lax (not (or isearch-nonincremental
-			  (null (car isearch-cmds))
-			  (eq (length isearch-string)
-			      (length (isearch--state-string
+                          (null (car isearch-cmds))
+                          (eq (length isearch-string)
+                              (length (isearch--state-string
                                        (car isearch-cmds))))))))
         (pdf-info-search-regexp
-	 (pdf-isearch-word-search-regexp
-	  string lax pdf-isearch-hyphenation-character)
-	 pages 'invalid-regexp))))
+         (pdf-isearch-word-search-regexp
+          string lax pdf-isearch-hyphenation-character)
+         pages 'invalid-regexp))))
    (isearch-regexp
     (lambda (string &optional pages)
       (pdf-info-search-regexp string pages 'invalid-regexp)))
diff --git a/lisp/pdf-misc.el b/lisp/pdf-misc.el
index c3e6ad9..6b46d99 100644
--- a/lisp/pdf-misc.el
+++ b/lisp/pdf-misc.el
@@ -270,12 +270,12 @@ It is called with one argument, the PDF file."
    (list (pdf-view-buffer-file-name) t))
   (cl-check-type filename (and string file-readable))
   (let ((programm (pdf-misc-print-programm interactive-p))
-	(args (append pdf-misc-print-programm-args (list filename))))
+        (args (append pdf-misc-print-programm-args (list filename))))
     (unless programm
       (error "No print program available"))
     (apply #'start-process "printing" nil programm args)
     (message "Print job started: %s %s"
-	     programm (mapconcat #'identity args " "))))
+             programm (mapconcat #'identity args " "))))
 
 
 (provide 'pdf-misc)
diff --git a/lisp/pdf-outline.el b/lisp/pdf-outline.el
index f940b15..4b8478e 100644
--- a/lisp/pdf-outline.el
+++ b/lisp/pdf-outline.el
@@ -404,7 +404,7 @@ Then quit the outline window."
   (save-excursion
     (outline-back-to-heading)
     (if (not (outline-invisible-p (line-end-position)))
-	(hide-subtree)
+        (hide-subtree)
       (show-subtree))))
 
 (defun pdf-outline-move-to-page (page)
@@ -560,16 +560,16 @@ not call `imenu-sort-function'."
   (let ((menulist (copy-sequence menulist))
         keep-at-top)
     (if (memq imenu--rescan-item menulist)
-	(setq keep-at-top (list imenu--rescan-item)
-	      menulist (delq imenu--rescan-item menulist)))
+        (setq keep-at-top (list imenu--rescan-item)
+              menulist (delq imenu--rescan-item menulist)))
     (if (> (length menulist) imenu-max-items)
-	(setq menulist
-	      (mapcar
-	       (lambda (menu)
-		 (cons (format "From: %s" (caar menu)) menu))
-	       (imenu--split menulist imenu-max-items))))
+        (setq menulist
+              (mapcar
+               (lambda (menu)
+                 (cons (format "From: %s" (caar menu)) menu))
+               (imenu--split menulist imenu-max-items))))
     (cons title
-	  (nconc (nreverse keep-at-top) menulist))))
+          (nconc (nreverse keep-at-top) menulist))))
 
 ;; bugfix for imenu in Emacs 24.3 and below.
 (when (condition-case nil
diff --git a/lisp/pdf-tools.el b/lisp/pdf-tools.el
index caf4c42..86c5661 100644
--- a/lisp/pdf-tools.el
+++ b/lisp/pdf-tools.el
@@ -247,8 +247,8 @@ PDF buffers."
 
 ;;;###autoload
 (defun pdf-tools--melpa-build-server (&optional build-directory
-						skip-dependencies-p
-						callback)
+                                                skip-dependencies-p
+                                                callback)
   "Compile the epdfinfo program in BUILD-DIRECTORY.
 
 This is a helper function when installing via melpa.
@@ -261,46 +261,46 @@ CALLBACK may be a function, which will be locally put on
   (if (file-executable-p pdf-info-epdfinfo-program)
       (message "%s" "Server already build.")
     (let* ((make-cmd
-	    (if (eq system-type 'berkeley-unix) "gmake" "make"))
-	   (have-apt-and-sudo
-	    (and (executable-find "apt-get")
-		 (executable-find "sudo")))
-	   (install-server-deps
-	    (and have-apt-and-sudo
-		 (not skip-dependencies-p)
-		 (y-or-n-p "Should I try to install dependencies with apt-get ?")))
-	   (compilation-auto-jump-to-first-error nil)
-	   (compilation-scroll-output t)
-	   compilation-buffer
-	   (compilation-buffer-name-function
-	    (lambda (&rest _)
-	      (setq compilation-buffer
-		    (generate-new-buffer-name "*compile pdf-tools*")))))
+            (if (eq system-type 'berkeley-unix) "gmake" "make"))
+           (have-apt-and-sudo
+            (and (executable-find "apt-get")
+                 (executable-find "sudo")))
+           (install-server-deps
+            (and have-apt-and-sudo
+                 (not skip-dependencies-p)
+                 (y-or-n-p "Should I try to install dependencies with apt-get ?")))
+           (compilation-auto-jump-to-first-error nil)
+           (compilation-scroll-output t)
+           compilation-buffer
+           (compilation-buffer-name-function
+            (lambda (&rest _)
+              (setq compilation-buffer
+                    (generate-new-buffer-name "*compile pdf-tools*")))))
       (unless (eq system-type 'windows-nt)
-	(unless (executable-find make-cmd)
-	  (error "Executable `%s' command not found"
-		 make-cmd)))
+        (unless (executable-find make-cmd)
+          (error "Executable `%s' command not found"
+                 make-cmd)))
       (unless build-directory
-	(setq build-directory
-	      (expand-file-name
-	       "build"
-	       (file-name-directory pdf-info-epdfinfo-program))))
+        (setq build-directory
+              (expand-file-name
+               "build"
+               (file-name-directory pdf-info-epdfinfo-program))))
       (unless (file-directory-p build-directory)
-	(error "No such directory: %s" build-directory))
+        (error "No such directory: %s" build-directory))
       (if (not (eq system-type 'windows-nt))
-	  (compile
-	      (format "%s V=0 -kC '%s' %smelpa-build"
-		      make-cmd
-		      build-directory
-		      (if install-server-deps "install-server-deps " " "))
-	    install-server-deps)
-	(let* ((arch (upcase (nth 2 (split-string system-configuration "-"))))
-	       (msys2-install-directory
-		(file-name-directory (read-file-name "Path to msys2_shell.bat: "))))
-	  (compile (format "%susr/bin/bash.exe --login -c 'MSYSTEM=%s source /etc/profile; LANG=C make V=0 -kC \"%s\" melpa-build'"
-			   msys2-install-directory
-			   arch
-			   build-directory))))
+          (compile
+              (format "%s V=0 -kC '%s' %smelpa-build"
+                      make-cmd
+                      build-directory
+                      (if install-server-deps "install-server-deps " " "))
+            install-server-deps)
+        (let* ((arch (upcase (nth 2 (split-string system-configuration "-"))))
+               (msys2-install-directory
+                (file-name-directory (read-file-name "Path to msys2_shell.bat: "))))
+          (compile (format "%susr/bin/bash.exe --login -c 'MSYSTEM=%s source /etc/profile; LANG=C make V=0 -kC \"%s\" melpa-build'"
+                           msys2-install-directory
+                           arch
+                           build-directory))))
       (when (and compilation-buffer
                  (buffer-live-p (get-buffer compilation-buffer)))
         (when callback
diff --git a/lisp/pdf-util.el b/lisp/pdf-util.el
index 630db2a..c34f224 100644
--- a/lisp/pdf-util.el
+++ b/lisp/pdf-util.el
@@ -705,9 +705,9 @@ string."
     (pdf-util-tooltip-in-window
      (propertize
       " " 'display (propertize
-		    "\u2192" ;;right arrow
-		    'display '(height 2)
-		    'face `(:foreground
+                    "\u2192" ;;right arrow
+                    'display '(height 2)
+                    'face `(:foreground
                             "orange red"
                             :background
                             ,(if (bound-and-true-p pdf-view-midnight-minor-mode)