   "Search `ffap-string-at-point' for a line number pattern and
 save it in `ffap-file-at-point-line-number' variable."
   (let* ((string (ffap-string-at-point)) ;; string/name definition copied from `ffap-string-at-point'
-	 (name
-	  (or (condition-case nil
-		  (and (not (string-match "//" string)) ; foo.com://bar
-		       (substitute-in-file-name string))
-		(error nil))
-	      string))
-	 (line-number-string
-	  (and (string-match ":[0-9]+" name)
-	       (substring name (1+ (match-beginning 0)) (match-end 0))))
-	 (line-number
-	  (and line-number-string
-	       (string-to-number line-number-string))))
+         (name
+          (or (condition-case nil
+                  (and (not (string-match "//" string)) ; foo.com://bar
+                       (substitute-in-file-name string))
+                (error nil))
+              string))
+         (line-number-string
+          (and (string-match ":[0-9]+" name)
+               (substring name (1+ (match-beginning 0)) (match-end 0))))
+         (line-number
+          (and line-number-string
+               (string-to-number line-number-string))))
     (if (and line-number (> line-number 0))
-	(setq ffap-file-at-point-line-number line-number)
+        (setq ffap-file-at-point-line-number line-number)
       (setq ffap-file-at-point-line-number nil))))
 
 (defadvice find-file-at-point (after ffap-goto-line-number activate)


(setq vc-ignore-dir-regexp
      (format "\\(%s\\)\\|\\(%s\\)"
	      vc-ignore-dir-regexp
	      tramp-file-name-regexp))

(defmacro with-x-environment (&rest body)
  `(let ((process-environment
	  (cons (concat "DISPLAY=" (getenv "DISPLAY" (selected-frame)))
		process-environment)))
     (if (getenv "XAUTHORITY" (selected-frame))
	 (setq process-environment
	       (cons (concat "XAUTHORITY=" (getenv "XAUTHORITY" (selected-frame)))
		     process-environment)))
     ,@body))

(defun x-terminal-copy (text)

  (add-hook 'eshell-mode-hook #'eshell-bookmark-setup))
(org-babel-do-load-languages 'org-babel-load-languages
    '(
        (shell . t)
    )
)

