Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
38 lines (32 sloc) 1.23 KB
;do not split the window when loading files in geben
(setq geben-display-window-function 'switch-to-buffer)
(defun make-all-frames-visible ()
(dolist (frame (frame-list))
(if (not (eq (frame-visible-p frame) t))
(make-frame-visible frame)
nil)))
(if window-system
(progn
(add-hook 'geben-session-starting-hook
'(lambda ()
(set-face-background 'default active-bg)
(set-face-background 'fringe "grey75")
(set-face-foreground 'fringe "magenta")))
(add-hook 'geben-session-finished-hook
'(lambda ()
(set-face-background 'default inactive-bg)
(set-face-background 'fringe inactive-bg)
(set-face-foreground 'fringe inactive-bg))))
(add-hook 'geben-session-finished-hook
'(lambda ()
(kill-emacs))))
(add-hook 'c-mode-hook 'geben-mode)
(setq blink-matching-paren t)
(setq blink-matching-paren-on-screen t)
(show-paren-mode 1)
(global-font-lock-mode 1)
(setq case-fold-search t)
(set-fringe-mode (quote (nil . 0)))
(setq auto-mode-alist (append '(("\\.php\\'" . c-mode)
("\\.phpt$" . c-mode)
("\\.inc\\'" . c-mode)) auto-mode-alist))