From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: =?iso-8859-15?Q?S=E9bastien?= Kirche Newsgroups: gmane.emacs.devel Subject: Re: Special Characters on Mac Emacs Date: Fri, 01 Apr 2005 13:56:30 +0200 Organization: Aucune. Message-ID: References: Reply-To: =?iso-8859-15?Q?S=E9bastien?= Kirche NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1112357706 18299 80.91.229.2 (1 Apr 2005 12:15:06 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 1 Apr 2005 12:15:06 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Apr 01 14:15:06 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1DHL2s-0005W6-7a for ged-emacs-devel@m.gmane.org; Fri, 01 Apr 2005 14:14:39 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DHLJj-0003fb-Lg for ged-emacs-devel@m.gmane.org; Fri, 01 Apr 2005 07:32:03 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1DHLD2-0007EH-Qd for emacs-devel@gnu.org; Fri, 01 Apr 2005 07:25:09 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1DHLCx-0007Aj-2N for emacs-devel@gnu.org; Fri, 01 Apr 2005 07:25:04 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1DHLCt-00073e-US for emacs-devel@gnu.org; Fri, 01 Apr 2005 07:25:00 -0500 Original-Received: from [80.91.229.2] (helo=ciao.gmane.org) by monty-python.gnu.org with esmtp (TLSv1:DES-CBC3-SHA:168) (Exim 4.34) id 1DHKng-0005p6-0D for emacs-devel@gnu.org; Fri, 01 Apr 2005 06:58:57 -0500 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1DHKm1-0003ZZ-Hk for emacs-devel@gnu.org; Fri, 01 Apr 2005 13:57:13 +0200 Original-Received: from 195.25.216.129 ([195.25.216.129]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 01 Apr 2005 13:57:13 +0200 Original-Received: from sebastien.kirche by 195.25.216.129 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 01 Apr 2005 13:57:13 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-To: emacs-devel@gnu.org Original-Lines: 1202 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: 195.25.216.129 X-Face: ; T}O6aj2o*d:|9po%NCuYvExN3]<#cHr0"FaWCh[}WVn6&@L)YWO'&6AO5Ex:MX=H; .^e}o Td*OaFQEBc_xu%+ChwRl!KK`I'["$^aO1gIN{4OyBdO@1HHD5YO#[kiVCk|/-|mmYnU8yTp+eOv."d 1.G3; ro0Q/`,UY+vY/#5b/{OYxE+X\)tc~p~1vbmZ!o4sciW+e8MW|Pz|nl`l*}]8[#1zQO"]d2*{d wrTKu]5t*Gy_pm3e8o=:(c_ju'zlQ<[oJ|\XjgQQmWZC7S]-Fmp\eBHnBO']/te~/; \@l" D#:h)8Q User-Agent: Gnus/5.110003 (No Gnus v0.3) Emacs/22.0.50 (darwin) Cancel-Lock: sha1:hKiQ/fXpl2ypdAMJaOj+uZkiWno= X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:35472 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:35472 --=-=-= 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. --=-=-= Content-Type: application/emacs-lisp; charset=iso-8859-15 Content-Disposition: attachment; filename=.emacs Content-Transfer-Encoding: quoted-printable Content-Description: my config file ;; -*- coding: latin-9 -*- ;;+----------------------------------------------------------+ ;;| | ;;| Seki's dotemacs | ;;| | ;;+----------------------------------------------------------+=20=20=20=20= =20=20=20=20 ;; Time-stamp: <01/04/2005 11:23 seki@goudurix> ;; Merci =E0 S=E9bastien Dinot ;; =E0 Mathieu Roy ;; et aux diff=E9rentes 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=3D40 ;; D=E9terminer si on emploie Emacs ou XEmacs (defvar sk:is-xemacs (string-match "XEmacs" emacs-version)=20 "Variable interne diff=E9rente de nil si on est dans XEmacs") ;;chez moi (defvar sk:home (expand-file-name "~/") "Home sweet home") ;;(if sk:is-xemacs=20 ;; (setq sk:home (expand-file-name sk:home))) ;; Ajouter mon r=E9pertoire personnel =E0 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)=20=20 (progn (cd sk:elisp-path)=20 (normal-top-level-add-subdirs-to-load-path)=20 (cd sk:home)) ;; chemin d'un Gnus custom (si pr=E9sent) (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 =EAtre 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) =20=20=20=20=20=20=20=20=20 ;; 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-de= fault-browser));browse-url-lynx-emacs)) ;;=3D=3D=3D=3D=3D=3D=3D SPECIFIQUE PLATEFORME =3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D (cond ((eq system-type 'darwin) ; r=E9glages pour le mac =20=20=20=20=20=20=20 ;;(message "on est sous mac") =09=20=20=20 (setq process-connection-type t);en shell pour voir l'affichage =09=20=20=20 (setq mac-command-key-is-meta t);pomme =3D m=E9ta (setq mac-pass-command-to-system nil);=E9vite de cacher emacs avec M-h =09=20=20=20 ;; 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 =09=20=20=20 (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 =3D mouse2 / command = =3D mouse3 (if window-system=20 (progn (set-background-color "gray90") =09=09=09=20 ;;X fonts specs format (d=E9signation des fontes X) ;;-FOUNDRY-FAMILY-WEIGHT-SLANT-WIDTH--PIXELS-POINTS-HRES-VRES-SPACING-A= VEWIDTH-CHARSET=20 =09=09=09=20 ;; 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)=20 (height . 44)=20 (top . 440);pixels (left . 260);pixels (font . "fontset-monaco");fontset-mac ;(font . (create-fontset-from-mac-roman-font "-apple-monaco-medi= um-r-normal--9-90-75-75-m-90-mac-roman")) )) ) ) (global-set-key (kbd "") 'delete-char) ;touche suppr (global-set-key (kbd "") "/") ;touche division s= ur pav=E9 num (inactif sur mon poste ?) (global-set-key (kbd "") (kbd ""));idem / (global-set-key (kbd "") (kbd "")) ;idem / ;;(global-set-key "?" (sk-insere-euro t));j'arrive pas avec l'euro ;( = =A4=A4 et si ! =09=20=20=20 (setq printer-name "IMP_DEV_PROJ") ) ;;=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ((eq system-type 'windows-nt); r=E9glages pour windows (progn ;;(message "on est sous ouin-ouin") (global-set-key [128] 'sk-insere-euro); C-h l donne \200 pour l'eu= ro soit 128 en d=E9cimal ;; 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) =09=09=20 (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) =09=09=20 (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=20 (progn (set-background-color "gray90") ;;-outline-Lucida Console-normal-r-normal-normal-11-82-96-96-c-70-iso= 8859-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")=20 (setq default-frame-alist '((width . 100)=20 (height . 44)=20 (top . 50);pixels (left . 50);pixels (font . "fontset-lucida");fontset-mac )) ) ) ) ) ;;=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ((eq system-type 'gnu/linux); r=E9glages pour Linux (progn ;;(message "on est avec le pingouin") ();rien d'autre =09=09=20 ;; Mouse wheel ;; remplac=E9 par mwheel (mouse-wheel-mode est t par d=E9faut) ;; (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) =09=09=20 ;; (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) =09=09=20 ;; (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=20 (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-i= so10646-1") ;; ascii:-gnu-unifont-*-*-*-*-*-120-*-*-*-*-iso10646-1, ;; latin-iso8859-1:-gnu-unifont-*-*-*-*-*-120-*-*-*-*-iso1064= 6-1") =09=09=09=20=20=20 (setq default-frame-alist '((width . 110)=20 (height . 45)=20 (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"))) =09=09=09=20=20=20 (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=3D "" cmd) (message "Starting Firefox...") (start-process (concat "firefox " url) nil "/bin/sh" "-c"=20 (concat "mozilla-firefox " url "|| true")) (message "Starting Firefox...done")))) =09=09=09=20=20=20 (setq browse-url-browser-function 'browse-url-firefox-new-tab) ) ) (setq printer-name "Idefix") ) ) ) ;;=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ;; Inhiber l'affichage du message d'accueil (setq inhibit-startup-message t) =20 ;; C'est fastidieux de taper =AB yes =BB pour confirmer, raccourcissons ;; cela =E0 =AB y =BB (idem pour =AB no =BB, d=E9sormais =AB n =BB). (fset 'yes-or-no-p 'y-or-n-p) ;; Ne pas utiliser de bo=EEte 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 =AB ~ =BB) (setq make-backup-files nil) ;; Gestion et affichage corrects des accents. ;;(require 'iso-acc) =E0 =E9viter d'apr=E8s 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=E8res de contr=F4le sous la forme d'un caract=E8re ;; =AB ^ =BB suivi de la lettre correspondante au lieu de la forme octale. (setq-default ctl-arrow 'latin-9) ;;ne pas afficher les espaces ins=E9cables pr=E9c=E9d=E9s d'un "\" ;;nouveaut=E9 emacs 21.3.50 (cvs) (setq show-nonbreak-escape nil) ;; Laisser le curseur en place lors d'un d=E9filement par pages. ;; Par d=E9faut, Emacs place le curseur en d=E9but ou fin d'=E9cran ;; selon le sens du d=E9filement. (setq scroll-preserve-screen-position t) ;; Faire appara=EEtre la position du curseur dans la ligne modale (setq column-number-mode t) (setq line-number-mode t) ;; mise =E0 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=E9 (setq ps-paper-type 'a4) ;; Si cette variable est diff=E9rente de 'nil', lorsque l'on est =E0 la fin ;; d'une ligne, le d=E9placement vertical du curseur s'accompagne d'un ;; d=E9placement horizontal pour atteindre la fin de la ligne courante. ;; Si cette variable vaut 'nil', le d=E9placement est strictement vertical. ;;(setq track-eol nil) ;; La fin d'une phrase n'est pas marqu=E9e par un point suivi de deux espac= es, ;; 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) ;;=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ERGONOMIE =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ;; Nouveaut=E9 22.00 : mouse-1 sur un lien suit ce lien ;; je pr=E9f=E8re 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=E9faut 350 ms) ;; En rendant nulle la variable ci-dessous, l'insertion d'un texte par ;; =AB copier-coller =BB =E0 la souris se fait au niveau du point cliqu=E9 = et ;; non =E0 la position du curseur texte. (setq mouse-yank-at-point nil) =20=20 ;; Mise en surbrillance des lignes s=E9lectionn=E9es et =E9crasement de ces ;; derni=E8res lorsqu'on saisit du texte dans la foul=E9e. (if sk:is-xemacs ; on utilise XEmacs (progn=20 (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=E9rente de 'nil', lorsque l'on est =E0 la fin ;; d'une ligne, le d=E9placement vertical du curseur s'accompagne d'un ;; d=E9placement horizontal pour atteindre la fin de la ligne courante. ;; Si cette variable vaut 'nil', le d=E9placement est strictement vertical. (setq track-eol 'nil) =20 ;; saisie universelle des caract=E8res accentu=E9s 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-transl= ation-map [(control ?x) ?8])) (define-key key-translation-map [(control 178)] (lookup-key key-translati= on-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=E9lior=E9 ;(iswitchb-mode) (when (require 'ido nil t) (ido-mode t)) ;; goto-line n'est mapp=E9 par d=E9faut que dans le menu (global-set-key "\C-cg" 'goto-line) ;; Suivi des fichiers r=E9cents (when (require 'recentf) (setq recentf-auto-cleanup 'never) ;; =E9vite de v=E9rifier les fichiers = distants au d=E9marrage (recentf-mode 1)) ;; parcours du kill-ring pour insertion (require 'kill-ring-rotate nil t) ;;=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D DATE et HEURE =3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D ;; La semaine commence le lundi (setq calendar-week-start-day 1) ;; Afficher l'heure dans la barre d'=E9tat (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=E9v" "mar" "avr" "mai" "jun" "jul" "ao=FB" "sep" "oct" "nov" "d=E9c"]) (defvar calendar-month-name-array ["janvier" "f=E9vrier" "mars" "avril" "mai" "juin" "juillet" "ao=FBt" "septembre" "octobre" "novembre" "d=E9cembre"]) ;;format de date fran=E7ais (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=E9r=E9 dans .emacs-custom ;; customize ne doit pas =E9crire dans ~/.emacs (setq custom-file "~/.emacs.d/.emacs-custom") (load-file "~/.emacs.d/.emacs-custom") ;; =3D=3D=3D=3D=3D FONCTIONS =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ; insertion de la date courante (defun sk-insere-date () (interactive) (insert (calendar-date-string (calendar-current-date)))) ;; insertion de la date s=E9lectionn=E9e dans le calendrier ;; le focus doit =EAtre dans le buffer o=F9 l'on ins=E8re (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=E9rer l'euro (fonction =E0 10 EUR ;o) (defun sk-insere-euro (&optional arg) "Ins=E8re le symbole Euro ISO 8859-15. Avec un pr=E9fixe, ins=E8re 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.")=20 =20=20=20=20=20=20 (defvar sw-applescript-buffer-name "*AppleScript output*" "Name for the buffer to display AppleScript output.")=20 =20=20=20=20=20=20 (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)))=20 =20=20=20=20=20=20 (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)))=20 =20=20=20=20=20=20 (defun sw-run-last-applescript () "Run the last Applescript command again" (interactive) (sw-run-and-display-applescript sw-last-applescript))=20 =20=20=20=20=20=20 (defun sw-run-and-display-applescript (code) "Switch to the AppleScript buffer, erase it, run the code and displ= ay 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=E8ses ; (syst=E9matiquement et non seulement apr=E8s 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=E8res ASCII =E9tendus ; Fonction fournie par Alex Schroeder (defun ascii-table () "Afficher la table de caract=E8res ASCII." (interactive) (switch-to-buffer "*ASCII*") (erase-buffer) (insert (format "Caract=E8res ASCII de code 1 =E0 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=E9cimale pour la saisie de caract=E8res quot=E9s (C-q = n=B0) (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=E8res 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=E8me 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"))=20 ;(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"=20 ;; '(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 ac= tivate) "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))))))=20 (defun sk-oe (&optional arg) "Ins=E8re 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))) ;;=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D param=E9trage BBDB =3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D (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 =E0 l'envoi (autoload 'bbdb/send-hook "moy-bbdb"=20 "Function to be added to `message-send-hook' to notice records when sendin= g messages" t) (add-hook 'message-send-hook 'bbdb/send-hook)=20 ;; 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=20 (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.=20 (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 adre= sse diff=E9rente (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=E9rer le nom complet m=EAme s'il est identique =E0 l'adres= se ;; exemple "John Doe (setq bbdb-dwim-net-address-allow-redundancy t) =20=20 ) ;;=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D BBDB =3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ; (require 'gnus-load ); Create the faces we need=20 (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)=20 ;; Here we assign the faces to the gnus-faces=20 (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)=20 ) ;;; Spelling (when (require 'ispell) (setq ispell-program-name "aspell") (setq ispell-dictionary "francais") (autoload 'flyspell-mode "flyspell" "On-the-fly spelling." t) ) ;; ;;r=E9gler le probl=E8me des accents ignor=E9s=20 ;; (setq ispell-dictionary-alist ;; '((nil ; francais.aff ;; "[A-Za-z=C0=C2=C7-=CB=CE=CF=D4=D9=DB=DC=E0=E2=E7-=EB=EE=EF=F4=F9=FB=FC= ]" "[^A-Za-z=C0=C2=C7-=CB=CE=CF=D4=D9=DB=DC=E0=E2=E7-=EB=EE=EF=F4=F9=FB=FC]" ;; "[---']" 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=C0=C2=C7-=CB=CE=CF=D4=D9=DB=DC=E0=E2=E7-=EB=EE=EF=F4=F9=FB=FC= ]" "[^A-Za-z=C0=C2=C7-=CB=CE=CF=D4=D9=DB=DC=E0=E2=E7-=EB=EE=EF=F4=F9=FB=FC]" ;; "[---']" nil ("-n") "~nroff") ;; ("francais-TeX" ; francais.aff ;; "[A-Za-z=C0=C2=C7-=CB=CE=CF=D4=D9=DB=DC=E0=E2=E7-=EB=EE=EF=F4=F9=FB=FC= \\]" "[^A-Za-z=C0=C2=C7-=CB=CE=CF=D4=D9=DB=DC=E0=E2=E7-=EB=EE=EF=F4=F9=FB= =FC\\]" ;; "[---'^`\"]" t nil "~tex") ;; ("espanol" ; espa~nol.aff ;; "[A-Za-z=E1=E9=ED=F3=FA=FC=F1=C1=C9=CD=D3=DA=DC=D1]" "[^A-Za-z=E1=E9= =ED=F3=FA=FC=F1=C1=C9=CD=D3=DA=DC=D1]" ;; "[---'^`\"]" 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=E9marrage du serveur pour que emacsclient fonctionne (server-start) ;;d=E9marrage de gnuserver ;(gnuserv-start) ;;=3D=3D=3D=3D=3D Multimedia =3D=3D=3D=3D=3D=3D=3D=3D ;;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") ;) ;; =3D=3D=3D=3D=3D Customization de ps-print =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ;;masquer les local-variables =E0 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 volont= airement (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"=20 sk:ps-date-format ps-time-stamp-hh:mm:ss)) ;; =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ps-print =3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D ;; Recherche des infos dans Apropos : C-h a =3D 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) ;; =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ;; `apropos-value()': ;; =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ;; ;; Il est question ici de cr=E9er un advice autour de ;; `apropos-value()' afin de permettre qu'un argument num=E9rique ;; n=E9gatif fixe `apropos-do-all' =E0 nil. En effet, cette commande ;; est tr=E8s lourde, et je fixe cette variable =E0 t, ce qui ;; n'arrange rien. La version originale permet d'=AB=A0activer =BB ;; `apropos-do-all' par un argument pr=E9fixe, mais pas de le ;; d=E9sactiver. ;; ;; TODO: Impl=E9mentation =E0 v=E9rifier ... Il serait sans doute plus ;; judicieux de cr=E9er de nouvalles variables, ayant la m=EAme ;; s=E9mantique que `apropos-do-all', mais =AB=A0sp=E9cialis=E9es=A0= =BB pour ;; chaque commande d'apropos. De m=EAme, il serait int=E9ressant de ;; pouvoir limiter les symboles sur lesquels chercher (par ;; exemple par une r=E9gexp, ou un pr=E9fixe). Souvent, en effet, on ;; connait le pr=E9fixe de package, et cela peut faire gagner ;; beaucoup de temps sur cette fonction lente ... ;; ---------------------------------------------------------------------- (defadvice apropos-value (around drkm-my:apropos-value activate) "FIXME: ..." (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)) ;; =3D=3D=3D=3D Comportement du MANuel =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D ;; les pages de manuel font frame =E0 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))) ;; =3D=3D=3D=3D MAN =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ;; =3D=3D=3D=3D Affichage d'Info dans une autre frame =3D=3D=3D=3D=3D=3D ;; code piqu=E9 chez Tony Finch http://dotat.at/prog/rcfiles/emacs ;; {{{ info (require 'info)=20 (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) ;; }}} ;;=3D=3D=3D=3D=3D=3D Info =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ;; d=E9placement vertical dans les lignes wrapp=E9es (require 'screen-lines2 nil t) ;; ouverture d'un fichier avec chemin relatif ;; et ouverture d'un fichier le nom est indiqu=E9 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=E9agir 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=20 (require 'printing nil t) ;;=E9valuation 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=E9glage 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=3DSAGE" 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 =3D=3D> 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: --=-=-= Content-Type: text/plain; charset=iso-8859-15 Content-Transfer-Encoding: 8bit -- Sébastien Kirche --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-devel --=-=-=--