   "Returns t if the atomic-chrome server is currently running, otherwise nil."
   (let ((retval nil))
     (condition-case ex
-        (progn
-          (delete-process
-           (make-network-process
-            :name "atomic-client-test" :host "localhost"
-            :noquery t :service "64292"))
-          (setq retval t))
+	(progn
+	  (delete-process
+	   (make-network-process
+	    :name "atomic-client-test" :host "localhost"
+	    :noquery t :service "64292"))
+	  (setq retval t))
       ('error nil))
     retval))
 

;; (to-do "make `find-file-line-number' work for emacsclient as well")
;; (to-do "make `find-file-line-number' check if the file exists")
(defadvice find-file (around find-file-line-number
                             (filename &optional wildcards)
                             activate)
  "Turn files like file.cpp:14 into file.cpp and going to the 14-th line."
  (save-match-data
    (let* ((matched (string-match "^\\(.*\\):\\([0-9]+\\):?$" filename))
           (line-number (and matched
                             (match-string 2 filename)
                             (string-to-number (match-string 2 filename))))
           (filename (if matched (match-string 1 filename) filename)))
      ad-do-it
      (when line-number
        ;; goto-line is for interactive use
        (goto-char (point-min))
        (forward-line (1- line-number))))))

(defvar ffap-file-at-point-line-number nil
  "Variable to hold line number from the last `ffap-file-at-point' call.")


;; (setq package-archives
;;       '(("melpa-stable" . "https://stable.melpa.org/packages/")
;;	("melpa" . "http://melpa.org/packages/")
;;	("org" . "http://orgmode.org/elpa/")
;;	("gnu" . "http://elpa.gnu.org/packages/")))

;; (package-initialize)

