 (setq tab-width 4)
 (setq indent-tabs-mode nil)
 (winner-mode 1)
-
-
-
 (setq help-at-pt-display-when-idle t)
 (setq help-at-pt-timer-delay 0.1)
 (help-at-pt-set-timer)
 (setq visible-bell t)
 (setq speedbar-directory-unshown-regexp "^\\(CVS\\|RCS\\|SCCS\\|\\.\\.*$\\)\\'")
-(setq tramp-default-method "ssh")
+;; (setq tramp-default-method "ssh")
 (setq tramp-verbose 9)
-
 
 (autoload 'bash-completion-dynamic-complete 
   "bash-completion"
   "BASH completion hook")
 (add-hook 'shell-dynamic-complete-functions
-  'bash-completion-dynamic-complete)
+          'bash-completion-dynamic-complete)
 (add-hook 'shell-command-complete-functions
-  'bash-completion-dynamic-complete)
-
-(autoload 'bash-completion-dynamic-complete 
-  "bash-completion"
-  "BASH completion hook")
-(add-hook 'shell-dynamic-complete-functions
-  'bash-completion-dynamic-complete)
-(add-hook 'shell-command-complete-functions
-  'bash-completion-dynamic-complete)
+          'bash-completion-dynamic-complete)
 
 ;; keyboard bindings for lookup
 (define-key 'help-command (kbd "C-l") 'find-library)
 (define-key 'help-command (kbd "C-f") 'find-function)
 (define-key 'help-command (kbd "C-k") 'find-function-on-key)
 (define-key 'help-command (kbd "C-v") 'find-variable)
-                                       
+
 (defun other-window-backward (&optional n)
-    "Select Nth previous window."
-    (interactive "P")    
-    (other-window (- (prefix-numeric-value n))))
+  "Select Nth previous window."
+  (interactive "P")    
+  (other-window (- (prefix-numeric-value n))))
 
 (global-set-key (kbd "C-x C-p") 'other-window-backward)
 (global-set-key (kbd "C-x C-n") 'other-window)

(global-set-key (kbd "C-x C-o jp")
                (ffip-create-pattern-file-finder "*.jsp"))

(defun dired-back-to-top ()
  (interactive)
  (beginning-of-buffer)



;; Function to create new functions that look for a specific pattern
(use-package cl)
(defun ffip-create-pattern-file-finder (&rest patterns)
  (lexical-let ((patterns patterns))
    (lambda ()
