EMACS: Disable <CTRL>-z when in X

`.emacs.d/functions.el'
        - Removed functions `(x-init)' and `(cli-init)'.

`.emacs.d/init.el'
        - Moved initialization for with and without window systems from
          seperate functions.

        - Globally unset <CTRL>-z when we have a window system.
This commit is contained in:
Tom Willemsen 2011-09-05 11:03:19 +02:00
parent 73f8cf00f0
commit 2ff16041c5
2 changed files with 10 additions and 13 deletions

View file

@ -108,14 +108,6 @@ Currently adds | & ! . + = - / % * , < > ? : ->"
(insert ";;\n") (insert ";;\n")
(insert-char ?\; width)) (insert-char ?\; width))
(defun x-init ()
"Initialization only for X"
(setq linum-format " %d"))
(defun cli-init ()
"Add a space to the linum column"
(setq linum-format "%d "))
(defun replace-occurrences (from to) (defun replace-occurrences (from to)
(save-excursion (save-excursion
(goto-char (point-min)) (goto-char (point-min))

View file

@ -163,7 +163,16 @@
'(("ryuslash@gmail.com" '(("ryuslash@gmail.com"
(:network-server . "talk.google.com") (:network-server . "talk.google.com")
(:connection-type . ssl)))) (:connection-type . ssl))))
;;; X11
(when window-system
(setq linum-format " %d")
(global-unset-key "\C-z"))
;;; CLI
(when (not window-system)
(setq linum-format "%d "))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; AUTOLOADS ;; ;; AUTOLOADS ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -218,10 +227,6 @@
(setq initial-frame-alist ; initial frame settings (setq initial-frame-alist ; initial frame settings
(append '((font . "DejaVu Sans Mono-11:antialias=true")))) (append '((font . "DejaVu Sans Mono-11:antialias=true"))))
(if window-system
(x-init)
(cli-init))
(fset 'yes-or-no-p 'y-or-n-p) ; switch yes or no to y or n (fset 'yes-or-no-p 'y-or-n-p) ; switch yes or no to y or n
(tool-bar-mode -1) ; no toolbar (tool-bar-mode -1) ; no toolbar