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:
parent
73f8cf00f0
commit
2ff16041c5
2 changed files with 10 additions and 13 deletions
|
@ -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))
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue