 (define-key global-map "\C-r" 'isearch-backward-regexp)
 (define-key global-map "\C-s" 'isearch-forward-regexp)
 (define-key global-map "\C-z" 'scroll-one-line-up)
-(define-key global-map "\C-_" 'advertised-undo)
 
 ;;;; Meta keys
 (define-key global-map "\M-c" 'backward-capitalize-word)


(add-to-list 'auto-mode-alist '("\\.\\(sls\\|yml\\)$" . yaml-mode))

(defvar bivio-delete-trailing-whitespace t)
; (setq bivio-delete-trailing-whitespace nil)
(add-hook 'find-file-hook
	  (lambda ()
            (let ((case-fold-search t))
              (if (string-match-p "/src/biviosoftware/boldchat/" (buffer-file-name))
                  (set (make-local-variable 'tab-width) 4))
              (if (if (boundp 'bivio-delete-trailing-whitespace)
                      bivio-delete-trailing-whitespace
                    (not (string-match-p "/wiki/\\w+$" (or buffer-file-name ""))))
                  (add-hook 'write-contents-functions
                            (lambda()
                              (save-excursion

(define-key global-map "\177" 'backward-delete-char-untabify)

(define-key minibuffer-local-completion-map " " 'minibuffer-complete-word)

;;;; Control keys
(define-key text-mode-map "\C-i" 'shift-right)
