Hello,
Je suis sous etch et j’ai voulu avoir un emacs (qui sait peut être qu’un jour je me sentirais mieux avec lui qu’avec vim). Problème après avoir tenter d’importer mes configuration via un fichier ~/.emasc.el il a beaucoup de mal avec les caractères, m’affichant des carrés à la place. J’ai viré ce fichier sans succès.
Voici une capture et le fichier de configuration :
[code];;;;;;;;;;;;;
;; Général ;;
;;;;;;;;;;;;;
;; Compile .emacs.el en .emacs.elc
(defun dotemacscheck! ()
“Si .emacs.el existe et est plus récent que .emacs.elc, recompile+le”
(cond
((file-newer-than-file-p “~/.emacs.el” “~/.emacs.elc”)
(let ((mode-line-format “*** Recompiling .emacs.el ***”))
(yow)
(sit-for 1)
(byte-compile-file “~/.emacs.el”)
(message “.emacs.elc recompiled — reloading…”)
)
(load “~/.emacs.elc” t t t)
)))
(dotemacscheck!)
;; La ligne courante en surbrillance
;(global-hl-line-mode 1)
;; Save space
(menu-bar-mode nil)
;; Désactive le message d’aide
(setq inhibit-startup-message t)
;;;;;;;;;;;;;;;
;; Interface ;;
;;;;;;;;;;;;;;;
;; Affiche le numéro de ligne et de colonne
(column-number-mode t)
(line-number-mode t)
;; Supprime la barre d’outils
(if (>= emacs-major-version 21)
(tool-bar-mode -1))
;; Affiche l’heure et la date au format 24h
(display-time)
;(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
;; Afficher le nom du fichier dans la barre de titre de la fenêtre
(setq frame-title-format '(buffer-file-name “%b [%f]” “%b”))
;; Définition des couleurs générales
(set-background-color “Black”)
(set-foreground-color “White”)
(set-cursor-color “LightSkyBlue”)
(set-mouse-color “LightSkyBlue”)
(set-face-background 'region “blue”)
(load “hilit19”)
;(invert-face 'region)
(global-font-lock-mode t)
(setq font-lock-maximum-decoration t)
;;;;;;;;;;;;;;;
;; Commandes ;;
;;;;;;;;;;;;;;;
;; Autorise la séléction à l’aide de la touche SHIFT
(custom-set-variables '(pc-selection-mode t nil (pc-select)))
;; Afficher la ‘parenthèse correspondante’
(require 'paren)
(show-paren-mode)
;; Activer la coloration syntaxique
(global-font-lock-mode t)
;; Transformer le BEEP système en un flash écran
(setq visible-bell t)
;; Définition de raccourcis
(defun recompilation ()
(recompile)
(end-of-buffer-other-window 0)
)
(global-set-key [f5] 'recompile)
;(global-set-key M-m 'compile)
;; ============================
;; Mouse Settings
;; ============================
;; Mouse button one drags the scroll bar
(global-set-key [vertical-scroll-bar down-mouse-1] 'scroll-bar-drag)
;; Activation de la molette de la souris
(custom-set-variables '(mouse-wheel-mode t nil (mwheel)))
;; setup scroll mouse settings
(defun up-slightly () (interactive) (scroll-up 5))
(defun down-slightly () (interactive) (scroll-down 5))
(global-set-key [mouse-4] 'down-slightly)
(global-set-key [mouse-5] 'up-slightly)
(defun up-one () (interactive) (scroll-up 1))
(defun down-one () (interactive) (scroll-down 1))
(global-set-key [S-mouse-4] 'down-one)
(global-set-key [S-mouse-5] 'up-one)
(defun up-a-lot () (interactive) (scroll-up))
(defun down-a-lot () (interactive) (scroll-down))
(global-set-key [C-mouse-4] 'down-a-lot)
(global-set-key [C-mouse-5] 'up-a-lot)
;; ========== Place Backup Files in Specific Directory ==========
;; Autoriser les backup
(setq make-backup-files t)
;; Permet la compatibilité avec les version sans valeur par défaut
(setq version-control t)
;; Sauve tout les fichiers de backup dans ce répertoir
(setq backup-directory-alist (quote ((".*" . “~/tmp/”))))
;; ========== Set the fill column ==========
;; Définis la taille des lignes
(setq-default fill-column 72)
;; retour à la ligne automatique
(auto-fill-mode t)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
;; utf-8
(setq locale-coding-system 'utf-8)
(set-selection-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
;; pas de ligne en plus à la fin du fichier
(setq next-line-add-newlines nil)
;; s’assure que le fichier contient une nouvelle ligne à la fin
(setq require-final-newline t)
;; style de dates européen
(setq european-calendar-style t)
;; Que delete face bien un delete
(global-set-key [delete] 'delete-char)
;; les mois et les jours en francais
(defvar calendar-day-name-array
[“dim” “lun” “mar” “mer” “jeu” “ven” “sam”])
(defvar calendar-month-name-array
[“janvier” “février” “mars” “avril” “mai” “juin”
“juillet” “août” “septembre” “octobre” “novembre” “décembre”])
;;(modify-face FACE FOREGROUND BACKGROUND STIPPLE BOLD-P ITALIC-P UNDERLINE-P &optional INVERSE-P FRAME)
;;; pour le preprocesseur
;(modify-face font-lock-builtin-face “DarkKhaki” nil nil t nil nil)
;;; commentaires
;(modify-face font-lock-comment-face “indianRed” nil nil t nil nil)
;;; constantes
;(modify-face font-lock-constant-face “violetRed” nil nil t nil nil)
;;; ???
;(modify-face font-lock-doc-face “yellow” nil nil nil nil nil)
;;; noms de fonctions
;(modify-face font-lock-function-name-face “darkorange” nil nil t nil nil)
;;; mots reserves
;(modify-face font-lock-keyword-face “MediumOrchid1” nil nil t nil nil)
;;; chaines de caracteres
;(modify-face font-lock-string-face “azure4” nil nil t t nil)
;;; types
;(modify-face font-lock-type-face “LightSeaGreen” nil nil t nil nil)
;; variables
;(modify-face font-lock-variable-name-face “DodgerBlue” nil nil t nil nil)
;; ???
;(modify-face font-lock-warning-face “red” nil nil t nil nil)
(put 'downcase-region 'disabled nil)
;(require 'color-theme)
(autoload 'ansi-color-for-comint-mode-on “ansi-color” nil t)
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
(add-hook 'comint-output-filter-functions
’comint-strip-ctrl-m)
(add-hook 'comint-output-filter-functions
’comint-watch-for-password-prompt)
; pour avoir la couleur quand je fais un ls
(ansi-color-for-comint-mode-on)[/code]
Comment puis-je m’en sortir ?
[Edit] À fin de na pas surcharger la place sur le site je vire la capture et donne un lien vers pix.nofrag.com
