From: "Sébastien Kirche" <sebastien.kirche.no@spam.free.fr.invalid>
Subject: Re: Special Characters on Mac Emacs
Date: Fri, 01 Apr 2005 13:56:30 +0200 [thread overview]
Message-ID: <m2u0mqk8wh.fsf@seki.fr> (raw)
In-Reply-To: wlacoi69qh.wl%mituharu@math.s.chiba-u.ac.jp
[-- Attachment #1: Type: text/plain, Size: 4050 bytes --]
Le 1 Apr 2005, YAMAMOTO Mitsuharu a dit :
> I created .emacs from your mail, but still I couldn't reproduce the
> problem.
Oh. :/
> Do you have other settings that is read at startup time, such as
> default.el?
No.
And i have just checked that .emacs-custom does not contain anything
relative to fonts/fontset except some custom faces for gnus.
But my .emacs is longer than the part i posted. And i have also a personal
directory for testing packages that is in the load-path. Maybe there is a
another setting on my .emacs or a package in the load-path that has
side-effects...
If you are curious, here I have attached my .emacs. (that i am currently
trying to re-arrange : work in progress ;)
And here is the content of my .elisp/ : almost all are standard packages.
,----[ ls -l ~/.elisp ]
| total 1068
| drwxr-xr-x 21 seki staff 714 Feb 9 17:50 Pymacs-0.22
| drwxr-xr-x 11 seki staff 374 Aug 15 2002 TwistedEmacs
| -rw-r--r-- 1 seki staff 33702 Jan 5 2004 ascii.el
| drwxrwxrwx 16 seki staff 544 Jul 9 2003 auctex
| drwxr-xr-x 21 seki staff 714 Feb 1 15:30 bbdb-2.35
| -rw-r--r-- 1 seki staff 17725 Sep 9 2003 boxquote.el
| -rw-r--r-- 1 seki staff 2911 Jan 5 2004 buffer-variables.el
| drwxr-xr-x 12 seki staff 408 Feb 21 11:21 cedet
| -rwxrwxrwx 1 seki staff 5594 Oct 17 2003 csv.el
| drwxr-xr-x 5 seki staff 170 Oct 15 2003 dosbat
| drwxr-xr-x 40 seki staff 1360 Feb 21 11:36 ecb-2.31
| drwxr-xr-x 61 seki staff 2074 Dec 22 2003 emacs-goodies-el
| drwxr-xr-x 6 seki staff 204 Apr 29 2004 emacs-wiki
| drwxr-xr-x 48 seki staff 1632 Apr 23 2004 emu
| drwxr-xr-x 15 seki staff 510 Sep 28 2004 etask-0.2.90
| -rw-r--r-- 1 seki staff 6221 Oct 11 22:02 find-this-file.el
| -rw-r--r-- 1 seki staff 4948 Jun 15 2003 fink-startup.el
| -rw-r--r-- 1 seki wheel 21760 Oct 26 14:02 fold.el
| -rw-r--r-- 1 seki staff 211255 Oct 26 11:20 folding.el
| drwxr-xr-x 315 seki staff 10710 Mar 30 16:46 gnus
| drwxr-xr-x 9 seki staff 306 Jan 4 13:42 htmlfontify
| -rw-r--r-- 1 seki staff 58149 Oct 11 13:59 htmlize.el
| -rw-r--r-- 1 seki staff 5225 Oct 11 21:47 kill-ring-rotate.el
| -rwxrwxrwx 1 seki staff 24449 Oct 17 2003 lookout.el
| -rw-r--r-- 1 seki staff 16676 Sep 17 2004 moy-bbdb.el
| -rw-r--r-- 1 seki staff 1161 Sep 12 2003 my-buffer-variables.el
| drwxr-xr-x 26 seki staff 884 Apr 29 2004 planner
| -rw-r--r-- 1 seki staff 94843 Jun 22 2003 po-mode.el
| -rw-r--r-- 1 seki staff 69842 Jun 22 2003 po-mode.elc
| -rwxr-xr-x 1 seki staff 215757 Nov 18 13:48 printing.el
| -rw-r--r-- 1 seki staff 0 Feb 9 17:29 pymacs.el
| -rw-r--r-- 1 seki staff 585 Feb 9 17:31 pymacs.elc
| -rw-r--r-- 1 seki wheel 123488 Mar 15 2004 python-mode.el
| drwxr-xr-x 4 seki staff 136 Apr 22 2004 ragent
| drwxr-xr-x 9 seki staff 306 Apr 29 2004 remember
| -rw-r--r-- 1 seki staff 1358 Jan 17 10:47 scissors.el
| -rw-r--r-- 1 seki wheel 24052 Jul 19 2004 screen-lines.el
| -rw-r--r-- 1 seki staff 3506 Jan 31 14:24 screen-lines2.el
| -rw-r--r-- 1 seki staff 304 Oct 13 2003 semantic.cache
| drwxr-xr-x 13 seki staff 442 Oct 31 2003 ses21-020426
| -rw-r--r-- 1 seki staff 106 Jul 30 2003 subdirs.el
| -rw-r--r-- 1 seki staff 43699 Dec 18 2003 tc.el
| -rw-r--r-- 1 seki staff 6396 Jun 16 2003 tex-site.el
| -rw-r--r-- 1 seki wheel 34011 Feb 7 12:27 visual-basic-mode.el
| drwxr-xr-x 5 seki staff 170 Oct 14 10:03 w3m
`----
If you think of something else to investigate, ask me.
[-- Attachment #2: my config file --]
[-- Type: application/emacs-lisp, Size: 38230 bytes --]
;; -*- coding: latin-9 -*-
;;+----------------------------------------------------------+
;;| |
;;| Seki's dotemacs |
;;| |
;;+----------------------------------------------------------+
;; Time-stamp: <01/04/2005 11:23 seki@goudurix>
;; Merci à Sébastien Dinot <sebastien.dinot@free.fr>
;; à Mathieu Roy <yeupou@gnu.org>
;; et aux différentes listes et newsgroups d'entraide d'utilisateurs :
;; fr.comp.applications.emacs
;; gnu.emacs.help
;; voir ici pour les listes : http://savannah.gnu.org/mail/?group_id=40
;; Déterminer si on emploie Emacs ou XEmacs
(defvar sk:is-xemacs (string-match "XEmacs" emacs-version)
"Variable interne différente de nil si on est dans XEmacs")
;;chez moi
(defvar sk:home (expand-file-name "~/") "Home sweet home")
;;(if sk:is-xemacs
;; (setq sk:home (expand-file-name sk:home)))
;; Ajouter mon répertoire personnel à la liste des chemins de recherche
(defvar sk:elisp-path (concat sk:home ".elisp/") "Chemin vers mes packages elisp")
;;(if sk:is-xemacs
;; (setq sk-elisp-path (expand-file-name sk:elisp-path)))
(add-to-list 'load-path sk:elisp-path)
(progn (cd sk:elisp-path)
(normal-top-level-add-subdirs-to-load-path)
(cd sk:home))
;; chemin d'un Gnus custom (si présent)
(let ((gnusp (concat sk:elisp-path "gnus/")))
(when (file-exists-p gnusp)
(add-to-list 'load-path gnusp)))
;; localisation des fichiers gnus (ne peut pas être dans .gnus !)
(setq gnus-home-directory (concat sk:home ".gnus.d/"))
(setq message-directory (concat gnus-home-directory "Mail/"))
(setq gnus-directory (concat gnus-home-directory "News/"))
(setq gnus-agent-directory (concat gnus-home-directory "agent/"))
;; Gnus est notre courielleur
(setq read-mail-command 'gnus) ;;marche pas terrible ?
(setq mail-user-agent 'gnus-user-agent
;smtpmail-default-smtp-server "lumiere.ens.fr"
;smtpmail-smtp-server "lumiere.ens.fr"
;message-mail-user-agent 'gnus-user-agent
)
;; pour pas se prendre les pieds dans le tapis entre latin-1 et latin-9
(require 'ucs-tables)
(unify-8859-on-encoding-mode 1)
;;(unify-8859-on-decoding-mode 1) ;;plus pour emacs21/cvs ?
(set-language-environment 'latin-9)
(prefer-coding-system 'latin-9)
;; Afficher les liens avec lynx si on est en mode console
(require 'browse-url)
;(if (eq window-system nil) (setq browse-url-browser-function browse-url-default-browser));browse-url-lynx-emacs))
;;======= SPECIFIQUE PLATEFORME ==========================================================
(cond ((eq system-type 'darwin) ; réglages pour le mac
;;(message "on est sous mac")
(setq process-connection-type t);en shell pour voir l'affichage
(setq mac-command-key-is-meta t);pomme = méta
(setq mac-pass-command-to-system nil);évite de cacher emacs avec M-h
;; iso-latin-1 input encoding ?
;;(setq mac-keyboard-text-encoding kTextEncodingISOLatin1)
;;(set-keyboard-coding-system 'iso-latin-1)
;; To modify mac/unix/dos encodings: CTRL-X RET f
(set-terminal-coding-system 'latin-9)
(set-keyboard-coding-system 'mac-roman)
;;(set-frame-font "fontset-mac")
;;(setq default-buffer-file-coding-system 'iso-latin-9-mac) ;attention prefer-coding-system + bas
(setq mac-wheel-button-is-mouse-2 t);???
(setq mac-emulate-three-button-mouse 1); option = mouse2 / command = mouse3
(if window-system
(progn
(set-background-color "gray90")
;;X fonts specs format (désignation des fontes X)
;;-FOUNDRY-FAMILY-WEIGHT-SLANT-WIDTH--PIXELS-POINTS-HRES-VRES-SPACING-AVEWIDTH-CHARSET
;; Set frame size, color and fonts
(create-fontset-from-fontset-spec
"-apple-monaco-medium-r-normal--9-*-*-*-*-*-fontset-monaco,
ascii:-apple-monaco-medium-r-normal--9-90-75-75-m-90-mac-roman,
mule-unicode-0100-24ff:-apple-lucida grande-medium-r-normal--0-0-75-75-m-0-mac-roman,
mule-unicode-2500-33ff:-apple-bitstream vera sans mono bold-medium-r-normal--0-0-75-75-m-0-mac-roman,
latin-iso8859-15:-apple-monaco-medium-r-normal--9-90-75-75-m-90-mac-roman,
latin-iso8859-1:-apple-monaco-medium-r-normal--9-90-75-75-m-90-mac-roman")
(setq default-frame-alist '((width . 120)
(height . 44)
(top . 440);pixels
(left . 260);pixels
(font . "fontset-monaco");fontset-mac
;(font . (create-fontset-from-mac-roman-font "-apple-monaco-medium-r-normal--9-90-75-75-m-90-mac-roman"))
))
)
)
(global-set-key (kbd "<kp-delete>") 'delete-char) ;touche suppr
(global-set-key (kbd "<kp-divide>") "/") ;touche division sur pavé num (inactif sur mon poste ?)
(global-set-key (kbd "<C-kp-home>") (kbd "<C-home>"));idem /
(global-set-key (kbd "<C-kp-end>") (kbd "<C-end>")) ;idem /
;;(global-set-key "?" (sk-insere-euro t));j'arrive pas avec l'euro ;( €€ et si !
(setq printer-name "IMP_DEV_PROJ")
)
;;=================================================================
((eq system-type 'windows-nt); réglages pour windows
(progn
;;(message "on est sous ouin-ouin")
(global-set-key [128] 'sk-insere-euro); C-h l donne \200 pour l'euro soit 128 en décimal
;; Mouse wheel
(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)
;; Mouse wheel
(if window-system
(progn
(set-background-color "gray90")
;;-outline-Lucida Console-normal-r-normal-normal-11-82-96-96-c-70-iso8859-1
;; Set frame size, color and fonts
(create-fontset-from-fontset-spec
"-*-lucida console-*-*-*-*-10-*-*-*-*-*-fontset-lucida,
ascii:-*-lucida console-*-*-*-*-10-*-*-*-*-*-iso8859-1,
latin-iso8859-1:-*-lucida console-*-*-*-*-10-*-*-*-*-*-iso8859-1")
;; (create-fontset-from-fontset-spec
;; "-apple-monaco-medium-r-normal--9-*-*-*-*-*-fontset-monaco,
;; ascii:-apple-monaco-medium-r-normal--9-90-75-75-m-90-mac-roman,
;; latin-iso8859-1:-apple-monaco-medium-r-normal--9-90-75-75-m-90-mac-roman")
(setq default-frame-alist '((width . 100)
(height . 44)
(top . 50);pixels
(left . 50);pixels
(font . "fontset-lucida");fontset-mac
))
)
)
)
)
;;=================================================================
((eq system-type 'gnu/linux); réglages pour Linux
(progn
;;(message "on est avec le pingouin")
();rien d'autre
;; Mouse wheel
;; remplacé par mwheel (mouse-wheel-mode est t par défaut)
;; (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)
;; Mouse wheel
(if window-system
(progn
(set-background-color "gray90")
(create-fontset-from-fontset-spec
"-gnu-unifont-*-*-*-*-16-*-*-*-*-*-fontset-unifont,
ascii:-gnu-unifont-medium-r-normal--16-160-75-75-c-80-iso10646-1,
latin-iso8859-1:-gnu-unifont-medium-r-normal--16-160-75-75-c-80-iso10646-1")
;; ascii:-gnu-unifont-*-*-*-*-*-120-*-*-*-*-iso10646-1,
;; latin-iso8859-1:-gnu-unifont-*-*-*-*-*-120-*-*-*-*-iso10646-1")
(setq default-frame-alist '((width . 110)
(height . 45)
(top . 80);pixels
(left . 180);pixels
;;(font . "fontset-unifont")
(font . "6x12")
))
;;(setq browse-url-browser-function (quote browse-url-galeon)
;; browse-url-galeon-arguments (quote ("-n")))
(defun browse-url-firefox-new-tab (url &optional new-window)
"Open URL in a new tab in Firefox."
(interactive (browse-url-interactive-arg "URL: "))
(let ((cmd (shell-command-to-string
(concat "mozilla-firefox -a firefox -remote 'openURL("
url ",new-tab)' > /dev/null"))))
(unless (string= "" cmd)
(message "Starting Firefox...")
(start-process (concat "firefox " url) nil "/bin/sh" "-c"
(concat "mozilla-firefox " url "|| true"))
(message "Starting Firefox...done"))))
(setq browse-url-browser-function 'browse-url-firefox-new-tab)
)
)
(setq printer-name "Idefix")
)
)
)
;;=================================================================
;; Inhiber l'affichage du message d'accueil
(setq inhibit-startup-message t)
;; C'est fastidieux de taper « yes » pour confirmer, raccourcissons
;; cela à « y » (idem pour « no », désormais « n »).
(fset 'yes-or-no-p 'y-or-n-p)
;; Ne pas utiliser de boîte de dialogue mais le minibuffer pour poser une question
;; (les dialogues marchent mal sous OSX pour choisir un fichier inexistant)
(setq use-dialog-box nil
use-file-dialog nil)
;; Supprimer les fichiers de sauvegarde en quittant.
;; (vous savez, ces fameux fichiers dont le nom se termine par « ~ »)
(setq make-backup-files nil)
;; Gestion et affichage corrects des accents.
;;(require 'iso-acc) à éviter d'après f.c.a.emacs
;; Aide interne de la fonction ci-dessous
;; Non-nil means display unibyte text according to language environment.
;; Specifically this means that unibyte non-ASCII characters
;; are displayed by converting them to the equivalent multibyte characters
;; according to the current language environment. As a result, they are
;; displayed according to the current fontset.
(setq unibyte-display-via-language-environment t)
;; Afficher les caractères de contrôle sous la forme d'un caractère
;; « ^ » suivi de la lettre correspondante au lieu de la forme octale.
(setq-default ctl-arrow 'latin-9)
;;ne pas afficher les espaces insécables précédés d'un "\"
;;nouveauté emacs 21.3.50 (cvs)
(setq show-nonbreak-escape nil)
;; Laisser le curseur en place lors d'un défilement par pages.
;; Par défaut, Emacs place le curseur en début ou fin d'écran
;; selon le sens du défilement.
(setq scroll-preserve-screen-position t)
;; Faire apparaître la position du curseur dans la ligne modale
(setq column-number-mode t)
(setq line-number-mode t)
;; mise à jour auto des time-stamps
(add-hook 'write-file-hooks 'time-stamp)
;; se rappeler de la position dans le fichier entre les sessions
(when (require 'saveplace)
(setq-default save-place t))
;; Pour l'impression, du papier au format A4 est utilisé
(setq ps-paper-type 'a4)
;; Si cette variable est différente de 'nil', lorsque l'on est à la fin
;; d'une ligne, le déplacement vertical du curseur s'accompagne d'un
;; déplacement horizontal pour atteindre la fin de la ligne courante.
;; Si cette variable vaut 'nil', le déplacement est strictement vertical.
;;(setq track-eol nil)
;; La fin d'une phrase n'est pas marquée par un point suivi de deux espaces,
;; un seul suffit.
(setq sentence-end-double-space nil)
;; s'assurer que les fichiers comportent des newline finaux
;; nil n'ajoute pas de newline
;; non-nil pose la question
;; t rajoute les newlines automatiquement
(setq require-final-newline 1)
;;========== ERGONOMIE =========================
;; Nouveauté 22.00 : mouse-1 sur un lien suit ce lien
;; je préfère l'ancien comportement
;; (setq mouse-1-click-follows-link nil)
;; en fait il suffit de cliquer plus longtemps que la valeur de cette
;; variable (par défaut 350 ms)
;; En rendant nulle la variable ci-dessous, l'insertion d'un texte par
;; « copier-coller » à la souris se fait au niveau du point cliqué et
;; non à la position du curseur texte.
(setq mouse-yank-at-point nil)
;; Mise en surbrillance des lignes sélectionnées et écrasement de ces
;; dernières lorsqu'on saisit du texte dans la foulée.
(if sk:is-xemacs
; on utilise XEmacs
(progn
(require 'pending-del)
(custom-set-variables '(pending-delete-mode t t)))
;; on utilise Emacs
;; Avec emacs 21, la surbrillance est disponible en mode console. Cool !
(progn
(delete-selection-mode t)
(transient-mark-mode t))
)
;; Si cette variable est différente de 'nil', lorsque l'on est à la fin
;; d'une ligne, le déplacement vertical du curseur s'accompagne d'un
;; déplacement horizontal pour atteindre la fin de la ligne courante.
;; Si cette variable vaut 'nil', le déplacement est strictement vertical.
(setq track-eol 'nil)
;; saisie universelle des caractères accentués par c-' c-` c-" + lettre
;; pratique pour les majuscules
;;(define-key key-translation-map [(control ?^)] 'iso-transl-ctl-8-x-map)
(define-key key-translation-map [(control ?')] (lookup-key key-translation-map [(control ?x) ?8 ?']))
(define-key key-translation-map [(control ?`)] (lookup-key key-translation-map [(control ?x) ?8 ?`]))
(define-key key-translation-map [(control ?")] (lookup-key key-translation-map [(control ?x) ?8 ?"]))
(global-set-key [(control ?6)] (lookup-key key-translation-map [(control ?x) ?8 ?^]))
(if (eq system-type 'gnu/linux)
(define-key key-translation-map [(control 2226)] (lookup-key key-translation-map [(control ?x) ?8]))
(define-key key-translation-map [(control 178)] (lookup-key key-translation-map [(control ?x) ?8]))
)
;; Completion automatique via Shift-Tab (EmacsFR)
(global-set-key (quote [S-iso-lefttab]) (quote dabbrev-expand))
(global-set-key (quote [S-tab]) (quote dabbrev-expand))
;; Changement de fenetre moins fatigant que Ctrl-x o (EmacsFR)
(global-set-key [(control tab)] `other-window)
(global-set-key [C-S-iso-lefttab] '(lambda () (interactive) (other-window -1)))
;; Changement de buffer C-x b amélioré
;(iswitchb-mode)
(when (require 'ido nil t)
(ido-mode t))
;; goto-line n'est mappé par défaut que dans le menu
(global-set-key "\C-cg" 'goto-line)
;; Suivi des fichiers récents
(when (require 'recentf)
(setq recentf-auto-cleanup 'never) ;; évite de vérifier les fichiers distants au démarrage
(recentf-mode 1))
;; parcours du kill-ring pour insertion
(require 'kill-ring-rotate nil t)
;;============== DATE et HEURE =====================================
;; La semaine commence le lundi
(setq calendar-week-start-day 1)
;; Afficher l'heure dans la barre d'état (format 24 heures)
(setq display-time-24hr-format t)
(display-time)
;; Nom en clair des jours et mois apparaissant dans le calendrier
(defvar calendar-day-abbrev-array
["dim" "lun" "mar" "mer" "jeu" "ven" "sam"])
(defvar calendar-day-name-array
["dimanche" "lundi" "mardi" "mercredi" "jeudi" "vendredi" "samedi"])
(defvar calendar-month-abbrev-array
["jan" "fév" "mar" "avr" "mai" "jun"
"jul" "aoû" "sep" "oct" "nov" "déc"])
(defvar calendar-month-name-array
["janvier" "février" "mars" "avril" "mai" "juin"
"juillet" "août" "septembre" "octobre" "novembre" "décembre"])
;;format de date français
(setq calendar-date-display-form '(dayname " " day " " monthname " " year))
;;localisation de Metz
(setq calendar-latitude [49 7 north])
(setq calendar-longitude [6 11 east])
;;;;;;CUSTOM;;;;;;;;;;;;;;;;;;;;;;;;
;;transféré dans .emacs-custom
;; customize ne doit pas écrire dans ~/.emacs
(setq custom-file "~/.emacs.d/.emacs-custom")
(load-file "~/.emacs.d/.emacs-custom")
;; ===== FONCTIONS =========================
; insertion de la date courante
(defun sk-insere-date ()
(interactive)
(insert (calendar-date-string (calendar-current-date))))
;; insertion de la date sélectionnée dans le calendrier
;; le focus doit être dans le buffer où l'on insère
(defun sk-insere-date-sel ()
(interactive)
(when (and (boundp 'calendar-buffer)
(buffer-live-p (get-buffer calendar-buffer))
(let ((str
(with-current-buffer calendar-buffer
(calendar-date-string (calendar-cursor-to-date t)))))
(insert str)))))
;; fonction pour insérer l'euro (fonction à 10 EUR ;o)
(defun sk-insere-euro (&optional arg) "Insère le symbole Euro ISO 8859-15.
Avec un préfixe, insère la version Unicode."
(interactive "*P")
(if arg
(insert (make-char 'mule-unicode-0100-24ff 116 76))
(insert (make-char 'latin-iso8859-15 164))))
(if (eq system-type 'darwin)
(progn
(defvar sw-last-applescript nil
"Stores the last Applescript command executed from Emacs.")
(defvar sw-applescript-buffer-name "*AppleScript output*"
"Name for the buffer to display AppleScript output.")
(defun sw-applescript-run-buffer ()
"Execute the whole buffer as an Applescript"
(interactive)
(setq sw-last-applescript (buffer-string))
(sw-run-and-display-applescript (buffer-string)))
(defun sw-applescript-run-region ()
"Execute the region as an Applescript"
(interactive)
(let ((region (buffer-substring (region-beginning) (region-end))))
(setq sw-last-applescript region)
(sw-run-and-display-applescript region)))
(defun sw-run-last-applescript ()
"Run the last Applescript command again"
(interactive)
(sw-run-and-display-applescript sw-last-applescript))
(defun sw-run-and-display-applescript (code)
"Switch to the AppleScript buffer, erase it, run the code and display the results."
(switch-to-buffer (get-buffer-create sw-applescript-buffer-name))
(erase-buffer)
(insert (do-applescript code)))
))
;;;;;;;;;;;;;TEMPO;;;;;;;;;;
;(require 'tex-site)
;box-quotes
(require 'boxquote)
; folding mode
(if (load "folding" 'nomessage 'noerror)
(folding-mode-add-find-file-hook))
; Colorisation syntaxique maximale dans tous les modes
; Avec emacs 21, la colorisation est disponible en mode texte. Cool !
(global-font-lock-mode t)
(setq font-lock-maximum-decoration t)
; Montrer la correspondance des parenthèses
; (systématiquement et non seulement après la frappe)
(when (require 'paren)
(show-paren-mode t)
(setq blink-matching-paren t)
(setq blink-matching-paren-on-screen t)
(setq show-paren-style 'parenthesis)
;;(setq show-paren-style 'expression)
(setq blink-matching-paren-dont-ignore-comments t))
; Effacer tous les espaces en fin de ligne
(defun delete-trailing-spaces ()
"Effacer les espaces et tabulations en fin de chaque ligne du tampon"
(interactive)
(progn
(save-excursion
(goto-line 1)
(replace-regexp "[ \t]+$" "")
)
)
)
; Conversion des fins de lignes du format MS-DOS au format Unix
(defun dos2unix ()
(interactive)
(goto-char (point-min))
(while (search-forward "\r" nil t)
(replace-match "")
)
)
; Conversion des fins de ligne du format Unix au format MS-DOS
(defun unix2dos ()
(interactive)
(goto-char (point-min))
(while (search-forward "\n" nil t)
(replace-match "\r\n")
)
)
; Montrer la table des caractères ASCII étendus
; Fonction fournie par Alex Schroeder <asc@bsiag.com>
(defun ascii-table ()
"Afficher la table de caractères ASCII."
(interactive)
(switch-to-buffer "*ASCII*")
(erase-buffer)
(insert (format "Caractères ASCII de code 1 à 254.\n"))
(let ((i 0))
(while (< i 254) (setq i (+ i 1))
(insert (format "%4d %c\n" i i))
)
)
(beginning-of-buffer)
)
; choix de la base décimale pour la saisie de caractères quotés (C-q n°)
(setq read-quoted-char-radix 10)
;insertion date v2
; File: .emacs-key-time
; Purpose: Insert date and time into the current buffer.
;
; a remplacer quand je pourrais
(load-library "calendar.elc")
(defun emacs-key-time () "\
Return a string containing the current Emacs date and time from
the system."
(interactive)
(if (interactive-p)
(insert (current-time-string))
)
)
(global-set-key "\C-x\/" 'emacs-key-time) ; define date and time key.
;(global-set-key "\e\/" 'emacs-key-time) ; define date and time key.
; caractères OEM DOS
; (require 'iso-oem)
; (standard-display-iso-oem)
; Reglages DocBook
; DocBook IDE mode
;(autoload 'docbook-mode "docbookide" "Major mode for DocBook documents." t)
; Turn on font lock when in DocBook mode
(add-hook 'docbook-mode-hook
'turn-on-font-lock)
;; Emacs/W3 Configuration
;(setq load-path (cons "/sw/share/emacs/site-lisp" load-path))
;(condition-case () (require 'w3-auto "w3-auto") (error nil))
(require 'w3m-load)
(if (string-match "\\`goudurix" system-name)
(setq w3m-icon-directory "~/.elisp/w3m/icons"))
;gestionnaire de signal USR1 (possible avec USR2)
;(defun test-seki ()"" (interactive )(message "key usr1"))
;(global-set-key [usr1-signal] 'test-seki )
;(add-hook 'signal-USR1-hook (lambda () (test-seki)))
;gestionnaire timer
; (run-with-idle-timer 60 'repeat
; (lambda ()
; (let ((buf (get-buffer "the bufferIwanttosave")))
; (if buf
; (with-current-buffer buf
; (save-buffer))))))
;;;;TEST
; (autoload 'wl "wl" "Wanderlust" t)
; (autoload 'wl-other-frame "wl" "Wanderlust on new frame." t)
; (autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
;limite l'affichage de la charge système au dessus d'un certain seuil
(setq display-time-load-average-threshold 1.0)
;(require 'bbdb)
;(bbdb-initialize)
;(autoload 'pymacs-load "pymacs" nil t)
; (autoload 'pymacs-eval "pymacs" nil t)
; (autoload 'pymacs-apply "pymacs")
; (autoload 'pymacs-call "pymacs")
; (eval-after-load "pymacs"
; '(add-to-list 'pymacs-load-path "~/.elisp/Pymacs-0.22"))
;(put 'upcase-region 'disabled nil)
;(put 'dired-find-alternate-file 'disabled nil)
;; we want dired not not make always a new buffer if visiting a directory
;; but using only one dired buffer for all directories.
;; (eval-after-load "dired"
;; '(progn
;; (defadvice dired-advertised-find-file (around dired-subst-directory activate)
;; "Replace current buffer if file is a directory."
;; (interactive)
;; (let ((orig (current-buffer))
;; (filename (dired-get-filename)))
;; ad-do-it
;; (when (and (file-directory-p filename)
;; (not (eq (current-buffer) orig)))
;; (kill-buffer orig))))))
(eval-after-load "dired"
'(progn
(defadvice dired-advertised-find-file (around dired-subst-directory activate)
"Replace current buffer if file is a directory."
(interactive)
(let* ((orig (current-buffer))
(filename (dired-get-filename))
(bye-p (file-directory-p filename)))
ad-do-it
(when (and bye-p (not (string-match "[/\\\\]\\.$" filename)))
(kill-buffer orig))))))
(defun sk-oe (&optional arg) "Insère le e dans l'o."
(interactive "*P")
; (if arg
; (insert (make-char 'mule-unicode-0100-24ff 116 76))
(insert (make-char 'latin-iso8859-15 #xBD)))
;;============== paramétrage BBDB =======================================
(when (require 'bbdb)
(bbdb-initialize 'gnus 'message)
(setq gnus-optional-headers 'bbdb/gnus-lines-and-from
bbdb-complete-name-allow-cycling t
bbdb-send-mail-style 'gnus);'message)
(autoload 'bbdb/gnus-lines-and-from "bbdb-gnus")
(autoload 'bbdb "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-name "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-company "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-net "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-notes "bbdb-com" "Insidious Big Brother Database" t)
(autoload 'bbdb-insinuate-vm "bbdb-vm" "Hook BBDB into VM")
(autoload 'bbdb-insinuate-rmail "bbdb-rmail" "Hook BBDB into RMAIL")
(autoload 'bbdb-insinuate-mh "bbdb-mhe" "Hook BBDB into MH-E")
(autoload 'bbdb-insinuate-gnus "bbdb-gnus" "Hook BBDB into GNUS")
(autoload 'bbdb-insinuate-sendmail "bbdb" "Hook BBDB into sendmail")
(add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
;;ajout des contacts à l'envoi
(autoload 'bbdb/send-hook "moy-bbdb"
"Function to be added to `message-send-hook' to notice records when sending messages" t)
(add-hook 'message-send-hook 'bbdb/send-hook)
;; par defaut bbdb est configure pour accepter les numeros de
;; telephone au format americain ici on desactive cette option
(setq bbdb-north-american-phone-numbers-p nil)
;; permet d'eviter d'avoir une fenetre bbdb qui montre en permanence
;; les mises a jour dans bbdb lorsque l'on utilise VM, MH, RMAIL ou
;; GNUS
(setq bbdb-use-pop-up nil)
;; pas de code de localisation par defaut pour les numeros de
;; telephone
(setq bbdb-default-area-code nil)
;; permet d'empecher a bbdb de creer une nouvelle entree a chaque fois
;; qu'un mail d'une nouvelle personne est lu avec GNUS, RMAIL, VM ou
;; MH.
(setq bbdb/mail-auto-create-p nil
bbdb/news-auto-create-p nil
;;bbdb/send-auto-create-p nil
;;bbdb/send-prompt-for-create-p t
);;de moy-bbdb
;; nombre de lignes desire dans la fenetre popup de bbdb lorsque l'on
;; utilise VM/MH/RMAIL ou GNUS.
(setq bbdb-pop-up-target-lines 7)
;; ne pas m'enquiquiner si bbdb voit un correspondant connu avec une adresse différente
(setq bbdb-always-add-addresses nil
bbdb-quiet-about-name-mismatches t)
;; ne pas me demander si je veux sauver la base
(setq bbdb-offer-save 'savenoprompt)
;; je veux insérer le nom complet même s'il est identique à l'adresse
;; exemple "John Doe <john.doe@someplace.com>
(setq bbdb-dwim-net-address-allow-redundancy t)
)
;;============= BBDB =================================================
; (require 'gnus-load ); Create the faces we need
(when (require 'gnus-start)
(make-face 'my-gnus-group-line-ticked-face)
(make-face 'my-gnus-group-line-new-face)
(make-face 'my-gnus-group-line-unread-face)
(make-face 'my-gnus-topic-line-face)
(make-face 'my-gnus-mouse-group-line-ticked-face)
(make-face 'my-gnus-mouse-group-line-new-face)
(make-face 'my-gnus-mouse-group-line-unread-face)
(make-face 'my-gnus-mouse-group-line-groupname-face)
(make-face 'my-gnus-mouse-topic-line-face)
(make-face 'my-gnus-group-line-groupname-face)
(make-face 'my-gnus-group-line-groupname-read-face-1)
(make-face 'my-gnus-group-line-groupname-read-face-2)
(make-face 'my-gnus-group-line-groupname-read-face-3)
(make-face 'my-gnus-group-line-groupname-read-face-4)
(make-face 'my-gnus-group-line-groupname-unread-face-1)
(make-face 'my-gnus-group-line-groupname-unread-face-2)
(make-face 'my-gnus-group-line-groupname-unread-face-3)
(make-face 'my-gnus-group-line-groupname-unread-face-4)
;; Here we assign the faces to the gnus-faces
(setq gnus-face-1 'my-gnus-group-line-ticked-face)
(setq gnus-face-2 'my-gnus-group-line-new-face)
(setq gnus-face-3 'my-gnus-group-line-unread-face)
(setq gnus-face-5 'my-gnus-topic-line-face)
(setq gnus-face-8 'my-gnus-summary-line-tree-face)
(setq gnus-mouse-face-1 'my-gnus-mouse-group-line-ticked-face)
(setq gnus-mouse-face-2 'my-gnus-mouse-group-line-new-face)
(setq gnus-mouse-face-3 'my-gnus-mouse-group-line-unread-face)
(setq gnus-mouse-face-4 'my-gnus-mouse-group-line-groupname-face)
(setq gnus-mouse-face-5 'my-gnus-mouse-topic-line-face)
)
;;; Spelling
(when (require 'ispell)
(setq ispell-program-name "aspell")
(setq ispell-dictionary "francais")
(autoload 'flyspell-mode "flyspell" "On-the-fly spelling." t)
)
;; ;;régler le problème des accents ignorés
;; (setq ispell-dictionary-alist
;; '((nil ; francais.aff
;; "[A-Za-zÀÂÇ-ËÎÏÔÙÛÜàâç-ëîïôùûü]" "[^A-Za-zÀÂÇ-ËÎÏÔÙÛÜàâç-ëîïôùûü]"
;; "[---']" nil ("-n") "~nroff")
;; ("english" ; rosbif
;; "[A-Za-z]" "[^A-Za-z]" "[---']" nil ("-B") nil)
;; ("american" ; yankee
;; "[A-Za-z]" "[^A-Za-z]" "[---']" nil nil nil)
;; ("francais" ; francais.aff
;; "[A-Za-zÀÂÇ-ËÎÏÔÙÛÜàâç-ëîïôùûü]" "[^A-Za-zÀÂÇ-ËÎÏÔÙÛÜàâç-ëîïôùûü]"
;; "[---']" nil ("-n") "~nroff")
;; ("francais-TeX" ; francais.aff
;; "[A-Za-zÀÂÇ-ËÎÏÔÙÛÜàâç-ëîïôùûü\\]" "[^A-Za-zÀÂÇ-ËÎÏÔÙÛÜàâç-ëîïôùûü\\]"
;; "[---'^`\"]" t nil "~tex")
;; ("espanol" ; espa~nol.aff
;; "[A-Za-záéíóúüñÁÉÍÓÚÜÑ]" "[^A-Za-záéíóúüñÁÉÍÓÚÜÑ]"
;; "[---'^`\"]" t nil "~nroff")
;; ))
(autoload 'pymacs-load "pymacs" nil t)
(autoload 'pymacs-eval "pymacs" nil t)
(autoload 'pymacs-apply "pymacs")
(autoload 'pymacs-call "pymacs")
;;(eval-after-load "pymacs"
;; '(add-to-list 'pymacs-load-path "your-pymacs-directory"))
;;démarrage du serveur pour que emacsclient fonctionne
(server-start)
;;démarrage de gnuserver
;(gnuserv-start)
;;===== Multimedia ========
;;interface cdcd
(require 'cdi nil t)
;;interface emms
(when (require 'emms nil t)
(when (require 'emms-default nil t)
(emms-setup 'advanced "~/mp3")))
;(require 'emms nil t)
;(when (fboundp 'emms-start)
; (require 'emms-default nil t)
; (emms-setup 'advanced "~/mp3")
;)
;; ===== Customization de ps-print =========================
;;masquer les local-variables à l'impression
(defvar sk:ps-hide-local-variables t
"FIXME:...")
(defun sk:hide-local-variables ()
(narrow-to-region (point-min)
(progn
(end-of-buffer)
;; TODO: Set the BOUND arg.
(re-search-backward "Local Variables" nil t);deux points omis volontairement
(forward-line -1)
(point))))
(defadvice ps-print-buffer
(around sk:ps-print-buffer activate)
"FIXME:..."
(save-excursion
(save-restriction
(when sk:ps-hide-local-variables
(sk:hide-local-variables))
ad-do-it)))
(defadvice ps-print-buffer-with-faces
(around sk:ps-print-buffer-with-faces activate)
"FIXME:..."
(save-excursion
(save-restriction
(when sk:ps-hide-local-variables
(sk:hide-local-variables))
ad-do-it)))
(defadvice ps-spool-buffer
(around sk:ps-spool-buffer activate)
"FIXME:..."
(save-excursion
(save-restriction
(when sk:ps-hide-local-variables
(sk:hide-local-variables))
ad-do-it)))
(defadvice ps-spool-buffer-with-faces
(around sk:ps-spool-buffer-with-faces activate)
"FIXME:..."
(save-excursion
(save-restriction
(when sk:ps-hide-local-variables
(sk:hide-local-variables))
ad-do-it)))
(defun sk:ps-date-format ()
"Retourne le format de date dd/mm/yy"
(format-time-string "%d/%m/%y"))
(setq ps-right-header '("/pagenumberstring load"
sk:ps-date-format
ps-time-stamp-hh:mm:ss))
;; ============= ps-print =====================================
;; Recherche des infos dans Apropos : C-h a = apropos-command
;; ce qui ne recherche pas les variables et les fonctions non-interactives
;; alors que M-x apropos recherche tout. On va unifier les deux
(setq apropos-do-all t)
(global-set-key (kbd "C-h a") 'apropos)
;; ======================================================================
;; `apropos-value()':
;; ==================
;;
;; Il est question ici de créer un advice autour de
;; `apropos-value()' afin de permettre qu'un argument numérique
;; négatif fixe `apropos-do-all' à nil. En effet, cette commande
;; est très lourde, et je fixe cette variable à t, ce qui
;; n'arrange rien. La version originale permet d'« activer »
;; `apropos-do-all' par un argument préfixe, mais pas de le
;; désactiver.
;;
;; TODO: Implémentation à vérifier ... Il serait sans doute plus
;; judicieux de créer de nouvalles variables, ayant la même
;; sémantique que `apropos-do-all', mais « spécialisées » pour
;; chaque commande d'apropos. De même, il serait intéressant de
;; pouvoir limiter les symboles sur lesquels chercher (par
;; exemple par une régexp, ou un préfixe). Souvent, en effet, on
;; connait le préfixe de package, et cela peut faire gagner
;; beaucoup de temps sur cette fonction lente ...
;; ----------------------------------------------------------------------
(defadvice apropos-value (around drkm-my:apropos-value activate)
"FIXME<docstring>: ..."
(let ((apropos-do-all (if (let ((arg (ad-get-arg 1)))
(or (eq arg '-)
(and (numberp arg) (< arg 0))))
(ad-set-arg 1 nil)
apropos-do-all)))
ad-do-it))
;; ==== Comportement du MANuel =====================
;; les pages de manuel font frame à part
(setq Man-notify-method 'newframe ;;pushy
Man-frame-parameters
'((foreground-color . "black")
(background-color . "grey90")
(cursor-color . "black")
(mouse-color . "gold")
(width . 80)
(tool-bar-lines . 0)))
;; ==== MAN ========================================
;; ==== Affichage d'Info dans une autre frame ======
;; code piqué chez Tony Finch http://dotat.at/prog/rcfiles/emacs
;; {{{ info
(require 'info)
(setq Info-fontify-maximum-menu-size 1000000)
;; {{{ Info-other-frame
(defun Info-other-frame (&optional file)
"Start *info* mode in another frame."
(interactive (if current-prefix-arg
(list (read-file-name "Info file name: " nil nil t))))
(let ((pop-up-frames t)
(buffer (current-buffer)))
(pop-to-buffer buffer t)
(raise-frame (window-frame (selected-window)))
(info file)))
;; }}}
;; {{{ Info-uniquify-buffer
(defun Info-uniquify-buffer ()
"Rename an *info* buffer uniquely."
(rename-buffer "*info*" 't))
;; }}}
;; {{{ Info-rename-buffer
(defun Info-rename-buffer (suffix)
"Rename an *info* buffer according to the user's choice."
(interactive "sBuffer name suffix: ")
(rename-buffer (concat "*info-" suffix "*")))
;; }}}
;; {{{ Info-search-again
(defun Info-search-again (regexp)
"Search an info file with a better user-interface than Info-search."
(interactive (list (if Info-search-history
(car Info-search-history)
(read-string "Regexp search: "
nil 'Info-search-history))))
(Info-search regexp))
;; }}}
(global-set-key "\C-x5i" 'Info-other-frame )
(add-hook 'Info-mode-hook 'Info-uniquify-buffer)
(define-key Info-mode-map "s" 'Info-search-again)
(define-key Info-mode-map "S" 'Info-search)
(define-key Info-mode-map "r" 'Info-rename-buffer)
;; }}}
;;====== Info ==================================
;; déplacement vertical dans les lignes wrappées
(require 'screen-lines2 nil t)
;; ouverture d'un fichier avec chemin relatif
;; et ouverture d'un fichier le nom est indiqué par le point
;; de Patrick Percot et Matthieu Moy
;; C-x a f: ltf-find-file
;; C-x a v: ltf-find-file-at-point
;; C-u C-x a v : find file at point, in another window.
(require 'find-this-file nil t)
;; réagir au signal USR1
;;(global-set-key [usr1-signal] 'sk-toto)
;;(defun sk-toto () (interactive)(insert "allo ?"))
;; Load CEDET
;;(setq semantic-load-turn-useful-things-on t)
(setq semantic-load-turn-everything-on t)
(when (file-exists-p "~/.elisp/cedet/common/cedet.el")
(load-library "~/.elisp/cedet/common/cedet.el")
;; Enabling SEMANTIC minor modes. See semantic/INSTALL for more ideas.
;;(semantic-load-enable-excessive-code-helpers)
)
;; ecb
(when (require 'ecb-autoloads nil t)
;;(setq semantic-load-turn-useful-things-on t)
(setq semanticdb-default-save-directory "~/tmp"))
;; vb mode
(require 'visual-basic-mode nil t)
;; impression
(require 'printing nil t)
;;évaluation xref
(when (string-match "\\`goudurix" system-name)
(setq load-path (cons "/Users/seki/Appl/xref/emacs" load-path))
(setq exec-path (cons "/Users/seki/Appl/xref" exec-path))
(load "xrefactory"))
;; réglage du serveur LDAP
(when (string-match "\\`goudurix" system-name)
(setq eudc-set-server '("metz-exchange" 'ldap t)
eudc-server-hotlist 'nil
ldap-host-parameters-alist (quote (("metz-exchange" base "o=SAGE" auth nil scope subtree)))
eudc-inline-query-format (quote ((name) (firstname name) (Uid)))
eudc-query-form-attributes (quote (name firstname email phone Uid))
))
;; rescale des polices ==> pour la version de MacEmacs JP / Carbon Emacs
;; http://home.att.ne.jp/alpha/z123/emacs-mac-e.html
(setq face-font-rescale-alist '((".*osaka-bold.*" . 1.15)
(".*osaka-medium-i.*" . 1.2)
(".*osaka-medium-r.*" . 1.2)
(".*courier-medium.*" . 1.0)
(".*courier-bold.*" . 1.0)
;;(".*monaco-bold.*" . 0.9)
;;(".*ayuthaya-bold.*" . 0.9)
("-cdac$" . 1.3)))
;;trucs utiles elisp
;; trouver le code d'une touche -> M-: (read-key-sequence "")
;; Local Variables:
;; mode: emacs-lisp
;; c0ding-system: iso-8859-15-mac
;; time-stamp-format: "%02d/%02m/%:y %02H:%02M %u@%s"
;; End:
[-- Attachment #3: Type: text/plain, Size: 22 bytes --]
--
Sébastien Kirche
[-- Attachment #4: Type: text/plain, Size: 142 bytes --]
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
prev parent reply other threads:[~2005-04-01 11:56 UTC|newest]
Thread overview: 14+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-03-10 16:18 Special Characters on Mac Emacs Ulrich Hobelmann
2005-03-23 11:20 ` YAMAMOTO Mitsuharu
2005-03-23 15:49 ` Sébastien Kirche
2005-03-24 3:00 ` YAMAMOTO Mitsuharu
2005-03-24 12:50 ` Sébastien Kirche
2005-03-25 6:48 ` YAMAMOTO Mitsuharu
2005-03-25 9:50 ` YAMAMOTO Mitsuharu
2005-03-25 15:34 ` Sébastien Kirche
2005-03-26 5:00 ` YAMAMOTO Mitsuharu
2005-03-31 3:43 ` Steven Tamm
2005-03-31 11:20 ` Sébastien Kirche
2005-03-29 10:03 ` Sébastien Kirche
2005-04-01 11:02 ` YAMAMOTO Mitsuharu
2005-04-01 11:56 ` Sébastien Kirche [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m2u0mqk8wh.fsf@seki.fr \
--to=sebastien.kirche.no@spam.free.fr.invalid \
--cc=sebastien.kirche@free.fr \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).